Re: [Sysadmins] что это может быть?

[Sergey <a_s_y@sama.ru>]

On Thursday 05 October 2006 14:34, Grigory Fateyev wrote:

>  Как вычислить что за скрипт спамит? И как лучше это
> предотвратить?

подменить sendmail на что-то вроде

#!/usr/bin/perl

use Env;
my $date = `export LANG=C && date`;

chomp $date;
my $uid = $>;
my @info = getpwuid($uid);

system "logger -i -t spamcontrol '$date\: Directory\: $PWD\, info\: @info\, args\: @ARGV'";

my $mailprog = '/usr/sbin/sendmail.bla-bla-bla';

foreach (@ARGV) {
    $arg="$arg" . " $_";
}


open (MAIL,"|$mailprog $arg") || die "cannot open $mailprog: $!n";

print MAIL "X-Abuse-MTA-Caller-Dir: running from $PWD\n";
print MAIL "X-Abuse-To:";

while (<STDIN>) {
        print MAIL;
}

close (MAIL);
 
и на www.dedic.ru посмотреть примерно то же самое для php. Только оно что-то не
открывается. Вот ещё: http://www.lancs.ac.uk/~steveb/patches/php-mail-header-patch/

-- 
С уважением, Сергей
a_s_y@sama.ru