[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debian-www] newest checking script



岡@情報科学.高知大です。


翻訳をした後で英語版が更新されても、CVS の update だけではな
かなか気が付かないので以前のスクリプトを改造して見つけられる
ようにしました。# 結構シッキングな結果が得られます。

実行結果を添付しておきますが、万が一僕が勝手にファイルにタッ
チしているとも限らないので注意して参照下さい。

--
岡 充 (Mitsuru Oka)
高知大学情報科学科4回生
E-Mail:95i44@xxxxxxxxxxxxxxxx
#!/usr/bin/perl
# -*- mode: perl -*-
# バージョンアップ監視スクリプト - Copyright (C) 1998, Mitsuru Oka
#

use File::Find;

print <<'EOF';
状態=(J)日本語版が最新/(E)英語版が最新/(N)まだ着手してない<Not yet>
| ファイル名
+-=============================================================================
EOF

$cwd = Cwd::cwd();
find(\&wanted, 'english/');

sub wanted {
    if (/^.*\.wml$/) {
        my $en_name = $File::Find::name;
        my $ja_name = $en_name;
        $ja_name =~ s/english/japanese/ || die "it must contain 'english'";
        if (-f "$cwd/$ja_name") {
            my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
                $size, $atime, $en_mtime, $ctime, $blksize, $blocks)
                = lstat("$cwd/$en_name");
            my $ja_mtime;
           my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
             $size, $atime, $ja_mtime, $ctime, $blksize, $blocks)
                = lstat("$cwd/$ja_name");
            if($ja_mtime>$en_mtime) {
                print "J $ja_name\n";
            } else {
                print "E $ja_name\n";
            }
        } else {
            print "N $ja_name\n";
        }
    }
}
状態=(J)日本語版が最新/(E)英語版が最新/(N)まだ着手してない<Not yet>
| ファイル名
+-=============================================================================
N japanese/2.0/2.0beta_CD.wml
N japanese/2.0/HOWTO.upgrade.wml
N japanese/2.0/errata.wml
N japanese/2.0/index.wml
N japanese/2.0/updates.wml
N japanese/News/1997/19970301.wml
N japanese/News/1997/1.3.wml
N japanese/News/1997/19970307a.wml
N japanese/News/1997/19970307b.wml
N japanese/News/1997/19970317.wml
N japanese/News/1997/19970326.wml
N japanese/News/1997/19970401.wml
N japanese/News/1997/19970602.wml
N japanese/News/1997/19970609.wml
N japanese/News/1997/19970626a.wml
N japanese/News/1997/19970627.wml
N japanese/News/1997/19970708.wml
N japanese/News/1997/19970708b.wml
N japanese/News/1997/19970710.wml
N japanese/News/1997/19970818a.wml
N japanese/News/1997/19970818b.wml
N japanese/News/1997/19971010.wml
N japanese/News/1997/19971020.wml
N japanese/News/1997/19971022.wml
N japanese/News/1997/19971115.wml
N japanese/News/1997/19971125.wml
N japanese/News/1997/19971130.wml
N japanese/News/1997/19971211.wml
N japanese/News/1997/index.wml
N japanese/News/1997/shuttle1.wml
N japanese/News/1998/19980101.wml
N japanese/News/1998/19980104.wml
N japanese/News/1998/19980125a.wml
N japanese/News/1998/19980125b.wml
N japanese/News/1998/19980125c.wml
N japanese/News/1998/19980203a.wml
N japanese/News/1998/19980203b.wml
N japanese/News/1998/19980203c.wml
N japanese/News/1998/19980223.wml
N japanese/News/1998/19980306a.wml
N japanese/News/1998/19980306b.wml
N japanese/News/1998/19980316a.wml
N japanese/News/1998/19980316b.wml
N japanese/News/1998/19980325.wml
N japanese/News/1998/19980408.wml
N japanese/News/1998/19980522a.wml
N japanese/News/1998/19980522b.wml
N japanese/News/1998/19980522c.wml
N japanese/News/1998/19980523.wml
N japanese/News/1998/19980606.wml
N japanese/News/1998/19980624.wml
N japanese/News/1998/19980722.wml
N japanese/News/1998/19980724.wml
N japanese/News/1998/19980810.wml
N japanese/News/1998/19980811.wml
N japanese/News/1998/19980813a.wml
N japanese/News/1998/19980813b.wml
N japanese/News/1998/19980813c.wml
N japanese/News/1998/19980826a.wml
N japanese/News/1998/19980826b.wml
N japanese/News/1998/19980826c.wml
N japanese/News/1998/19980826d.wml
N japanese/News/1998/19980826e.wml
N japanese/News/1998/19980828.wml
E japanese/News/1998/19980901.wml
N japanese/News/1998/19980904.wml
N japanese/News/1998/19980915a.wml
N japanese/News/1998/19980915b.wml
N japanese/News/1998/19981008.wml
N japanese/News/1998/19981012.wml
E japanese/News/1998/19981013.wml
E japanese/News/1998/19981014.wml
E japanese/News/1998/index.wml
E japanese/News/1998/19981016.wml
E japanese/News/1998/19981019.wml
N japanese/News/1998/19981027.wml
N japanese/News/1998/19981028.wml
N japanese/News/1998/19981029.wml
N japanese/News/1998/19981101a.wml
N japanese/News/1998/19981101b.wml
N japanese/News/1998/19981104.wml
N japanese/News/1998/19981106.wml
E japanese/News/index.wml
E japanese/contact.wml
N japanese/donations.wml
E japanese/index.wml
N japanese/license.wml
N japanese/related_links.wml
E japanese/social_contract.wml
E japanese/support.wml
N japanese/MailingLists/debian-announce.wml
N japanese/MailingLists/subscribe.wml
N japanese/MailingLists/unsubscribe.wml
N japanese/SPI/corporate/minutes/19980924.wml
N japanese/SPI/corporate/minutes/index.wml
N japanese/SPI/corporate/board.wml
N japanese/SPI/corporate/corporate.wml
N japanese/SPI/corporate/spi-bylaws.wml
N japanese/SPI/corporate/spi-coi.wml
N japanese/SPI/corporate/spi-comment.wml
N japanese/SPI/corporate/resolutions/resolution-1998-09-24.1.wml
N japanese/SPI/corporate/resolutions/resolution-1998-09-24.2.wml
N japanese/SPI/corporate/resolutions/resolution-1998-09-24.iwj.5.wml
N japanese/SPI/corporate/resolutions/resolution-1998-09-25.nl.1.wml
N japanese/SPI/corporate/resolutions/index.wml
N japanese/SPI/about.wml
N japanese/SPI/contact.wml
N japanese/SPI/credits.wml
N japanese/SPI/donations.wml
E japanese/SPI/index.wml
N japanese/SPI/todo.wml
N japanese/SPI/trademarks.wml
E japanese/SPI/projects/berlin.wml
N japanese/SPI/projects/debian.wml
E japanese/SPI/projects/gnome.wml
N japanese/SPI/projects/index.wml
N japanese/SPI/projects/lsb.wml
N japanese/SPI/projects/openhardware.wml
N japanese/SPI/projects/opensource.wml
J japanese/SPI/template/ctime.wml
J japanese/SPI/template/footer.wml
E japanese/SPI/template/template.wml
N japanese/SPI/template/recent_list.wml
N japanese/SPI/template/languages.wml
N japanese/SPI/mailing_lists.wml
E japanese/devel/HOWTO_translate.wml
N japanese/devel/extract_key.wml
N japanese/devel/help.wml
N japanese/devel/incoming_mirrors.wml
E japanese/devel/index.wml
N japanese/devel/maintainer_contacts.wml
N japanese/devel/mirror.wml
N japanese/devel/mirror_submit.wml
N japanese/devel/people.wml
N japanese/devel/release_info.wml
N japanese/devel/rsync_examples.wml
N japanese/distrib/ftplist.wml
N japanese/distrib/index.wml
N japanese/distrib/packages.wml
N japanese/distrib/vendors.wml
N japanese/doc/index.wml
E japanese/intro/about.wml
E japanese/intro/cn.wml
N japanese/intro/cooperation.wml
N japanese/intro/free.wml
N japanese/intro/international.wml
N japanese/intro/license_disc.wml
N japanese/intro/why_debian.wml
N japanese/logos/index.wml
N japanese/ports/alpha/index.wml
N japanese/ports/alpha/links.wml
N japanese/ports/alpha/release-checklist.wml
N japanese/ports/index.wml
N japanese/ports/arm/index.wml
N japanese/ports/arm/softwaremap.wml
N japanese/ports/mips/index.wml
N japanese/ports/powerpc/history.wml
N japanese/ports/powerpc/index.wml
N japanese/ports/powerpc/installation.wml
N japanese/ports/sparc/index.wml
N japanese/ports/sparc/problems.wml
N japanese/security/index.wml
E japanese/template/debian/basic.wml
J japanese/template/debian/ctime.wml
E japanese/template/debian/footer.wml
N japanese/template/debian/news.wml
E japanese/template/debian/languages.wml
J japanese/template/debian/mainpage.wml
E japanese/template/debian/menubar.wml
E japanese/template/debian/navbar.wml
J japanese/template/debian/news_index.wml
E japanese/template/debian/recent_news.wml
E japanese/template/debian/template.wml
N japanese/template/debian/security.wml
E japanese/template/debian/recent_list.wml
N japanese/template/debian/consultant.wml
N japanese/template/debian/fixes_link.wml
N japanese/template/debian/event.wml
N japanese/template/debian/past_event.wml
N japanese/todo.wml