", $siteTitle,"

#!/util/bin/perl # Convert the techrep bib file to a README html file. $outFilename = "/web/tech-reports/README.html"; $bibFilename = "/web/tech-reports/bibs.refer"; $siteTitle = "Department of Computer Science and Engineering, University at Buffalo"; #set parameters $delim = "::"; #delimiter between fields # read the bib file and pack it into an array open (bibfile, $bibFilename); $line = 1; $author = ""; while ($line) { $line = ; # read a line if ($line ne "\n") { chop $line; } # author if ($line =~ /\%A/) { # concat authors if (length($author)) { $author = $author."; ".substr($line, 3); } else { $author = substr($line, 3); } } # title if ($line =~ /\%T/) { $title = substr($line, 3); } # TR number if ($line =~ /\%R/) { $trNumber = substr($line, 3); } # URL if ($line =~ /\%U/) { $URL = substr($line, 3); } # Date if ($line =~ /\%D/) { $date = substr($line, 3); } # pack it up and save it as a string if ($line eq "\n") { push (@records, "$trNumber$delim$author$delim$title$delim$date$delim$URL"); $author = ""; $title = ""; $trNumber = ""; $date = ""; $URL = ""; } } close (bibFile); # print header to the html file open (outfile, ">".$outFilename); print outfile "\n\n"; print outfile "", $siteTitle,"\n"; print outfile "\n\n"; print outfile "

Technical Reports at ", $siteTitle, "

\n"; # sort the records by trnumber sub trsort { my($p, $q); if (substr($a,0,2) ne '20') { $p = '19' . $a; } else { $p = $a; } if (substr($b,0,2) ne '20') { $q = '19' . $b; } else { $q = $b; } return $p cmp $q; } @records = reverse sort trsort @records; # print them html formatted. print outfile "

"; print outfile $trNumber, "\n"; } else { print outfile "
", $trNumber, " (Not available on-line)\n"; } print outfile ": ", $author, ".\n", $title, ",\n", $date, ".\n"; } print outfile "

\n"; print outfile "\n\n"; close (outfile);