#!/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("<html>\n");
print("<head>\n");
print("<title>Abacus</title>\n");
print("</head>\n");
print("<KILLBANNER>\n");
print("<body bgcolor=\"#000000\" text=\"0099ff\">\n");
print("<form method=\"get\" action=\"pnm.cgi\">\n"); print("<input name=\"song\" bgcolor=\"0000127\" text=\"0099ff\" cursor=\"indigo\" width=\"100%\" value=\"\">\n"); print("<form>\n"); print("<noframes><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");
}