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

Sergey =?iso-8859-1?q?a=5Fs=5Fy_=CE=C1_sama=2Eru?=
Чт Окт 5 14:45:21 MSD 2006


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



Подробная информация о списке рассылки Sysadmins