#!/usr/bin/perl # +--------------------------------------------+ # | password.cgi -- Password protection script | # | Author : Ryan Facer | # | Created On : Friday August 21, 1998 | # | Last Modified By : Ryan William Facer | # | Last Modified On : Friday August 21, 1998 | # | Update Count : 0 | # | E-Mail : cattails@cattails.ca | # +--------------------------------------------+ # Set Variables $pwd = "ghia"; # The password you want # ******************************* # We include the cgi-lib.cgi file # ******************************* do "cgi-lib.cgi" || die "Content-type: text/plain\n\nError loading cgi-lib\n"; # ************************************************* # Now we call the subroutine in cgi-lib.cgi to read # in the variables from the form and set them up as # key=value pairs in the array @in # ************************************************* &ReadParse; # ***************************************** # Print out the beginning stuff to tell the # server that we're sending it an HTML file # ***************************************** print "Content-type: text/html\n\n"; $password = $in{'password'}; if ($password eq $pwd){ print "\n"; print "\n"; print "Speakers' Spotlight Questionnaire\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "Speakers' Spotlight Questionnaire\n"; print "

Thank you for booking a speaker through Speakers' Spotlight.\n"; print "To help ensure the success of your event, please take a few\n"; print "minutes to fill out the following information. Once completes,\n"; print "press SEND at the bottom of the page. Feel free to e-mail\n"; print "(info@speakers.ca)\n"; print "or fax us (416-486-2091) any background information\n"; print "(annual report, newsletter, program / event brochure, press kit,\n"; print "etc.) that you feel may assist in learning more about your\n"; print "organization and your event. Note: If there are any changes in\n"; print "agenda or subject matter, please advise as soon as possible.\n\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Name of Organization:
\n"; print "
Your Name:
\n"; print "
Speaker(s) booked:
\n"; print "
Date of Engagement:
\n"; print "
\n\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
1. Type of Event:
2.\n"; print "Key objectives of your event:
3.\n"; print "Is there a major theme?
\n\n"; print "

\n"; print "\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "
4. Audience\n"; print "Size:\n"; print "     \n"; print "Age Range:\n"; print "     \n"; print "Male: \n"; print "     \n"; print "Female: \n"; print "
5.\n"; print "General Audience Description:
6. Will spouses attend?\n"; print "     \n"; print "Yes\n"; print "     \n"; print "No\n"; print "
7.\n"; print "Preferred attire for speaker:\n"; print "     \n"; print "Business Casual\n"; print "     \n"; print "Business\n"; print "     \n"; print "Black Tie\n"; print "
8.\n"; print "What time is the speaker's presentation scheduled to\n"; print "begin and end?\n\n"; print "
\n"; print "Start: \n"; print "a.m.\n"; print "p.m.\n"; print "     \n"; print "End: \n"; print "a.m.\n"; print "p.m.\n"; print "
\n\n"; print "
9.\n"; print "What time should the speaker arrive at the event?\n"; print "
\n"; print "Arrival: \n"; print "a.m.\n"; print "p.m.\n"; print "
\n"; print "
10.\n"; print "Who will introduce the speaker (include title):
\n"; print "         \n"; print "\n"; print "
11.\n"; print "Please list the speaker(s) at this event last time:
\n"; print "     \n"; print "1. \n"; print "
     \n"; print "2. \n"; print "
     \n"; print "3. \n"; print "
12.\n"; print "Please list goals you would like your speaker to achieve:
\n"; print "     \n"; print "1. \n"; print "
     \n"; print "2. \n"; print "
     \n"; print "3. \n"; print "
13.\n"; print "Please list issues pertinent to your industry:
\n"; print "     \n"; print "1. \n"; print "
     \n"; print "2. \n"; print "
     \n"; print "3. \n"; print "
14.\n"; print "Will there be any other speakers at this event?\n"; print "If so, please list:
\n"; print "     \n"; print "1. \n"; print "
     \n"; print "2. \n"; print "
     \n"; print "3. \n"; print "
15.\n"; print "This event will be held at:
\n"; print "           \n"; print "Venue: \n"; print "
        \n"; print "Address: \n"; print "
     \n"; print "Telephone: \n"; print "
16.\n"; print "If hotel accomodations are different from above,\n"; print "please indicate:
\n"; print "            \n"; print "Hotel: \n"; print "
        \n"; print "Address: \n"; print "
     \n"; print "Telephone: \n"; print "
17.\n"; print "Who should make speaker's arrangements for travel\n"; print "and accomodation?
\n"; print "           \n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Travel:\n"; print "\n"; print "\n"; print "We will make arrangements\n"; print "
\n"; print "\n"; print "Please make arrangements directly\n"; print "
\n"; print "Accomodation:\n"; print "\n"; print "\n"; print "We will make arrangements\n"; print "
\n"; print "\n"; print "Please make arrangements directly\n"; print "
\n\n"; print "
18.\n"; print "Speaker's contact before the event:
\n"; print "     \n"; print "Name: \n"; print "
        \n"; print "Title: \n"; print "
     \n"; print "Phone: \n"; print "
         \n"; print "Fax: \n"; print "
19."; print "Speaker's contact at event (if different from above):
\n"; print "     \n"; print "Name: \n"; print "
        \n"; print "Title: \n"; print "
     \n"; print "Phone: \n"; print "
         \n"; print "Fax: \n"; print "
\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "20.\n"; print "\n"; print "Is there anything else we should know, to ensure the success of\n"; print "your event? Please feel free to attach or send any background\n"; print "information, (annual reports, newsletters, program / event\n"; print "brochure, press kit, etc.) that you feel may assist in learning\n"; print "more about your organization and your event.\n"; print "
\n"; print "\n"; print "
\n\n"; print "

\n"; print "\n"; print "\n"; print "

\n\n"; print "\n"; print "\n"; }; # if