db/prgsrc/renamefile.pl - diff

Return to renamefile.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.1, 2001/07/28 21:31:37	version 1.2, 2001/07/28 21:39:47
Line 51 MAIN:	Line 51 MAIN:
$sth->execute;	$sth->execute;
if(!$sth->rows) {	if(!$sth->rows) {
print STDERR "There is no file $source in the database\n";	print STDERR "There is no file $source in the database\n";
	$sth->finish;
	$dbh->disconnect;
exit 1;	exit 1;
}	}
my ($Title)=$sth->fetchrow;	my ($Title)=$sth->fetchrow;
Line 61 MAIN:	Line 63 MAIN:
if($sth->rows) {	if($sth->rows) {
($Title)=$sth->fetchrow;	($Title)=$sth->fetchrow;
print STDERR "The file $source already exists. The title is $Title\n";	print STDERR "The file $source already exists. The title is $Title\n";
	$sth->finish;
	$dbh->disconnect;
exit 1;	exit 1;
}	}