#!/usr/local/bin/perl use CGI qw(:standard :html); $recipients="jeo\@math,rll\@math,jmr\@math,bhunt\@math"; @recipientlist=("Brian Hunt","Ron Lipsman","John Osborn","Jonathan Rosenberg"); $labels{'jmr\@math'}="Jonathan Rosenberg"; $labels{'bhunt\@math'}="Brian Hunt"; $labels{'jeo\@math'}="John Osborn"; $labels{'rll\@math'}="Ron Lipsman"; $mailprog = '/usr/lib/sendmail'; $title = 'Contact Us'; print header; print start_html(-title=>$title, -BGCOLOR=>'white', -BACKGROUND=>"../images/border.gif"); ################################################################### print "
| ";
print " "; ###if first time called or via cancel button unless (param()) { print center(h1("The SCHOLaR ODE Project")), p, center(h2('Contact Us')), p,"Please use this form to send us your comments and to request information about our books or projects.", br, start_form(), table(TR(td("Your Name:"),td(textfield(-name=>'name',-size=>40))), TR(td("Affiliation:"),td(textfield(-name=>'affiliation', -size=>40))), TR(td("Email Address:",br,br),td(textfield(-name=>'email',-size=>40),br,br)), TR(td("Comments:"),td()), TR(td({-colspan=>2}, textarea(-name=>'comments',-rows=>20,-columns=>50))), td(submit(-name=>"Submit"))), # "If you want to target your request or comment to a specific author, use this selection list.",br, # scrolling_list(-name=>'recipient', # -value=>[@recipientlist], # -labels=>\%labels, # -size=>5), end_form} else { open (MAIL, "|$mailprog $recipients") || die "Can't open $mailprog!\n"; print MAIL "Subject: Comment from SCHOL ODE site\n\n"; print MAIL "Name: ",param('name'),"\n", "Affiliation: ",param('affiliation'),"\n", "Email: ",param('email'),"\n\n", param('comments'); close(MAIL); print h3("Thank you for your comments."); } print " |