{"id":69,"date":"2007-12-24T23:52:43","date_gmt":"2007-12-24T15:52:43","guid":{"rendered":"http:\/\/blog.urdada.net\/2007\/12\/24\/69\/"},"modified":"2010-08-17T10:04:43","modified_gmt":"2010-08-17T02:04:43","slug":"script-%e5%8f%96%e5%be%97-freebsd-cvsup-%e7%9a%84%e6%9b%b4%e6%96%b0%e7%8b%80%e6%85%8b","status":"publish","type":"post","link":"https:\/\/dada.tw\/blog\/2007\/12\/24\/69\/","title":{"rendered":"Script: \u53d6\u5f97 FreeBSD CVSUP \u7684\u66f4\u65b0\u72c0\u614b"},"content":{"rendered":"<p>\u9019\u662f\u4eca\u5e741\u6708\u5beb\u7684 script&#8230;  \u7528\u4f86\u76e3\u63a7\u5404\u5927 FreeBSD CVSUP mirror \u7db2\u7ad9\u7684\u6a94\u6848\u66f4\u65b0\u7a0b\u5ea6\uff0c<br \/>\n\u63d0\u4f9b\u670d\u52d9\u7684\u7db2\u5740\u662f <a href=http:\/\/ftp.giga.net.tw\/cvsup.php target=_blank>http:\/\/ftp.giga.net.tw\/cvsup.php<\/a><\/p>\n<p><img data-recalc-dims=\"1\" decoding=\"async\" src=\"https:\/\/i0.wp.com\/farm3.static.flickr.com\/2057\/2134694712_0811886762.jpg?w=625\" alt=\"\" \/><\/p>\n<p>\u5167\u5bb9\u5176\u5be6\u5f88\u7c21\u55ae\uff0c\u4e0b\u9762\u628a\u7a0b\u5f0f\u653e\u51fa\u4f86\uff0c\u6709\u8208\u8da3\u7684\u4eba\u6b61\u8fce\u514d\u8cbb\u62ff\u53bb\u4fee\u6539\u4f7f\u7528<\/p>\n<p>==<br \/>\n\u539f\u7406\u8aaa\u660e:<\/p>\n<p><a href=http:\/\/www.nongnu.org\/cvs\/ target=_blank>CVS<\/a> \u4e0d\u50cf <a href=http:\/\/subversion.tigris.org\/ target=_blank>Subversion<\/a> \u4e00\u6a23\u53ef\u4ee5\u5f88\u5bb9\u6613\u77e5\u9053\u76ee\u524d repository \u4e2d\u7684\u6700\u65b0\u7248\u672c\u70ba\u4f55\uff0c<br \/>\n\u5fc5\u9808\u8981\u628a\u6bcf\u500b\u6a94\u6848\u6aa2\u67e5\u4e00\u904d\u624d\u6709\u8fa6\u6cd5\u77e5\u9053\u6700\u65b0\u7684\u7248\u672c\u662f\u4ec0\u9ebc&#8230;<\/p>\n<p>\u4e0d\u904e\u5728 FreeBSD Source CVS \u4e0b\u9762\uff0c\u6bcf\u6b21 commit \u90fd\u6703\u6709 commit log \u53ef\u7d93\u7531 CVSUP \u53d6\u5f97\uff0c<br \/>\n\u56e0\u6b64\u6211\u5011\u53ef\u4ee5\u5229\u7528 CVSROOT-*\/commitlogs\/* \u9019\u5e7e\u500b\u6a94\u6848\u4f86\u5224\u65b7\u76ee\u524d source tree \u7684\u72c0\u614b..<br \/>\n\u53ea\u8981\u628a\u9019\u5e7e\u500b\u6a94\u6848\u7d93\u7531 CVSUP \u53d6\u51fa\u4f86\u5c31\u53ef\u4ee5\u5927\u81f4\u77e5\u9053\u8a72\u4f3a\u670d\u5668\u7684\u76ee\u524d\u4fdd\u5b58\u7684\u6700\u65b0\u7248\u672c\u662f\u54ea\u4e00\u500b\u4e86<br \/>\n==<\/p>\n<p>\u7b2c\u4e00\u500b\u662f\u4e00\u500b Perl script\uff0c\u4e3b\u8981\u662f\u9023\u7d50\u5230\u5404\u5927 FreeBSD CVSUP \u7db2\u7ad9\u53d6\u5f97\u76f8\u95dc\u8cc7\u8a0a\u5b58\u4e0b\u4f86<br \/>\n\u5f8c\u9762\u5247\u9644\u4e0a\u4e00\u500b PHP script\uff0c\u53ef\u4ee5\u628a\u9019\u4e9b\u8cc7\u8a0a\u7528 HTML \u8868\u683c\u65b9\u5f0f\u5448\u73fe\u51fa\u4f86<\/p>\n<p>check-cvsup.pl<\/p>\n<pre lang=\"perl\" line=\"1\">\r\n#!\/usr\/bin\/perl\r\n\r\n# Check the update status for CVSUP servers\r\n# BSD license\r\n# Shen Cheng-Da (cdsheen AT gmail.com)\r\n\r\nuse POSIX qw(strftime);\r\nuse Net::DNS;\r\nuse Time::HiRes qw( gettimeofday tv_interval );\r\n\r\n@servers = qw( cvsup.tw.freebsd.org cvsup1.tw.freebsd.org cvsup2.tw.freebsd.org \r\n                cvsup3.tw.freebsd.org cvsup4.tw.freebsd.org cvsup5.tw.freebsd.org \r\n                cvsup6.tw.freebsd.org cvsup7.tw.freebsd.org cvsup8.tw.freebsd.org \r\n                cvsup9.tw.freebsd.org cvsup10.tw.freebsd.org cvsup11.tw.freebsd.org \r\n                cvsup12.tw.freebsd.org cvsup13.tw.freebsd.org cvsup14.tw.freebsd.org );\r\n\r\n$dir    = '\/home\/cvsup-monitor';\r\n\r\n$cvsup  = '\/usr\/local\/bin\/cvsup';\r\n$base   = $dir . '\/base';\r\n$log    = $dir . '\/check.log';\r\n\r\nchdir( $dir ) || die \"ERROR: Can not change to directory [$dir]\\n\";\r\n\r\nmkdir( $base, 0755 ) unless -d $base;\r\n\r\n@files_src = qw( CVSROOT-src\/commitlogs\/CVSROOT CVSROOT-src\/commitlogs\/bin\r\n                CVSROOT-src\/commitlogs\/etc CVSROOT-src\/commitlogs\/contrib\r\n                CVSROOT-src\/commitlogs\/gnu CVSROOT-src\/commitlogs\/games\r\n                CVSROOT-src\/commitlogs\/include CVSROOT-src\/commitlogs\/lib\r\n                CVSROOT-src\/commitlogs\/release CVSROOT-src\/commitlogs\/sys\r\n                CVSROOT-src\/commitlogs\/sbin CVSROOT-src\/commitlogs\/share\r\n                CVSROOT-src\/commitlogs\/tools CVSROOT-src\/commitlogs\/user\r\n                CVSROOT-src\/commitlogs\/usrbin CVSROOT-src\/commitlogs\/usrsbin );\r\n\r\n@files_ports = qw( CVSROOT-ports\/commitlogs\/CVSROOT\r\n                        CVSROOT-ports\/commitlogs\/ports );\r\n\r\n$includes = '';\r\nforeach $f ( @files_src ) {\r\n        $includes .= \" -i $f\";\r\n}\r\nforeach $f ( @files_ports ) {\r\n        $includes .= \" -i $f\";\r\n}\r\n\r\nopen( LOG, \">$log\");\r\n\r\nmy $resolver = Net::DNS::Resolver->new;\r\n\r\n$resolver->usevc(1);\r\n$resolver->udp_timeout(5);\r\n$resolver->tcp_timeout(5);\r\n$resolver->retrans(3);\r\n$resolver->retry(2);\r\n$resolver->persistent_tcp(1);\r\n\r\nforeach $server ( @servers ) {\r\n        my $query = $resolver->query($server, 'A');\r\n        @ipaddr = @cname = ();\r\n        if( $query ) {\r\n                foreach $rr ($query->answer) {\r\n                        if( $rr->type eq 'A' ) {\r\n                                print LOG \"$server => [A] \".$rr->address.\"\\n\";\r\n                                push( @ipaddr, $rr->address );\r\n                        }\r\n                        elsif( $rr->type eq 'CNAME' ) {\r\n                                print LOG \"$server => [CNAME] \".$rr->cname.\"\\n\";\r\n                                push( @cname, $rr->cname );\r\n                        }\r\n                }\r\n        }\r\n        $ip = $ipaddr[0];\r\n        $ipaddr = join( '|', @ipaddr );\r\n        $cname  = join( '|', @cname  );\r\n\r\n        $ibase   = \"$base\/$server\";\r\n        mkdir( $ibase, 0755 ) unless -d $ibase;\r\n        mkdir( \"$ibase\/SRC\", 0755 ) unless -d \"$ibase\/SRC\";\r\n\r\n        $cmd = \"$cvsup -h $ip -L 0 -b $ibase -r 0 $includes supfile\";\r\n\r\n        $time_start = [gettimeofday];\r\n        system($cmd);\r\n        $elapsed = tv_interval( $time_start );\r\n\r\n        printf LOG (\"$server => cvsup on $ip elapsed %.2fs\\n\", $time_elapsed);\r\n\r\n        unless( $? ) {\r\n                $mt_src = $mt_ports = 0;\r\n                foreach $f ( @files_src ) {\r\n                        $t = (stat( \"$ibase\/SRC\/$f\" ))[9];\r\n                        $mt_src = $t if $t > $mt_src;\r\n                }\r\n                foreach $f ( @files_ports ) {\r\n                        $t = (stat( \"$ibase\/SRC\/$f\" ))[9];\r\n                        $mt_ports = $t if $t > $mt_ports;\r\n                }\r\n                open( REC, \">$ibase\/last-commit.txt\" );\r\n                printf REC(\"$mt_src,$mt_ports,%.2f,$ipaddr,$cname\",$elapsed);\r\n                close(REC);\r\n\r\n                printf LOG (\"$server => SRC: %s\\n\",\r\n                        strftime(\"%Y\/%m\/%d %H:%M:%S\", localtime($mt_src)) );\r\n                printf LOG (\"$server => PORTS: %s\\n\",\r\n                        strftime(\"%Y\/%m\/%d %H:%M:%S\", localtime($mt_ports)) );\r\n        }\r\n}\r\n\r\nclose(LOG);\r\n<\/pre>\n<p>supfile:<\/p>\n<pre lang=\"shell\">\r\n*default prefix=SRC\r\n*default release=cvs delete use-rel-suffix\r\n*default compress\r\n\r\ncvsroot-src\r\ncvsroot-ports\r\n<\/pre>\n<p>cvsup.php<\/p>\n<pre lang=\"php\">\r\n<style type=\"text\/css\">\r\n  td       { font-size: 12px; vertical-align: top }\r\n  td.head  { background: #FFFFC0 }\r\n  td.c     { background: #E0E0FF }\r\n  td.red   { background: #FFE0E0 }\r\n  td.green { background: #E0FFE0 }\r\n<\/style>\r\n<table border=1 cellspacing=0 cellpadding=2>\r\n<tr><td class=head>Server Name<\/td><td class=head>IP<\/td>\r\n<td class=head>CNAME<\/td><td class=head>latest commit of src<\/td>\r\n<td class=head>latest commit of ports<\/td>\r\n<\/tr>\r\n<?\r\n        $dir = '\/home\/cvsup-monitor';\r\n        $servers = array(\r\n              'cvsup.tw.freebsd.org',  'cvsup1.tw.freebsd.org',  'cvsup2.tw.freebsd.org',\r\n              'cvsup3.tw.freebsd.org', 'cvsup4.tw.freebsd.org', 'cvsup5.tw.freebsd.org',\r\n              'cvsup6.tw.freebsd.org', 'cvsup7.tw.freebsd.org', 'cvsup8.tw.freebsd.org',\r\n              'cvsup9.tw.freebsd.org', 'cvsup10.tw.freebsd.org', 'cvsup11.tw.freebsd.org',\r\n              'cvsup12.tw.freebsd.org', 'cvsup13.tw.freebsd.org', 'cvsup14.tw.freebsd.org' );\r\n        $check = time() - 86400;\r\n        $time_format = '%Y\/%m\/%d %H:%M:%S';\r\n        $latest_src = $latest_ports = 0;\r\n        foreach( $servers as $server ) {\r\n                $data = file_get_contents(\"$dir\/base\/$server\/last-commit.txt\");\r\n                $data = trim($data);\r\n                if( $data != '' ) {\r\n                        $SERVER[$server] = explode(',', $data);\r\n                        if( $SERVER[$server][0] > $latest_src )\r\n                                $latest_src = $SERVER[$server][0];\r\n                        if( $SERVER[$server][1] > $latest_ports )\r\n                                $latest_ports = $SERVER[$server][1];\r\n                }\r\n        }\r\n        foreach( $servers as $server ) {\r\n                if( is_array($SERVER[$server]) ) {\r\n                        list( $src, $ports, $elapsed, $ipaddr, $aliases ) = $SERVER[$server];\r\n                        $ipaddr = str_replace( '|', '<br \/>', $ipaddr );\r\n                        $aliases = str_replace( '|', '<br \/>', $aliases );\r\n                        if( $aliases == '' )\r\n                                $aliases = '&nbsp;';\r\n                        print \"<tr>\\n\";\r\n                        print \"  <td class=c>$server<\/td>\\n\";\r\n                        print \"  <td class=c>$ipaddr<\/td>\\n\";\r\n                        print \"  <td class=c>$aliases<\/td>\\n\";\r\n                        if( $src == $latest_src )\r\n                                print \"  <td class=green>\";\r\n                        elseif( $src < $check )\r\n                                print \"  <td class=red>\";\r\n                        else\r\n                                print \"  <td class=c>\";\r\n                        print strftime( $time_format, $src ) . \"<\/td>\\n\";\r\n                        if( $ports == $latest_ports )\r\n                                print \"  <td class=green>\";\r\n                        elseif( $ports < $check )\r\n                                print \"  <td class=red>\";\r\n                        else\r\n                                print \"  <td class=c>\";\r\n                        print strftime( $time_format, $ports ) . \"<\/td>\\n\";\r\n#                       print \"  <td align=right>$elapsed s<\/td>\\n\";\r\n                        print \"<\/tr>\\n\";\r\n                }\r\n        }\r\n?>\r\n<\/table>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u9019\u662f\u4eca\u5e741\u6708\u5beb\u7684 script&#8230; \u7528\u4f86\u76e3\u63a7\u5404\u5927 FreeBSD CVSUP mirror \u7db2\u7ad9\u7684\u6a94 [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[11],"tags":[],"class_list":["post-69","post","type-post","status-publish","format-standard","hentry","category-software"],"views":8200,"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pubdi-17","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":15,"url":"https:\/\/dada.tw\/blog\/2006\/07\/25\/15\/","url_meta":{"origin":69,"position":0},"title":"\u4f7f\u7528 bcompiler \u4f86\u7de8\u8b6f\uff08\u52a0\u5bc6\uff09\u60a8\u7684 PHP \u539f\u59cb\u78bc","author":"dada","date":"2006-07-25","format":false,"excerpt":"Using bcomipler to compile (encode) your PHP scrip\u2026","rel":"","context":"\u5728\u300c\u7a0b\u5f0f\u8a9e\u8a00\u300d\u4e2d","block_context":{"text":"\u7a0b\u5f0f\u8a9e\u8a00","link":"https:\/\/dada.tw\/blog\/category\/comp\/language\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":24,"url":"https:\/\/dada.tw\/blog\/2005\/09\/08\/24\/","url_meta":{"origin":69,"position":1},"title":"URL \u542b\u4e2d\u6587\u8def\u5f91\u540d\u7a31\u7684\u7d42\u6975\u89e3\u6cd5","author":"dada","date":"2005-09-08","format":false,"excerpt":"URL \u542b\u4e2d\u6587\u8def\u5f91\u540d\u7a31\u7684\u7d42\u6975\u89e3\u6cd5 - \u5229\u7528 mod_fileiri \u89e3\u6c7a\u4e2d\u6587\u6a94\u540d\u554f\u984c \u7576\u7136\uff0c\u5c0d\u4ed8\u4e2d\u6587\u2026","rel":"","context":"\u5728\u300c\u7db2\u8def\u79d1\u6280\u300d\u4e2d","block_context":{"text":"\u7db2\u8def\u79d1\u6280","link":"https:\/\/dada.tw\/blog\/category\/network\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":20,"url":"https:\/\/dada.tw\/blog\/2005\/03\/05\/20\/","url_meta":{"origin":69,"position":2},"title":"\u8b93 FreeBSD \u4e0b\u7684 PHP DBA extension \u80fd\u652f\u63f4 &#8216;dbm&#8217; handler","author":"dada","date":"2005-03-05","format":false,"excerpt":"\u8b93 FreeBSD \u4e0b\u7684 PHP DBA extension \u80fd\u652f\u63f4 'dbm' handler \u5728\u2026","rel":"","context":"\u5728\u300c\u7a0b\u5f0f\u8a9e\u8a00\u300d\u4e2d","block_context":{"text":"\u7a0b\u5f0f\u8a9e\u8a00","link":"https:\/\/dada.tw\/blog\/category\/comp\/language\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":9,"url":"https:\/\/dada.tw\/blog\/2005\/04\/21\/9\/","url_meta":{"origin":69,"position":3},"title":"\u7d42\u65bc\u628a NetBSD 2.0.2 \u88dd\u8d77\u4f86\u4e86!","author":"dada","date":"2005-04-21","format":false,"excerpt":"\u7d93\u904e\u5169\u5929\u7684\u52aa\u529b\uff0c\u7d42\u65bc\u9084\u662f\u628a NetBSD 2.0.2 \u88dd\u8d77\u4f86\u4e86! \u5176\u5be6\u672c\u4f86\u5148\u6e2c FreeBSD 5.\u2026","rel":"","context":"\u5728\u300c\u4f5c\u696d\u7cfb\u7d71\u300d\u4e2d","block_context":{"text":"\u4f5c\u696d\u7cfb\u7d71","link":"https:\/\/dada.tw\/blog\/category\/comp\/os\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":18,"url":"https:\/\/dada.tw\/blog\/2005\/06\/23\/18\/","url_meta":{"origin":69,"position":4},"title":"eAccelerator &#8211; PHP \u7db2\u9801\u52a0\u901f\u53ca\u7de8\u78bc","author":"dada","date":"2005-06-23","format":false,"excerpt":"eAccelerator - PHP \u7db2\u9801\u52a0\u901f\u53ca\u7de8\u78bc\u8edf\u9ad4 http:\/\/eaccelerator.n\u2026","rel":"","context":"\u5728\u300c\u7a0b\u5f0f\u8a9e\u8a00\u300d\u4e2d","block_context":{"text":"\u7a0b\u5f0f\u8a9e\u8a00","link":"https:\/\/dada.tw\/blog\/category\/comp\/language\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":33,"url":"https:\/\/dada.tw\/blog\/2005\/08\/01\/33\/","url_meta":{"origin":69,"position":5},"title":"\u52d5\u614b\u7db2\u9801\u4e5f\u53ef\u4ee5\u88ab\u5feb\u53d6\u5594!","author":"dada","date":"2005-08-01","format":false,"excerpt":"\u8a71\u8aaa GIGA \u7684 WebAMP \u670d\u52d9\u63a8\u51fa\u6709\u4e00\u9663\u5b50\u4e86 \u5f88\u591a\u4eba\u90fd\u4ee5\u70ba WebAMP \u53ea\u80fd\u7d66\u975c\u614b\u7db2\u9801\u4f7f\u7528\u2026","rel":"","context":"\u5728\u300c\u7db2\u8def\u79d1\u6280\u300d\u4e2d","block_context":{"text":"\u7db2\u8def\u79d1\u6280","link":"https:\/\/dada.tw\/blog\/category\/network\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"amp_enabled":true,"_links":{"self":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts\/69","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/comments?post=69"}],"version-history":[{"count":0,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts\/69\/revisions"}],"wp:attachment":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/media?parent=69"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/categories?post=69"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/tags?post=69"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}