msg_delete.cgi

来自「非常优秀的一套办公系统」· CGI 代码 · 共 10 行

$pagetitle="删除短消息";
&error("没有选择要删除的短消息！") if (!$fields{'msg'});
sub msg_delete {
@deldata =split(/§/,$fields{'msg'});
	foreach (@deldata) {
		do "$cgihead/writeumsg.cgi";&dmsg("$_");
	}
&redirect("$indexurl?job=msg_inbox$userinfo","删除指定消息成功！");
}