#!/usr/bin/perl # TCMI for radiac.net, Christmas Theme 2001. # Usual perl.uzeweb.com license, if you're going to use it, credit me. But why you'd want this, I don't know... # Quick and nasty is the name of the game... next year I'll either keep it, or completely rewrite it :p # I'm in a silly mood today, so the variables are h4x0rsp33ch0r150r3d.... use CGI; use CGI::Carp qw(fatalsToBrowser); $w00t = new CGI; $y4y = "http://" . $w00t->virtual_host() . $w00t->script_name(); print "Content-type: text/html\n\n"; $h4x0r = "/home/sites/uzeweb/radiac/www/xmasmusic/index.txt"; $gh3y = $w00t->param('song'); $gh3y = "xmasmedley.mid" unless ($gh3y); $l33t = "\n\n\nTCMI Enabled!\n\n\n\n\n\n\n\n\n\n
  [tcmi logo]\n
\n\n[tcmi play]\n
[tcmi stop]  \n
\n\n\n"; $fux0r = "\n"; if ($w00t->param('command') eq "stop") { $ph34r = "\"TCMI"; $m1_m4d_5ki1z = "\"Make"; } else { $ph34r = "\"TCMI"; $m1_m4d_5ki1z = "\"Make"; $b4_j00_4r3_0wn0r150r3d = "\n\n"; } $l33t =~ s/\[tcmi logo\]/$ph34r/gi; $l33t =~ s/\[tcmi stop\]/$m1_m4d_5ki1z/gi; $l33t =~ s/\[tcmi play\]/$b4_j00_4r3_0wn0r150r3d/gi; open(A55H0L3,"<$h4x0r") || die "Can't read from the file '$h4x0r'.
Reason: $!\n"; @sux0r=; close(A55H0L3); foreach $j00 (@sux0r) { $f4g0t = $fux0r; $j00 =~ s/\n|\r//g; return if ($j00 eq ""); my ($_455, $m0nk3y) = split(/,/, $j00, 2); $f4g0t =~ s/\[tcmi option file\]/$_455/gi; $f4g0t =~ s/\[tcmi option name\]/$m0nk3y/gi; my $b14ch = ""; $b14ch = " selected" if ($_455 eq $gh3y); $f4g0t =~ s/\[tcmi option select\]/$b14ch/gi; $s00p4f4g0t .= $f4g0t; } $l33t =~ s/\[tcmi options\]/$s00p4f4g0t/gi; $l33t =~ s/\[tcmi track file\]/$gh3y/gi; print $l33t; exit;