sslug-teknik team mailing list archive

[Jesper Krogh <jesper@xxxxxxxx>]

I sslug.teknik, skrev Jesper Krogh:
>  Men.. jeg ville jo gerne hvis jeg kunne syntaxcheckke filen, så jeg rent
>  faktisk blev klar over det i hvis jeg havde givet en forkert
>  procmailrc-fil til systemet. 

Jeg kom lidt videre med opgaven.. 

#!/usr/bin/perl
#

use strict;
use warnings;
use File::Temp qw/tempfile/;
use Getopt::Std;

our($opt_d);
getopts('d:');
my ($tmpfile,$name) = tempfile(CLEANUP => 1,DIR=>"/var/run/vmail/");
print $tmpfile <<END

DEFAULT=/tmp/maildir/
MAILDIR=/tmp/maildir/
LOGFILE=/tmp/logfile

:0
date/

END
;

open FILE, "| /usr/bin/procmail -t $name";
while(<STDIN>){
        print FILE $_;
}
close FILE;

exit 75 if $?;

Det virker så længe jeg sørger for at lave de temporære filer i
brugerens(vmail) $HOME eller fejler procmail med en sikkerhedsfejl. 

Jesper
-- 
./Jesper Krogh, jesper@xxxxxxxx, Jabber ID: jesper@xxxxxxxxxxxx