Thank you very much , I will try this. Best Regards, Ton
-----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Wietse Venema Sent: Wednesday, March 26, 2014 8:41 PM To: Postfix users Subject: Re: Need Help about Postfix Policy with perl Wietse Venema: > Wietse: > > Open a shell as root, then execute these commands: > > # su nobody > > $ /usr/bin/perl /usr/libexec/postfix/greylist.pl > > Pratchaya Rudjanisoragun: > > #su nobody > > This account is currently not available. > > Save the script below as "su.pl" then execute: > > perl su.pl /usr/bin/perl /usr/libexec/postfix/greylist.pl That is. execute from a root shell prompt: # perl su.pl /usr/bin/perl /usr/libexec/postfix/greylist.pl > Wietse > > Begin script > #!/usr/bin/perl > > die "nobody: not found\n" unless ($n, $p, $uid, $gid, $q, $c, $g, $d, > $s) = getpwnam("nobody"); > die "cannot set effective gid to $gid: $!\n" unless ($) = "$gid > $gid"); die "cannot set real gid to $gid: $!\n" unless ($( = "$gid > $gid"); die "cannot set uid to $uid: $!\n" unless ($> = $< = $uid); > exec(@ARGV) || die "exec $ARGV[0]: $!\n"; End script >
