#############################################################
#  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;
