#!/usr/local/bin/perl print "Content-type: text/html\n\n"; use CGI qw(param); ################################### ## Script by MAKAVELIAKAPAC7 ###### ################################### ## Can be used on Va or Hypermart## ################################### ## Please do not remove Credits ## ################################### $rc = param("rc"); $lc = param("lc"); $ro = param("ro"); $lo = param("lo"); $gain = param("gain"); $height = param("height"); $width = param("width"); $maxlevel = param("mxlv"); $bgcolor = param("bgcolor"); if ($rc eq "" & $lc eq "" & $ro eq "" & $lo eq "" & $gain eq "" & $height eq "" & $width eq "" & $maxlevel eq "" & $bgcolor eq "") { print "


"; print "
"; print "
Right Color
"; print "


"; print "
Left Color
"; print "


"; print "
Right Offset
"; print "


"; print "
Left Offset
"; print "


"; print "
Gain
"; print "


"; print "
Height
"; print "


"; print "
Width
"; print "


"; print "
MaxLevel
"; print "


"; print "
BG Color
"; print "


"; print "
"; print "</html>"; } if ($rc ne "" & $lc ne "" & $ro ne "" & $lo ne "" & $gain ne "" & $height ne "" & $width ne "" & $maxlevel ne "" & $bgcolor ne "") { print "<html><body bgcolor=\"black\" text=\"gold\">"; print "<center><font color=\"green\"><audioscope rightcolor=\"$rc\" leftcolor=\"$lc\" rightoffset=\"$ro\" leftoffset=\"$lo\" gain=\"$gain\" height=\"$height\" width=\"$width\" maxlevel=\"$maxlevel\" bgcolor=\"$bgcolor\"></font></center><br><br>"; print "<font color=\"green \"><center>audioscope rightcolor=\"$rc\" leftcolor=\"$lc\" rightoffset=\"$ro\" leftoffset=\"$lo\" gain=\"$gain\" height=\"$height\" width=\"$width\" maxlevel=\"$maxlevel\" bgcolor=\"$bgcolor\"</center></font><br><br>"; print "<center>Your IP #</center>"; print "<center>$ENV{'REMOTE_ADDR'}</center>"; print "</body><noembed></html>"; }