db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.33, 2003/01/09 19:53:23	version 1.34, 2003/02/07 23:20:15
Line 35 Dmitry Rubinstein	Line 35 Dmitry Rubinstein
use vars qw($opt_i);	use vars qw($opt_i);

use Getopt::Std;	use Getopt::Std;
	my $unsortedname="../dump/unsorted";
getopts('i');	getopts('i');
#open STDERR, ">errors";	#open STDERR, ">errors";
my $Interactive=$opt_i \|\| 0;	my $Interactive=$opt_i \|\| 0;
Line 273 MAIN:	Line 274 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, ">$DUMPDIR/unsorted";	open UNSORTED, ">$unsortedname";
while ($source = shift) {	while ($source = shift) {
push @sources,glob($source);	push @sources,glob($source);
}	}
Line 410 MAIN:	Line 411 MAIN:
print STDERR "Всего вопросов: $all_qnum \n";	print STDERR "Всего вопросов: $all_qnum \n";
}	}
close UNSORTED;	close UNSORTED;
unlink "unsorted" unless $isunsorted;	unlink $unsortedname unless $isunsorted;
$dbh->disconnect;	$dbh->disconnect;
}	}