Onderwerp: /tmp entries in spam_log?

/usr/sbin/sendmail:

Code:

#!/usr/bin/perl

# use strict;
 use Env;
 my $date = `date`;
 chomp $date;
 open (INFO, ">>/var/log/spam_log") || die "Failed to open file ::$!";
 my $uid = $>;
 my @info = getpwuid($uid);
 if($REMOTE_ADDR) {
         print INFO "$date - $REMOTE_ADDR ran $SCRIPT_NAME at $SERVER_NAME n";
 }
 else {

        print INFO "$date - $PWD -  @infon";

 }
 my $mailprog = '/usr/sbin/sendmail.hidden';
 foreach  (@ARGV) {
         $arg="$arg" . " $_";
 }

 open (MAIL,"|$mailprog $arg") || die "cannot open $mailprog: $!n";
 while (<STDIN> ) {
         print MAIL;
 }
 close (INFO);
 close (MAIL);

Zou iemand mij kunnen helpen dit programma om te zetten, zodat spam_log verschillende regels zijn?
Nu plakt hij alles aan elkaar...

Nu de eigenlijk vraag... ik zie dit in mijn spam_log, wat houdt dit in?

Code:

Qua Out 11 07:35:11 CEST 2006 - /tmp -  Qua Out 11 07:35:12 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:14 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -  Qua Out 11 07:35:15 CEST 2006 - /tmp -

Dit is vast niet goed, of wel?

Code:

print INFO "$date - $REMOTE_ADDR ran $SCRIPT_NAME at $SERVER_NAME n";

Moet zijn:

Code:

print INFO "$date - $REMOTE_ADDR ran $SCRIPT_NAME at $SERVER_NAME \n";

Ik heb het vage vermoeden dat je een botje oid aan de haak hebt geslagen dat zich in je tmp heeft genesteld en vanaf daar lekker aan het spammen is...