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://biblioteca.ibt.unam.mx/cgi-bin/ariel/ArielLogout.htm"; # logout html page $TimeOut = 30; # minute timeout period $LoginPage = < Ariel® Document Delivery: Logging In

Ariel® Document Delivery: Logging In

Para bajar tus documento(s), favor de seguir estas instrucciones:

Incluye tu dirección de email completa (p.e. nombre\@ibt.unam.mx)
Incluye tu NIP (enviado en la notificación por email).
Selecciona el botón de Login.

Necesitas tener instalado software para leer formato pdf, como Adobe Acrobat Reader (versión 3.0 o mas reciente) para poder leer tu documento. Si no lo tienes, habría que bajarlo e instalarlo.

Despues de hacer el login, verás una lista de tus documentos disponibles. Para ver un documento, selecciona la liga del documento. El sistema borraría automáticamente tu documento después de que lo hayas visualizado 5 veces o despues de 30 días de que hayas recibido la notificación por email, lo que ocurra primero.

Cuando utilizas este servicio, te estas comprometiendo a respetar las condiciones y limitaciones impuestas por el derecho de autor a los materiales de la biblioteca.

Your complete e-mail address:
Your PIN number:

LOGINPAGE $ConfigurableText = <Ariel® Lista de documentos

Los siguientes documentos se encuentran disponibles para visualizar y bajar.

Para visualizar un documento, selecciona la liga.
Para quitar un documento que ya no requieres, selecciona la casilla al lado del documento y presiona el botón Remove.
Una vez removido el documento, no vas a poder visualizarlo mas. El documento quedaría en tu lista con el status de Removido hasta se quita automáticamente del servidor.

El sistema borraría tu documento automáticamente despues de visualizarlo 5 veces o despues de que hayan transcurrido 30 días de haberte mandado la notificación por email, lo que ocurra primero.

Cuando utilizas este servicio, te estas comprometiendo a respetar las condiciones y limitaciones impuestas por el derecho de autor a los materiales de la biblioteca.

Si tienes dudas o sugerencias, favor de mandar un email a Shirley Ainsworth shirley\@ibt.unam.mx

CONFIGURABLETEXT $IncorrectEmailPin = <login de nuevo. INCORRECTEMAILPIN $AlreadyLogout = <login de nuevo ALREADYLOGOUT $UserTimeOut = <login de nuevo. USERTIMEOUT $InvalidSession = <login de nuevo. 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; } } }