#!/usr/bin/perl -T # Doreva Belfiore # Rutgers University Law Library # Camden, NJ # multivp.cgi = #1 of 2 # This script finds multi-volume documents that need manual pagination # since MARC records only show set-level pagination. If found, the script # presents first document to user (Law Library staff member) for review. # Revision date: 9/27/2011 $ENV{"PATH"} = "/bin:/usr/bin:/usr/local/bin"; use CGI qw(param); use strict; #1 Define directories and grep multi-part volumes only my $rdir = "../MULTIV"; #open the MULTIV directory opendir (DIR, "$rdir"); #grep line will fetch all those directories with parts a-az my @lccns = grep /([0-9]{1,8})([a-z]{1,2})/, readdir DIR; closedir DIR; @lccns = sort(@lccns); my $doc = $lccns[0]; if($doc =~ /.*?(\w+).*/){ $doc = $1; } #2 Open directories and grep the files opendir DIR2, "$rdir/$doc"; my @files = grep /\.tif/, readdir DIR2; closedir DIR2; @files = sort(@files); my $fnumber = @files; my $filey = $files[0]; #if($filey =~ /.*?(\w+).*\.tif/){ #$filey = $1; # } #3 Calculate pagination my $page = 1; $page = sprintf("%04d",$page); #4 See if there are available documents to process MAIN: { # tests if LCCN (document) array has been defined or not # to test if documents are present in the /MULTIV directory to work on if (@lccns) { foreach $doc (@lccns) { &convert1; &form1; } # end foreach loop } #end if loop else { &form2; } } #end MAIN # SUBROUTINES SECTION sub form1 { #form1 prompts for pagination of multi-part documents #Can be customized with local website graphics print < Government Document Quality Control Check

Government Document Quality Check

Multivolume Page Confirmation Check

Is this file the correct document?: $doc:

The file is correct. Continue.

The file is bad. Skip it.






END_OF_HTML next MAIN; } # end sub form1 sub form2 { #form2 tells the end-user that there are no documents to process print < Government Document Quality Control Check

Government Document Quality Check

Multivolume Page Confirmation Check

There are currently no multi-volume set documents to process.

END_OF_HTML next MAIN; } # end sub form2 sub convert1 { chdir "$rdir/$doc"; #Tifftopnm converts tiff to jpg for web presentation in any browser without the need for plugins #Changed quality to 50% to save processing time and server space system "tifftopnm '$doc-$page.tif' |pnmtojpeg -quality=50 >'$doc-$page.jpg'"; }