[open-ils-commits] r10740 - trunk/Open-ILS/src/perlmods/OpenILS/WWW
svn at svn.open-ils.org
svn at svn.open-ils.org
Tue Sep 30 22:13:38 EDT 2008
Author: erickson
Date: 2008-09-30 22:13:37 -0400 (Tue, 30 Sep 2008)
New Revision: 10740
Modified:
trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
Log:
added additional error logging
Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm 2008-10-01 00:29:18 UTC (rev 10739)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm 2008-10-01 02:13:37 UTC (rev 10740)
@@ -57,7 +57,10 @@
my $auth = $cgi->param('ses') || $cgi->cookie('ses');
- return Apache2::Const::FORBIDDEN unless verify_login($auth);
+ unless(verify_login($auth)) {
+ $logger->error("authentication failed on vandelay record import");
+ return Apache2::Const::FORBIDDEN;
+ }
my $data_fingerprint = '';
my $purpose = $cgi->param('purpose');
@@ -87,6 +90,7 @@
if($total_bytes >= $MAX_FILE_SIZE) {
close(OUTFILE);
unlink $outfile;
+ $logger->error("import exceeded upload size: $MAX_FILE_SIZE");
return Apache2::Const::FORBIDDEN;
}
print OUTFILE $buf;
@@ -100,6 +104,7 @@
);
}
+ $logger->info("uploaded MARC batch with key $data_fingerprint");
$r->content_type('text/plain; charset=utf-8');
print "$data_fingerprint";
return Apache2::Const::OK;
More information about the open-ils-commits
mailing list