[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