#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#           
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#            
#############################################################
sub sendtoposter{#Addon By Next-Hack
    ($senduser,$sendto, $moveto,$action,$forum,$topic)=@_;
    my $memberfilename = $sendto;
    $memberfilename =~ s/ /\_/g;
    $memberfilename =~ tr/A-Z/a-z/;
    my $currenttime = time;
    my $filetoopen = "${lbdir}$msgdir/in/$memberfilename" . "_msg.cgi";
    $filetoopen = &stripMETA($filetoopen);
    &winlock($filetoopen) if ($OS_USED eq "Nt");
    open (FILE, "$filetoopen");
    flock (FILE, 1) if ($OS_USED eq "Unix");
    my @inboxmessages = <FILE>;
    close (FILE);
    open (FILE, ">$filetoopen");
    flock (FILE, 2) if ($OS_USED eq "Unix");
    if ($action eq "move") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系统讯息\t你的帖子「$topictitle」已被管理员 $senduser 移至 $moveto <br>若有任何问题可以发短讯给管理员$senduser查询<br><br>---------------------------------<br>雷傲超级论坛 http://www.leoboard.com\n";
    }
    elsif ($action eq "delete") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系统讯息\t你的帖子「$topictitle」已被管理员 $senduser 删除<br>若有任何问题可以发短讯给管理员$senduser查询<br><br>---------------------------------<br>雷傲超级论坛 http://www.leoboard.com\n";
    }
    elsif ($action eq "lock") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系统讯息\t你的帖子「$topictitle」已被管理员 $senduser 锁定<br>若有任何问题可以发短讯给管理员$senduser查询<br><br>---------------------------------<br>雷傲超级论坛 http://www.leoboard.com\n";
    }
    foreach (@inboxmessages) {
        chomp $_;
        next if ($_ eq "");
        print FILE "$_\n";
    }
    close (FILE);
    &winunlock($filetoopen) if ($OS_USED eq "Nt");
}
1;
