Net::SMTP DBI Mail::Address Email::Valid sub start_form_Interest { my($ctxt)=@_; } sub validate_Lastname { my($ctxt,$value)=@_; $value=~s/^\s*//; $value=~s/\s*$//; die "You must enter a last name" unless length($value); } sub validate_Firstname { my($ctxt,$value)=@_; $value=~s/^\s*//; $value=~s/\s*$//; die "You must enter a first name" unless length($value); } sub validate_Email { my($ctxt,$value)=@_; die "You must enter a valid email address" unless Email::Valid->address($value); } sub submit_send { my($ctxt,$value)=@_; my $date = scalar localtime; my $name=$ctxt->{Form}{Firstname} . " " . $ctxt->{Form}{Lastname}; my $addr = Mail::Address->new($name, $ctxt->{Form}{Email}) or die "Unable to build From: address"; my $them = $addr->format(); my $us= "open_source_sustainability_2006-subscribe\@maillist.ox.ac.uk"; my $message = <<"EOT"; To: $us From: $them Subject: OSS Watch Sustainability Conference expression of interest $ctxt->{Form}{Firstname} $ctxt->{Form}{Lastname} ($ctxt->{Form}{Email}) is interested in the sustainability conference. EOT my $smtp= Net::SMTP->new('smtp.ox.ac.uk') or die; $smtp->mail($them); $smtp->recipient($us); $smtp->data($message); if ($smtp->quit) { return "." } else { return "." } } Open Source and Sustainability 2006 - conference announcement list OSS Watch, Oxford University OSS Watch
info@oss-watch.ox.ac.uk
http://creativecommons.org/licenses/by-sa/2.0/uk/ 2005-11-17

This is the master version of an original document, created by converting an HTML file to TEI XML on 2001/09/06.

 2005-11-17 author Sebastian Rahtz creation

Personal Details: First name: Last Name E-mail address:

Please add my name and email address to the mailling list for the OSS Watch sustainability conference in order to keep me informed of conference news, when bookings open and when the programme is ready.

You will receive a confirmation email after clicking the Send info button below.

This mailling list is solely for information concerning the Open Source and Sustainability 2006. To join OSS Watch's general announcement list please visit Participate.