play.cgi

在线播放音乐系统 下载请看readme.txt和install.txt文件

#!/usr/bin/perl
require "f:/hndns/music/setup.cgi";   # NT系统此处改为绝对路径

#########################################
print"Content-Type:text/html\n\n";
#########################################
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@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;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\|//g;
$value =~ s/>/&gt;/g;
$value =~ s/</&lt;/g;
$FORM{$name} = $value;
}

#############################################
open(PLAYJS,"$cgidir/playjs.txt");
@play_js=<PLAYJS>;
close(PLAYJS);
$pi=$play_js[0];
if($pi<50){
++$pi;}
else {$pi=0;}
open(WJJS,">$cgidir/playjs.txt");
print WJJS "$pi";
close(WJJS);

@lplays="$homedir/play/$pi$ext";
@play=("$FORM{'gq'}\n","$FORM{'1'}\n","$FORM{'2'}\n","$FORM{'3'}\n","$FORM{'4'}\n","$FORM{'5'}\n","$FORM{'6'}\n","$FORM{'7'}\n","$FORM{'8'}\n","$FORM{'9'}\n","$FORM{'10'}\n","$FORM{'11'}\n","$FORM{'12'}\n","$FORM{'13'}\n","$FORM{'14'}\n","$FORM{'15'}\n","$FORM{'16'}\n","$FORM{'17'}\n","$FORM{'18'}\n");
open(COUNT,">@lplays");
print COUNT "@play";
close(COUNT);
@zxplays="$images/play/$pi$ext";
open(PLAYHTMLS,"$htmlhead/$playhtmls");
@html_plays=<PLAYHTMLS>;
close(PLAYHTMLS);
foreach (@html_plays) {
         $_ =~ s/\@zxplays/@zxplays/g;
         }
print "@html_plays";