[linux] Mail .forward /Perl

[Koniec Sveta]

Cafte

  Chcel som urobit nieco podobne ale zial skoncil som na tom ze
ked dam do .forwardu | a meno suboru tak mi ho nespusti :(( neviete preco 
..?

toto mi napise

user na pokus.sk  doesn`t have valid shell for mailing to programs

  Dikes Krtko


>From: Peter Mikula <mico na pobox.sk>
>Reply-To: linux na rak.isternet.sk
>To: linux na rak.isternet.sk
>Subject: Re: [linux] Mail .forward /Perl
>Date: Wed, 22 Sep 1999 14:58:32 +0200 (CEST)
>
> >
> > Ahojte!
> > Potreboval by som spravit nieco taketo:
> > Ak pride mail na adresu konto na 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 na 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)
>

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com