level.cgi

--黑客防线-精华奉献本(攻册)

#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
######################---------------------------------#
## 以下部分不需修改 ##
######################
$tol=$rfy+$rhf;
open (FILE, "$filepath/data/rank");
@rank = <FILE>;
close(FILE);
foreach $ranks (@rank) {
chomp($ranks);
if($ranks eq $rusername){$rankss="ok";}}
if($rusername eq $admname){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif><img src=$imagurl/star5.gif>";$levelname="社区区长";}
elsif($rankss eq "ok"){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif><img src=$imagurl/star5.gif>";$levelname="管 理 员";}
elsif($tol > 2000){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif><img src=$imagurl/star5.gif>";$levelname="开国大老";}
elsif($tol < 11){$level="<img src=$imagurl/star1.gif>";$levelname="新手上路";}
elsif($tol > 10 && $tol < 31){$level="<img src=$imagurl/star1.gif>";$levelname="一般站友";}
elsif($tol > 30 && $tol < 101){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";$levelname="中级站友";}
elsif($tol > 100 && $tol < 201){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";$levelname="高级站友";}
elsif($tol > 200 && $tol < 501){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";$levelname="老 站 友";}
elsif($tol > 500 && $tol < 1001){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";$levelname="长 老 级";}
elsif($tol > 1000 && $tol < 2001){$level="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif>";$levelname="本站元老";}
######################### END OF SCRIPT #########################