#!/usr/bin/perl
$the_dir = `pwd`;
@path = split("/", $the_dir);
$this_dir = $path[$#path];
print "Working on report $this_dir";
if( $this_dir =~ /.*(\d)(\d)/) {
$digit1 = $1; $digit2 = $2;
if( $digit1 == 0) {
$rep_num = $digit2;
} else {
$rep_num = "$digit1$digit2";
}
$cmd = "cat ".$digit1.$digit2."_name";
} else {
chop($this_dir);
$cmd = "cat ".$this_dir."_name";
}
$title_name = `$cmd`;
($title, $author) = split( "\n", $title_name);
open( INDEX, "> index.html");
print INDEX "\nSEP Thesis: SEP-$rep_num, by $author\n\n";
print INDEX "\n";
print INDEX "$title, by $author
\n\n";
print INDEX "\n\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);
# $pdf_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);
open( DESC, "$1.desc");
$chap_title = ;
print INDEX " | $chap_title \n";
print INDEX " pdf ($pdf_size KB)
\n";
print INDEX " ps.gz ($ps_size KB)
\n";
print INDEX " | \n";
$null = ;
while( $this_line = ) {
print INDEX " $this_line";
}
}
}
print INDEX " |
\n\n\n";
print INDEX "« -- BACK";
print INDEX " to SEP thesis page.\n\n";
print INDEX "
\n\n\n\n";
close( INDEX);
exit( 0);