HTML :: Formtemplate HTML :: Formtemplate kan gegevens gedefinieerde aanhoudende formulieren maken, rapporten.
Download nu

HTML :: Formtemplate Rangschikking & Samenvatting

HTML :: Formtemplate Tags

Perl-module rapporten vormen volhardend hardnekkige vormen aanhoudende rapporten

HTML :: Formtemplate Beschrijving

HTML :: Formtemplate kan gegevens gedefinieerde aanhoudende formulieren, rapporten maken. HTML :: Formtemplate kan gegevens-gedefinieerde aanhoudende formulieren maken, rapporten.synopsis #! / Usr / bin / perl-gebruik strikt; gebruik waarschuwingen; Gebruik HTML :: Formtemplate; Gebruik HTML :: EasyTags; My @Definitions = ({visible_title => "Wat is je naam?", Type => 'Textfield', Name => 'Naam', is_required => 1,}, {visible_title => "Wat is de combinatie?", Type = > 'checkbox_group', naam => 'woorden', 'Waarden' => , standaard => ,} {visible_title => "Wat is je favoriete kleur?", Type => 'Popup_menu', naam => 'kleur', 'Waarden' => ,} , {Type => 'Indienen',},); mijn $ query_string = ''; Lees (Stdin, $ query_string, $ env {'content_length'}); Chomp ($ query_string); Mijn $ Form = HTML :: Formtemplate-> Nieuw (); $ Form-> Form_Submit_url ('http: //'. ($ Env {'http_host'} || '127.0.0.1'). $ ENV {'script_name'}); $ Form-> Field_Definitions (@Definitions); $ Form-> User_Input ($ query_string); mijn ($ mail_worked, $ mail_failed); Tenzij ($ Form-> NEW_FORM ()) {if (geopend (e-mail "| / usr / lib / sendmail -t")) {print mail "naar: perl@darrenduncan.netn"; post afdrukken "van: perl@darrenduncan.netn"; Print Mail "Betreft: Een eenvoudig voorbeeld HTML :: Formtemplate-indiening"; Print Mail "N"; Print Mail $ Form-> Make_Text_Input_Echo (). "N"; Sluiten (e-mail); $ mail_worked = 1; } anders {$ mail_failed = 1; }} Mijn $ TAGMaker = HTML :: EasyTags-> Nieuw (); Print "Status: 200 OKN", "Inhoudstype: Tekst / HTMLNN", $ TAGMaker-> Start_html ('Een eenvoudig voorbeeld'), $ Tagmaker-> H1 ('Een eenvoudig voorbeeld'), $ Form-> make_html_input_form ( 1), $ TAGMaker-> HR, $ Form-> New_Form ()? '': $ Form-> make_html_input_echo (1), $ mail_worked? "

Uw favorieten zijn gemaild.

n": '', $ mail_failed? "

Fout Mailing uw favorieten.

N": '', $ tagmaker-> end_html; Vereisten: · Perl

HTML :: Formtemplate Gerelateerde software