From c4ef7d3a22defe0a8d288f10a1f73df718c1d737 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 1 Oct 2008 02:13:37 +0000
Subject: [PATCH] added additional error logging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10740 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
index a65162c1d9..8c7d5851d5 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
@@ -57,7 +57,10 @@ sub spool_marc {
 
 	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 @@ sub spool_marc {
             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 @@ sub spool_marc {
 	    );
     }
 
+    $logger->info("uploaded MARC batch with key $data_fingerprint");
     $r->content_type('text/plain; charset=utf-8');
 	print "$data_fingerprint";
 	return Apache2::Const::OK;
-- 
2.43.2