\n | Title\n | Author(s)\n | Download\n";
$pdf_list = `ls -s | grep pdf`;
@pdf_files = split("\n", $pdf_list);
foreach $pdf_file_size( @pdf_files) {
print INDEX " \n";
($pdf_size, $pdf_file) = split(" ", $pdf_file_size);
# $size = int($size/2);
if( $pdf_file =~ /(.*)\.pdf/) {
$papnum = $1;
print "Processing $pdf_file...$pdf_size KB\n";
if(-e "$papnum.ps.gz") {
print "$papnum.ps.gz already exists...\n";
} else {
print "Converting $pdf_file to ps.gz: ...\n";
system("acroread -toPostScript $pdf_file; gzip $papnum.ps");
}
$ps_list = `ls -s $papnum.ps.gz`;
($ps_size, $ps_file) = split(" ", $ps_list); # size of ps.gz file
open( DESC, "$papnum.desc");
$paper_title = ;
$null = ;
$author = ;
$abstract_file = $papnum."_abs.html";
print INDEX " | $paper_title\n";
print INDEX " | $author\n";
print INDEX " | pdf ($pdf_size K)\n";
print INDEX "
ps.gz ($ps_size K)\n";
print INDEX "
Abstract\n";
$null = ;
open( ABSTRACT, "> $abstract_file");
print ABSTRACT "$paper_title, by $author\n";
print ABSTRACT "\n";
print ABSTRACT "$paper_title, by $author\n";
while( $this_line = ) {
print ABSTRACT " $this_line";
}
print ABSTRACT "\n\n
\n\n\n\n";
print ABSTRACT "| \n« BACK to SEP-$rep_num index page\n";
print ABSTRACT " | \nDOWNLOAD
\n";
print ABSTRACT "pdf($pdf_size KB)\n
ps.gz($ps_size KB)\n";
print ABSTRACT " | \n \n";
print ABSTRACT "STANFORD
EXPLORATION
PROJECT";
print ABSTRACT " | \n";
close( ABSTRACT);
}
}
print INDEX " | |