Code:
#!c:\usr\bin\perl
# Made by SlashC and YellowKard
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; }
%sounds = ( "Test Song", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/Bh_mu13.mid",
"Test 2", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/bustamove.mid",
"2", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbtgt.mid",
"3", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbz.mid",
"4", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbz2.mp2",
"5", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbz2bsgt.mid",
"6", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbz2bvt.mid",
"7", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/dbz3video.mid",
"8", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/Dn64ic.mid",
"9", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/grim1.mid",
"10", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/grim2.mid",
"11", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/grim3.mid",
"12", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/mission.mid",
"13", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/mm8fight.mid",
"14", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/mmend.mid",
"15", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/pmtheme.mid",
"16", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/pokemontheme.mid",
"17", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/Search.mid",
"18", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/waver1.mid",
"19", "http://geocities.yahoo.com/TimesSquare/Corridor/5175/music/zelda1.mid",
"20", "http://www.geocities.com/SiliconValley/Port/9799/music/3-07.mid",
"21", "http://www.geocities.com/SiliconValley/Port/9799/music/4-08.mid",
"22", "http://www.geocities.com/SiliconValley/Port/9799/music/4-08.mid", );
print "Content-type:text/html\n\n";
print qq|<html>
<HEAD>
<TITLE>-=SlashC's JukeBox=-</TITLE>
</HEAD>
<bgsound src="$FORM{input}" loop="-1">
<BODY bgcolor = "#FFFFFF" text = "#ADFF2F" background="http://www.geocities.com/TimesSquare/Corridor/5175/pics/stars.jpg" link="#0000FF" vlink ="#800080">
<center>
`~SlashC's Cool Juke Box~`
<br>
<form name="input" action="http://yellowkard.tentex.com/cgi-bin/jukebox.cgi" method="POST">
<table align="center"border="3"cellspacing="0"cellpadding="1">
<tr><td>
<select name = "input" size="1" >
|;
foreach $i ( keys %sounds) {
if ($sounds{$i} eq $FORM{input}) {
print qq|<option selected value=\"$sounds{$i}\">$i<\/option\>\n|;
}
else {
print qq|\<option value\=\"$sounds{$i}\"\>$i\<\/option\>\n|;
}
}
print qq|
</select></td></tr></table>
<center>
<INPUT TYPE="image" SRC="http://www.geocities.com/slashc/pics/jukebox.jpg" HEIGHT="24" WIDTH="129" BORDER=0 ALT="Click to Play!">
</center>
</form><table><tr><td><center>
<a HREF ONCLICK="window.close();return false;">
<img SRC="http://yellowkard.tentex.com/wacenter/images/closebutton.gif" BORDER="0" ALT="Close Window" width="96" height="19">
</td></tr></table>
</body></html>
|;
Eliot Lee....
* Thinking out of the box (codes) is not only fun, but effective.