#!/usr/local/bin/perl $mail_prog = '/usr/lib/sendmail' ; # This script was generated automatically by Visual Form Mail: http://www.oneseek.com &GetFormInput; $first = $field{'first'} ; $company = $field{'company'} ; $address = $field{'address'} ; $phone = $field{'phone'} ; $email = $field{'email'} ; $post = $field{'post'} ; $whereheard = $field{'whereheard'} ; $Yes_conference = $field{'Yes_conference'} ; $message = "" ; $found_err = "" ; $errmsg = "

Field 'First Name and Surname' must be filled in.

\n" ; if ($first eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Field 'Company' must be filled in.

\n" ; if ($company eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Field 'Address' should contain a Street address, Post code, Town and Country.

\n" ; if ($address eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Field 'Phone/Fax' must be filled in.

\n" ; if ($phone eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Please enter a valid email address

\n" ; if (($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) || ($email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/)) { $message = $message.$errmsg ; $found_err = 1 ; } if ($found_err) { &PrintError; } $recip = "design\@city.ac.uk" ; $frm_ = $email ; $sbj_ = "Registration for Short Course on Advanced Tools and Methods in Compressor Design" ; $hd_ = $recip.$frm_.$sbj ; if (($hd =~ /(\n|\r)/m) || ($recip =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) || ($recip !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/)) { print "Fatal Error - Invalid email" ; exit 0; } open (MAIL, "|$mail_prog -t"); print MAIL "To: $recip\n"; print MAIL "Reply-to: $frm_\n"; print MAIL "From: $frm_\n"; print MAIL "Subject: $sbj_\n"; print MAIL "\n\n"; print MAIL "First name and Surname: ".$first."\n" ; print MAIL "Company: ".$company."\n" ; print MAIL "Street Address: ".$address."\n" ; print MAIL "Phone/Fax: ".$phone."\n" ; print MAIL "E-mail address: ".$email."\n" ; print MAIL "Position: ".$post."\n" ; print MAIL "Where heard about course: ".$whereheard."\n" ; print MAIL "Attending Conference: ".$Yes_conference."\n" ; print MAIL "\n\n"; close (MAIL); print "Content-type: text/html\n\n"; print ''."\n" ; print "\n" ; print "\n" ; print ''."\n" ; print "\n" ; print ''."\n" ; print ''."\n" ; print ''."\n" ; print ''."\n" ; print "\n" ; print "city-design.tk\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 " \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 ' \n" ; print " \n" ; print "
'."\n" ; print "

 

\n" ; print "
'."\n" ; print "

Short Course on

\n" ; print "

ADVANCED METHODS AND TOOLS IN COMPRESSOR DESIGN

\n" ; print "

City University,'."\n" ; print " London, 3-4 September 2005

\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 "

Thank you, your\n" ; print " form has been submitted successfully

\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 "

Thank You, ".$first."!

\n" ; print "

You submitted following\n" ; print " information:

\n" ; print "

Company:      ".$company."
\n" ; print " Address:        ".$address."
\n" ; print " Phone/Fax:    ".$phone."
\n" ; print " Email:             ".$email."

\n" ; print "

 

\n" ; print "

The organising team of the 4th\n" ; print " International Conference of Compressors and Their Systems from ImechE\n" ; print " will be in contact with you shortly in order to confirm and/or to\n" ; print " register you for the short course on “Advanced Methods and Tools in\n" ; print " Compressor Design” at City University in London.

\n" ; print "

 

\n" ; print "

Please click the link below to go to the Course main\n" ; print " page:

\n" ; print "

Short Course on AMTCD

\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 "\n" ; print "\n" ; sub PrintError { print "Content-type: text/html\n\n"; print $message ; print "

Please use your browser's Back button to return to the form.

" ; exit 0 ; return 1 ; } sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; #if you want multi-selects to goto into an array change to: #$field{$name} .= "\0$val"; } } } return 1; }