HTML :: Formtemplate HTML :: Formtemplate peut rendre des formulaires persistants définis par les données.
Télécharger maintenant

HTML :: Formtemplate Classement & Résumé

HTML :: Formtemplate Mots clés

Module Perl rapports formes persistant formes persistantes rapports persistants

HTML :: Formtemplate La description

HTML :: Formttemplate peut rendre des formulaires persistants définis par les données. HTML :: Formtemplate peut rendre des formes persistantes définies par des données, des rapports.synopsis #! / Usr / bin / perl utilise strict; utiliser des avertissements; Utilisez HTML :: Formtemplate; Utilisez HTML :: easyTags; mes @Definitions = ({visible_title => "Quel est votre nom?", Type => "Textfield ', nom =>' Nom ', is_required => 1,}, {visible_title =>" Quelle est la combinaison? ", Type = > 'Cochezbox_group', nom => "mots", "valeurs" => , défaure => ,}, {visible_title => "Quelle est votre couleur préférée?", Type => 'popup_menu', nom => 'Couleur', 'valeurs' => ,} , {type => 'Soumettre',},); mon $ query_string = ''; lire (stdin, $ query_string, $ env. {'content_length'}); chomp ($ query_string); ma forme $ = HTML :: Formtemplate-> Nouveau (); $ Form-> form_submit_url ('http: //' ($ env (http_host '} ||' 127.0.0.1 '). $ env ("script_name'}); $ formulaire-> field_definitions (@Definitions); $ formulaire-> user_input ($ query_string); mon ($ mail_worked, $ mail_failed); Sauf si ($ formulaire-> new_form ()) {if (Ouvrir (courrier, "| / USR / LIB / SENDMAIL -T")) {Imprimer le courrier "à: perl@darrenduncan.netn"; imprimer mail "de: perl@darrenduncan.netn"; Imprimer mail "Sujet: Un exemple simple HTML :: Formtemplate SoumissionN"; Imprimer le courrier "n"; imprimer mail $ formulaire-> make_text_input_echo (). "N"; fermer (mail); $ mail_worked = 1; } else {$ mail_failed = 1; }} My $ tagmaker = html :: easyTags-> nouveau (); Imprimer "Statut: 200 OKN", "Type de contenu: TEXT / HTMLNN", $ TAGMAKER-> START_HTML ("START_HTML (" EXEMPLE SIMPLE '), $ TAGMAKER-> H1 ("simple exemple'), formulaire $> make_html_input_form ( 1), $ tagmaker-> hr, $ forme-> new_form ()? '': $ forme-> make_html_input_echo (1), $ mail_worked? "

Vos favoris ont été envoyés par courrier électronique.

n": '', $ mail_failed? "

Erreur lors de votre courrier électronique de vos favoris.

n": '', $ tagmaker-> fin_html; Exigences: · Perl

HTML :: Formtemplate Logiciels associés