Wunsch: HTML-Template-Compiled und Helferlein oder Makros (Fragen zu Perl-Modulen)

[thread]18568[/thread]

Wunsch: HTML-Template-Compiled und Helferlein oder Makros

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+11 replies
GwenDragon

2013-09-06 17:28
User since
2005-01-17
14759 Artikel
Admin1
Ich hätte auch gern etwas Mojo in HTC.
Was mir fehlt sind kleine Helferlein mit ausgeführten Blöcken.
Sowas wie in https://github.com/kraih/mojo/wiki/Working-with-he... beschrieben.

Ich weiß, esoterischer Wunsch. ;)

Folgendes Beispiel:
Es existieren Tokens für eine Session, die mit Perl generiert werden und mit in ein Formular eingebunden werden sollen.
Das Token wird üblicherweise mit htc->params als Variable TOKEN dem Template bekannnt gemacht.
Code: (dl )

1 2 3 4 5 6

<%= form_token name=foo,method=post,url=/bar/baz.pl,token=(TOKEN,TAKEME) begin %>  <input name="username" type="text" value="<%= username %>"> <input name="userpassword" type="password" value="<%= password %>"> <input type="submit"> <% end %>
Soll dann folgendes generieren:
Code (html): (dl )

1 2 3 4 5 6 7 8

<form name="foo" method="post" action="/bar/baz.pl"> <input name="username" type="text" value="MeOMy"> <input name="userpassword" type="password"> <input type="submit"> <input type="hidden" name="TAKEME" value="1234567"> <input type="hidden" name="TOKEN" value="fd9d8aa21e71f7626d6cc35"> </form>
Und als <%perl %> gehts ja auch nicht.
Mit Plugins sind ja leider mehrere Parameter nicht möglich.
Oder kann ich HTML-Template-Compiled-Plugin-HTML_Tags aufbohren?

Oder wisst ihr eine Lösung für HTC?

Wenn keine Lösung, kann pq das vielleicht für die Zukunft einplanen. ich möchte ungern Mojo nehmen, weils beim Start so lahmt als CGI.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +10 replies
- pq
  
  2013-09-06 19:49
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  man kann das mit einem plugin machen.
  
  more (23.1kb)
  
  in HTCForm::open_form wird token="TOKEN,TAKEME" auf den stack geschoben, damit vor dem ende des formulars die entsprechenden hidden fields (in close_form) eingefügt werden können.
  wenn die felder auch direkt nach dem form-open kommen können, brauchst du das mit dem stack nicht.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - GwenDragon
    
    2013-09-06 20:31
    
    User since
    2005-01-17
    14759 Artikel
    Admin1
    
    Ah, so geht das.
    Danke sehr! hat mir schon mal geholfen zu sehen was für Plugins ich schreiben muss.
    
    Das muss ich mir morgen mal genauer ansehen wie das mit Plugins funktioniert.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - pq
      
      2013-09-06 20:55
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      toll dokumentiert ist es leider nach wie vor nicht :-/
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - GwenDragon
        
        2013-09-07 10:52
        
        User since
        2005-01-17
        14759 Artikel
        Admin1
        
        Yo, das bin ich gewohnt von manchen Perl-Modulen. Kostet ja auch enorm Zeit, was gut zu dokumentieren. Und viele Leute haben eben andere Prioritäten, wie Brecht sagte: Erst kommt das Fressen, dann die Moral. Die wenigsten Leute bekommen einen Grant, damit sie bezahlt was machen und in der Zeit kein Einkommen zum Leben erwirtschaften müssen.
        
        Ich kann ja die Entwicklerin fragen, wenn ich nicht duchblicke, wenns erlaubt ist ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - GwenDragon
    
    2013-09-07 13:07
    
    User since
    2005-01-17
    14759 Artikel
    Admin1
    
    Ich blick leider doch nicht so durch deine API durch.
    
    Wenn du bitte Zeit hast, mir folgendes zu klären.
    1) Welchen Sinn hat sub { exists $_[1]->{NAME} } in der Definition der tagnames.
    
    2) Wie kann ich es anstellen, dass in <% form %> beliebig viel/keine Attribute stehen können?
    Wie registriere ich das dann in %plugs bei tagnames?
    
    Danke für dein Verständnis.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +5 replies
    - pq
      
      2013-09-07 14:45
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2013-09-07T11:07:49 GwenDragon
      Ich blick leider doch nicht so durch deine API durch.
      
      Wenn du bitte Zeit hast, mir folgendes zu klären.
      1) Welchen Sinn hat sub { exists $_[1]->{NAME} } in der Definition der tagnames.
      
      das ist eine subroutine, die die syntax des tags checkt. nur ein beispiel. hier muss das attribut name gesetzt sein. wenn du keine anforderungen an das tag hast, schreib undef statt der sub.
      
      Quote
      2) Wie kann ich es anstellen, dass in <% form %> beliebig viel/keine Attribute stehen können?
      
      ich verstehe die frage nicht.
      beliebig viele? du musst jedes attribut registrieren, das vorkommen könnte.
      als template-autor einen beliebigen attributnamen ausdenken, der nicht registriert ist, das geht nicht.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +4 replies
      - GwenDragon
        
        2013-09-07 17:11
        
        User since
        2005-01-17
        14759 Artikel
        Admin1
        
        2013-09-07T12:45:04 pq
        eine subroutine, die die syntax des tags checkt.
        Ah ja, praktisch.
        
        2013-09-07T12:45:04 pq
        du musst jedes attribut registrieren, das vorkommen könnte.
        als template-autor einen beliebigen attributnamen ausdenken, der nicht registriert ist, das geht nicht.
        Ach so. Ich wollte mal wieder viel zu viel Zauberei.
        Aber ok, HTML/XML hat ja auch feste Definitionen, welche Attribute vorkommen können.
        Dann werde ich in der DTD von HTML4 nachsehen müssen und die Attribute einbinden.
        
        Wie ist das eigentlich, wie komme ich aus einem Plugin an den Stash des HTC-Objekts? Es geht mir darum nämlich Werte einer Variablen einzusetzen.
        
        Wenn also das Template wie folgt ist:
        
        Code: (dl )
        
        1 2 3 4
        
        test <%form name="test" method=post url=/bar.pl token="xsfrtoken" %> Formular <%/form %>
        
        und mein Code:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        use 5.010; use HTML::Template::Compiled; use HTCForm; my $form = HTCForm->new; my $sec_token = 'xyz0xgdtz256hdfrashwe5625xh'; my $htc = HTML::Template::Compiled->new( filename => "form.html", plugin => [$form], debug => 1, ); $htc->param( xsfrtoken => $sec_token ); say $htc->output;
        
        soll dann ergeben:
        
        Code: (dl )
        
        1 2 3 4 5
        
        test <form name="test" method="post" action="/bar.pl"> Formular <input type="hidden" name="TOKEN" value="xyz0xgdtz256hdfrashwe5625xh"> </form>
        
        Ein ack auf die Source enthüllt mir:
        C:\strawberry\perl>ack get_var site\lib\HTML\Template\Compiled\Classic.pm 12:sub _get_var_global_sub { site\lib\HTML\Template\Compiled\Compiler\Classic.pm 44: "\$t->_get_var_global_sub(" . '$P,$$C,0,'."[undef,'$var'])"; site\lib\HTML\Template\Compiled.pm 991:# '$t->get_var($P, $$C, 1, [PATH_DEREF, 'key'])' 992:# the get_var method walks the paths given through the data structure. 994:# parameter hash. the third argument to get_var is 'final'.
        
        Wenn ich also den Wert einer beliebigen Variablen im Stash haben möchte wäre das dann so?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        elsif ($def =~/^\w+$/) { $expression .= <<"EOM"; $OUT '<input type="hidden" name="$def" value="' . \$t->_get_var_global_sub(\$P,\$\$C,0,[undef,'$def']) . '">'; EOM }
        
        Aber _get_var_global_sub existiert ja nur in HTC::Classic.
        Und ich komme auch nicht an Werte, die im Stash so verschachtelt
        
        Code (perl): (dl )
        
        1 2 3
        
        $htc->param( session => { xsfrtoken => $sec_token } )
        
        drin sind und im Template
        
        Code: (dl )
        
        token="z.xsfrtoken" %>
        
        steht.
        
        Stell ich mich wirklich zu sehr an? Oder wo kann ich den Stash noch auslesen?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        pq
        
        2013-09-07 18:10
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-09-07T15:11:44 GwenDragon
        Ach so. Ich wollte mal wieder viel zu viel Zauberei.
        
        es wäre theoretisch denkbar, dass man ein * angeben kann, der sagt, alle attribute sind möglich. dafür müsste ich den parser etwas aufbohren.
        
        Quote
        Dann werde ich in der DTD von HTML4 nachsehen müssen und die Attribute einbinden.
        
        wie meinst du das?
        
        Quote
        Wie ist das eigentlich, wie komme ich aus einem Plugin an den Stash des HTC-Objekts? Es geht mir darum nämlich Werte einer Variablen einzusetzen.
        
        es gibt die möglichkeit der nutzung von H::T::C::Compiler::parse_var.
        Das benutze ich z.b. beim Translate-Plugin hier im Forum.
        Wenn du also weisst, das Attribut TOKEN enthält den namen des parameters im stash, kannst du sowas machen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        my $token = $attr->{TOKEN}; # z.b. "csrftoken" oder ".config.token" my $token_expr = $htc->get_compiler->parse_var($htc, var => $token, # die 3 zeilen sind leider noch notwendig, evtl. kann # ich die mal woanders hin schieben method_call => $htc->method_call, deref => $htc->deref, formatter_path => $htc->formatter_path, );
        
        Heraus kommt dann der entsprechende Perl-Code, der ins kompilierte Template eingesetzt wird.
        Das berücksichtigt dann auch, ob global_vars benutzt wird, case_sensitive usw.
        get_var direkt zu benutzen ist nicht empfehlenswert. (edit: bzw. get_var wird sowieso nur noch bei H::T::C::Classic benutzt).
        
        und dann:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $expression .= <<"EOM"; $OUT '<input type="hidden" name="TOKEN" value="' . $token_expr . '"> '; EOM
        
        Last edited: 2013-09-07 18:19:18 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pq
        
        2013-09-07 18:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-09-07T16:10:08 pq
        Quote
        Dann werde ich in der DTD von HTML4 nachsehen müssen und die Attribute einbinden.
        
        wie meinst du das?
        
        achso, du willst bestimmte attribute selbst verarbeiten und den rest einfach als HTML-attribute behandeln und ins form-tag einsetzen. verstehe.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        GwenDragon
        
        2013-09-07 18:26
        
        User since
        2005-01-17
        14759 Artikel
        Admin1
        
        In Bezug auf DTD und die Attribute meinte ich nur, dass im HTML-Standard DTD ja drin steht welche Attribute das Element form haben darf und die kann ich ja benutzen, dass ich kein Attribut vergesse.
        
        //EDIT: Oh, du hast schon verstanden, ws ich meinte :)
        
        Parser aufbohren? Na ja, merks dir einfach mal für 1.010 vor ;) Mach halt irgendwann, wenn du willst.
        
        H::T::C::Compiler::parse_var. Aha dort also.
        Dein Code sist ganz nützlich. Muss ich mal probieren, ob das so ist wie ich das für mich gedacht habe.
        
        \o/
        
        Sich tiefer in den Quellcode einarbeiten wäre ganz sinnvoll, muss ich mal machen um einigermaßen zu verstehen was da alles ineinande greift.
        H:T:C ist ja auch ein mächtiges Modul. Du hast da je mehr Überblick als Entwicklerin von H:T:C.
        
        Ich danke dir für den Tipp und die Hilfe. ist echt nützlich. <3
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-09-06 17:28.