[open-ils-commits] r10740 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

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;