#!/afs/athena/contrib/perl/p -w ## # Database file to html file converter # Wilfredo Sanchez Jr. ## # Copyright 1995 Wilfredo Sanchez Jr. | tritan@mit.edu # Written for the MIT SIPB webmasters | webmaster@mit.edu # Oh, joy. ## $version_id = "1.1"; $version_date = "13 Mar 95"; unshift(@INC, '/afs/sipb.mit.edu/project/www/src/db'); require 'dbparse.pl'; # Deal with the command line $outpath = shift(@ARGV); $dbfile = shift(@ARGV); $outpath = '/afs/sipb.mit.edu/project/www/root' unless $outpath; $dbfile = $DB'default_home unless $dbfile; # Read in the file &DB'ParseHome($dbfile); # Spew out some html &spewByName($outpath); &spewByUser($outpath); sub spewByName { # Well, actually, it's by index # &spewByName($outpath); # $outpath = directory to place Home-byName.html # NOTE: this function expects DB'ParseHome to have been run local($outpath) = @_; local($outfilename) = ($outpath . "/Home-byName.html"); # Open output file unless (open(OUTFILE, ">$outfilename")) { warn "$0: WARNING: Unable to open output file $outfilename.\n"; return -1; } # Start it off &printTop(OUTFILE, "Comprehensive Listing by Name", "name"); # List by name foreach $index (sort keys %DB'name) { # Output should look like: #
  • tritan, Wilfredo S&aaccute;nchez Jr. local($name) = $DB'name{$index}; local($user) = $DB'user{$name}; unless ($index && $name && $user) { warn "spewByName: skipping $index due to empty field\n"; next; } print OUTFILE "
  • $user, $name\n\n"; } &printBottom(OUTFILE); close(OUTFILE); } sub spewByUser { # &spewByUser($outpath); # $outpath = directory to place Home-byUser.html # NOTE: this function expects DB'ParseHome to have been run local($outpath) = @_; local($outfilename) = ($outpath . "/Home-byUser.html"); # Open output file unless (open(OUTFILE, ">$outfilename")) { warn "$0: WARNING: Unable to open output file $outfilename.\n"; return -1; } # Start it off &printTop(OUTFILE, "Comprehensive Listing by User Name", "email address"); # List by name foreach $user (sort keys %DB'index) { # Output should look like: #
  • tritan, Wilfredo S&aaccute;nchez Jr. local($index) = $DB'index{$user}; local($name) = $DB'name{$index}; unless ($index && $name && $user) { warn "spewByUser: skipping $user due to empty field\n"; next; } print OUTFILE "
  • $user, $name\n\n"; } &printBottom(OUTFILE); close(OUTFILE); } #sub spewByDate { # Possibly useful for maintenance #} sub printTop { # Print the top of the document # &printTop($outfile, $version, $by); # $outfile = output file handle # $version = kind of listing # $by = what we'll be listing by local($outfile, $version, $by) = @_; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "MIT Community Home Pages ($version)\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "

    \"[fireplace]\"\n"; print $outfile "MIT Community Home Pages

    \n"; print $outfile "

    $version

    \n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "

    To link your own home page into this document, please\n"; print $outfile "read the instructions\n"; print $outfile "on how to add your home page to our server.

    \n"; print $outfile "\n"; print $outfile "

    This listing is alphabetical by $by. Electronic mail addresses\n"; print $outfile "are at mit.edu unless otherwise specified.

    \n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "Give me the home page for: \n"; print $outfile "
    \n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "\n"; print $outfile "
      \n"; print $outfile "\n"; } sub printBottom { # Print the bottom of the document # &printBottom($$outfile); # $$outfile = output file handle local($outfile) = @_; print $outfile "
    \n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"What's\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"SIPB\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Other\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Activities\"\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Documents\"\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Fun\n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "Last updated: ", `date`; print $outfile "\n"; print $outfile "
    \n"; print $outfile "MIT Student Information Processing Board |\n"; print $outfile "webmaster\@mit.edu\n"; print $outfile "
    \n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; }