error handling (Perl/CGI) - Perl-Community.de

[thread]441[/thread]

error handling

esskar

2005-02-21 23:42

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Hi.

wie präsentiert ihr denn Fehler im browser? also wie bindet ihr die fehlermeldungen in eure seiten ein?
mein ansatz war bis jetzt ein Modul das grob so aussieht

Code: (dl )

use strict;

BEGIN {
   package Error;

   my @ErrorDefinitions = qw/
      LOGINFAILED
   /;
   for my $i (0 .. $#ErrorDefinitions) {
      eval "use constant $ErrorDefinitions[$i] => '$ErrorDefinitions[$i]';";
   }

   1;
}

package Error;

my %RaisedErrors = ();

sub raise {
  my ($errid, $errmsg) = @_;

  exists $RaisedErrors->{$errid} || $RaisedErrors->{$errid} = [];
  push @{$RaisedErrors->{$errid}}, {MSG => $errmsg} if $errmsg;
}

sub to_html_template {
   my ($tpl) = @_;

   while(my($key, $val) = each %RaisedErrors) {
      $tpl->param("ERROR_$key" => 1);
      $tpl->param("ERROR_$key_msg" => $val;
   }
}

1;

im script kann man dann so schreiben

Code: (dl )

use Error;

my $tpl = ...; # HTML::Template

if($login_failed) {
   Error::raise(Error::LOGINFAILED, "Falsches Passwort");
}

Error::to_html_template($tpl);
print $tpl->output;

und das template sieht so aus

Code: (dl )

<html>
<body>
<TMPL_IF NAME=ERROR_LOGINFAILED>
Login ist fehlgeschlagen<br />
<TMPL_LOOP NAME=ERROR_LOGINFAILED_MSG>
<TMPL_VAR NAME=MSG><br />
</TMPL_LOOP>
</TMPL_IF>
</body>
</html>

ist aber vielleicht etwas umständlich;

dankbar für tipps!\n\n

Gast Gast

2005-02-21 23:57

Das kommt bei mir immer darauf an, was ich vorhab'.

esskar

2005-02-22 00:01

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=phaylon,21.02.2005, 22:57]Das kommt bei mir immer darauf an, was ich vorhab'.[/quote]
sehr großes projekt mit vielen verschiedenen erzeugten seiten und ebenso vielen fehlern!

format_c

2005-02-22 00:26

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ich mach das so:

Code: (dl )

#!/bin/perl
use strict;
use warnings;
use lib qw(../modules);
use CGI::Carp qw/fatalsToBrowser warningsToBrowser set_message/;
use CGI;
use HTML::Template;
use MyCMS;

my $maintemplate = '../tmpl/main.html';

sub handle_error {
    my $msg = shift;
    my $tmpl = HTML::Template->new(filename => $maintemplate);
    $tmpl->param(TITLE => 'Serverfehler');
    $tmpl->param(INHALT => "<h2>Serverfehler</h2>
               
             <p>Bitte Kontaktieren sie webmaster\@creedforever.com mit folgender Fehlermeldung:</p>
                            <tt>$msg</tt>");
    print $tmpl->output();
}
set_message(\&handle_error);

...

Gruß Alex

Effizente Linuxshell

esskar

2005-02-22 00:42

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

dann ist aber fatalsToBrowser warningsToBrowser doppelt gemoppelt oder?

außerdem sind das nur fatale fehler; aber was ist user-fehl-eingaben oder so!\n\n

format_c

2005-02-22 01:14

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ok hab das auch grad nur so hingewurschtelt
bei Userfalscheingaben kehre ich halt frühzeitig aus der Bearbeitungsroutine zurück und übergebe die Statusmeldung dem Template.

Gruß Alex

Effizente Linuxshell

esskar

2005-02-22 01:24

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=format_c,22.02.2005, 00:14]Ok hab das auch grad nur so hingewurschtelt[/quote]
schon klar; wollts nur verstehen; set_message hatte ich zuvor nocht nicht gesehen!

sri

2005-02-22 02:41

User since
2004-01-29
828 Artikel
BenutzerIn

Ich benutze (welch ueberraschung) Catalyst, da gehen Fehler einfach innen stash.

Code: (dl )

$c->stash->{error} = 'Da is was schiefgelaufen';

und dann dierekt ins Template

Code: (dl )

1
2
3

[% IF error %]
    Fehler: [% error %]
[% END %]

Dazu kommt dann noch Data::FormValidator.

http://mojolicio.us/

esskar

2005-02-22 02:47

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=sri,22.02.2005, 01:41]Dazu kommt dann noch Data::FormValidator.[/quote]
tolles ding!
danke!

View all threads created 2005-02-21 23:42.