引用 | 編輯
月光
2009-12-28 23:06 |
樓主
▼ |
||
x0
在 Sayya Joehorn 個人版看到有人實做出偵測台灣 CVSUP Server 更新狀態,以及更新的時間,也有程式碼的釋出,參考這篇:Script: 取得 FreeBSD CVSUP 的更新狀態,這篇寫的蠻清楚的,只需要 perl 跟 php 就可以完成,不過在使用過程有些事項必須要注意,在 FreeBSD 6.2 R 之後,已經內建了 csup 指令來更新 ports 或者是核心,所以要在另外安裝上 cvsup ports 套件,在 Perl 方面,也先裝 net/p5-Net-Rendezvous 才可以正確使用。# 安裝必備軟體 Perl 程式碼我有改過一些,不然沒辦法抓到正確資訊: 複製程式 #!/usr/bin/perl # Check the update status for CVSUP servers # Copyright (C) 2007 - Shen Cheng-Da (cdsheen AT gmail.com) # modified by appleboy (appleboy.tw AT gmail.com) 2009.08.31 use POSIX qw(strftime); use Net::DNS; use Time::HiRes qw( gettimeofday tv_interval ); @servers = qw( [url]www.cn.ee.ccu.edu.tw[/url] cvsup.tw.freebsd.org cvsup1.tw.freebsd.org cvsup2.tw.freebsd.org cvsup3.tw.freebsd.org cvsup4.tw.freebsd.org cvsup5.tw.freebsd.org cvsup6.tw.freebsd.org cvsup7.tw.freebsd.org cvsup8.tw.freebsd.org cvsup9.tw.freebsd.org cvsup10.tw.freebsd.org cvsup11.tw.freebsd.org cvsup12.tw.freebsd.org cvsup13.tw.freebsd.org cvsup14.tw.freebsd.org ); $dir = '/home/cvsup-monitor'; $cvsup = '/usr/local/bin/cvsup'; $base = $dir . '/base'; $log = $dir . '/check.log'; chdir( $dir ) || die "ERROR: Can not change to directory [$dir]\n"; mkdir( $base, 0755 ) unless -d $base; @files_src = qw( CVSROOT-src/commitlogs/CVSROOT CVSROOT-src/commitlogs/bin CVSROOT-src/commitlogs/etc CVSROOT-src/commitlogs/contrib CVSROOT-src/commitlogs/gnu CVSROOT-src/commitlogs/games CVSROOT-src/commitlogs/include CVSROOT-src/commitlogs/lib CVSROOT-src/commitlogs/release CVSROOT-src/commitlogs/sys CVSROOT-src/commitlogs/sbin CVSROOT-src/commitlogs/share CVSROOT-src/commitlogs/tools CVSROOT-src/commitlogs/user CVSROOT-src/commitlogs/usrbin CVSROOT-src/commitlogs/usrsbin ); @files_ports = qw( CVSROOT-ports/commitlogs/CVSROOT CVSROOT-ports/commitlogs/ports); $includes = ''; foreach $f ( @files_src ) { $includes .= " -i $f"; } foreach $f ( @files_ports ) { $includes .= " -i $f"; } open( LOG, ">$log"); my $resolver = Net::DNS::Resolver->new; $resolver->usevc(1); $resolver->udp_timeout(5); $resolver->tcp_timeout(5); $resolver->retrans(3); $resolver->retry(2); $resolver->persistent_tcp(1); foreach $server ( @servers ) { my $query = $resolver->query($server, 'A'); @ipaddr = @cname = (); if( $query ) { foreach $rr ($query->answer) { if( $rr->type eq 'A' ) { print LOG "$server => [A] ".$rr->address."\n"; push( @ipaddr, $rr->address ); } elsif( $rr->type eq 'CNAME' ) { print LOG "$server => [CNAME] ".$rr->cname."\n"; push( @cname, $rr->cname ); } } } $ip = $ipaddr[0]; $ipaddr = join( '|', @ipaddr ); $cname = join( '|', @cname ); $ibase = "$base/$server"; mkdir( $ibase, 0755 ) unless -d $ibase; mkdir( "$ibase/SRC", 0755 ) unless -d "$ibase/SRC"; $cmd = "$cvsup -b $ibase -h $ip -L 0 -r 0 $includes $dir/cvs-supfile"; $time_start = [gettimeofday]; system($cmd); $elapsed = tv_interval( $time_start ); printf LOG ("$server => cvsup on $ip elapsed %.2fs\n", $elapsed); unless( $? ) { $mt_src = $mt_ports = 0; foreach $f ( @files_src ) { $t = (stat( "$f" ))[9]; $mt_src = $t if $t > $mt_src; } foreach $f ( @files_ports ) { $t = (stat( "$f" ))[9]; $mt_ports = $t if $t > $mt_ports; } open( REC, ">$ibase/last-commit.txt" ); printf REC ("$mt_src,$mt_ports,%.2f,$ipaddr,$cname",$elapsed); close(REC); printf LOG ("$server => SRC: %s\n", strftime("%Y/%m/%d %H:%M:%S", localtime($mt_src)) ); printf LOG ("$server => PORTS: %s\n", strftime("%Y/%m/%d %H:%M:%S", localtime($mt_ports)) ); } } close(LOG); PHP 顯示部份,這邊就沒有動到,直接 copy 就可以 複製程式 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>FreeBSD CVS Site </title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <style type="text/css"> td { font-size: 12px; vertical-align: top } td.head { background: #FFFFC0 } td.c { background: #E0E0FF } td.red { background: #FFE0E0 } td.green { background: #E0FFE0 } </style> </head> <body> <table border=1 cellspacing=0 cellpadding=2> <tr><td class=head>Server Name</td><td class=head>IP</td> <td class=head>CNAME</td><td class=head>latest commit of src</td> <td class=head>latest commit of ports</td> </tr> <? $dir = '/usr/home/cvsup-monitor'; $servers = array( '[url]www.cn.ee.ccu.edu.tw[/url]', 'cvsup.tw.freebsd.org', 'cvsup1.tw.freebsd.org', 'cvsup2.tw.freebsd.org', 'cvsup3.tw.freebsd.org', 'cvsup4.tw.freebsd.org', 'cvsup5.tw.freebsd.org', 'cvsup6.tw.freebsd.org', 'cvsup7.tw.freebsd.org', 'cvsup8.tw.freebsd.org', 'cvsup9.tw.freebsd.org', 'cvsup10.tw.freebsd.org', 'cvsup11.tw.freebsd.org', 'cvsup12.tw.freebsd.org', 'cvsup13.tw.freebsd.org', 'cvsup14.tw.freebsd.org' ); $check = time() - 86400; $time_format = '%Y/%m/%d %H:%M:%S'; $latest_src = $latest_ports = 0; foreach( $servers as $server ) { $data = @file_get_contents("$dir/base/$server/last-commit.txt"); $data = trim($data); if( $data != '' ) { $SERVER[$server] = explode(',', $data); if( $SERVER[$server][0] > $latest_src ) $latest_src = $SERVER[$server][0]; if( $SERVER[$server][1] > $latest_ports ) $latest_ports = $SERVER[$server][1]; } } foreach( $servers as $server ) { if( is_array($SERVER[$server]) ) { list( $src, $ports, $elapsed, $ipaddr, $aliases ) = $SERVER[$server]; $ipaddr = str_replace( '|', '<br />', $ipaddr ); $aliases = str_replace( '|', '<br />', $aliases ); if( $aliases == '' ) $aliases = ' '; print "<tr>\n"; print " <td class=c>$server</td>\n"; print " <td class=c>$ipaddr</td>\n"; print " <td class=c>$aliases</td>\n"; if( $src == $latest_src ) print " <td class=green>"; elseif( $src < $check ) print " <td class=red>"; else print " <td class=c>"; print strftime( $time_format, $src ) . "</td>\n"; if( $ports == $latest_ports ) print " <td class=green>"; elseif( $ports < $check ) print " <td class=red>"; else print " <td class=c>"; print strftime( $time_format, $ports ) . "</td>\n"; # print " <td align=right>$elapsed s</td>\n"; print "</tr>\n"; } } ?> </table> </body> </html> x0
|
引用 | 編輯
mnbmnb5266
2010-08-18 03:19 |
1樓
▲ |
不錯啊,有了這個就可以實時更新了
x0 |