#####################################################
#  LEO SuperCool BBS / LeoBBS X / 雷傲極酷超級論壇  #
#####################################################
# 基於山鷹(糊)、花無缺製作的 LB5000 XP 2.30 免費版  #
#   新版程式製作 & 版權所有: 雷傲科技 (C)(R)2004    #
#####################################################
#      主頁地址： http://www.LeoBBS.com/            #
#      論壇地址： http://bbs.LeoBBS.com/            #
#####################################################

sub sendtoposter {
    my ($senduser,$sendto, $moveto,$action,$forum,$topic,$topictitle,$sendly) = @_;
    $sendly = "<BR>理由：<font color=red>$sendly</font><BR>" if ($sendly ne "" && $sendly ne " ");
    $topictitle=~s/＊＃！＆＊//;
    $topictitle = "按此查看" if ($topictitle eq "");
    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");
    sysread(FILE, my $inboxmessages,(stat(FILE))[7]);
    close (FILE);
    $inboxmessages =~ s/\r//isg;

    $topictitle = "<a href=topic.cgi?forum=$forum&topic=$topic target=_blank>$topictitle</a>";
    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.LeoBBS.com\n";
    }
    elsif ($action eq "jinghua") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你的文章「$topictitle」已被管理員 $senduser 挑選為精華文章!!感謝您為本論壇帶來的好文章，謝謝。<br><br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    elsif ($action eq "deletethread") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你的文章「$topictitle」已被管理員 $senduser 刪除。<br>$sendly<br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    elsif ($action eq "deletepost") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你在文章「$topictitle」中的回覆已被管理員 $senduser 刪除。<br>$sendly<br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    elsif ($action eq "lock") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你的文章「$topictitle」已被管理員 $senduser 鎖定。<br>$sendly<br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    elsif ($action eq "postdeleteonce") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你的文章「$topictitle」已被管理員 $senduser 屏蔽。<br>$sendly<br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    elsif ($action eq "unpostdeleteonce") {
        print FILE "＊＃！＆＊$senduser\tno\t$currenttime\t管理系統訊息\t你的文章「$topictitle」已被管理員 $senduser 屏蔽。<br>$sendly<br>若有任何問題可以發短訊給管理員 $senduser 查詢<br><br>---------------------------------<br>極酷超級論壇 http://www.LeoBBS.com\n";
    }
    print FILE "$inboxmessages\n";
    close (FILE);
    &winunlock($filetoopen) if ($OS_USED eq "Nt");
}
1;
