msg_query.cgi

来自「学生信息系统,这个程序设置非常简单」· CGI 代码 · 共 11 行

$reload=45;
sub msg_query {
	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") {print "<script language=javascript>top.location.href='$indexurl?job=msg_inbox$userinfo';top.focus();alert('您有一条新的短信息！');</script>";last;}
	}
	close(FILE);
}
1;