Ariel® Document Delivery: Logging In

#!/usr/bin/perl -W # ArielDoc.pl # # 10/25/04 add portability across Windows and Unix, by handling both and . # 10/25/01 retain check mark # 10/02/01 correct $mnth value # 02/07/02 add file extension to url of opening documents # 09/05/02 change opening document processing use File::Basename; #=============================================================================== # Configuration #=============================================================================== $DocFilePath = "/home/ariel/docs/"; # document files dir; keep the trailing slash $SesFilePath = "/home/ariel/tmp/"; # temporary session files dir; keep the trailing slash $LogFilePath = "/home/ariel/logs/"; # error log files dir; keep the trailing slash $CgiPrgm = "/cgi-bin/ariel/ArielDoc"; # wrapper for perl script $LoginUrl = "http://132.248.32.120$CgiPrgm"; # login html page $LogoutUrl = "http://132.248.32.120/ariel/ArielLogout.htm"; # logout html page $TimeOut = 30; # minute timeout period $LoginPage = < Ariel® Document Delivery: Logging In

Ariel® Document Delivery: Logging In

To retrieve your document(s), please follow these instructions:

Enter your complete e-mail address (e.g., gstudent\@university.edu).
Enter your PIN number (sent to you in your e-mail notification).
Click the LOGIN box.

You must have Adobe Acrobat Reader (version 3.0 or higher) installed to be able to read your document. If you do not have Adobe Acrobat Reader, you will need to download and install it.

After logging in, you will see a list of your available documents. To view a document, click on the document link. The system will automatically remove your document after it is viewed [#] times or after [#] days/weeks have passed since you received your e-mail notification, whichever comes first.

By using this service you are agreeing to uphold the copyright restrictions applicable to all library materials. This material is subject to US Copyright Law; further reproduction in violation of that law is prohibited.

Your complete e-mail address:
Your PIN number:

LOGINPAGE $ConfigurableText = <Ariel® Document List

The following documents are available for you to view and download.

To view a document, click on the document link.
To remove a document after it is no longer needed, select the checkbox next to the document and then click the Remove button.
Once a document has been removed, you will no longer be able to view it. The document will remain in your document list with a status of Removed until it is automatically deleted from the server.

The system will automatically remove your document after it is viewed [#] times or after [#] days/weeks have passed since you received your e-mail notification, whichever comes first.

By using this service you are agreeing to uphold the copyright restrictions applicable to all library materials. This material is subject to US Copyright Law; further reproduction in violation of that law is prohibited.

CONFIGURABLETEXT $IncorrectEmailPin = <login again. INCORRECTEMAILPIN $AlreadyLogout = <login again ALREADYLOGOUT $UserTimeOut = <login again USERTIMEOUT $InvalidSession = <login again. INVALIDSESSION $FailToAccessDoc = <$sesFileName")) { close(SES); } else { LogError("Failed to open session file $sesFileName"); print $IncorrectConfig; exit; } $LoginPage =~ s/##SESSTRING##/$sesString/; print $LoginPage; exit; } elsif ($command eq "LOGIN") { $email = $FORM{'EMAIL'}; $pin = $FORM{'PIN'}; $epin = pack("u",$pin); $sesString = $FORM{'TTT'}; $sesFileName = "$SesFilePath$sesString.ttt"; $sesFileName =~ /(.+)/; $sesFileName = $1; if (! -e $sesFileName) { print $InvalidSession; exit; } } else { $sesString = $FORM{'TTT'}; $sesFileName = "$SesFilePath$sesString.ttt"; $sesFileName =~ /(.+)/; $sesFileName = $1; my $mtime = (stat($sesFileName))[9]; if (-e $sesFileName && (time() - $mtime) > ($TimeOut * 60)) { # user session times out unlink($sesFileName); print $UserTimeOut; exit; } if ($command eq "LOGOUT") { if (-e $sesFileName) { unlink($sesFileName); } print < LOGOUTDATA exit; } else { if (-e $sesFileName) { if (open(SES, "$sesFileName")) { $email = ; chomp($email); $epin = ; chomp($epin); $pin = unpack("u",$epin); # $removeFile = ; # chomp($removeFile); close(SES); # change the modification time of sesfile my @tmplist = (); push(@tmplist, $sesFileName); utime(time(), time(), @tmplist); } else { LogError("Failed to open session file $sesFileName"); print $IncorrectConfig; exit; } } elsif ($command eq "VVV") { print "Content-type: text/html\n\n"; print ""; exit; } else { print $AlreadyLogout; exit; } } } if ($command eq "VVV") { $viewFileStem = "ARIEL\_$pin\_" . $FORM{"DDD"}; my @doclist; $DocFilePath =~ /(.+)/; opendir(DIRHANDLE,$1); @doclist = grep {/^${viewFileStem}\./} readdir(DIRHANDLE); closedir(DIRHANLE); if (scalar(@doclist) == 0) { print $FailToAccessDoc; LogError("Failed to find the required document $DocFilePath$viewFileStem.*"); } else { my $dfile; my $found = ""; foreach $dfile (@doclist) { $dfile = "$DocFilePath$dfile"; $viewFileStem = basename($dfile,""); if ($viewFileStem =~ /\.CTRL$/) { next; } elsif ($viewFileStem =~ /\.TIF$/) { print "Content-type: image/tiff\n"; print "Content-disposition: filename=ArielDoc.tif\n\n"; } elsif ($viewFileStem =~ /\.PDF$/) { print "Content-type: application/pdf\n"; print "Content-disposition: filename=ArielDoc.pdf\n\n"; } else { next; } $found = 1; if (open(DOC, "$dfile")) { binmode DOC; binmode STDOUT; while () { print; } close(DOC); # if ($removeFile) { # renameDoc($viewFileStem); # } } else { print $FailToAccessDoc; LogError("Failed to open the required document $dfile"); } last; } if (! $found) { print $FailToAccessDoc; LogError("Failed to find the required document $DocFilePath$viewFileStem.*"); } } exit; } $DocFilePath =~ /(.+)/; opendir(DIRHANDLE,$1); @filelist = grep {/^ARIEL_${pin}_/} readdir(DIRHANDLE); closedir(DIRHANLE); if (scalar(@filelist) > 0) { if ($command eq "LOGIN") { if (open(SES, ">$sesFileName")) { print SES "$email\n"; print SES "$epin\n"; close(SES); } else { LogError("Failed to open session file $sesFileName"); print $IncorrectConfig; exit; } } elsif ($command eq "VIEWDOC") { @rmDocArr = @docArr; @docArr = (); push(@docArr, "ARIEL\_$pin\_" . $FORM{"DDD"}); } elsif ($command eq "REMOVEDOC") { for ($i = 0; $i < scalar(@docArr); $i++) { $docArr[$i] = "ARIEL\_$pin\_" . $docArr[$i]; } } my (@docData) = (); foreach $file (@filelist) { if ($file !~ m/\.CTRL$/) { next; } my ($patronEmail, $status, $title, $datePosted, $numViews, $maxViews); my ($month, $day, $year); my $updateFile = 0; $file = "$DocFilePath$file"; if (open(CTR, "$file")) { $patronEmail = ; chomp($patronEmail); $patronEmail =~ s/\015//g; if (lc($patronEmail) ne lc($email)) { close(CTR); next; } $status = ; chomp($status); $status =~ s/\015//g; $title = ; chomp($title); $title =~ s/\015//g; $datePosted = ; chomp($datePosted); $datePosted =~ s/\015//g; ($month, $day, $year) = split(m"[-/]", $datePosted); $month =~ s/^0//; $day =~ s/^0//; $numViews = ; chomp($numViews); $numViews =~ s/\015//g; $maxViews = ; chomp($maxViews); $maxViews =~ s/\015//g; close(CTR); } else { LogError("Failed to open control file $file"); print $IncorrectConfig; exit; } my $docStem = basename($file, ""); $docStem =~ s/\.CTRL$//; my $ext = 'pdf'; my @fArr = grep(m/^${docStem}(?!.CTRL)/,@filelist); if (scalar(@fArr) > 0) { if (@fArr[0] =~ /\.TIF$/) { $ext = 'tif'; } } if (matchDoc($docStem)) { if ($command eq "VIEWDOC") { if ($status ne "1") { $updateFile = 1; $numViews++; if ($numViews >= $maxViews) { $status = "1"; } # if (open(SES, ">$sesFileName")) { # print SES "$email\n"; # print SES "$epin\n"; # if ($status eq "1") { # print SES "1\n"; # } # close(SES); # } else { # LogError("Failed to open session file $sesFileName"); # print $IncorrectConfig; # exit; # } } } elsif ($command eq "REMOVEDOC") { if ($status ne "2") { $updateFile = 1; $status = "2"; # renameDoc($docStem); } } } $docStem = substr($docStem,length($pin)+7); push(@docData, { Title => $title, NumViews => $numViews, Year => $year, Month => $month, Day => $day, Status => $status, DocStem => $docStem, Extension => $ext }); if ($updateFile) { $file =~ /(.+)/; if (open(CTR, ">$1")) { print CTR "$email\n"; print CTR "$status\n"; print CTR "$title\n"; print CTR "$datePosted\n"; print CTR "$numViews\n"; print CTR "$maxViews\n"; close(CTR); } else { LogError("Failed to open control file $1"); print $IncorrectConfig; exit; } } } # foreach if (scalar(@docData) == 0) { unlink($sesFileName); print $IncorrectEmailPin; exit; } @docData = sort byDate @docData; foreach $oneDoc (@docData) { my $status = $oneDoc->{Status}; $docHtmlCnt .= "\n"; if ($status eq "2") { $docHtmlCnt .= " \n"; } else { my $checked = ""; foreach $rmDoc (@rmDocArr) { if ($rmDoc eq $oneDoc->{DocStem}) { $checked = " checked"; last; } } $docHtmlCnt .= "{DocStem}\" $checked>\n"; } my $title2 = $oneDoc->{Title}; $title2 =~ s/$title2\n"; } else { $docHtmlCnt .= "$title2\n"; } my $pDate = "$oneDoc->{Month}/$oneDoc->{Day}/$oneDoc->{Year}"; $docHtmlCnt .= "$oneDoc->{NumViews}\n$pDate\n"; if ($status eq "0") { $docHtmlCnt .= "Available\n"; } elsif ($status eq "1") { $docHtmlCnt .= "No more views\n"; } elsif ($status eq "2") { $docHtmlCnt .= "Removed\n"; } else { $docHtmlCnt .= "Unknown\n"; } $docHtmlCnt .= "\n"; } # foreach print < Ariel® Document List OUTPUTDATA1 print "\n"; print $ConfigurableText; print <

checked document(s)

OUTPUTDATA2 print "$docHtmlCnt"; print <

Document

# Views

Date Posted

Status

checked document(s)

OUTPUTDATA3 } else { unlink($sesFileName); print $IncorrectEmailPin; } exit; sub matchDoc { my ($docStem) = @_; my $i; my $return = 0; for ($i = 0; $i < scalar(@docArr); $i++) { if ($docStem eq $docArr[$i]) { $return = 1; last; } } return ($return); } sub LogError() { my ($errMsg) = @_; if (open(LOG, ">>$logFileName" )) { print LOG "$hr:$min:$secs E-mail=$email, Error: $errMsg\n"; close(LOG); } } sub byDate() { my ($retVal); $retVal = $a->{Year} <=> $b->{Year}; if ($retVal == 0) { $retVal = $a->{Month} <=> $b->{Month}; } if ($retVal == 0) { $retVal = $a->{Day} <=> $b->{Day}; } if ($retVal == 0) { $retVal = lc($a->{Title}) cmp lc($b->{Title}); } return($retVal); } sub renameDoc { my ($docStem) = @_; my ($remFileName, $newFileName); $DocFilePath =~ /(.+)/; opendir(DIRHANDLE,$1); my @remlist = grep {/^${docStem}/} readdir(DIRHANDLE); closedir(DIRHANLE); foreach $remFileName (@remlist) { if ($remFileName =~ /\.PDF$/) { $newFileName = $remFileName; $newFileName =~ s/\.PDF$/.REM/; $remFileName = "$DocFilePath$remFileName"; $remFileName =~ /(.+)/; $remFileName = $1; $newFileName = "$DocFilePath$newFileName"; $newFileName =~ /(.+)/; $newFileName = $1; rename $remFileName, $newFileName; last; } elsif ($remFileName =~ /\.TIF$/) { $newFileName = $remFileName; $newFileName =~ s/\.TIF$/.REM/; $remFileName = "$DocFilePath$remFileName"; $remFileName =~ /(.+)/; $remFileName = $1; $newFileName = "$DocFilePath$newFileName"; $newFileName =~ /(.+)/; $newFileName = $1; rename $remFileName, $newFileName; last; } } }