BIBLIOTECA DEL INSTITUTO DE BIOTECNOLOGIA-CENTRO DE CIENCIAS GENOMICAS. ARIEL

#!/usr/bin/perl # 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.218$CgiPrgm"; # login html page #$LogoutUrl = "http://132.248.32.218/ariel/ArielLogout.htm"; # logout html page $LoginUrl = "http://biblioteca.ibt.unam.mx$CgiPrgm"; # login html page $LogoutUrl = "http://biblioteca.ibt.unam.mx/ariel/ArielLogout.htm"; # logout html page $TimeOut = 30; # minute timeout period $LoginPage = < BIBLIOTECA DEL INSTITUTO DE BIOTECNOLOGIA-CENTRO DE CIENCIAS GENOMICAS. ARIEL

BIBLIOTECA DEL INSTITUTO DE BIOTECNOLOGIA-CENTRO DE CIENCIAS GENOMICAS

Sistema de recuperación de documentos

Para recuperar tu(s) documento(s) favor de seguir estas instrucciones:

Incluye tu dirección de email completa (p.e. nombre\@ibt.unam.mx)
Incluye tu clave (enviada en la notificación por email).
Da click en el boton de LOGIN

Despues de hacer el login, verás una lista de tus documentos disponibles. Selecciona un artículo y dale click. Puedes imprimirlo directamente o bajar el artículo a tu computadora. NOTA: 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. El sistema borraría automáticamente tu artículo después de que lo hayas abierto 5 veces o despues de 30 días de que hayas recibido la notificación por email, lo que ocurra primero.
Para cualquier aclaración favor de comunicarte con: shirley\@ibt.unam.mx

Email:
Clave:

LOGINPAGE $ConfigurableText = <

BIBLIOTECA DEL INSTITUTO DE BIOTECNOLOGIA-CENTRO DE CIENCIAS GENOMICAS

Lista de documentos recuperados

Los siguientes documentos pueden ser comsultados y/o bajados a su pc.

Para ver un documento dale click en la liga correspondiente al documento.
Para borrar un documento; selecciona el artículo y dale click en el botón de Remove.
Después de borrar un documento, este ya no podrá ser recuperado ya que es eliminado del servidor.

El sistema borrará automáticamente el o los documentos después de abrirlos 5 veces o después de 30 días a partir de la fecha en que recibiste el correo de notificación.

CONFIGURABLETEXT $IncorrectEmailPin = <

BIBLIOTECA DEL INSTITUTO DE BIOTECNOLOGIA-CENTRO DE CIENCIAS GENOMICAS

ARIEL: NOTIFICACION DE ERROR

No tienes ningún documento disponible.
Por favor verifica que tu dirección de email y/o la clave esten correctos e intenta 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 " Content-type: text/html\n\n"; # print "$LogoutUrl ADIOS\n"; # 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 "jman 254"; 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 "jman 334"; 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 "jman 387"; 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 "jman 457"; print $IncorrectConfig." **** ". $file; 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; } } }