在 Sayya Joehorn 個人版看到有人實做出偵測台灣 CVSUP Server 更新狀態，以及更新的時間，也有程式碼的釋出，參考這篇：Script: 取得 FreeBSD CVSUP 的更新狀態，這篇寫的蠻清楚的，只需要 perl 跟 php 就可以完成，不過在使用過程有些事項必須要注意，在 FreeBSD 6.2 R 之後，已經內建了 csup 指令來更新 ports 或者是核心，所以要在另外安裝上 cvsup ports 套件，在 Perl 方面，也先裝 net/p5-Net-Rendezvous 才可以正確使用。
# 安裝必備軟體
cd /usr/ports/net/p5-Net-Rendezvous/ && make install clean
cd /usr/ports/net/cvsup-without-gui && make install clean
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> 
