📄 set_midi.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
📖 第 1 页 / 共 2 页
字号:
12 下一页
############################
sub set_midi {

if ($FORM{'midiurl'}) {
   $midiurl = "$FORM{'midiurl'}";
   $midiurl =~ s/\n//g;
   $midiurl =~ s/‖//g;
   $midiurl = substr($midiurl,0,120);
}
if ($FORM{'whatdo'}) {
   $whatdo  = $FORM{'whatdo'};
}
if ($FORM{'mp3ormidi'}) {
   $mp3ormidi  = $FORM{'mp3ormidi'};
}
if ($FORM{'checkwhatdo'}) {
   $checkwhatdo  = $FORM{'checkwhatdo'};
}
if ($FORM{'liuyan'}) {
   $liuyan  = $FORM{'liuyan'};
   $liuyan  =~ s/\n//g;
   $liuyan  =~ s/‖//g;
   $liuyan  = substr($liuyan,0,400);
}
if ($FORM{'chkname'}) {
   $chkname  = $FORM{'chkname'};
   $chkname  =~ s/\n//g;
   $chkname  =~ s/‖//g;
   $chkname  = substr($chkname,0,10);
}
if ($FORM{'towho'}) {
   $towho  = $FORM{'towho'};
   $towho  =~ s/\n//g;
   $towho  =~ s/‖//g;
   $towho  = substr($towho,0,60);
}
if ($FORM{'musicname'}) {
   $musicname  = $FORM{'musicname'};
   $musicname  =~ s/\n//g;
   $musicname  =~ s/‖//g;
   $musicname  = substr($musicname,0,10);
}
if ($FORM{'whoupdata'}) {
   $whoupdata = $FORM{'whoupdata'};
   $whoupdata =~ s/\n//g;
   $whoupdata =~ s/‖//g;
   $whoupdata = substr($whoupdata,0,10);
}
if ($FORM{'howlong'}) {
   $howlong = $FORM{'howlong'};
   $howlong =~ s/\n//g;
   $howlong =~ s/‖//g;
   $howlong = substr($howlong,0,2);
  if ($howlong > $del) {$howlong = $del;} 
}
if ($userlevel>=$level_midi) {
   open(MIDI,"$homedir/midi.txt") || &error("无法打开文件midi.txt");
 @midi = <MIDI>;
   close(MIDI);
   open(MP3,"$homedir/mp3.txt") || &error("无法打开文件$mp3.txt");
 @mp3 = <MP3>;
   close(MP3);
&searchuser("userdb");
}
   if (($checkwhatdo eq "midi") && ($towho ne "")) { 
  &towho; 
}elsif ($checkwhatdo eq "joinmusic") { 
  &joinmusic; 
}

print "<html><head><title>$title服务台</title>\n";
print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\">\n";
#print "<SCRIPT LANGUAGE=\"JAVASCRIPT\"><!--\nfunction link(){\nif (document.forms[0].temp.value!=\"如果你要留言请在此输入(不超过100个汉字)\") {document.forms[0].liuyan.value =document.forms[0].temp.value;\n}\nsetTimeout('link()', 200);\n}\n//--></SCRIPT>\n";
print "</head>\n";
print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color onload=\"link();\"><div align=\"center\"><center>\n";
   ($midiurl,$tmp)=split(/=/, $midiurl);
if ($midiurl) {
print "<bgsound src=\"$midiurl\" loop=\"-1\">\n";
  }
print "<table border=0 width=100% height=100% cellspacing=0 cellpadding=0><tr><td>\n";
if ($userlevel>=$level_midi) {
if ($chk==1) {
print "<center><table width=100% bgcolor=\"#FFFFFF\"><tr><td><span style=\"font-size: 9pt;color:#FF0000\"><center>该歌曲已在库中,谢谢你!还有其他的吗?<center></span></td></tr></table>\n";
}elsif ($midiurl) {
print "<center><table width=100% bgcolor=\"#004000\"><tr><td><span style=\"font-size: 9pt;color:#FFFFFF\"><center>正在播放...请尽情欣赏!<center></span></td></tr></table>\n";
}else{
print "<center><table width=100% bgcolor=\"#004000\"><tr><td><span style=\"font-size: 9pt;color:#FFFFFF\"><center>你可以点歌给已注册的朋友!<center></span></td></tr></table>\n";
}
print "<form method=post action=$fullurl?job=set_midi$userinfo target=\"\">\n";
print "<input type=hidden name=\"checkwhatdo\" value=\"midi\">\n";
#print "<center><textarea ROWS=\"3\" COLS=\"58\" NAME=\"liuyan\"  value=\"留言:\" readonly></textarea><br>\n";
print "对象:<input type=text name=\"chkname\" value=\"$chkname\" MAXLENGTH=\"10\"  size=\"10\">\n";
print "<select name=\"towho\" > \n";
if ($chkname eq "all") {
print "<option value=\"\" selected>自己</option>\n";
#print "<option value=\"all\" >所有人</option>\n";
foreach $nm (@dir) {
   if (!($nm eq $username)) {
print "<option value=$nm>$nm</option>\n";
}
  }
}elsif ($chkname eq ""){
print "<option value=\"\">在左边输入\"all\"查找所有注册对象</option>\n";
}else{
#print "<option value=\"all\" >所有人</option>\n";
foreach $nm (@dir) {
   if ((!($nm eq $username)) && ($nm=~/$chkname/i)){
print "<option value=$nm>$nm</option>\n";
}
  }
}
print "</select>\n";
if ($chkname ne "") {
print "保留<select name=\"howlong\"  >\n";
print "<option value=\"1\" >1</option>\n";
print "<option value=\"5\" selected>5</option>\n";
print "<option value=\"10\" >10</option>\n";
print "<option value=\"20\" >20</option>\n";
print "<option value=\"30\">30</option></select>天\n";
}
print "<center><select name=\"whatdo\"  > <option value=\"diange\" selected>欣赏</option>\n";
print "<option value=\"down\">下载</select>\n";
print "<select name=\"midiurl\" >\n";
print "<option value=\"\" >---- MIDI音乐库 ----";
foreach $midi_line (@midi) {
   ($mark,$chkmidiname,$chkmidiurl,$markend,$last) = split(/‖/, $midi_line);
   if (($mark eq "midi") && ($markend eq "end")) {
print "<option value=\"$chkmidiurl=$chkmidiname\" ";
if ($chkmidiurl eq $midiurl) {
print "selected";
}
print ">$chkmidiname\n";
   }
}
print "</select>\n";
print "<input type=submit value=\"确认\" >\n";
print "<input type=reset value=\"清除\" ><br><br>\n";
print "</form>\n";
#print "<input type=\"text\" name=\"temp\" onFocus=\"this.value=''\" value=\"如果你要留言请在此输入(不超过100个汉字)\" size=\"58\" MAXLENGTH=\"200\">\n";

################# mp3 ##################
print "<form method=post action=$fullurl?job=set_midi$userinfo target=\"\">\n";
print "<input type=hidden name=\"checkwhatdo\" value=\"mp3\">\n";
print "<select name=\"whatdo\"  >\n<option value=\"down\" selected>下载</option>\n";
print "<option value=\"diange\">欣赏</option></select>\n";
print "<select name=\"midiurl\" >\n";
print "<option value=\"\" >---- MP3歌曲库 ----";
foreach $mp3_line (@mp3) {
   ($mark,$chkmidiname,$chkmidiurl,$markend,$last) = split(/‖/, $mp3_line);
   if (($mark eq "mp3") && ($markend eq "end")) {
print "<option value=\"$chkmidiurl=$chkmidiname\" ";
if ($chkmidiurl eq $midiurl) {
print "selected";
}
print ">$chkmidiname\n";
   }
}
print "</select>\n";
print "<input type=submit  value=\"确认\" >\n";
print "<input type=reset value=\"清除\" ><br>\n";
print "</form>\n";

####################### 加入歌曲界面 ############
print "<hr width=\"100%\" size=\"1\" color=\"#FF0000\">\n";
print "在下面你可以将你觉得好的歌曲推荐给大家,请注意你提供的联接地址的正确性!<br>\n";
print "<form method=post action=$fullurl?job=set_midi$userinfo target=\"\">\n";
print "<input type=hidden name=\"checkwhatdo\" value=\"joinmusic\">\n";
print "歌曲的名字:<input type=text name=\"musicname\" value=\"\" MAXLENGTH=\"10\"   size=35><br>\n";
print "歌曲的 URL:<input type=text name=\"midiurl\" value=\"http://\" MAXLENGTH=\"120\"  size=35><br>\n";
print "提供人姓名:<input type=text name=\"whoupdata\" value=\"\" MAXLENGTH=\"10\"  size=35><br>\n";
print "歌曲的格式:<select name=\"mp3ormidi\"  > <option value=\"midi\" selected>MIDI</option>";
print "<option value=\"mp3\">MP3</select>\n";
print "<input type=submit  value=\"加入\" >\n";
print "<input type=reset value=\"清除\" ><br>\n";
print "</form><hr width=\"100%\" size=\"1\" color=\"#FF0000\">\n";
if ($midiurl) {
print "<embed src=\"$midiurl\" autostart=\"true\" loop=\"true\" width=\"135\"   height=\"100\" hidden=\"true\">\n";
  }
}
print "<table border=0 cellspacing=0 cellpadding=0 width=100%>\n";
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -