Vinyl

#!/usr/bin/perl # Script to generate list of Compact Discs and (eventually) cassettes # Hard part by Dale Bewley (dale@bewley.net) 11/13/96 # Easy part by Jason Sisk (jmsisk@iupui.edu) 11/13/96 and various other times # modified for ptudor by himself 02/19/97 # ----------------------------------------------------------------------- open(REF, '>>vinyl-ref.txt'); print REF "$ENV{'HTTP_REFERER'}\n" if $ENV{'HTTP_REFERER'}; close(REF); print < Vinyl A prefix from June 2004: This list is stuck around 1997 or 1998 and hasn't been updated since. Oh the fantastic music. Despite the page's antiquity, still the web searchers arrive. What do you want? A picture? An mp3 or AAC? Sale? It's been a few years since I got an email from this site, I completely forgot about it.

Well, enjoy.

rekkids

This script is mine, dale's, and jason's.

EOF print "

twelve inches

\n"; open(DATA,"12list.txt") || die "Where the hell are the 12s? $!"; print "

) { ($artist,$title) = split(/=/); print "\t

$artist \n"; print "\t\t: $title\n\t

\n"; } print "

\n"; print "

seven inches

\n"; open(DATA,"7list.txt") || die "Where the hell are the 7s? $!"; print "

) { ($artist,$title) = split(/=/); print "\t

$artist \n"; print "\t\t: $title\n\t

\n"; } print "

\n"; print "Back
Top

"; #print ""; # you need the full path to date here. #print `/bin/date +'%A, %B %d %l:%M%p %Z'`; # or better yet, use localtime(time); #print `date +'%A, %B %d %l:%M%p %Z'`; #print ""; print "\n"; print "\n";