Hallo! Ich möchte gerne verschiedene, angepasste Formulare zum Absetzen von Meldungen konfigurieren. Ich habe dazu die webform.pl entsprechend kopiert und angepasst. Das Ausfüllen der Formule funktioniert wunderbar, es wird auch die Bestätigung nach "Absenden" angezeigt, nur kommt im OTRS keine eMail an :-( Ich habe die procmailrc lt. Handbuch getestet, das funktioniert. Auch das original webform.pl funktioniert nicht. Die eMail-Adressen habe ich im .pl-File auch angepasst. Ich habe schon vermutet, dass es daran liegen könnte, dass in der config eine Weiterleitung an meinen eMail- Server eingetragen ist... Any ideas? Gruss Guenther Hier meine .pl use strict; # to get the errors on screen use CGI::Carp qw(fatalsToBrowser); # Simple Common Gateway Interface Class use CGI; my $VERSION = '$Revision: 1.3 $'; $VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/; # -- # web form options # -- my $Ident = 'ahfiw2Fw32r230dddl2foeo3r'; # sendmail location and options my $Sendmail = '/usr/sbin/sendmail -t -i -f '; # email where the emails of the form will send to my $OTRSEmail = 'otrs@localhost'; # topics and dest. queues my %Topics = ( # topic => OTRS queue 'Haustechnik' => 'Haustechnik', ); # -- # html header # -- sub Header { my %Param = @_; (my $Output = <param($_) || ''; } # what should I do? if ($GetParam{Action} eq 'SendMail') { SendMail(%GetParam); } else { WebForm(); } # -- # web form # -- sub WebForm { print Header(Title => 'Reparaturanforderung'); print ' <form action="hbtform.pl" method="post"> <input type="hidden" name="Action" value="SendMail"> <table> <tr> <td>An:</td> <td> '; foreach (sort keys %Topics) { print $_.'<input type="radio" name="Topic" value="'.$Topics{$_}.'">'; } print ' </td> </tr> <tr> <td>Von:</td> <td><input type="text" name="From" size="25" value=""></td> </tr> <tr> <td>Email:</td> <td><input type="text" name="FromEmail" size="25" value=""></td> </tr> <tr> <td>Telefon:</td> <td><input type="text" name="Tel" size="5" value=""></td> <td>Raum-Nr.:</td> <td><input type="text" name="Raum" size="8" value=""></td> </tr> <tr> <td>Wo?</td> <td><input type="text" name="Wo" size="25" value=""></td> </tr> <tr> <td>Was?</td> <td><input type="text" name="Was" size="25" value=""></td> </tr> <tr> <td></td> <td><input type="submit" value="Absenden"></td> </tr> </table> </form> '; print Footer(); } # -- # send email # -- sub SendMail { my %Param = @_; my $Output = ''; # -- # check needed params # -- foreach (qw(From FromEmail Topic Tel Raum Wo Was)) { if (!$Param{$_}) { $Output .= Error(Message => "Param $_ is needed!"); } } if ($Output) { $Output = Header(Title => 'Error!') . $Output; $Output .= Footer(); print $Output; return; } # -- # simple email check # --- if ($Param{FromEmail} !~ /.+?\@.+?\..+?/) { $Output = Header(Title => 'Error!'); $Output .= Error(Message => "Your email '$Param{FromEmail}' is invalid!"); $Output .= Footer(); print $Output; return; } # -- # build email # -- my @Mail = ("From: $Param{From} <$Param{FromEmail}>\n"); push @Mail, "To: $Param{Topic} <$OTRSEmail>\n"; push @Mail, "Subject: $Param{Was}\n"; push @Mail, "X-OTRS-Ident: $Ident\n"; push @Mail, "X-OTRS-Queue: $Param{Topic}\n"; push @Mail, "X-OTRS-ArticleKey1: Sent via\n"; push @Mail, "X-OTRS-ArticleValue1: Webform\n"; push @Mail, "X-OTRS-ArticleKey2: Orig. sort\n"; push @Mail, "X-OTRS-ArticleValue2: $Param{Topic}\n"; push @Mail, "X-Mailer: OTRS WebForm ($VERSION)\n"; push @Mail, "X-Powered-By: OTRS (http://otrs.org/)\n"; push @Mail, "\n"; push @Mail, $Param{Was}; push @Mail, "\n"; # -- # send mail # -- $Param{From} =~ s/"|;|'|<|>|\|| //ig; if (open(MAIL, "|$Sendmail $Param{From} ")) { print MAIL @Mail; close(MAIL); # -- # thanks! # -- $Output = Header(Title => 'Danke für Ihre Anfrage!'); $Output .= Thanks(%Param); $Output .= Footer(); print $Output; } else { # error $Output = Header(Title => 'Fehler!'); $Output .= Error(Message => "Can't send email: $!"); $Output .= Footer(); print $Output; } } # --