Hallo, On Sat, 13 Jul 2002, Stephan Pienitz wrote:
ich möchte mir ein Perl-Script schreiben, welches Mails weiterverarbeitet.
Dazu habe ich in aliases folgenden Eintrag gemacht:
mail2script: "|/home/test/mail2script.cgi"
Das Script wird auch ausgeführt, allerdings kann ich dass, was übergeben wird nicht auslesen.
Weiss jemand, wie ich in Perl das übergebene auslesen kann?
Es geht nicht mit $ENV{'QUERY_STRING'}, param() und @ARGV.
Die Mail kommt via stdin rein (und hat mit CGI genau gar nix zu tun ;) Kleines Beispiel aus nem script (stark gekuerzt), dass ich via procmail mit bestimmten Mails fuettere, die Mails auseinander- pfriemelt (sind mehrteilige) und dann einen Teil davon in ne DB stopft... ==== #!/usr/bin/perl -w use MIME::Parser; use MIME::Body; my $entity; my $parser = new MIME::Parser; sub parse_mail { my @lines; my $file; my $csv_part = $entity->parts(1); ### den gesuchten Teil verarbeiten ... } ### ... mehr subs ... ### main if ($#ARGV < 0) { $entity = $parser->read(\*STDIN) or die "couldn't parse MIME stream"; &parse_mail; } else { /* ... (lese aus Dateien) ... */ } ==== -dnh -- 172: Internet Das längste Kabel der Welt. (Lutz Frommberger)