HTML :: Formtemplate. HTML :: Formtemplate può effettuare moduli persistenti definiti da dati, report.
Scarica ora

HTML :: Formtemplate. Classifica e riepilogo

HTML :: Formtemplate. Tag

modulo Perl rapporti forme persistente forme persistenti segnalazioni persistenti

HTML :: Formtemplate. Descrizione

HTML :: Formtemplate può effettuare moduli persistenti definiti da dati, report. HTML :: Formtemplate può effettuare moduli persistenti definiti da dati, report.synopsis #! / Usr / bin / perl uso rigoroso; Utilizzare Avvertenze; Usa HTML :: Formtemplate; Usa HTML :: Easytags; My @Definitions = ({visible_title => "Come è il tuo nome?", Type => 'Textfield', nome => 'nome', is_required => 1,}, {visible_title => "Qual è la combinazione?", > 'checkbox_group', nome => 'parole', 'valori' => , default => ,}, {visible_title => "Qual è il tuo colore preferito?", Type => 'popup_menu', nome => 'colore', 'valori' => ,} , {Type => 'Invia',},); My $ Query_String = ''; Leggi (STDIN, $ Query_String, $ ENV {"Content_Length"}); chomp ($ query_string); My $ Form = HTML :: Formtemplate-> Nuovo (); $ modulo-> form_submit_url ('http: //'. ($ env {'http_host'} || '127.0.0.1'). $ env {'script_name'}); $ Form-> field_definitions (@Definitions); $ modulo-> user_input ($ query_string); my ($ mail_working, $ mail_failed); A meno che ($ modulo-> new_form ()) {if (Apri (Mail, "| / usr / lib / sendmail -t")) {stampa mail "a: perl@drenduncan.netn"; Stampa posta "da: perl@drenduncan.netn"; Stampa posta "Oggetto: Un semplice esempio HTML :: Formtemplate InjusismiMism"; Stampa posta "n"; Stampa mail $ modulo-> make_text_input_echo (). "n"; chiudi (posta); $ mail_worked = 1; } else {$ mail_failed = 1; }} My $ tagmaker = html :: easytags-> nuovo (); Stampa "Stato: 200 OKN", "Tipo di contenuto: testo / htmlnn", $ tagmaker-> start_html ('un semplice esempio'), $ tagmaker-> h1 ('un semplice esempio'), $ modulo-> make_html_input_form ( 1), $ tagmaker-> hr, $ modulo-> new_form ()? '': $ Form-> make_html_input_echo (1), $ mail_worked? "

I tuoi preferiti sono stati inviati via email.

n": '' ', $ Mail_Failed? "

Errore durante l'email dei tuoi preferiti.

n": '' ', $ tagmaker-> end_html; Requisiti: · Perl.

HTML :: Formtemplate. Software correlato