$owner ! @o `j s /etc/exim.pl ]o ! p `j G ! p i Hp ! Hp hp F# ) p i p hp ! p p E ! 8p HG! p ) p i 8p p ! p p I ) 8p p i p p ! p p D ) Pp Pp % KE Xp p A p p ~ C p p G main ) xp i Xp p ! (p S $homedir main medir ! xp `j P ! p i p /etc/exim.pl ers -m A `o `o ~ p o p L ]o ! p p j J r" ! p p O# ! 8p 8p N ! p QG! p ) (p i p @p ! @p @p R ) p p i p xp ! Xp xp M ) p p % TE p p A p (p ~ L pp p H /etc/exim.pl main /etc/exim.pl p ! p _ $passwd ! H.p H.p j R ) 4p 4p ` $ E p H.p $'m /etc/exim.pl ^o $'m main $'m d^o ) Pp ` B ]F (p p ! `o u $headers ) pp i C p xp ! `p xp i ) p i Pp p $spamkey main ! p p W /etc/ /passwd ! p j H X ) p p ` B Y `p p ! (p Z ! xp j I \ ) p p ` B [F p p ! p p ^ ) Pp p i p p ! `p p V ) 0p 0p % `E pp p A p p ~ U Pp p I ) p i p Hp ! p e $addressexists ! p j c ! Hp Hp d ) p p i p p ! p p b ) 8p 8p % fE p p A p p ~ a p pp J /etc/exim.pl ) `p i @p p ! p n main amkey ! `p `j k ! p i p ! p p j# ! p p i ! p lG! p ) p i p p ! p p m ) p p i p `p ! @p `p h ) p p % oE p p A p p ~ g p xp K /etc/exim.pl v v v my $homedir = shift; if ($p 6m yhil p ${homedir} . '/.spamassassinquotatest') { Pp if ($waittime == 60) { last; } p $waittime++; sleep(1); p my $pid; if (!($pid = fork())p umask(0002); &setuidp wner); open(QUOTATEST,">${homedi@p spamassassinquotatest"); print Qpp TEST " " x 4096; close(QUOTATESTp exit(); } waitpidp d,0); if (!((stat("${homedir}/.spama p sinquotatest"))[7] == 4096)) { u0p k("${homedir}/.spamassassinquotatest"); `p return 0; } unlink("${hop r}/.spamassassinquotatest"); } returp } 1; $loop_count++; p } my $mtime = ( p ($lockfile) )[9]; if ( !Pp me || $mtime == $omtime ) { p unlink $lockfile; p aittime = 0; } p } } if ( $waitti p & $omtime ) { # $waittime%" alt=""/>