⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 set_midi.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
📖 第 1 页 / 共 2 页
字号:
🔍
12 
print "<tr><td width=100%></td></tr><tr><td bgcolor=\"AQUA\"</td></tr><tr>\n";
print "<td width=100%><p align=right>\n";
print "<span style=\"color:AQUA\">感谢使用！</font></td></tr> </table>\n";
print "</td></tr></table></body></center></div></html>\n";  

##############  点歌给朋友  ###########
sub towho {

if (!(($towho ne "") && ($midiurl eq "") && ($liuyan eq ""))){
open (MU,">>$homedir/music.txt") || &error("无法打开文件$homedir/music.txt");
if ($midiurl eq "") {
print MU "==".$username."=".$towho."=".$liuyan."=".$normal_time2."=".$howlong."\n";
}else{
print MU $midiurl."=".$username."=".$towho."=".$liuyan."=".$normal_time2."=".$howlong."\n";
}
close (MU);
  }
}
##############  加入歌曲  ###########
sub joinmusic {

   open(MIDI,"$homedir/$mp3ormidi.txt") || &error("无法打开文件$homedir/$mp3ormidi.txt");
 @midi = <MIDI>;
   close(MIDI);
   $i=0;
   foreach $midi_line (@midi) {
($mark,$chkmidiname,$chkmidiurl,$markend,$last) = split(/‖/, $midi_line);
($chkmidinm,$tmp)=split(/【/, $chkmidiname);
   if (($i ==0) && ($mark eq $mp3ormidi) && ($markend eq "end")  && (($musicname eq $chkmidinm) || ($chkmidiurl eq $homeurl))) { 
$i++;
$chk=1;  
 }
  }
if ($chk != 1) {
if (($userlevel>=$level_midi) && ($musicname ne "") && ($whoupdata ne "") && ($midiurl ne "")){
   open(MIDI,">>$homedir/$mp3ormidi.txt") || &error("无法打开文件$homedir/$mp3ormidi.txt");
   print MIDI $mp3ormidi."‖".$musicname."【".$whoupdata."提供】‖".$midiurl."‖end‖\n";
   close(MIDI);
}
}
  }
}
############ 检查是否有人点歌 ##########
sub mymusic {

open (MU,"<$homedir/music.txt") || &error("无法打开文件$homedir/music.txt");
   @mu=<MU>;
close (MU);
  open(SS,">$homedir/music.txt") || &error("无法打开文件$homedir/music.txt");
foreach $mu_line (@mu) {
   ($chkmidiurl,$chkmidinm,$chkusername,$chktowho,$chkliuyan,$chktime,$chklong) = split(/=/, $mu_line);
$chktime =~s/年/\:/g;
$chktime =~s/月/\:/g;
$chktime =~s/日/\:/g;
   ($chknyear,$chknmon,$chknday,$chknhour,$chknmin,$chknsec) = split(/\:/, $chktime);
   if (($nyear*360+$nmon*30+$nday) >= ($chknyear*360+$chknmon*30+$chknday+$chklong)) {print SS "";}
 else { print SS $mu_line; }
}
  close(SS);
  $i=0;
   open(SS,">$homedir/music.txt") || &error("无法打开文件$homedir/music.txt");
  foreach $mu_line (@mu) {
   ($chkmidiurl,$chkmidinm,$chkusername,$chktowho,$chkliuyan,$chktime,$chklong) = split(/=/, $mu_line);
  if (("all" eq $chktowho) && ($chkusername ne $username)){
open (MU,">>$homedir/$username.dat") || &error("无法打开文件$homedir/$username.dat!");
print MU $mu_line;
close (MU);
$i++;
}
  if ($username eq $chktowho){
open (MU,">>$homedir/$username.dat") || &error("无法打开文件$homedir/$username.dat!");
print MU $mu_line;
close (MU);
$i++;
print SS "";
 }else{print SS $mu_line;}
  }
   close(SS); 
  
if ($i !=0) {
print qq~
<script language="JavaScript"><!--
window.open("$fullurl?job=read_ly$userinfo","read_ly","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=1,scrollbars=1,width=400,height=250");
// --></script>
~;
  }
}
############ 读取留言框架页  ##########
sub read_ly {
print <<EOF;
<html><head><title>$title服务台</title></head>
<frameset framespacing="0" border="false" rows="90%,*" frameborder="0">
  <frame name="main" src="$fullurl?job=show$userinfo" scrolling="auto" marginwidth="0" marginheight="0">
  <frame name="footer" scrolling="no" noresize target="main" src="$fullurl?job=show_music$userinfo"
  marginwidth="0" marginheight="0">
  <noframes><body><p>This page uses frames, but your browser doesn't support them.</p></body></noframes>
</frameset>
</html>
EOF
}
############  显示留言 ##################
sub show {

if (!(-e "$homedir/$username.dat")) {
print <<EOF;
<head>
<Title></Title>
</head><body bgcolor="#ff000" text="#ffffff">
<p><p><h1>没有未读资讯</h1>
</body>
EOF
exit;
}
open (MU,"<$homedir/$username.dat") || &error("无法打开文件$homedir/$username.dat!");
@mu=<MU>;
close (MU);
print "<html><head><title>$title服务台</title>\n";
print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\">\n";
print "</head>\n";
print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color><div align=\"center\"><center>\n";
print "<table border=0 width=100% height=100% cellspacing=0 cellpadding=0><tr><td>\n";
print "<form method=post action=$fullurl?job=show$userinfo target=\"\">\n";
print "<input type=hidden name=\"checkwhatdo\" value=\"midi\">\n";
print "<center><h2>------最新资讯------</h2></center>\n";
print "<table border=\"1\" width=\"100%\" cellspacing=\"0\" cellpadding=\"1\" bordercolor=\"#C0C0C0\">\n";
foreach $mu (@mu) {
   ($chkmidiurl,$chkmidinm,$chkusername,$chktowho,$chkliuyan,$chktime,$chklong) = split(/=/, $mu);
   ($chkmidinm,$tmp)=split(/【/, $chkmidinm);
if ($chkliuyan eq "") {
if ($chktowho eq "all") {
print "<tr><td><font color=#FF8080>$chkusername</font>于$chktime为<font color=#FF8080>大家</font>点歌:$chkmidinm</td><td width=\"50\"><a href=$chkmidiurl>【下载】</a></td>\n";
print "<td width=\"50\"><a href=$fullurl?job=show_music$userinfo&midiurl=$chkmidiurl  target=\"footer\">【欣赏】</a></td></tr>\n";
}else{
print "<tr><td><font color=#FF8080>$chkusername</font>于$chktime为<font color=#FF8080>你</font>点歌:$chkmidinm</td><td width=\"50\"><a href=$chkmidiurl>【下载】</a></td>\n";
print "<td width=\"50\"><a href=$fullurl?job=show_music$userinfo&midiurl=$chkmidiurl  target=\"footer\">【欣赏】</a></td></tr>\n";
   }
}elsif ($chkmidiurl eq "") {
if ($chktowho eq "all") {
print "<tr><td width=\"100%\" colspan=\"3\"><font color=#FF8080>$chkusername</font>于$chktime留言给<font color=#FF8080>大家</font>说:$chkliuyan</td></tr>\n";
}else{
print "<tr><td width=\"100%\" colspan=\"3\"><font color=#FF8080>$chkusername</font>于$chktime留言给<font color=#FF8080>你</font>说:$chkliuyan</td></tr>\n";
  }
}else{
if ($chktowho eq "all") {
print "<tr><td><font color=#FF8080>$chkusername</font>于$chktime为<font color=#FF8080>大家</font>点歌:$chkmidinm</td><td><a href=$chkmidiurl>【下载】</a></td>\n";
print "<td width=\"50\"><a href=$fullurl?job=show_music$userinfo&midiurl=$chkmidiurl  target=\"footer\">【欣赏】</a></td></tr><tr><td width=\"100%\" colspan=\"3\">并说:$chkliuyan</td></tr>\n";
}else{
print "<tr><td><font color=#FF8080>$chkusername</font>于$chktime为<font color=#FF8080>你</font>点歌:$chkmidinm</td><td><a href=$chkmidiurl>【下载】</a></td>\n";
print "<td width=\"50\"><a href=$fullurl?job=show_music$userinfo&midiurl=$chkmidiurl  target=\"footer\">【欣赏】</a></td></tr><tr><td width=\"100%\" colspan=\"3\">并说:$chkliuyan</td></tr>\n";
}
  }
}
print "</table></form></td></tr></table></body></center></div></html>\n";  
unlink ("$homedir/$username.dat");
}
############## 听点歌 #############
sub show_music {

if ($FORM{'midiurl'}) {
   $midiurl = "$FORM{'midiurl'}";
   $midiurl =~ s/\n//g;
   $midiurl =~ s/‖//g;
   $midiurl = substr($midiurl,0,120);
}
print "<html><head><title>$title服务台</title>\n";
print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\">\n";
if ($midiurl) {
print "<bgsound src=\"$midiurl\" loop=\"-1\">\n";
  }
print "</head>\n";
print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color>\n";
if ($midiurl) {
print "<center><table width=100% bgcolor=\"#004000\"><tr><td><span style=\"font-size: 9pt;color:#FFFFFF\"><center>正在播放...请尽情欣赏!</center></span></td></tr></table>\n";
print "<embed src=\"$midiurl\" autostart=\"true\" loop=\"true\" >\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 "</body></center></html>\n";  
}
12

⌨️ 快捷键说明

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