";
print "\n";
foreach $must (keys %Must) {
print "- $must: $VARS{'MUST_'.$must}\n";
}
#print "optionale Felder:
\n
";
foreach $option (keys %Option) {
print "- $option: $VARS{'OPTION_'.$option}
\n";
}
print "
\n";
chop($hostname=`hostname`);
$hostname=~s/.cc.fh-lippe.de//;
$hostname.=".cc.fh-lippe.de";
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
$day=(Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday];
if ($VARS{'OPTION_betreff'} eq '') {
$subject=sprintf("Fehler vom %02d %s %02d %02d:%02d:%02d\n",
$mday,$month,$year,$hour,$min,$sec);
} else {
$subject=$VARS{'OPTION_betreff'};
}
# print data in gnats fromat to sendmail
open (GNATS,"| /usr/lib/sendmail -oi -t 2> /dev/null > /dev/null")||
die "can`t open sendmail!";
print GNATS "From: $mailadr\n";
print GNATS "Reply-To: $mailadr\n";
print GNATS "Sender: $mailadr\n";
print GNATS "To: bugs\@thalassa.cc.fh-lippe.de\n";
printf GNATS ("Date: %s, %02d %s %02d %02d:%02d:%02d\n",
$day,$mday,$month,$year,$hour,$min,$sec);
print GNATS "Subject: $subject\n";
print GNATS "\n";
print GNATS ">Synopsis: $subject\n";
print GNATS ">Confidential: no\n";
print GNATS ">Originator: $mailadr\n";
print GNATS ">Organization: unknown\n";
print GNATS ">Release: unknown\n";
print GNATS ">Category: $VARS{'MUST_Fehlerkategorie'}\n";
print GNATS ">Environment: $VARS{'MUST_Host'}\n";
print GNATS ">Description: \n$VARS{'MUST_Fehlerbeschreibung'}\n";
print GNATS ">Severity: serious\n";
print GNATS ">Priority: $VARS{'MUST_pri'}\n";
print GNATS ">How-To-Repeat: \n$VARS{'OPTION_wie_reproduzierbar'}\n";
print GNATS ">Submitter-Id: www-form\n";
print GNATS ">Unformatted: \n";
print GNATS "X-Reply-To: $mailadr\n";
print GNATS "X-Telefon: $VARS{'OPTION_Telefon'}\n";
print GNATS "X-Name: $VARS{'OPTION_Name'}\n";
print GNATS "X-Time: $VARS{'OPTION_Wann'}\n";
print GNATS "X-REMOTE_HOST: $ENV{'REMOTE_HOST'}\n";
print GNATS "X-REMOTE_ADDR: $ENV{'REMOTE_ADDR'}\n";
print GNATS "X-HTTP_USER_AGENT: $ENV{'HTTP_USER_AGENT'}\n";
print GNATS "\n";
close (GNATS);
# guess PR-No.
$prnr=`cat $current`+2;
@files=<$queuedir/gnats*>;
$prnr+= $#files;
# print a nice message for the user
print "Bitte schauen Sie demnächst in Ihre Mail. Das Subject heißt:\n";
print "
$VARS{'MUST_Fehlerkategorie'}/$prnr: $subject\n";
print "
Wir werden uns mit Ihnen in Verbindung setzen.\n";
print "
Wenn Sie nicht innerhalb einiger Minuten eine
Eingangsbestätigung mit obigem Subject bekommen, dann ist mit Ihrer
Fehlermeldung selber etwas schief gegangen. Bitte wiederholen Sie diese
oder wenden Sie sich bitte direkt an die Benutzerberatung.\n";
print "
Falls Sie zu dem gemeldeten Fehler noch weitere Fragen oder
Informationen haben, machen Sie bitte ein reply auf die erste Mail die wir
Ihnen schicken. Benutzen Sie bitte nicht das Formular
für diesen Zweck. Es ist nur für neue Fehler gedacht.\n";
# print HTML-Trailer
&html_trailer;
#####################################################################
# comment out for debugging
goto SKIPMAIL;
# append data to $errorfile
open (ERRORFILE, ">> $errorfile") || &fatalerror("Couldn`t open file $errorfile:$!");
foreach $must (keys %Must) {
print ERRORFILE "$must=$VARS{'MUST_'.$must}\n";
}
foreach $option (keys %Option) {
print ERRORFILE "$option=$VARS{'OPTION_'.$option}\n";
}
# write all ErrorClasses
foreach $class (keys %Classes) {
print ERRORFILE "Class=$class\n";
}
print ERRORFILE "RemoteHost=$ENV{'REMOTE_HOST'}\n";
if ($ENV{'REMOTE_USER'} ne '' ) {
print ERRORFILE "RemoteUser=$ENV{'REMOTE_USER'}\n";
}
print ERRORFILE "\n";
close(ERRORFILE);
####################
open (ERRORFILE, "| Mail -s error-report gnats\@thalassa.cc.fh-lippe.de") ||
&fatalerror("Couldn`t open file!");
print ERRORFILE "\n\nzwingend:\n\n";
foreach $must (keys %Must) {
$must =~ tr/+/ /;
$must =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$must =~ s/~!/dont do that ~!/g; # no subshells
print ERRORFILE "$must=$VARS{'MUST_'.$must}\n";
}
print ERRORFILE "\n\noptional:\n\n";
foreach $option (keys %Option) {
$option =~ tr/+/ /;
$option =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$option =~ s/~!/dont do that ~!/g; # no subshells
print ERRORFILE "$option=$VARS{'OPTION_'.$option}\n";
}
# write all ErrorClasses
print ERRORFILE "\n\nKategorie:\n\n";
foreach $class (keys %Classes) {
print ERRORFILE "Class=$class\n";
}
print ERRORFILE "\nRemoteHost=$ENV{'REMOTE_HOST'}\n";
if ($ENV{'REMOTE_USER'} ne '' ) {
print ERRORFILE "RemoteUser=$ENV{'REMOTE_USER'}\n";
}
print ERRORFILE "\n";
close(ERRORFILE);
SKIPMAIL:
1;
# Subroutinen for errors
sub fatalerror{
local ($errortext) = @_;
&html_header("Error executing script $0 (pid $$)");
print "
ERROR
";
print "You got an error while executing the script $0 (pid $$) !
\n";
print "Please notify $webmaster
\n";
print "Description : $errortext
";
&html_trailer;
exit;
};
# output for a user error
sub friendlyerror{
local ($errortext) = @_;
&html_header("Benutzerfehler");
print "Fehler
";
# print "User error detected executing $0 (pid $$)!
\n";
print "
\n";
print "Sie haben folgendes falsch gemacht : $errortext
";
&html_trailer;
exit;
};
# Subroutine for putting together a HTML-msg
sub html_header {
local($title) = @_;
print qq|$title\n\n|;
}
sub html_trailer {
print "
\n";
print 'Autoren: Jens Kurlanda, Theresa Konstantinov, ';
print 'Claus Langhans';
print '
überarbeitet von Cord Beermann';
print "\n";
}
# convert Umlauts to ISO and IBM-PC chars to 7-Bit ASCII
sub all2ascii {
local($string)=@_;
$string=~ s/\204/ae/g;
$string=~ s/\201/ue/g;
$string=~ s/\224/oe/g;
$string=~ s/\216/Ae/g;
$string=~ s/\231/Oe/g;
$string=~ s/\232/Ue/g;
$string=~ s/\341/ss/g;
$string=~ s/\304/Ae/g;
$string=~ s/\326/Oe/g;
$string=~ s/\334/Ue/g;
$string=~ s/\344/ae/g;
$string=~ s/\366/oe/g;
$string=~ s/\374/ue/g;
$string=~ s/\337/ss/g;
return $string;
}