HTML :: formtemplate. HTML :: FormTemplate pode tornar os formulários persistentes definidos por dados, relatórios.
Baixe Agora

HTML :: formtemplate. Classificação e resumo

HTML :: formtemplate. Tag

Módulo Perl. relatórios formas persistente. formas persistantes relatórios persistentes

HTML :: formtemplate. Descrição

HTML :: FormTemplate pode fazer formulários persistentes definidos por dados, relatórios. HTML :: FormTemplate pode tornar os formulários persistentes definidos por dados, relatórios.synopsis #! / Usr / bin / perl Use rigoroso; use avisos; Use HTML :: FormTemplate; Use HTML :: EasyTags; Meus @Definitions = ({Visible_Title => "Qual é o seu nome?", digite => 'textfield', nome => 'nome', is_required => 1,}, {visible_title => "Qual é a combinação?", Tipo = > 'Checkbox_group', nome => 'palavras', "valores" => , padrão => ,} {tipo => 'enviar',},); meu $ query_string = ''; Leia (Stdin, $ Query_String, $ Env {'Content_Length'}); CHOMP ($ query_string); Meu Formulário $ Form = HTML :: FormTemplate-> Novo (); $ form-> form_submit_url ('http: //'. ($ Env {'http_host'} || '127.0.0.1'). $ Env {'script_name'}); $ form-> field_definitions (@definições); $ form-> user_input ($ query_string); meu ($ mail_worked, $ mail_failed); A menos que ($ form-> new_form ()) {if (aberto (email, "| / usr / lib / sendmail -t")) {print mail "para: perl@darrenduncan.netn"; Imprimir mail "de: perl@darrenduncan.netn"; Imprimir mail "Assunto: Um exemplo simples HTML :: FormTemplate Submissionn"; Imprimir mail "n"; Imprimir mail $ form-> make_text_input_echo (). "N"; fechar (correio); $ mail_worked = 1; } else {$ mail_failed = 1; }} Meu $ Tagmaker = HTML :: EasyTags-> Novo (); Imprimir "Status: 200 OKN", "Content-Type: Texto / HTMLNN", $ tagmaker-> start_html ('exemplo simples'), $ tagmaker-> h1 ('exemplo simples'), $ form-> make_html_input_form ( 1), $ tagmaker-> HR, $ form-> new_form ()? ': $ form-> make_html_input_echo (1), $ mail_worked? "

Seus favoritos foram enviados por e-mail.

n": '', $ mail_failed? "

Erro ao enviar seus favoritos.

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

HTML :: formtemplate. Software Relacionado