#!/usr/local/bin/perl #------------------------------------------------------# # ¥»µ{§Ç¬°Yuzi¤u§@«Ç´£¨Ñ # Yuzi½×¾Â3000 §K¶Oª© v3.47 # # # ¦¹µ{¦¡¥Ñ ¥x¥_§ç±¡©] ¤¤¤å¤Æ # # ¤¤¤å¤Æª©¥» : v3.47b5 # ¤é´Á : 2001.2.11 # ¤¤¤å¤Æ§@ªÌ : ¥x¥_§ç±¡©]¯¸ªø DC # # ¥x¥_§ç±¡©] http://www.ttt.idv.tw # #------------------------------------------------------# require "setup.cgi"; ###################### ## ¥H¤U³¡¤À¤£»Ý­×§ï ## ###################### $perpage=45; #­¸ØpØp¨C­¶Åã¥Üªº½×¾Â¼Æ¥Ø $list="$filepath/data/list.cgi"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $FORM{$name} = $value; } $page =$FORM{'page'}; $username = $FORM{'username'}; $menu = $FORM{'menu'}; $id = $FORM{'id'}; &GetCookies; if ($username eq ""){$username=$Cookies{username}}; if ($userpsd eq ""){$userpsd=$Cookies{password}}; if($menu eq "many"){&many; exit;} if($menu eq "show"){&show; exit;} &index; exit; ########## sub show{ $filename="$people"; ($sec,$min,$hour,$mday,$mon,$year)=localtime(time); $mon=$mon+1; $year=$year+1900; $people=1; open (FILE,"$filename"); @LINES=; close(FILE); $SIZE=@LINES; open (FILE,">$filename"); for ($i=0;$i<$SIZE;$i++) { $_=$LINES[$i]; ($addr,$come_hour,$come_min,$come_sec,$host,$come_time,$olduser)=split(/,/,$_); $flag=($hour-$come_hour)*3600+($min-$come_min)*60+($sec-$come_sec); if ( $addr eq "$ENV{'REMOTE_ADDR'}" ) { print FILE "$ENV{'REMOTE_ADDR'},$hour,$min,$sec,$ENV{'REMOTE_HOST'},$come_time,$username,$id\n"; $check=1; } elsif ($flag < 120 && $flag > 0) { print FILE $_; $people++; } } if ($check == 0) { print FILE "$ENV{'REMOTE_ADDR'},$hour,$min,$sec,$ENV{'REMOTE_HOST'},$hour:$min:$sec,$username,$id\n"; } close (FILE); open(ROOM,"$list"); @lines=; close(ROOM); $size=@lines; &send_html; $ii=0; $j=$size; while ($j>0) { $j=$j-$perpage; $ii++; } opendir(mmm,"$filepath/yhzl"); @mmm=readdir(mmm); closedir(mmm); $mmm=@mmm; $mmm=$mmm-2; print <

$username Åwªï¥úÁ{ ­¸ØpØp°Ïªø¡G$admname µù¥U·|­û:$mmm
EOF foreach $line (@lines){ $line=~ s/\n//g; open(TMP,"$list"); @line=; close(TMP); } print < EOF if($page eq ""){$page=1;} $pages=$page-1; $pages=$page*$perpage-$perpage; for($i=$pages; $i<$pages+$perpage; $i++) { $line=@lines[$i]; $line=~ s/\n//g; if($line ne ""){ ($username1)=split(/\t/,$line); $onlined=""; if ( -e "$filepath/guest/3$username.cgi"){ open (PEO,"$filepath/guest/3$username.cgi"); @lineszd=; close (PEO); foreach $lineszds (@lineszd) { $lineszds=~ s/\n//g; ($rnamezd)=split(/,/,$lineszds); if ($rnamezd eq $username1){$onlined=""; } } } unless(-f "$filepath/list/$username1.cgi"){ open(TMP,">$filepath/list/$username1.cgi"); close(TMP); chmod(0666,"$filepath/list/$username1.cgi"); } open(TITLES,"$filepath/list/$username1.cgi"); $m=; close(TITLES); ($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$m); $bbsbook ="$filepath/list/$username1/bbs"; $rq=(-M "$bbsbook"); open(TITLES,"$bbsbook"); @hastitles=; close(TITLES); $hastitle=@hastitles; $wzs=$hastitle; $hastitle=@hastitles[0]; ($rrrr)=split(/,/,$hastitle); unless( -e "$filepath/list/$username1/$rrrr"){ open(fff,"$filepath/list/$username1/$rrrr"); $fff=; close(fff); ($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$fff); if($rlastname eq "--"){$rlastname=$rusername}; } print < EOF $rlastname=""; $rlasttime=""; } } if($username ne ""){ ($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'}); ($bzd,$ie,$win)=split(/;/,$kkk); open(NUMBER,"$filepath/guest/2$username.cgi"); $NUMBER=; close(NUMBER); ($lys,$oldlys)=split(/\t/,$NUMBER); $lytrues=$lys-$oldlys; open(NUMBER2,"$filepath/guest/1$username.cgi"); @NUMBER2=; close(NUMBER2); $NUMBER2=@NUMBER2; print < EOF } print <
  °Q½×°Ï ¥DÃD ³Ì«áµoªí ª©¥D ¨p¤H¬ÃÂÃ
EOF if($rq < "1"){ print ""; }else{ print ""; } print < $rtitle
$jj		 $wzs $rlasttime
$rlastname		 $rname $fbzmc $onlined
±zªº­Ó¤Hª¬ºA
$username - ±z²{¦b¦³ $NUMBER2 ±ø¯d¨¥ (¦³ $lytrues ±ø·s¯d¨¥)
±zªº¤Wºô¦ì¸m¡G$ENV{'REMOTE_ADDR'}¡@¡@¾Þ§@¨t²Î¡G$win¡@¡@ÂsÄý¾¹¡G$ie
¦b½uØpØp¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@°h¥X­¸ØpØp
¬Ý¬Ý²{¦b½Ö¦b­¸ØpØp ($people)
EOF open(PSD,"$filename"); @lines1=; close(PSD); foreach $line (@lines1) { if ($line ne "") { ($rip,$r1,$r2,$r3,$r4,$rtime,$rname,$rid)=split(/,/,$line); print "$rname\n"; } } print <
EOF $j=$size; while ($j>0) { print "" if ($page != $ii); print "[$ii]"; print "" if ($page != $ii); $j=$j-$perpage; $ii--; } print <
EOF exit; } ########## sub send_html { if ($has_send ne "1") { print "Content-type: text/html\n\n"; $has_send = "1"; } } sub index{ &send_html; if($id ne ""){ print < EOF }else{ print <$cityname EOF } exit; } sub many{ open (FILE,"$filepath/data/people.cgi"); @LINES=; close(FILE); $people=@LINES; &send_html; if($username eq ""){ print <

­¸ØpØp²{¦³ $people ¦ìªB¤Í

$ENV{'REMOTE_ADDR'} Åwªï¥úÁ{

µn¤J­¸ØpØp

·í«eµ¥¯Å: ³X «È

µù¥U±zªº­Ó¤H¸ê®Æ

ªð¦^­¸ØpØp­º­¶

EOF }else{ open(PSD,"$filepath/yhzl/$username.cgi"); $line=; close(PSD); ($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao)=split(/\t/,$line); $fy1=$rdfy+0; $hf1=$rdhf+0; $tol=$fy1+$hf1; if($tol < 11){$deji="·s¤â¤W¸ô";} elsif ($tol > 10 && $tol < 31){$deji="¤@¯ë¯¸¤Í";} elsif ($tol > 30 && $tol < 101){$deji="¤¤¯Å¯¸¤Í";} elsif ($tol > 100 && $tol < 201){$deji="°ª¯Å¯¸¤Í";} elsif ($tol > 200 && $tol < 501){$deji="¦Ñ ¯¸ ¤Í";} elsif ($tol > 500 && $tol < 1001){$deji="ªø ¦Ñ ¯Å";} elsif ($tol > 1000 && $tol < 2001){$deji="¥»¯¸¤¸¦Ñ";} elsif ($tol > 2000){$deji="¶}°ê¤j¦Ñ";} unless(-f "$filepath/guest/3$username.cgi"){ open(TMP,">$filepath/guest/3$username.cgi"); close(TMP); chmod(0666,"$filepath/guest/3$username.cgi"); } open(NUMBER,"$filepath/guest/2$username.cgi"); $NUMBER=; close(NUMBER); ($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER); print <

­¸ØpØp²{¦³ $people ¦ìªB¤Í

ªð¦^­¸ØpØp­º­¶
EOF } } ######################### END OF SCRIPT #########################