DemoGuestBook DemoGuestBook is a demo of CGI::Portable that implements a complete guest book with unlimited questions.
Download

DemoGuestBook Ranking & Summary

DemoGuestBook Tags

e-mail Guestbook guest book e-mails submissions

DemoGuestBook Description

DemoGuestBook is a demo of CGI::Portable that implements a complete guest book with unlimited questions. DemoGuestBook is a demo of CGI::Portable that implements a complete guest book with unlimited questions that also e-mails submissions to the website owner.SYNOPSISUse Default Question #!/usr/bin/perl use strict; use warnings; require CGI::Portable; my $globals = CGI::Portable->new(); use Cwd; $globals->file_path_root( cwd() ); # let us default to current working dir $globals->file_path_delimiter( $^O=~/Mac/i ? ":" : $^O=~/Win/i ? "\" : "/" ); require CGI::Portable::AdapterCGI; my $io = CGI::Portable::AdapterCGI->new(); $io->fetch_user_input( $globals ); $globals->default_application_title( 'Demo Guest Book' ); $globals->default_maintainer_name( 'Tony Simons' ); $globals->default_maintainer_email_address( 'tony@aardvark.net' ); my %CONFIG = ( fn_messages => 'guestbook_messages.txt', # file in simple Boulder format ); $globals->current_user_path_level( 1 ); $globals->set_prefs( %CONFIG ); $globals->call_component( 'DemoGuestBook' ); $io->send_user_output( $globals ); 1;Use Custom Questions Defined Here my %CONFIG = ( fn_messages => 'guestbook_messages.txt', # file in simple Boulder format custom_fd => 1, field_defn => , default => , labels => , }, { visible_title => "Who do you love?", type => 'textfield', name => 'name', }, { visible_title => "What's your favorite colour?", type => 'popup_menu', name => 'color', 'values' => , }, ], );Use Custom Questions Defined In Perl File my %CONFIG = ( fn_messages => 'guestbook_messages.txt', # file in simple Boulder format custom_fd => 1, field_defn => 'guestbook_questions.txt', # do Perl code to make array ref );Use Custom Questions Defined In simple Boulder File my %CONFIG = ( fn_messages => 'guestbook_messages.txt', # file in simple Boulder format custom_fd => 1, field_defn => 'guestbook_questions.txt', # file in simple Boulder format fd_in_seqf => 1, );Default To Signing Mode When Mode Not Specified In User Path my %CONFIG = ( fn_messages => 'guestbook_messages.txt', sign_by_default => 1, );Show Email Addresses In Message Listings (Default Is No Show) my %CONFIG = ( fn_messages => 'guestbook_messages.txt', msg_list_show_email => 1, );Customize Subject Of Your Emails my %CONFIG = ( fn_messages => 'guestbook_messages.txt', email_subj => 'Your Visitor Has Left A Message', );Customize Webpage Intro Text my %CONFIG = ( fn_messages => 'guestbook_messages.txt', msg_new_title => 'Leave A Message', # custom title for new messages msg_new_head => < p >Please leave a message after the beep. Answer the questions as faithfully and truthfully as you can, as we have a lie detector set up and any false answers will be met with spam.< /p > __endquote msg_list_title => 'Previous Reflections', # custom title when reading msg_list_head => < p >Here are the messages that previous visitors wrote. Please stay awhile and soak in the goodness. You never know what you don't read.< /p > __endquote ); Requirements: · Perl · Fcntl · Symbol · Net::SMTP 2.15 (earlier versions may work) · CGI::Portable 0.50 · CGI::Portable::AppStatic 0.50 · CGI::MultiValuedHash 1.09 · HTML::FormTemplate 2.021

DemoGuestBook Related Software