db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

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);
}	}