main.cgi

非常优秀的一套办公系统

$pagetitle="欢迎您：$tuname";
sub main {
&uinfo($uid);
($Fsec,$Fmin,$Fhour,$Fday,$Fmon,$Fyear,$Fweek,$Fyearday,$Fisdst) = localtime($ucontact);
$Fmon++;$Fyear+=1900;
print qq~
您上次来访的时间是：<font color=006000><font face=Verdana>$Fyear</font>年<font face=Verdana>$Fmon</font>月<font face=Verdana>$Fmday</font>日 $weeks{$Fweek} <font face=Verdana>$Fhour:$Fmin:$Fsec</font></font><p>
~;
	$msglist=0;
	open(FILE, "${userhead}info/$uid.cgi");
	foreach (<FILE>) {
($mid,$mgzt,$msid,$msname,$msemail,$msubject,$mcontent,$mstime,$msmode,$mtemp1,$mtemp2,$mtemp3,$end) = split(/\‖/,$_);
	if ($mgzt eq "new") {$msglist++;}
	}
	close(FILE);
	if (!$msglist) {print "您没有新的短信息！";}
	else {print "您有 <font face=Verdana color=ff4400>$msglist</font> 条短信息在<a href='$indexurl?job=msg_inbox$userinfo'>短讯中心</a>！";}
}
1;