From 3be5d8bf2180d76573ab4fd946ef361a703c2ff0 Mon Sep 17 00:00:00 2001 From: mark Date: Thu, 17 Jun 2004 14:47:34 +0200 Subject: [PATCH] [svn r6142] Added expo 2004 signup form Modified travel arrangements --- index.htm | 5 +- signup/main.css | 37 +++ signup/submit.php | 602 +++++++++++++++++++++++++++++++++++++++++ years/2004/travel.html | 220 ++++++++++----- 4 files changed, 795 insertions(+), 69 deletions(-) create mode 100644 signup/main.css create mode 100644 signup/submit.php diff --git a/index.htm b/index.htm index 85e59eddd..dc914a8f8 100644 --- a/index.htm +++ b/index.htm @@ -6,11 +6,14 @@ -

CUCC in Austria 1976-2003

+

CUCC in Austria 1976-2004

Welcome to the website of the Cambridge University Caving Club expeditions to Austria.

+ +

New: Expo 2004 sign-up form now available. +

Austria panorama

diff --git a/signup/main.css b/signup/main.css new file mode 100644 index 000000000..5332d9b9d --- /dev/null +++ b/signup/main.css @@ -0,0 +1,37 @@ + + diff --git a/signup/submit.php b/signup/submit.php new file mode 100644 index 000000000..49ccf4f50 --- /dev/null +++ b/signup/submit.php @@ -0,0 +1,602 @@ + + "", + "address" => "", + "kinname" => "", + "kinaddress" => "", + "phone" => "", + "kinphone" => "", + "email" => "", + "kinemail" => "", + "relation" => "", + "veggie" => "no", + "student" => "yes", + "insurance" => "BCRA", + "bcranum" => "", + "leave_uk" => "", + "length_of_stay" => "", + "transport_ok" => "yes", + "transport_out" => "need", + "transport_back" => "need", + "from_uk" => "", + "returning_uk" => "", + "tent" => "no", + "top_tent_cap" => "", + "btent" => "no", + "base_tent_cap" => "", + "tent_share" => "yes", + "share_condition" => "", + "medic_info" => "", + "extra_info" => "", + "aims" => "", + "lifts_out" => "yes", + "lifts_back" => "yes", + "no_out" => "2", + "no_back" => "2", + "take_out" => "", + "take_back" => "", + "transport_info" => "", + "medication" => "", + "allergies" => "", + "bivvy" => "" + ); +} + +function fillVars () +{ + initVars (); + + global $vars; + $vars[name] = stripslashes($_POST[name]); + $vars[address] = stripslashes($_POST[address]); + $vars[phone] = stripslashes($_POST[phone]); + $vars[kinname] = stripslashes($_POST[kinname]); + $vars[kinaddress] = stripslashes($_POST[kinaddress]); + $vars[phone] = stripslashes($_POST[phone]); + $vars[kinphone] = stripslashes($_POST[kinphone]); + $vars[email] = stripslashes($_POST[email]); + $vars[kinemail] = stripslashes($_POST[kinemail]); + $vars[relation] = stripslashes($_POST[relation]); + $vars[veggie] = stripslashes($_POST[veggie]); + $vars[student] = stripslashes($_POST[student]); + $vars[transport_ok] = stripslashes($_POST[transport_ok]); + $vars[from_uk] = stripslashes($_POST[from_uk]); + $vars[returning_uk] = stripslashes($_POST[returning_uk]); + $vars[tent] = stripslashes($_POST[tent]); + $vars[top_tent_cap] = stripslashes($_POST[top_tent_cap]); + $vars[btent] = stripslashes($_POST[btent]); + $vars[base_tent_cap] = stripslashes($_POST[base_tent_cap]); + $vars[medic_info] = stripslashes($_POST[medic_info]); + $vars[extra_info] = stripslashes($_POST[extra_info]); + $vars[aims] = stripslashes($_POST[aims]); + $vars[transport_info] = stripslashes($_POST[transport_info]); + $vars[medication] = stripslashes($_POST[medication]); + $vars[allergies] = stripslashes($_POST[allergies]); + $vars[bivvy] = stripslashes($_POST[bivvy]); +} + +function errorPage ($err) +{ + echo <<Error + +END; + echo <<Sorry +

$err +END; +} + +function securityChecks () +{ + global $vars; + + $error = ""; + + if ($vars[name] == "") $error = "You must specify your full name."; + elseif ($vars[address] == "") $error = "You must specify your address."; + elseif ($vars[kinname] == "") $error = "You must specify the name of your next-of-kin."; + elseif ($vars[kinaddress] == "") $error = "You must specify your next-of-kin's address."; + elseif ($vars[kinphone] == "") $error = "You must specify your next-of-kin's phone number."; + elseif ($vars[email] != "" && !ereg( '^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+'. '@'. '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.' . '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $vars[email])) $error = "Invalid email address (leave blank if you don't have one)."; + elseif ($vars[kinemail] != "" && !ereg( '^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+'. '@'. '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.' . '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $vars[kinemail])) $error = "Invalid next-of-kin email address (leave blank if they don't have one)."; + elseif ($vars[veggie] != "yes" && $vars[veggie] != "no" && $vars[veggie] != "mostly") $error = "Invalid veggie specification."; + elseif ($vars[student] != "yes" && $vars[student] != "no") $error = "Invalid student specification."; + elseif ($vars[transport_ok] != "yes" && $vars[transport_ok] != "no") $error = "Invalid transport specification given."; + elseif ($vars[bivvy] != "" && $vars[bivvy] != "yes") $error = "Invalid bivvy specification."; + elseif ($vars[tent] != "" && $vars[tent] != "yes") $error = "Invalid Top Camp tent specification."; + elseif ($vars[btent] != "" && $vars[btent] != "yes") $error = "Invalid Base Camp tent specification."; + elseif ($vars[tent] == "yes" && ($vars[top_tent_cap] < 1 || $vars[top_tent_cap] > 9)) $error = "Invalid Top Camp tent capacity given."; + elseif ($vars[btent] == "yes" && ($vars[base_tent_cap] < 1 || $vars[base_tent_cap] > 9)) $error = "Invalid Base Camp tent capacity given."; + + if ($error != "") { + echo "Expo 2004 Application Form Error -- Cambridge University Caving Club"; + echo ""; + + echo "

"; + printHidden (); + + echo <<Expo 2004 Application Form Error +

Sorry, but you have made a mistake on your form:

+ $error +
+

Please click the button below and try again. +

+ +END; + + return false; + } + + return true; +} + +function showForm () +{ + global $vars; + + echo <<Expo 2004 Application Form -- Cambridge University Caving Club + +END; + echo <<Expo 2004 Application Form + +

This is the application form for Expo 2004, which runs from 10th July until 14th August. + +

This form is not secure and by submitting + this form you consent to its contents being used for Expo purposes and + being included in the Bier Book on Expo.

+ +
+
+ +

Section A: Personal information

+ +

General

+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
Your details: + Next of kin:
Full name:Name:
Address: + Address: +
Phone:Phone:
Email:Email:
Relation to you:
+ + + + + +
Are you a vegetarian?Are you a student/unwaged?
YesYes
Mostly "yes") echo " checked"; + echo <<No
"yes" && $vars[veggie] <> "mostly") echo " checked"; + echo <<No
+ +

Transport

+ +

Please look now at the transport arrangements page (will open in a new window). Then select one of the following. + +

The transport page shows my arrangements correctly. + +
The transport page does not show my arrangements correctly. + +

If your arrangements are shown incorrectly, then please state the + corrected version in the box below. This will automatically be + emailed to the transport co-ordinator. + +

+ +

Tents

+ +

There will be two high camps in 2004: +

  • the stone bridge bivvy site; +
  • the old Top Camp site, to be used for exploration of + Eislüfthöhle. +
+ +

There is space for three people in a Club tent at Base Camp. + There is space for five or six people in a Club tent at Top Camp. + At the stone bridge, a bivvy bag is not essential but useful if + you have one. + +

Will you be taking any of the following (please tick/complete as appropriate):
+ A bivvy bag suitable for the stone bridge.
+ A person + tent for the Top Camp site.
+ A person + tent for Base Camp.
+ +

Leave the boxes unchecked if you require Club tent space at a + particular site. + +

Medical

+ +

The medical information entered here will appear in the Bier Book. + Extra medical information may be communicated to + Martin Green; this will be + placed in sealed envelopes inside the large first aid kits for use in + case of emergency. Please ensure that you communicate such information + in good time. + +

Please list any allergies which you have: +

+ +

Please list any medication which you may be taking in Austria: +

+ +

Please list any other medical conditions you have that the expedition should be aware of:
+

+ + +

Other

+ +

Any other information, including any skills e.g. first aid, languages, etc. that you have:
+

+ +

Section B - Caving/surface work projects

+ +

To assist organisation of gear, it would be helpful to know + people's possible aims on Expo. Thus if you have a particular project in + mind, please state it below: + +
+ + + + +

+ +

All done?

+ +

Click the Preview button below to review your submission. + +

+ +

+ +
+

Please report any problems with this form to the + webmaster.

+END; +} + +function insertSlashes () +{ +} + +function printHidden () +{ + global $vars; + while (list ($key, $value) = each($vars)) + echo ""; +} + +function previewForm () +{ + global $vars; + + echo <<Expo 2004 Application Form Preview -- Cambridge University Caving Club + +END; + echo <<Expo 2004 Application Form Preview +

Please check the details below and then select one of the options at the + bottom of the page. +

+

Contact details

+

Your details

+

+

+END; + + printHidden (); + + $address1 = rtrim(ereg_replace(",,", ",", ereg_replace("(\r\n|\n|\r)", ", ", $vars[address])), " \t\n\r\0\x0b.,"); + $kinaddress1 = rtrim(ereg_replace(",,", ",", ereg_replace("(\r\n|\n|\r)", ", ", $vars[kinaddress])), " \t\n\r\0\x0b.,"); + + echo "Full name: $vars[name].
Address: $address1.
"; + echo "Phone: $vars[phone].
Email: "; + if ($vars[email] == "") echo "none"; else echo $vars[email]; + + echo "

Details for your $vars[relation]

"; + + echo "Full name: $vars[kinname].
Address: $kinaddress1.
"; + echo "Phone: $vars[kinphone].
Email: "; + if ($vars[kinemail] == "") echo "none"; else echo $vars[kinemail]; + + echo "

Miscellany

  • "; + + echo "You are"; + switch ($vars[veggie]) { + case "no": echo "n't"; break; + case "mostly": echo " mostly"; break; + default: break; + } + echo " a vegetarian.
  • You are"; + if ($vars[student] == "no") echo "n't"; + echo " a student/unwaged person."; + + if ($vars[bivvy] == "yes") + echo "
  • You're taking a bivvy bag suitable for the stone bridge."; + if ($vars[tent] == "yes") + echo "
  • You're taking a $vars[top_tent_cap] person tent suitable for Top Camp."; + if ($vars[btent] == "yes") + echo "
  • You're taking a $vars[base_tent_cap] person tent suitable for Base Camp."; + + echo "

Medical conditions

    "; + + echo "
  • Allergies: "; + if ($vars[allergies] == "") + echo "None."; + else + echo nl2br($vars[allergies]); + + echo "
  • Medication to be taken in Austria: "; + if ($vars[medication] == "") + echo "None."; + else + echo nl2br($vars[medication]); + + echo "
  • Other medical conditions: "; + if ($vars[medic_info] == "") + echo "None."; + else + echo nl2br($vars[medic_info]); + + echo "
"; + + if ($vars[aims] != "") { + echo "

Your aims for Expo

"; + echo nl2br($vars[aims]); + } + + if ($vars[extra_info] != "") { + echo "

Other information

"; + echo nl2br($vars[extra_info]); + } + + echo "

Transport

    "; + + if ($vars[transport_ok] == "yes") + echo "
  • The transport page shows your arrangements correctly."; + else { + echo "
  • The transport page does not show your arrangements correctly.
    "; + echo "The corrected version is: "; + echo nl2br($vars[transport_info]); + } + echo "
"; + + if ($vars[transport_info] != "") { + echo "

Other transport information

"; + echo nl2br($vars[transport_info]); + } + + echo << + +

If the above details are correct...

+ +

Only click once to avoid submitting duplicate forms. + +

+ +

If you want to change something...

+ +

If there is an error in the above details, press the button below to change them. +

+ +
+END; +} + +function updateDatabase () +{ + global $vars; + + $temp = ""; + + $address1 = rtrim(ereg_replace(",,", ",", ereg_replace("(\r\n|\n|\r)", ", ", $vars[address])), " \t\n\r\0\x0b.,"); + $kinaddress1 = rtrim(ereg_replace(",,", ",", ereg_replace("(\r\n|\n|\r)", ", ", $vars[kinaddress])), " \t\n\r\0\x0b.,"); + + $temp = $temp . "Form submission from:\n"; + $temp = $temp . " $vars[name]\n"; + $temp = $temp . " $address1\n"; + $temp = $temp . " Phone: $vars[phone]\n"; + $temp = $temp . " Email: "; + if ($vars[email] == "") $temp = $temp . "none"; + else $temp = $temp . "$vars[email]"; + + $temp = $temp . "\n\n"; + $temp = $temp . "Next of kin:\n"; + $temp = $temp . " $vars[kinname]\n"; + $temp = $temp . " $kinaddress1\n"; + $temp = $temp . " Phone: $vars[kinphone]\n"; + $temp = $temp . " Email: "; + if ($vars[kinemail] == "") $temp = $temp . "none"; + else $temp = $temp . "$vars[kinemail]"; + + $temp = $temp . "\n\n"; + $temp = $temp . "Vegetarian? $vars[veggie]\n"; + $temp = $temp . "Student/unwaged? $vars[student]\n\n"; + + if ($vars[transport_ok] == "yes") { + $temp = $temp . "Transport arrangements page is correct for this person.\n"; + } + else { + $temp = $temp . "Transport arrangements need changing to:\n"; + $temp = $temp . "$vars[transport_info]\n"; + $temp = $temp . "(Mark has been emailed and will update the page.)\n"; + } + + $temp = $temp . "\nTaking a bivvy bag? $vars[bivvy]\n"; + $temp = $temp . "\nTaking a Top Camp tent? $vars[tent]"; + if ($vars[tent] == "yes") + $temp = $temp . " (capacity $vars[top_tent_cap])\n"; + else $temp = $temp . "\n"; + $temp = $temp . "\nTaking a Base Camp tent? $vars[btent]"; + if ($vars[btent] == "yes") + $temp = $temp . " (capacity $vars[base_tent_cap])\n"; + else $temp = $temp . "\n"; + + $temp = $temp . "\nAllergies: $vars[allergies]\n"; + $temp = $temp . "Medication to be taken in Austria: $vars[medication]\n"; + $temp = $temp . "Other medical conditions: $vars[medic_info]\n\n"; + + $temp = $temp . "Aims for Expo: $vars[aims]\n\n"; + + $temp = $temp . "Other information: $vars[extra_info]\n"; + + mail ("David Loeffler \n", + "Expo form from $vars[name]", $temp, + "From: Expo forms \n"); + + if ($vars[transport_ok] == "no") { + $temp = "Transport page needs updating for $vars[name]:\n\n"; + $temp = $temp . $vars[transport_info] . "\n"; + mail ("Mark Shinwell ", + "Transport update from $vars[name]", $temp, + "From: Expo forms \n"); + } +} + +function submitForm () +{ + global $vars; + + updateDatabase (); + + echo <<Submission successful! + +END; + echo <<Expo 2004 Application + +

Submission successful! + +

Thank you for your application. Please address any questions + to the Expo Leader, Olly Madge. + +

Return to the main Expo page. +END; +} + +virtual("main.css"); + +switch ($_GET[action]) { + case "blank": + initVars (); + showForm (); + break; + + case "edit": + fillVars (); + showForm (); + break; + + case "preview": + fillVars (); + if (securityChecks ()) { + previewForm (); + } + break; + + case "commit": + switch ($_POST[submit]) { + case "I confirm that all details are correct.": + fillVars (); + if (securityChecks ()) { + insertSlashes (); + submitForm (); + } + break; + + case "Modify form."; + fillVars (); + showForm (); + break; + + default: + errorPage ("Invalid script action."); + } + break; + + default: + errorPage ("Invalid script action."); + break; +} + +?> + + + diff --git a/years/2004/travel.html b/years/2004/travel.html index e8470e623..4a5b69dd8 100644 --- a/years/2004/travel.html +++ b/years/2004/travel.html @@ -6,15 +6,15 @@