● [转载] Mailpost.pl - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: fuse.bbs@210.32.151.66 (保险丝), 信区: InstallBBS
标  题: [转载] Mailpost.pl
发信站: 笑书亭? (Wed Jul  8 04:22:42 1998)
转信站: ShenZhen-University!clinux.ml.org!news.zj!E1
出  处: 210.32.151.169

【以下文字转载自 sysop 讨论区】
【原文由 SYSOP 所发表】

主要修改在parse_header和mail_article
修改mail_article中的path更改post的版。
----------------------------------------------

#!/usr/bin/perl
#
# mailpost

($bbshome) = @ARGV;
if( ! $bbshome )  {
    print "Usage: mailpost bbs_home < article_from_user_mail\n";
    exit( 0 );
}

$tmpfile     = "/tmp/mailpost.$$";
$logfile     = "$bbshome/bbslog";
# $mailbox     = "$bbshome/mailbox";
$inndhome    = "$bbshome/innd";
$poster      = "$inndhome/bbspost";
$parsedate   = "$inndhome/parsedate";
$denyfile    = "$inndhome/email.deny";
$INC[ @INC ] = "$inndhome";

&mail_article();

sub logit
{
    if( $logfile ) {
        open( FN, ">> $logfile" );
        print FN @_;
        close( FN );
    } else {
        print @_;
    }
}

sub log_tmpfile
{
    open( FN, $tmpfile );
    $result = <FN>;
    close( FN );
    unlink( $tmpfile );
    &logit( $result );
}

sub junk_mail
{
    local       ($msg) = @_;

    &logit( "unknown mail $msg\n" );
    if( ! $name ) {
        $name = "Mail-Daemon";
    }
    if( ! $subject ) {
        $subject = "<Unknown>: $msg";
    }
    open( FN, "| $poster post $bbshome/boards/junk > $tmpfile" );
    print FN "$name\n";
    print FN "$subject\n";
    print FN @MAIL;
    close( FN );
    &log_tmpfile();
    exit( 0 );
}
sub uudecode
{
    local       ($begin) = @_;

    $line = $MAIL[ $begin + 1 ];
    if( substr( $line, 0, 1 ) ne "M" ) {
        return;
    }
    $tmpfile = "/tmp/decode.$$";
    open( FN, "| /bin/uudecode" );
    print FN "begin 644 $tmpfile\n";
    foreach $n ($begin + 1 .. $#MAIL) {
        print FN $MAIL[ $n ];
    }
    close( FN );
    $#MAIL = $begin - 1;
    open( FN, $tmpfile );
    while( <FN> ) {
        $MAIL[ @MAIL ] = $_;
    }
    close( FN );
    unlink( $tmpfile );
}

sub decode_mail
{
    foreach $n (0 .. $#MAIL) {
        $line = $MAIL[ $n ];
        if( substr( $line, 0, 6 ) eq "begin " ) {
            if( $line =~ /^begin \d+ \w/ ) {
                &uudecode( $n );
                return;
            }
        }
    }
}

sub parse_header
{
    $header = 1;
    $line = 0;
    while( !( $subject ) ) {
        if( $line > $#MAIL ) {
            &junk_mail( "from $realfrom" );
        }
        $_ = $MAIL[ $line++ ];
        chop;
        if( $_ eq "" ) {
            $header = "";
        }
        if( $header ) {
            if( index( $_, "From: " ) == 0 ) {
                $from = substr( $_, 6, 99 );
                ($name) = split( "\@", $from );
            } elsif( index( $_, "Subject: " ) == 0 ) {
                $subject = substr( $_, 9, 99 );
            }
        }

        }
    }
    $name = $from;
    $line = 0;
#    if( $header ) {
        while( $line <= $#MAIL && $MAIL[ $line ] ne "\n" ) {
            $line++;
        }
        $MAILBODY = $line
#    }
}

sub mail_article
{
    chdir( $bbshome );
    @MAIL = <STDIN>;
    if( $mailbox ) {
        open( FN, ">> $mailbox" );
        print FN @MAIL;
        close( FN );
    }
    if( $MAIL[ 0 ] =~ /^From (\S+) / ) {
        $realfrom = $1;
    } else {
        &junk_mail( "format (without From)" );
    }
    if( -f $denyfile ) {
        open( FN, $denyfile );
        while( <FN> ) {
            ($deny) = split( /\s+/, $_ );
            if( $realfrom eq $deny ) {
                &junk_mail( "Denyaddr $realfrom" );
            }
        }
        close( FN );
    }
    &decode_mail();
    &parse_header();
    $boardpath = "$bbshome/boards/test";
    if( ! -d $boardpath ) {
        &junk_mail( "board `$board' from $realfrom." );
    } else {
#        $title =~ s/^[/^[/g;

    $title = $subject;
#        open( FN, "| $poster post $boardpath > $tmpfile" );
    open( FN, "| $poster mail $bbshome/boards/FreeBSD_Question > $tmpfile" );
        print FN "$realfrom\n";
        print FN "$title\n";
for ($n= $MAILBODY; $n <= $#MAIL; $n++) {
        print FN $MAIL[$n];
}

        close( FN );
        &log_tmpfile();
    }
}

--
※ 来源:．笑书亭 bbs.zju.ml.org．[FROM: 210.32.151.168]
--
※ 转载:．笑书亭 bbs.zju.ml.org．[FROM: 210.32.151.168]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店