#!/usr/bin/perl ############################################################ # This is the script for the pnm tester enjoy # # Thanks go to The Following People # # Casaveili - For Getting the Content type # # Pacman - For Making The First Pnm Tester # # duivel - For Getting one back up When Pac's # # was Murdered By Virtual Ave the bastards # ############################################################ # Check Out these Sites!!! # # Casaveili@webtv.net - www.casaveili.com # # pa-cm-an@webtv.net - www.pmtoolz.com # # duivel@webtv.net - www.duivel.net # ############################################################ # These Directions should be easy to follow :) # # Transload/Upload This File To Your Account # # in ascii mode Not Binary. If You Have An # # actual CGI-BIN Directory You Can Name It # # either "pnm.pl" or "pnm.cgi" hell just name it # # pnm.cgi so it Will Work in any directory # # After Upload CHMOD File To 755 and that's it # ############################################################ # DONT EDIT THiS PART BELOW use CGI; $q = new CGI; $song = $q->param('song'); if ($song eq "") { # Now You May Edit it LoL i made it pretty basic u can # change it Lma0 print "Content-type: /text/html\n\n"; print("\n"); print("\n"); print("Abacus\n"); print("\n"); print("\n"); print("\n"); print("
\n"); print("\n"); print("\n"); print("<noembed><noframes>\n"); print("</body>\n"); print("<html>"); } #Now DO NOT EDIT AGAIN ONLY EDIT THE HTML STUFF. if ($song ne "") { print "Content-type: audio/x-pn-realaudio-plugin\n\n"; print("$song\n"); }