文章標題: $rtitles
EOF
$yhzlurl ="$filepath/yhzl/$rusername.cgi";
unless(-f $yhzlurl){
open(TMP,">$yhzlurl");
close(TMP);
chmod(0666,$yhzlurl);
}
open(PSD,"$filepath/yhzl/$rusername.cgi");
$lines=;
close(PSD);
$lines=~ s/\n//g;
($rdpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rdsex,$rdwork,$rcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq)=split(/\t/,$lines);
($kkk)=split(/\)/,$iewin);
($bzd,$ie,$win)=split(/;/,$kkk);
$tol=$rdfy+$rdhf;
if($tol < 11){$deji="";}
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="";}
print <
EOF
if(($rmail ne "")){print " ";}
if(($rhome ne "")&&($rhome ne "http://")){print " ";}
if ($rusername eq $username){print " ";}
if ($oicq ne ""){print " ";}
$online="";
open (PEO,"$filepath/data/people.cgi");
@linesz=;
close (PEO);
foreach $linesz (@linesz) {
($rip,$r1,$r2,$r3,$r4,$rtimez,$rnamez)=split(/,/,$linesz);
if ($rnamez eq $rusername){$online="";}}
print <
EOF
open(PSD,"$filepath/list/$id/$slttitle");
$line=;
close(PSD);
open(PSD,">$filepath/list/$id/$slttitle");
($rtitles,$rthistime,$rusername,$nr,$rfrom88,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee,$jing,$lock)=split(/\t/,$line);
$rhassee++;
print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee."\t".$jing."\t".$lock;
close(PSD);
print< |