Démonstration Demomailform est une démo de CGI :: portable qui implémente un formulaire de soumission de courrier électronique avec des questions illimitées.
Télécharger maintenant

Démonstration Classement & Résumé

Démonstration Mots clés

Module Perl soumission e-mail formulaire de soumission par courrier électroniqu

Démonstration La description

DemoMailForm est une démonstration de CGI :: Portable qui implémente un formulaire de soumission électronique des questions illimitées. DemoMailForm est une démonstration de CGI :: Portable qui implémente un formulaire de soumission électronique avec questions.SYNOPSISUse illimité par défaut Question # / usr / bin / perl use strict!; utiliser des avertissements; exiger CGI :: Portable; mon $ GLOBALS = CGI :: Portable-> new (); exiger CGI :: Portable :: AdapterCGI; my $ io = CGI :: Portable :: AdapterCGI-> new (); $ IO-> fetch_user_input ($ GLOBALS); $ Globals-> default_application_title ( 'Demo Email Form'); $ Globals-> default_maintainer_name (Tony Simons '); $ Globals-> default_maintainer_email_address ( 'tony@aardvark.net'); my% config = (); $ Globals-> set_prefs (% CONFIG); $ Globals-> call_component ( 'DemoMailForm'); $ IO-> send_user_output ($ GLOBALS); 1; Utilisez des questions personnalisées définies ici mon% CONFIG = (custom_fd => 1, field_defn => , par défaut => , étiquettes => ,}, {visible_title => "Qui aimez-vous?", type => 'textfield', name => 'name',}, {visible_title => "Quelle est votre couleur préférée?", type => 'popup_menu', name => « couleur », 'valeurs' => ,},],) Utilisez des questions personnalisées définies dans Perl utilisation du fichier Cwd; $ Globals-> file_path_root (CWD ()); # Laissez-nous par défaut de travail actuel dir $ globals-> file_path_delimiter ($ ^ O = ~ / Mac / i ":": $ ^ O = ~ / Win / i "\":? "/"); my% = CONFIG (custom_fd => 1, field_defn => 'survey_questions.txt', # Perl pour faire le code ref tableau); Questions utilisation personnalisées définies dans un langage simple Boulder utilisation du fichier Cwd; $ Globals-> file_path_root (CWD ()); # Laissez-nous par défaut de travail actuel dir $ globals-> file_path_delimiter ($ ^ O = ~ / Mac / i ":": $ ^ O = ~ / Win / i "\":? "/"); my% = CONFIG (custom_fd => 1, field_defn => 'survey_questions.txt', fichier # en format simple Boulder fd_in_seqf => 1,); Personnaliser sujet de votre e-mails my% config = (email_subj => 'Une autre réponse au sondage' ,) Personnaliser la page Web Intro texte my% CONFIG = (msg_new_title => « laisser un message », titre # personnalisé pour les nouveaux messages msg_new_head =>

S'il vous plaît laisser un message après le bip Répondez aux questions aussi fidèlement et sincèrement que vous. peut, comme nous avons un détecteur de mensonge en place et des fausses réponses seront satisfaites avec le spam

__endquote). Exigences: · Perl · Fcntl · Symbole · Net :: SMTP 2.15 (versions antérieures peuvent travailler) · CGI :: Portable 0.50 · CGI :: Portable :: AppStatic 0.50 · CGI :: MultiValuedHash 1,09 · HTML :: FormTemplate 2,021

Démonstration Logiciels associés