| Html :: formtemplate HTML :: FormTemplate puede realizar formas persistentes definidas por datos, informes. |
Descargar ahora |
Html :: formtemplate Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Darren R. Duncan
- Sitio web del editor:
- http://search.cpan.org/~duncand/CGI-Portable-0.51/lib/CGI/Portable/AppMultiScreen.pm
Html :: formtemplate Etiquetas
Html :: formtemplate Descripción
HTML :: FormTemplate puede realizar formas persistentes definidas por datos, informes. Html :: formtemplate puede hacer formas persistentes definidas por datos, reports.synopsis #! / Usr / bin / perl usa estricto; usar advertencias; Usa HTML :: FormTemplate; Usa HTML :: EasyTags; My @Definitions = ({visible_title => "" ¿Cuál es su nombre? ", Tipo => 'TEXTFIELD', NOMBRE => 'nombre', is_required => 1,}, {visible_title =>" ¿Qué es la combinación? ", Tipo = > 'checkbox_group', nombre => 'palabras', 'valores' => , Predeterminado => ,}, {visible_title => "¿Cuál es tu color favorito?", Tipo => 'popup_menu', nombre => 'color', 'valores' => ,} , {type => 'someter',},); My $ Query_String = ''; LEER (STDIN, $ QUERY_STRING, $ ENV {'CONTENT_LENGHT'}); chomp ($ query_string); MY $ FORM = HTML :: FormTemplate-> Nuevo (); $ formulario-> form_submit_url ('http: //'. ($ env {'http_host'} || '127.0.0.1'). $ env {'script_name'}); $ Form-> Field_Definitions (@Definitions); $ formulario-> user_input ($ query_string); mi ($ mail_worked, $ mail_failed); a menos ($ formulario-> new_form ()) {if (abre (mail "| / usr / lib / sendmail -t")) {imprimir correo "a: perl@darrenduncan.netn"; Correo de impresión "desde: perl@darrenduncan.netn"; Correo de impresión "Asunto: Un ejemplo simple HTML :: FormTemplate Envío"; Correo de impresión "N"; Imprimir correo $ formulario-> make_text_input_echo (). "n"; cerrar (correo); $ mail_worked = 1; } else {$ mail_failed = 1; }} My $ Tagmaker = HTML :: EasyTags-> Nuevo (); Imprimir "Estado: 200 okn", "Tipo de contenido: Texto / HTMLNN", $ Tagmaker-> Start_HTML ('Un ejemplo simple'), $ Tagmaker-> H1 ('A simple ejemplo'), $ formulario-> make_html_input_form ( 1), $ Tagmaker-> HR, $ formulario-> new_form ()? '': $ formulario-> make_html_input_echo (1), $ mail_worked? "
Se envían tus favoritos.
n": '', $ mail_failed? "
Error por correo electrónico a tus favoritos.
n": '', $ tagmaker-> end_html; Requisitos: · Perl
Html :: formtemplate Software relacionado