version 1.30, 2003/01/08 23:36:38
|
version 1.31, 2003/01/09 01:43:21
|
Line 38 use Getopt::Std;
|
Line 38 use Getopt::Std;
|
getopts('i'); |
getopts('i'); |
#open STDERR, ">errors"; |
#open STDERR, ">errors"; |
my $Interactive=$opt_i || 0; |
my $Interactive=$opt_i || 0; |
|
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
|
my (%RevMonths) = |
my (%RevMonths) = |
('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6', |
('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6', |
Line 269 MAIN:
|
Line 269 MAIN:
|
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
or die "Can't connect to DB chgk\n"; |
or die "Can't connect to DB chgk\n"; |
my @sources; |
my @sources; |
open UNSORTED, ">unsorted"; |
open UNSORTED, ">$DUMPDIR/unsorted"; |
while ($source = shift) { |
while ($source = shift) { |
push @sources,glob($source); |
push @sources,glob($source); |
} |
} |