> 
> Ahojte!
> Potreboval by som spravit nieco taketo:
> Ak pride mail na adresu konto@pocitac
> tak sa pusti perl script a zaloguje riadok Subject: a napr. Odosielatela
> 
> mailu do /var/log/konto.log
> 
> Skusil som nieco taketo:
> vytvoril som uzivatela konto ma $home /home/konto
> vytvoril som mu tam subor .forward ktory obsahuje toto:
> konto <-aby ten mail dosiel na adresu konto@pocitac
> |/www/cgi-bin/zaloguj.pl
> 
> subor /www/cgi-bin/zaloguj.pl obsahuje toto:
> #!/usr/bin/perl
> open (FH,"</var/log/konto.log");

      -- otvaras na citanie :(( a okrem toho pravdepodobne i tak nemas prava
	 na zapis do /var/log

> print FH "Haluz";
> close FH;
> 
> 2.) Ako vycucnem Subject + Odosielatela z mailu


# nacitaj si hlavicku (oddelovac prazdny riadok)
#
while( chomp( $line = <STDIN>)){
    ($name, $val) = ($line =~ /([^:]+):\s+(.*)/);
    $HEADER{"\L$name"} = $val;
}

# vyber co potrebujes (field names su malymi pismenami :))
#
print $fh "Odosielatel: $HEADER{'from'}\n"


			mico

PS: loguj cez syslog ... (na CPANe nejake syslog modules su)
PS: skus pouzit namiesto .forward .procmailrc (ak mas local delivery clienta procmail)


