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;
}
}
# --
