#!/usr/bin/perl use strict; use CGI qw(:standard); # MAIN # get the paramter from the form my $phase = param("phase"); if ($phase eq '') { &show_form_text(''); } else { &process_form(); } # END MAIN ############################################################## # Show the form and the message and the leading text #### sub show_form_text { my $text = $_[0]; &print_start_of_page(); &print_leading_text(); &print_form($text); &print_end_of_page(); } ############################################################## # Show the form and the message #### sub show_form { my $text = $_[0]; &print_start_of_page(); &print_form($text); &print_end_of_page(); } ############################################################## # Actualy print the form #### sub print_form { my $text = $_[0]; my $email = param("email"); my $sex = param("sex"); my $age = param("age"); my $desease = param("desease"); my $description = param("description"); print("
\n"); print("\n\n"); print("\n"); if ($text eq '') { # do nothing } else { 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("\n"); print("\n"); print(" \n"); print(" \n"); print("\n"); print("\n"); print("\n"); print(" \n"); print("\n"); print("
\n"); print(" $text\n"); print("
\n"); print(" Uw e-mail\n"); print(" \n"); if ($email eq '') { print(" \n"); } else { print(" \n"); } print("      Gebruik een email dat werkt!!!\n"); print("
\n"); print(" Geslacht\n"); print(" \n"); if ($sex eq '') { print(" Man
\n"); print(" Vrouw\n"); } else { if ($sex eq 'man') { print(" Man
\n"); print(" Vrouw\n"); } else { print(" Man
\n"); print(" Vrouw\n"); } } print("
\n"); print(" Leeftijd\n"); print(" \n"); if ($age eq '') { print(" \n"); } else { print(" \n"); } print("
\n"); print(" Ziekte
aandoening\n"); print(" 		\n"); if ($desease eq '') { print(" \n"); } else { print(" \n"); } print("
\n"); print(" Aanvraag voor\n"); print(" \n"); if ($description eq '') { print(" \n"); } else { print(" \n"); } print("
\n"); print(" \n"); print("
\n"); print("
\n"); return; } ############################################################## # Process a form, check whether all values are correct, else request them #### sub process_form { my $email = param("email"); my $sex = param("sex"); my $age = param("age"); my $desease = param("desease"); my $description = param("description"); my $check = 1; my $text = ''; if($email eq '') { $text = $text . "

U moet niet vergeten uw e-mail adres in te vullen!

\n"; $check = 0; } if($sex eq '') { $text = $text . "

U moet niet vergeten aan te vinken van welk geslacht u bent!

\n"; $check = 0; } if($age eq '') { $text = $text . "

U moet niet vergeten in te vullen wat uw leeftijd is!

\n"; $check = 0; } if($desease eq '') { $text = $text . "

U moet niet vergeten in te vullen welke ziekte of aandoening u heeft!

\n"; $check = 0; } if($description eq '') { $text = $text . "

Het is belangrijk dat u ook enige aanvullende gegevens invult!

\n"; $check = 0; } if($check == 0) { # found an error, ask again &show_form($text); return; } # # Everthing checks out, send the message # my $date = &mailtime(); my $subject = "[AANVRAAG OVERGEWICHT] $sex, $age, Ziekte/aandoening: $desease"; open (MAIL, "|/usr/sbin/sendmail -t"); print(MAIL "Date: $date\n"); print(MAIL "To: cora\@coradefluiter.nl\n"); print(MAIL "From: $email\n"); print(MAIL "Subject: $subject\n"); print(MAIL "Mime-Version: 1.0\n"); print(MAIL "X-Mailer: E-Lists v2.2\n"); print(MAIL "Content-Type: text/plain;\n"); print(MAIL "Content-Transfer-Encoding: 7bit\n\n"); print(MAIL "$description\n\n"); close (MAIL); &print_start_of_page(); print("

Bericht verstuurd


\n"); print("Date: $date
\n"); print("To: Cora de Fluiter
\n"); print("From: $email
\n"); print("Subject: $subject

\n"); print("$description

\n\n"); &print_end_of_page(); return; } ############################################################## # Returns the current time in a nice layout, needed for mailing the message #### sub mailtime { my($sec,$min,$hour,$mday,$mon,$year,$wday,$w,$ww,$www); my(@wkdy)=qw~Sun Mon Tue Wed Thu Fri Sat~; my(@mnth)=qw~Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec~; my $gmtPlusMinus = 2; ($sec,$min,$hour,$mday,$mon,$year,$wday) = (gmtime(time)); $hour = $hour + $gmtPlusMinus; if ($year > 99) {$year = 2000 + ($year - 100);} elsif ($year < 100) {$year = "19$year";} $w = $gmtPlusMinus /60 /60; ($ww = $w) =~ s/\..*//; ($www = $w) =~ s/$ww//; $www = (60 * $www); return sprintf("$wkdy[$wday], %02d $mnth[$mon] %04d %02d:%02d:%02d %+03d%02d (GMT)",$mday,$year,$hour,$min,$sec,$gmtPlusMinus,$www); } ############################################################## # Print a standard page beginning #### sub print_start_of_page { &print_header(); print("\n"); print("<\!DOCTYPE html PUBLIC '//W3C//DTD XHTML 1.1 STRICT//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'/>\n"); print("\n"); print("\n"); print("Elektronisch spreekuur: Behandel eerst de oorzaak van uw gewichtstoename.\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("
\n"); print("\n"); print(" \n"); print(" \n"); print("
\n"); print("\n"); print("\n"); } ############################################################## # Print a html header according to protocol #### sub print_header { print("Content-type: text/html\n\n"); }