#!/usr/local/bin/perl $allsongsfile = "/www/sethi/html/ssi/all-songs.txt"; $navbarfile = "/www/sethi/html/ssi/navbar.html"; $footerfile = "/www/sethi/html/ssi/commonFooter.html"; $favouritesfile = "/www/sethi/html/ssi/song-recommendation.html"; $favourites = ""; undef $/;open(FAVE,"$favouritesfile");chomp($favourites=);close(FAVE);$/ = "\n"; $MPEGSPOLICY = <<"ENDMESSAGE";

Hang on a minute, please...

Nota Bene: Mpegs are temporarily unavailable because I need the bandwidth for a little bit. Sorry about that, but check back again in a little while and they should be back up. If this is an emergency and you really need access to something, just drop me an email and I'll pop em back up asap.

In the interim, here's a list of our songs:

ENDMESSAGE ; print "Content-type: text/html\n\n\n"; print ("

$favourites

\n"); print "$MPEGSPOLICY"; print "

\n";
    open(IN, "$allsongsfile");
    while () {s%.*/%%;print;}
    close(IN);
print "

\n"; open(SSI, "$navbarfile"); while () {print;} close(SSI); open(SSI, "$footerfile"); while () {print;} close(SSI); print "\n"; exit; __END__