[BACK]Return to chronicles.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/chronicles.pl between versions 1.1 and 1.2

version 1.1, 2003/03/17 15:06:03 version 1.2, 2003/03/17 15:38:55
Line 26  Boris Veytsman Line 26  Boris Veytsman
 =head1 $Id$  =head1 $Id$
   
 =cut  =cut
   
       use strict;
   use DBI;
   
   
   # Creating hash dbtochronicles;
   my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
       or die "Can't connect to DB chgk\n";
   my %dbtochronicles;
   my $sth=$dbh->prepare("SELECT FileName,URL from Tournaments where Type='þ' 
   and not isnull(URL)");
   $sth->execute;
   while (my ($name,$url) = $sth->fetchrow_array) {
       $dbtochronicles{$name}=$url;
   }
   
   
   # Checking chronicles
   if (! -d $ARGV[0]) {
       die "Cannot read $ARGV[0]";
   }
   chdir $ARGV[0] || die "Cannot chdir to $ARGV[0]: $!";
   opendir (DIR, ".") || die "Cannot open $ARGV[0]: $!";
   while (my $file=readdir(DIR)) {
       if (-f $file && $file =~ /html$/) {
           open (FILE, $file);
           while (<FILE>) {
               chomp;
               if (/znatoki\/cgi-bin\/db.cgi\?tour=([^\"]*)\"/) {
                   my $name="$1.txt";
                   if (!exists($dbtochronicles{$name}) ||
                       $dbtochronicles{$name} !~ /$file$/) {
                       print "$file -> $name\n";
                   } else {
                       delete($dbtochronicles{$name});
                   }
               }
           }
           close FILE;
       }
   }
   closedir DIR;
   foreach my $name (keys %dbtochronicles) {
       print "$name -> $dbtochronicles{$name}\n";
   }
   
   exit 0;
   
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>