Return to chronicles.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/chronicles.pl, revision 1.3

1.1       boris       1: #!/usr/bin/perl -w
                      2: 
                      3: =pod
                      4: 
                      5: =head1 NAME
                      6: 
                      7: chronicles.pl - check references between chronicles and db
                      8: 
                      9: =head1 SYNOPSIS
                     10: 
                     11: chronicles.pl I<chronicles_dir>
                     12: 
                     13: =head1 DESCRIPTION
                     14: 
                     15: Check the references between database and chronicles. 
                     16: 
                     17: 
                     18: =head1 BUGS
                     19: 
                     20: The database, user and password are hardcoded. 
                     21: 
                     22: =head1 AUTHOR
                     23: 
                     24: Boris Veytsman 
                     25: 
1.3     ! boris      26: =head1 $Id: chronicles.pl,v 1.2 2003/03/17 15:38:55 boris Exp $
1.1       boris      27: 
                     28: =cut
1.2       boris      29: 
                     30:     use strict;
                     31: use DBI;
                     32: 
                     33: 
                     34: # Creating hash dbtochronicles;
                     35: my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
                     36:     or die "Can't connect to DB chgk\n";
                     37: my %dbtochronicles;
                     38: my $sth=$dbh->prepare("SELECT FileName,URL from Tournaments where Type='þ' 
                     39: and not isnull(URL)");
                     40: $sth->execute;
                     41: while (my ($name,$url) = $sth->fetchrow_array) {
                     42:     $dbtochronicles{$name}=$url;
                     43: }
                     44: 
                     45: 
                     46: # Checking chronicles
                     47: if (! -d $ARGV[0]) {
                     48:     die "Cannot read $ARGV[0]";
                     49: }
                     50: chdir $ARGV[0] || die "Cannot chdir to $ARGV[0]: $!";
                     51: opendir (DIR, ".") || die "Cannot open $ARGV[0]: $!";
                     52: while (my $file=readdir(DIR)) {
                     53:     if (-f $file && $file =~ /html$/) {
                     54:        open (FILE, $file);
                     55:        while (<FILE>) {
                     56:            chomp;
                     57:            if (/znatoki\/cgi-bin\/db.cgi\?tour=([^\"]*)\"/) {
                     58:                my $name="$1.txt";
                     59:                if (!exists($dbtochronicles{$name}) ||
                     60:                    $dbtochronicles{$name} !~ /$file$/) {
                     61:                    print "$file -> $name\n";
                     62:                } else {
                     63:                    delete($dbtochronicles{$name});
                     64:                }
                     65:            }
                     66:        }
                     67:        close FILE;
                     68:     }
                     69: }
                     70: closedir DIR;
                     71: foreach my $name (keys %dbtochronicles) {
1.3     ! boris      72:     if ($name =~ /boris/) {
        !            73:        print "$name -> $dbtochronicles{$name}\n";
        !            74:     }
1.2       boris      75: }
                     76: 
                     77: exit 0;
                     78: