msg_send_to.cgi

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

$pagetitle="发送短消息";
sub msg_send_to {
do "$cgihead/profile.cgi";$gtime=time;

$fields{'touser'}=$MasterID if ($fields{'touser'}=~/管理员/);

&error("错误：输入信息不完整！") if (!$fields{'touser'} || !$fields{'totitle'} || !$fields{'message'});
&error("错误：指定用户ID不存在！") if (!-e "$userhead/$fields{'touser'}.cgi");

do "$cgihead/writeumsg.cgi";
&wmsg($fields{'touser'},$uid,$uname,$udep,$fields{'totitle'},$fields{'message'},"$gettime $gethour","短消息","no","",""); &rmsg($fields{'msgid'},"re") if ($fields{'msgid'});

  &redirect("$indexurl?job=msg_inbox$userinfo","短消息已成功发送！");
}