exportemail.cgi

一个linux论坛

#!/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/     本论坛直通车
#
#  Yanni Edition Hack版本版权所有: Yanni
#  制作人  : Yanni
#  网址    : http://www.mygamemusic.com  益友论坛
#            http://www.renlairen.net    人来人网
#
#############################################################
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 "lbadmin.lib.pl";
require "data/boardinfo.cgi";
require "lb.lib.pl";

$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################
$thisprog = "exportemail.cgi";

$query = new LBCGI;

$action       = $query -> param("action");
$action       = &cleaninput("$action");
$inexport     = $query -> param('exporter');
$intarname    = $query -> param('tarname');
$intarname    =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;

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

&getadmincheck;
print header(-charset=>gb2312);

&admintitle;
&getmember("$inmembername");
        
if (($membercode eq "ad") && ($inpassword eq $password) && ($password ne "") && ($inmembername ne "") && (lc($inmembername) eq lc($membername))) { #s1
    if ($action eq "delete") {
    	unlink ("${imagesdir}$intarname.csv");
    	print qq(<tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF>
<b>欢迎来到论坛管理中心 / 导出会员 Email</b></td></tr><tr>
<td bgcolor=#FFFFFF valign=middle colspan=2><b><br>
<center>删除用户资料残留文件 $imagesdir$intarname.csv 成功!<br><br><a href=exportemail.cgi>再次导出其他用户类型的 Email.</a></center>);
    }
    elsif ($action eq "process") {
	opendir (DIR, "$imagesdir"); 
	my @countvar = readdir(DIR);
	closedir (DIR);
	@countvar = grep(/\.csv$/i,@countvar);
	foreach (@countvar) {
            unlink ("${imagesdir}$_");
        }

        $inexportusers  = $query -> param('exportusers');
        $inexportusers  =~ s/\, /\,/gi;
        $inexportusers  =~ s/ \,/\,/gi;
        @senduserlist   = split(/\,/,$inexportusers);
        print qq(<tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF>
<b>欢迎来到论坛管理中心 / 导出会员 Email</b></td></tr><tr>
<td bgcolor=#FFFFFF valign=middle colspan=2><b>如下是您所需要用户类型的 Email 列表：</b><br>
<table><tr><td bgcolor=#FFFFFF valign=middle align=center colspan=2>
<textarea cols=60 rows=10>
);
	open (MEMFILE, "${lbdir}data/lbmember.cgi");
	@cgi1 = <MEMFILE>;
	close(MEMFILE);
	$counts=0;
	if ($inexportusers ne "") {
    	    foreach $exusers (@senduserlist){
    	    	chomp $exusers;
		foreach (@cgi1) {
		    chomp $_;
		    (my $membername,$no,$no,$no,$email) = split(/\t/,$_);
		    if ($membername eq $exusers) {
		    	push (@cgi,"$membername,$email,$counts,\n");
		    	$counts++;
		    }
		}
	    }
	}
	else {
	    if ($inexport eq "allmanager") {
		foreach (@cgi1) {
		    chomp $_;
		    (my $membername,my $membercode,my $no,$no,my $email) = split(/\t/,$_);
		    if (($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo")) {
		    	push (@cgi,"$membername,$email,$counts,\n");
		    	$counts++;
		    }
		}
	    }
	    elsif ($inexport eq "all") {
		foreach (@cgi1) {
		    chomp $_;
		    (my $membername,my $membercode,my $no,$no,my $email) = split(/\t/,$_);
	    	    push (@cgi,"$membername,$email,$counts,\n");
		    $counts++;
		}
	    }
	    else {
		foreach (@cgi1) {
		    chomp $_;
		    (my $membername,my $membercode,my $no,$no,my $email) = split(/\t/,$_);
		    if ($membercode eq $inexport) {
		    	push (@cgi,"$membername,$email,$counts,\n");
		    	$counts++;
		    }
		}
	    }
	}
	unshift (@cgi, "姓名,电子邮件地址,foxaddrID,foxaddrListMembers\n");
        my $time=time;
        $time=crypt($time,"lb");
        $time=~s /\///isg;
        $time=~s /\.//isg;
        $tarname=$time;        
	$filetomake = "${imagesdir}$tarname" . ".csv";
	open(FILE, ">$filetomake");print FILE @cgi;close FILE;
	    
	print qq(@cgi</textarea><BR></td></tr>);
        print qq(<br><br><a href=$imagesurl/$tarname.csv>点击此处下载邮件列表 (Foxmail-CSV地址簿格式)</a><br>
<a href=$thisprog?action=delete&tarname=$tarname>点击此处删除 FTP 上遗留的这个文件</a><br><br><center><a href="exportemail.cgi">再次导出其他用户类型的Email</a></center>);
    }
    else {
	print qq(<tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF><b>欢迎来到论坛管理中心 / 导出会员 Email</b></td></tr><tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2><font color=#333333><b>导出会员 Email</b></td></tr>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="process">
<tr><td bgcolor=#FFFFFF valign=middle colspan=2><br>
　　<b>通过这功能可以将导出的会员资料导入到 Foxmail 的地址簿内，以便于您能通过邮件来更好地与会员联系。</b><br><br>
<font color=#000000>导出对象：　　<select name="exporter" size="1"><option value="all">所有用户</option><option value="allmanager">所有管理员</option><option value="ad">所有坛主</option><option value="smo">所有总版主</option><option value="cmo">分类区版主</option><option value="mo">所有版主</option><option value="rz">所有认证会员</option><option value="me">所有普通会员</option></select><br>
<font color=#000000>导出指定对象：<input type=text name="exportusers" size=30>　 (用逗号分开各会员 ID )
<br></td></tr>
<tr><td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<input type=submit name=submit value=提交></td></form></table></tr></td></tr></table>
);
    }
}
else {
    &adminlogin;
}
print qq~</td></tr></table></body></html>~;
exit;