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

📄 remmail.cgi

📁 一个linux论坛
💻 CGI
字号:
🔍 
#!/usr/bin/perl
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#           
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#            
#############################################################
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "data/boardinfo.cgi";
require "lb.lib.pl";

$|++;                        # Unbuffer the output

########################## Program #####################################

$thisprog = "remmail.cgi";

$query = new LBCGI;

@params = $query->param;
foreach $param(@params) {
    $theparam = $query->param($param);
    $theparam = &unHTML("$theparam");
    ${$param} = $theparam;
}

$inmembername = $query->cookie("amembernamecookie");
$inmembername =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$member =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$member = "" if (length($member)>16);

if (lc($inmembername) eq lc($member)) {
 $filetoopen = "$lbdir" . "data/remmem.cgi";
 open (FILE,"$filetoopen");
 flock (FILE,2);
  @members = <FILE>;
 close (FILE);

foreach $removed (@members) {
 chomp($removed);
 if ($removed eq $member) {
  $output = qq~
   <tr bgcolor="#FFFFFF">
   <td align="center">
   你好，$member：你已经退出 LB5000 邮件列表了。
   </td>
   </tr>
  ~;
  &displayoutput;
 }
}


$filetoopen = "$lbdir" . "data/remmem.cgi";
open (FILE,">>$filetoopen");
 print FILE "$member\n";
close (FILE);

$output = qq~
 <tr bgcolor="#FFFFFF">
 <td align="center">
 你好，$member：你已经退出 LB5000 邮件列表了。
 <br>如果你想重新加入，请联系 <a href="mailto:$adminemail_out">坛主</a> 。
 </td>
 </tr>
~;
&displayoutput;

} else {

$output = qq~
 <tr bgcolor="#FFFFFF">
 <td align="center">
 对不起，你的 Cookie 不匹配。<br>如果你想退出此邮件列表，那么必须首先登录论坛。
 <br><a href="loginout.cgi">按此登录后重试</a>
 </td>
 </tr>
~;
&displayoutput;
}

sub displayoutput {

print qq~
 <html>
 <head>
 <title></title>
 </head>
 <body bgcolor="#FFFFFF">
 <table border="0" align="center" width="456">
 <tr>
 <br><br><td bgcolor=#EEEEEE align="center" colspan=2><font color=#333333 size=3><b>欢迎使用 LB5000 邮件列表</td>
 </tr>
 $output
 </table>
 </body>
 </html>~;
exit;
}

⌨️ 快捷键说明

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