[Dancer] Fehlermeldung beim Aufrufen einer Routine (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]18204[/thread]

[Dancer] Fehlermeldung beim Aufrufen einer Routine

Tags: perl5 Dancer Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+11 replies
Gast modi

2013-03-13 14:56
Hallo Forumsmitglieder,

ich bin absoluter Newcomer in Sachen Perl-Programmierung und soll in einem bestehenden "Werk" einen Fehler identifizieren und korrigieren. Ich hoffe, ihr könnt mir helfen. Es wird das Framework "dancer" verwendet. Wenn ich im der Weboberfläche den button betätige, bekomme ich folgenden Fehlermeldung:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

<html> <head> <title>Error 500</title> <link rel="stylesheet" href="/css/error.css" /> <meta http-equiv="Content-type" content="text/html; charset=utf-8" /> </head> <body> <h1>Error 500</h1> <div id="content"> [b]<h2>runtime error</h2><pre class="error">Warning caught during route execution: Element 'xml' uses the reserved prefix 'XML' (in any case) at /usr/local/share/perl/5.14.2/SOAP/Lite.pm line 1467. [/b]</pre><div class="title">/usr/local/share/perl/5.14.2/SOAP/Lite.pm around line 1467</div><pre class="content"><span class="nu">1464</span> die "Element '$tag' can't be allowed in valid XML message. Died." <span class="nu">1465</span> if $tag !~ /^$SOAP::Constants::NSMASK$/o; <span class="nu">1466</span> <span class="nu">1467</span> <span style="color: red;"> warn "Element '$tag' uses the reserved prefix 'XML' (in any case)"</span> <span class="nu">1468</span> if $tag !~ /^(?![Xx][Mm][Ll])/; <span class="nu">1469</span> <span class="nu">1470</span> my $prolog = $readable ? "\n" : ""; </pre><div class="title">Stack</div><pre class="content">main in bin/app.pl l. 4 Dancer in /usr/share/perl5/Dancer.pm l. 462 Dancer::Handler in /usr/share/perl5/Dancer/Handler.pm l. 203 Dancer::Handler::Standalone in /usr/share/perl5/Dancer/Handler/Standalone.pm l. 36
der dazugehörige Code sollte sein (Line 1467 ist Fett markiert):
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

sub tag { my ($self, $tag, $attrs, @values) = @_; my $readable = $self->{ _readable }; my $value = join '', @values; my $indent = $readable ? ' ' x (($self->{ _level }-1)*2) : ''; # check for special attribute return "$indent$value" if exists $attrs->{_xml} && delete $attrs->{_xml}; die "Element '$tag' can't be allowed in valid XML message. Died." if $tag !~ /^$SOAP::Constants::NSMASK$/o; [b] warn "Element '$tag' uses the reserved prefix 'XML' (in any case)" [/b] if $tag !~ /^(?![Xx][Mm][Ll])/; my $prolog = $readable ? "\n" : ""; my $epilog = $readable ? "\n" : ""; my $tagjoiner = " "; if ($self->{ _level } == 1) { my $namespaces = $self->namespaces; foreach (keys %$namespaces) { $attrs->{SOAP::Utils::qualify(xmlns => $namespaces->{$_})} = $_ } $prolog = qq!<?xml version="1.0" encoding="@{[$self->encoding]}"?>! if defined $self->encoding; $prolog .= "\n" if $readable; $tagjoiner = " \n".(' ' x 4 ) if $readable; } my $tagattrs = join($tagjoiner, '', map { sprintf '%s="%s"', $_, SOAP::Utils::encode_attribute($attrs->{$_}) } grep { $_ && defined $attrs->{$_} && ($_ ne 'xsi:type' || $attrs->{$_} ne '') } keys %$attrs); if ($value gt '') { return sprintf("$prolog$indent<%s%s>%s%s</%s>$epilog",$tag,$tagattrs,$value,($value =~ /^\s*</ ? $indent : ""),$tag); } else { return sprintf("$prolog$indent<%s%s />$epilog$indent",$tag,$tagattrs); } }
Wie gesagt, ich hoffe, ihr könnt mir da helfen..

Beste Grüße,
Modi
Last edited: 2013-03-13 15:08:34 +0100 (CET)
- +2 replies
- Muffi
  
  2013-03-13 15:13
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Du benutzt bei SOAP scheinbar irgendwo einen XML-Tag, der xml heisst und SOAP/Lite.pm sagt, dass du sowas nicht tun sollst, weil der Name reserviert ist.
  1 + 1 = 10
  - Gast Modi
    
    2013-03-13 16:46
    
    Danke für die rasche Antwort! Ich versuche dann mal zu verifizieren, wo sich dieser XML-Tag befinden könnte..
- +8 replies
- GwenDragon
  
  2013-03-13 17:38
  
  User since
  2005-01-17
  14783 Artikel
  Admin1
  
  Vielleicht wäre praktisch für dich wenn du die gesendeten/empfangenen HTTP-Header mitschneidest.
  Dann siehst du was für Daten an die Webanwendung gehen bzw. zurück gesendet werden.
  
  In Firefox gibt es da Addons wie LiveHTTP oder Firebug (bei Network), in Chrome tools -> Entwicklerltools bei Network, in Opera Dragonfly, in IE Entwickertools -> Netzwerk.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - Gast Modi
    
    2013-03-15 14:09
    
    Danke für eure Antworten!
    
    Es hat sich herausgestellt, dass scheinbar das Problem ist, dass eine genutzte Methode einen String erhält, welcher Daten in XML-Format enthält. Diese Daten enthalten Sonderzeichen, die aus Umlauten resultieren.
    
    Das ist scheinbar das Problem. Die Methode schmeißt die Fehlermeldung aufgrund der Sonderzeichen. Wie kann ich diese Daten so bearbeiten, dass die Methode die Ursprünglichen Daten erhält - OHNE Sonderzeichen?
    
    Beste Grüße,
    Modi
    Last edited: 2013-03-15 14:11:58 +0100 (CET)
    - +6 replies
    - GwenDragon
      
      2013-03-15 14:16
      
      User since
      2005-01-17
      14783 Artikel
      Admin1
      
      Guest Modi
      Es hat sich herausgestellt, dass scheinbar das Problem ist, dass eine genutzte Methode einen String erhält, welcher Daten in XML-Format enthält. Diese Daten enthalten Sonderzeichen, die aus Umlauten resultieren.
      Meine Glaskugel sagt mir nicht was das für eine Methode ist. Ist deine Glaskugel vielleicht informativer? ;)
      
      Quote
      Die Methode schmeißt die Fehlermeldung aufgrund der Sonderzeichen.
      Kann ich nicht beurteilen, da mir der Code der Methode (was immer auch du damit meinst) nicht bekannt ist und du keinen Code gepostet hast.
      
      Quote
      Wie kann ich diese Daten so bearbeiten, dass die Methode die Ursprünglichen Daten erhält - OHNE Sonderzeichen?
      Wie kann ich erraten wie die Daten vorliegen und wie sie verarbeitet werden.
      
      Könntest du denn bitte mal mehr Informationen bereit stellen?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - Gast Modi
        
        2013-03-15 14:35
        
        Sorry für die unzureichenden Informationen!
        Meine Glaskugel hat folgendes zu bieten:
        
        Code: (dl )
        
        1 2 3
        
        my $XY = $proxy->callMethod("GetSearchResult", @params)->{GetSearchResultResponse}->{GetSearchResultResult}; my @XY = $proxy->callMethod("GetTableDataFromXML", SOAP::Data->name(xml => $XY))->{GetTableDataFromXMLResponse}->{GetTableDataFromXMLResult};
        
        der Fehler Tritt auf, wenn die Daten in 'GetTableDataFromXML' geschrieben werden sollen..
        scheinbar steht in 'GetSearchResult' ein String, der Sonderzeichen enthält und 'GetTableDataFromXML' kann damit nichts anfangen..
        
        daher will ich den String, der in 'GetSearchResult' steht vorher von den Sonderzeichen 'befreien'..
        Last edited: 2013-03-15 14:36:59 +0100 (CET)
        
        +2 replies
        
        GwenDragon
        
        2013-03-15 14:45
        
        User since
        2005-01-17
        14783 Artikel
        Admin1
        
        Zeig doch mal, was in $XY drin steht?
        
        //EDIT: Welche Zeichen darf denn der Parameter für die SOAP-Methode GetTableDataFromXML enthalten?
        
        Vielleicht hiftt es den Parameter als CDATA, also als
        
        Code: (dl )
        
        $XY = "<![CDATA[ $XY ]]>";
        
        zu senden.
        
        Oder Sonderzeichen zu kodieren:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        use XML::Entities; use HTML::Entities; my %HTML::Entities::char2entity = %{ XML::Entities::Data::char2entity('all'); }; $XY = encode_entities($XY);
        
        Last edited: 2013-03-15 15:45:07 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Gast Modi
        
        2013-03-15 16:02
        
        danke für die rasche Antwort!
        
        Ok, mittlerweile wurden die Sonderzeichen wieder in Umlaute konvertiert mit:
        
        Code: (dl )
        
        utf8::decode($XY)
        
        das war scheinbar aber nicht das Problem.. der vorliegende Fehler ist nicht behoben :(
        
        ich bleibe dran!
        Danke nochmals!!
        Last edited: 2013-03-15 16:31:55 +0100 (CET)
        
        GwenDragon
        
        2013-03-15 17:01
        
        User since
        2005-01-17
        14783 Artikel
        Admin1
        
        Ist der SOAP-Webdienst frei zugänglich, bei dem das passiert? Dann könnte ich mir das mal ansehen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Gast John Doe
        
        2014-03-18 14:51
        
        In Zeile 3 Deines Codes steht u.a.
        SOAP::Data->name(xml => $XY))
        Der angegebene Name "xml" müsste dann bei der Ausführung der Methode als XML-Tag ( <xml>...</xml>) verwendet werden. Das ist aber verboten:
        http://www.w3.org/TR/xml/#sec-common-syn
        Names beginning with the string "xml", or with any string which would
        match (('X'|'x') ('M'|'m') ('L'|'l')), are reserved for standardization
        in this or future versions of this specification.
        
        Der Code von SOAP:Lite in Lite.pm kontrolliert, ob Namen mit xml o.ä. anfangen, und bricht ab (wie Muffi schon gesagt hat.)
        Last edited: 2014-03-18 14:53:34 +0100 (CET)

View all threads created 2013-03-13 14:56.