$pagetitle="發(fā)送短消息";
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","短消息已成功發(fā)送！");
}