代码：
###
my $pay,$pay2;
if($startnewthreads eq "paymoney"){
open(pay,"${lbdir}Maiweb/f_$inforum/$intopic.cgi");
$pay=<pay>;
close(pay);
if(",$pay"!~/,$inmembername,/i && $startedby ne $inmembername){
require "data/cityinfo.cgi" if ($addmoney eq "" || $replymoney eq "" || $moneyname eq "");
$mymoney1 = $numberofposts * $addmoney + $numberofreplys * $replymoney + $visitno * $loginmoney + $mymoney - $postdel * $delmoney + $jhcount * $addjhhb;
if($inmembername eq "訪客"){&error("進入金錢版塊&您目前的身份是訪客，請先注冊或登入！");}
if($mymoney1<$pay_money){&error("進入金錢版塊&您的現金不足以進入該版塊。進入該版塊最少需要支付 $pay_money $moneyname，而您只有 $moneyname1 現金");}
$pay.="$inmembername";
require "plugin.lib.pl";
if ($mymembercode ne "ad" || $mymembercode ne ''smo'' || $membercode ne "cmo" || $membercode ne "mo" || $membercode ne "amo") {
&updateuserinfo("$inmembername",0,0,0,0,0,-$pay_money,0);
&updateuserinfo("$startedby",0,0,0,0,0,$pay_money*0.8,0);
}
my $ml="${lbdir}Maiweb/f_$inforum";
mkdir($ml,0777) if (!(-e $ml));
open(pay,">>${lbdir}Maiweb/f_$inforum/$intopic.cgi");
print pay "$inmembername,";
close(pay);
$pay2="本次操作您需支付 $pay_money $moneyname";
}else{
if($pay eq ''''){$pay="暫無人查看此文章！";}else{chop $pay;}
$pay2="在上一次您已經付出 $pay_money $moneyname，本次無需再支付！";
}
if($startedby eq $inmembername){$pay2="您是作者，無需支付！";}
}
### |
|
更多内容请看雷傲(LEOBBS)论坛专题，或进入讨论组讨论。
