#!/usr/bin/perl -w # # $Id: error-report-page.pl,v 1.3 1997/06/23 09:08:13 webadm Exp $ # # # DESCRIPTION: error-report-page.pl - German frontend for gnats # # 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) # 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 - neuer Problem-Report

Die Lösungsdatenbank - neuer Problem-Report

Um uns die schnelle Bearbeitung Ihrer Fragen und Probleme zu ermöglichen, bitten wir Sie, diese Seite auszufüllen. Bitte lassen Sie keine scheinbaren Kleinigkeiten weg, darauf kommt es oft an! Bevor Sie aber eine Frage stellen, die schon beantwortet wurde, schauen Sie bitte in die Lösungsdatenbank. Natürlich steht Ihnen auch unsere Benutzerberatung zur Beantwortung Ihrer Fragen zur Verfügung. Aktuelle Probleme werden oft auch in den Aktuellen Hinweisen der DVZ oder der Newsgruppe fhl.announce behandelt. Die Stichwortsuche bringt Sie vielleicht Ihrem Ziel auch näher.

  1. Login-Name: Dies ist der Name, mit dem Sie sich am System anmelden. Sollten Sie über mehrere Login-Namen verfügen, geben Sie bitte jenen an, den Sie verwendeten, als Ihr Problem auftrat. 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. Betreff: Bitte geben Sie ein paar Worte an, auf die wir Bezug nehmen können. Das Betreff erscheint in der Antwort die als e-mail verschickt wird im Subject. EOT1 # put a default in the field if given print(pre(strong('Betreff'), ' ', $query->textfield(-name=>'OPTION_betreff', -size=>'46', -default=>$query->param('OPTION_betreff') ), ) ); print <
  6. Zeitpunkt bzw. Zeitraum des Auftretens: Bitte Datum und Uhrzeit angeben. Tritt Ihr Problem ständig, unregelmässig oder periodisch auf? Können Sie Korrelationen mit der Tageszeit dem Wochentag o.ä. erkennen? EOT1 # put a default in the field if given print(pre(strong('Wann'), ' ', $query->textfield(-name=>'OPTION_Wann', -size=>'46', -default=>$query->param('OPTION_Wann') ), ) ); print <
  7. Host, auf dem das Problem auftrat: Bitte geben Sie hier den kompletten Rechnernamen an. Mit dem uname -n Kommando erhalten Sie bspw. auf UNIX den Rechnernamen. EOT1 # put a default in the field if given print(pre(strong('Host'), ' ', $query->textfield(-name=>'MUST_Host', -size=>'46', -default=>$query->param('MUST_Host') ), ) ); print <
  8. Beschreibung: Beschreiben Sie genau, welche Ihrer Aktionen aus Ihrer Sicht zum Auftreten des Problems führten. Was wollten Sie erreichen?
    • Fehlermeldungen: Bitte geben Sie alle Fehlermeldungen, die Ihnen das Systen anzeigt wörtlich wieder. Falls Sie mit dem X11 Window System arbeiten, können Sie angezeigte Texte meist mit der linken Maustaste markieren und mit der mittleren Maustaste in Ihren Fehlerbericht einfügen.
    • Vorgeschichte: Versuchen Sie zu ergründen, ob Ihr Problem eventuell nur nach einer bestimmten Vorgeschichte auftritt. Gedächtniseffekte des Systems können eine entscheidende Rolle spielen.
    • Bei Druckerproblemen geben Sie bitte zusätzlich den Namen des Druckers an, die Sie benutzten. Sollte der Drucker in Ihrer Nähe stehen, so daß Sie ggf. unmittelbar erkennen können, daß Ihr Problem nur auf fehlendes Papier, fehlenden Toner oder verbrauchtes Farbband zurückzuführen ist, wenden Sie sich bitte direkt an die DVZ. Hinweise in dieser Hinsicht erhalten Sie unter UNIX auch durch den Befehl lpstat -p.
    • Weitere Begleitumstände: Geben Sie bitte alle Begleitumstände an, die Ihnen in irgendeiner Weise bedeutungsvoll erscheinen. EOT1 # put a default in the field if given print(pre(strong('Ausführliche Beschreibung'). ':'), $query->textarea(-name=>'MUST_Fehlerbeschreibung', -rows=>10, -columns=>50, -default=>$query->param('MUST_Fehlerbeschreibung') ), ); print <
    • Reproduzierbarkeit: Ist der Fehler reproduzierbar? Wenn ja, dann geben Sie bitte an, wie man ihn reproduzieren kann. EOT1 # put a default in the field if given print(pre(strong('Ist der Fehler reproduzierbar?'), $query->radio_group(-name=>'MUST_reproduzierbar', -'values'=>['Ja','Nein'], -default=>$query->param('MUST_reproduzierbar') ), ) ); print <Wenn ja, wie? EOT1 # put a default in the field if given print($query->textarea(-name=>'OPTION_wie_reproduzierbar', -rows=>10, -columns=>50, -default=>$query->param('OPTION_wie_reproduzierbar') ), ); print <
    • Kategorie: In welche Kategorie ordnen Sie den Fehler/die Anfrage ein, 
      EOT1

# get categories
open (CAT,"< $categories") || die "open $categories:$!";
$i=0;$flag=1;
while () {
    chop;
    if ($_ =~ /###\s*internal/i) {
	$flag=0;
    } elsif ($_ =~ /###\s*external/i) {
	$flag=1;
    }
    s/#.*$//g; # Kommentare weg
    ($cat,$desc)=(split(/:/))[0,1];
    if ($_ ne "" && $flag == 1) {
	printf("param('MUST_Fehlerkategorie') and $query->param('MUST_Fehlerkategorie') eq $cat;
	printf("> %-25s",$desc);
	# linefeed after second category
	if ($i%2 == 1) {
	    print "
      \n";
	}
	$i++;
    }
}

print < Sonstige

    • Priorität: Welche Priorität messen Sie dem Fehler bei? EOT1 # map hardcoded gnats-priorities to german terms %values = ('low'=>' niedrig', 'medium'=>' mittel', 'high'=>' hoch'); # put a default in the field if given print(pre("", $query->radio_group('MUST_pri', ['low','medium','high'], $query->param('MUST_pri'), 'true', \%values ), ) ); 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|; } # print a html footer sub html_trailer { print "
      \n"; print 'Autoren: '; print 'Stefan Lanz, '; print 'Peter Sternecker, '; print 'Claus Langhans'; print '
      Erweiterung und Anpassung an lokale Gegebenheiten: '; print 'Cord Beermann'; print "\n"; }