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');
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;
);
}
+ $logger->info("uploaded MARC batch with key $data_fingerprint");
$r->content_type('text/plain; charset=utf-8');
print "$data_fingerprint";
return Apache2::Const::OK;