#!/usr/bin/perl -w # -- # webform.pl - a simple web form script to generate email with # X-OTRS-Queue header for an OTRS system (x-headers for dispatching!). # Copyright (C) 2002 Martin Edenhofer # -- # $Id: webform.pl,v 1.3 2003/02/08 15:11:52 martin Exp $ # -- # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -- 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-system@example.com'; # topics and dest. queues my %Topics = ( # topic => OTRS queue 'Info' => 'info', 'Support' => 'support', 'Bugs' => 'bugs', 'Sales' => 'sales', 'Billing' => 'billing', 'Webmaster' => 'webmaster', ); # -- # html header # -- sub Header { my %Param = @_; (my $Output = < $Param{"Title"}

$Param{"Title"}

EOF return $Output; } # -- # html footer # -- sub Footer { (my $Output = < EOF return $Output; } # -- # Thanks # -- sub Thanks { my %Param = @_; (my $Output = <$Param{From}! Your request is forwarded to us.
We will answer ASAP.
EOF return $Output; } # -- # error # -- sub Error { my %Param = @_; (my $Output = <$Param{Message}
EOF return $Output; } # -- # start the real actions # -- my $CGI = new CGI; my %GetParam = (); foreach (qw(Action From FromEmail Subject Topic Body)) { $GetParam{$_} = $CGI->param($_) || ''; } # what should I do? if ($GetParam{Action} eq 'SendMail') { SendMail(%GetParam); } else { WebForm(); } # -- # web form # -- sub WebForm { print Header(Title => 'Submit Request'); print ' '; print Footer(); } # -- # send email # -- sub SendMail { my %Param = @_; my $Output = ''; # -- # check needed params # -- foreach (qw(From FromEmail Subject Topic Body)) { 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{Subject}\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{Body}; push @Mail, "\n"; # -- # send mail # -- $Param{From} =~ s/"|;|'|<|>|\|| //ig; if (open(MAIL, "|$Sendmail $Param{From} ")) { print MAIL @Mail; close(MAIL); # -- # thanks! # -- $Output = Header(Title => 'Thanks!'); $Output .= Thanks(%Param); $Output .= Footer(); print $Output; } else { # error $Output = Header(Title => 'Error!'); $Output .= Error(Message => "Can't send email: $!"); $Output .= Footer(); print $Output; } } # --

Topic:	'; foreach (sort keys %Topics) { print $_.''; } print '
From:
Email:
Subject:
Message: