#!/usr/bin/perl -w # # $Id: quick-report-page.pl,v 1.2 1997/06/23 09:06:38 webadm Exp $ # # # DESCRIPTION: quick-report-page.pl - German frontend for gnats based on # error-report-page.pl. Designed for getting data from treecounter.pl # # URL: none yet # # AUTHOR: Stefan Lanz (Lanz@rz.uni-frankfurt.de) # Peter Sternecker (pps@rz.uni-frankfurt.de) # Claus Langhans (Langhans@rz.uni-frankfurt.de) # Cord Beermann (cord@Wunder-Nett.org) # # Thanks to: Ralf Begemann (begemann@cc.fh-lippe.de) # Dirk 'PollDi' Uhlmann (polldi@cc.fh-lippe.de) # Gerold Meerkoetter (gerold@noc.fh-lippe.de) # # 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., 675 Mass Ave, Cambridge, MA 02139, USA. # # # A Perl script is "correct" if it gets the job done before your boss fires # you. # ('Programming Perl Second Edition' by Larry Wall, Tom Christiansen # & Randal. L. Schwartz) # # Bugs and shortcomings # none yet # ### Configuration ### # # who is responsible for this? $webmaster="gnats\@thalassa.cc.fh-lippe.de"; # # where is the gnats-homedir? $gnatshome="/var/infosystems/gnats"; # # where are the known categories? $categories=$gnatshome."/gnats-db/gnats-adm/categories"; # ### End of Configuration ### # include perl-modules use CGI::Carp; use CGI qw(:standard); use CGI qw(:shortcuts); # initialize the CGI-Module and load the form-input $query = new CGI; $query->autoEscape(undef); # print HTTP and HTML-Header and so on. print $query->header; print < Lösungsdatenbank - Fehler-Report

Die Lösungsdatenbank - Fehler-Report

Dieses Formular dient zur schnellen Weiterleitung von Fehlern oder Unklarheiten in der Lösungsdatenbank.

  1. Login-Name: Dies ist der Name, mit dem Sie sich am System anmelden. Wir verwenden diese Angabe um eventuelle Nachfragen direkt an Sie richten zu können. EOT1 # put a default in the field if given print(pre(strong('Login'), ' ', $query->textfield(-name=>'MUST_Login', -size=>'8', -default=>$query->param('MUST_Login') ), ) ); print <
  2. Nach- und Vorname Nur ausfüllen, wenn der oben angegebene Login-Name nicht auf den UNIX-Rechnern der DVZ gültig ist. EOT1 # put a default in the field if given print(pre(strong('Name'), ' ', $query->textfield(-name=>'OPTION_Name', -size=>'46', -default=>$query->param('OPTION_Name') ), ) ); print <
  3. Mailadresse: Dies ist Ihre Mailadresse. Nur ausfüllen, wenn der oben angegebene Login-Name nicht auf den UNIX-Rechnern der DVZ gültig ist.

    EOT1 # put a default in the field if given print(pre(strong('Mailadresse'), $query->textfield(-name=>'OPTION_Mailadresse', -size=>'46', -default=>$query->param('OPTION_Mailadresse') ), ) ); print <

  4. Telefonnummer: Telefonnummer(n) unter der man Sie tagsüber erreichen kann. EOT1 # put a default in the field if given print(pre(strong('Telefon'), ' ', $query->textfield(-name=>'OPTION_Telefon', -size=>'46', -default=>$query->param('OPTION_Telefon') ), ) ); print <
  5. Beschreibung: Beschreiben Sie möglichst genau, wo der Fehler in dem Dokument ist, und worin der Fehler besteht. EOT1 # put a default in the field if given print(pre(strong('Beschreibung'). ':'), $query->textarea(-name=>'MUST_Fehlerbeschreibung', -rows=>10, -columns=>50, -default=>$query->param('MUST_Fehlerbeschreibung') ), ); print < EOT1 # add hidden fields with defaults and data we've got from our preceder print($query->hidden(-name=>'MUST_pri', -default=>'high' ), $query->hidden(-name=>'MUST_reproduzierbar', -default=>'Nein' ), $query->hidden(-name=>'MUST_Fehlerkategorie', -default=>'ldb' ), $query->hidden(-name=>'MUST_Host', -default=>'thalassa' ), $query->hidden(-name=>'OPTION_betreff', -default=>$query->param('OPTION_betreff') ) ); print < EOT1 # print the HTML-Trailer &html_trailer; 1; #Subroutinen fuer Fehlermeldung 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; }; 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 fuer die Zusammensetzung einer HTML- Nachricht sub html_header { local($title) = @_; print "Content-type: text/html\n\n"; print qq|$title\n\n|; } sub html_trailer { print "
    \n"; print 'Autoren: '; print 'Stefan Lanz, '; print 'Peter Sternecker, '; print 'Claus Langhans'; print '
    Anpassung an lokale Gegebenheiten: '; print 'Cord Beermann'; print "\n"; }