أتش تي أم أل :: formtemplate. html :: formtemplate يمكن أن تجعل أشكال مستمرة محددة من البيانات، والتقارير.
التحميل الان

أتش تي أم أل :: formtemplate. الترتيب والملخص

أتش تي أم أل :: formtemplate. العلامات

الوحدة النمطية بيرل إقرار نماذج مستمر الأشكال المستمرة التقارير المستمرة

أتش تي أم أل :: formtemplate. وصف

HTML :: FormTemplate يمكن أن تجعل أشكال مستمرة محددة من البيانات، والتقارير. أتش تي أم أل :: Formtemplate يمكن أن تجعل أشكال مستمرة محددة من البيانات، والتقارير .Synopsis #! / USR / BIN / PERL استخدم صارمة؛ استخدام التحذيرات؛ استخدم HTML :: FormTemplate؛ استخدم HTML :: easytags؛ MyDefinitions = ({visible_title => "ما اسمك؟"، اكتب => "TextField"، الاسم => 'الاسم'، is_required => 1،}، {visible_title => "ما هو التركيبة؟"، اكتب = > "CheckBox_Group"، الاسم => "الكلمات"، "القيم" => ، الافتراضي => ،}، {visible_title => "ما هو لونك المفضل لديك؟"، اكتب => "popup_menu"، الاسم => "اللون"، "القيم" => ،} ، {type => 'إرسال'،}،)؛ بلدي $ query_string = ''؛ قراءة (Stdin، $ Query_String، $ env {'content_length'})؛ Chomp ($ Query_string)؛ بلدي نموذج $ = html :: formtemplate-> جديد ()؛ $ form-> form_submit_url ('http: //'. ($ Env {'http_host'} || '127.0.0.1'). $ env {'script_name'})؛ $ form-> field_definitions (@ definitions)؛ $ form-> user_input (query_string)؛ بلدي ($ mail_worded، $ mail_failed)؛ ما لم يكن ($ النموذج-> new_form ()) {IF (افتح (بريد، "| / USR / LIB / SendMail -T")) {print mail "إلى: perl@darrenduncan.netn"؛ طباعة البريد "من: perl@darrenduncan.netn"؛ طباعة البريد "الموضوع: مثال بسيط HTML :: FormTemplate Subversn"؛ طباعة البريد "N"؛ طباعة البريد $ نموذج-> make_text_input_echo (). "n"؛ إغلاق (البريد)؛ $ mail_worked = 1؛ } آخر {$ mail_failed = 1؛ }} بلدي tagmaker $ = html :: easytags-> جديد ()؛ طباعة "الحالة: 200 okn"، "النوع المحتوي: النوع: نص / htmlnn"، $ tagmaker-> start_html ("مثال بسيط")، $ tagmaker-> h1 ('مثال بسيط')، $ form-> make_html_input_form ( 1)، $ tagmaker-> hr، $ form-> new_form ()؟ '': $ form-> make_html_input_echo (1)، $ mail_worked؟ "

تم إرسالها بالبريد الإلكتروني عبر البريد الإلكتروني.

n": ''، $ mail_failed؟ "

خطأ إرسال بريد إلكتروني إلى المفضلة لديك.

n": ''، $ tagmaker-> end_html؛ متطلبات: perl.

أتش تي أم أل :: formtemplate. برامج ذات صلة