Remove some debug code.
This commit is contained in:
parent
466c055fa0
commit
34c9d5f217
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=26273
1 changed files with 2 additions and 13 deletions
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bin/perl -T
|
||||
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.46 2005/11/04 10:25:42 ceri Exp $
|
||||
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.48 2005/11/06 22:29:45 ceri Exp $
|
||||
|
||||
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
||||
|
||||
|
@ -83,18 +83,7 @@ if (defined($codeentered) && $codeentered && $db_hash{$codeentered} &&
|
|||
delete $db_hash{"$codeentered"};
|
||||
} else {
|
||||
# Fail silently.
|
||||
if ($db_hash{$codeentered}) {
|
||||
print "code was in db\n";
|
||||
print "time in db is $db_hash{$codeentered}\n";
|
||||
} else {
|
||||
print "code not in db\n";
|
||||
}
|
||||
print "code entered was $codeentered\n";
|
||||
print "current time is $currenttime\n";
|
||||
print "expire time is $expiretime\n";
|
||||
|
||||
die ("shit: $@");
|
||||
undef;
|
||||
;
|
||||
}
|
||||
|
||||
$db_obj->sync(); # to flush
|
||||
|
|
Loading…
Reference in a new issue