#!/usr/bin/perl # Last change: 23 January 2002 #Copyright Coherent Software Australia Pty Ltd 1999-2002 $|=1; use CGI qw/:standard :html3/; use CGI::Carp; #require "secure.pl"; # following file contains code to read in seminar # locations, and format them for display $mailprog = '/usr/sbin/sendmail'; @required_fields = ( 'TITLE', 'CUSTOMER1', 'CUSTOMER2', 'ADDRESS', 'SUBURB', 'STATE', 'COUNTRY', 'POSTCODE', 'TELEPHONE_NUMBER', 'EMAIL_ADDRESS', 'ALLOW' ); @month = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ); #who made it and where to send the info (recipient) #$recipient = 'info@newline.com.au'; $recipient = 'info@gbpaints.com.au'; $subject = 'Thanks from GB Paints'; $subject3 = 'GB Paints Online Information Request'; $today = localtime; $missing = all_supplied(); # copy all form variables into $R package import_names('R'); if( $missing == 2 ) { # all required info supplied, so process #$thisref = $fulldata{ $R::SEMINAR_DATE }; %info = %$thisref; email_newline(); email_user(); send_thanks(); } else { # some fields missing ($missing=1), or first time here ($missing=0) show_form( $missing ); } # checks that all required info supplied # returns 0 if form not previously displayed, # 1 if form previously displayed nut not all required # fields filled in, and 2 if all okay. sub all_supplied { if( !defined( param('NOT_FIRST') ) ) { # haven't seen the form before return 0; } foreach $fld (@required_fields) { my $tmp = param($fld); if( !defined($tmp) || $tmp =~ /^\s*$/ ) { return 1; # means a required field is not present } } # Remove any spaces from email address before proceeding my ( $eaddress ) = param('EMAIL_ADDRESS'); $eaddress =~ s/\s//g; # removes any and all spaces #now set emailaddress to changed value param( -name=>'EMAIL_ADDRESS', -value=>"$eaddress" ); # check if email address plausible if( param('EMAIL_ADDRESS') =~ /\S+\@\S+\.\S+/ ) { # email okay return 2; } else { # email not okay return 1; } } sub send_thanks { print < The G.B. Paint Co. Pty. Ltd. - > Contact Us

Thanks $R::CUSTOMER1!

Your form has been completed successfully and your details have been sent to our office. A company representative will contact you shortly.

In the unlikely event we have not contacted you within 48 hours, please call (03) 9583 7055.

Click here to return to our products section.

Home | About | Products | Q & A | Contact

Web site by Newline Development Pty Ltd

EOF1 ; } sub email_newline { open( MAIL, "|$mailprog -t" ); print MAIL "To: $recipient\n"; print MAIL "From: info\@gbpaints.com.au\n"; print MAIL "Bcc: gbpaints\@newline.com.au\n"; print MAIL "Subject: $subject3\n\n"; print MAIL "On $today\n$R::TITLE $R::CUSTOMER1 $R::CUSTOMER2 \<$R::EMAIL_ADDRESS\> of\n\n"; print MAIL "$R::ADDRESS\n"; print MAIL "$R::SUBURB\n"; print MAIL "$R::STATE $R::POSTCODE\n"; print MAIL "$R::COUNTRY\n\n"; print MAIL "Phone: $R::PHONE_TYPE - $R::TELEPHONE_NUMBER\n"; print MAIL "Email: $R::EMAIL_ADDRESS\n\n"; print MAIL "completed your online more information form.\n\n"; print MAIL "$R::TITLE $R::CUSTOMER2 also had this to say:\n\n"; print MAIL "$R::QUEST\n\n"; print MAIL "\n\n\n"; print MAIL " This service provided by\n"; print MAIL "Newline Development Pty Ltd\n"; print MAIL " www.newline.com.au \n"; print MAIL " Have a great day!\n --------------------\n\n"; print MAIL ".\n"; close (MAIL); } sub email_user { open( UMAIL, "|$mailprog -t" ); print UMAIL "To: ".$R::EMAIL_ADDRESS."\n"; print UMAIL "From: $recipient \"The GB Paint Co. Pty. Ltd.\"\n"; print UMAIL "Reply-to: $recipient\n"; print UMAIL "Subject: $subject\n\n"; print UMAIL "\n"; print UMAIL "______________________________________________\n"; print UMAIL "\n"; print UMAIL "Dear $R::CUSTOMER1,\n\n"; print UMAIL "Thank you for your interest in the G.B Paint Co. Pty. Ltd. A company representative will contact you shortly.\n\n"; print UMAIL "In the unlikely event we have not contacted you within 48 hours, please call (03) 9583 7055.\n\n\n"; print UMAIL "Kind Regards,\n\n"; print UMAIL "Charlie Fallace\nGeneral Manager\n\n"; print UMAIL "______________________________________________\n\n"; print UMAIL "The G.B Paint Co. Pty. Ltd.\nABN: 14 090 739 727\n\n"; print UMAIL "Postal: 46 Taunton Drive, Cheltenham, Vic 3192\n"; print UMAIL "Phone: (03) 9583 7055\n"; print UMAIL "Fax: (03) 9583 7077\n"; print UMAIL "Email: info\@gbpaints.com.au\n"; print UMAIL "Internet: http://www.gbpaints.com.au/\n\n"; print UMAIL "______________________________________________\n\n"; print UMAIL "If you wish to have your email address removed from our database, please reply to this email and type \'UNSUBSCRIBE\' in the subject heading.\n\n"; close(UMAIL); } sub show_form { my ($missing ) = shift; # my (@options) = keys(%fulldata); my( $optref ) = $listref; print < The G.B. Paint Co. Pty. Ltd. - > Contact Us

If you are considering your next paint project, we would like to speak with you. Feel free to contact us via the following or by our information form:

Postal:	46 Taunton Drive, Cheltenham, Vic 3192
Phone:	(+613) 9583 7055
Fax:	(+613) 9583 7077
ABN:	14 090 739 727
Email:
Web:	www.gbpaints.com.au

For further information on our range of quality paint products, please complete the form below and a company representative will contact you:

EOF2 ; print start_form( -method=>POST, -name=>'enter' ); if( $missing == 1 ) { print '

Error

Please complete all * fields.

'; } print ''; print ''; print ''; print '

'; if( $missing == 1 ) { print '*'; } print ' Title:	'; print popup_menu( -name=>'TITLE', -values=>['','Mr', 'Mrs', 'Ms', 'Miss', 'Dr', 'Other'], -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' First name:	'; print textfield( -name=>'CUSTOMER1', -size=>21, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Surname:	'; print textfield( -name=>'CUSTOMER2', -size=>21, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Address:	'; print textfield( -name=>'ADDRESS', -size=>21, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Suburb:	'; print textfield( -name=>'SUBURB', -size=>21, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' State:	'; print popup_menu( -name=>STATE, -values=>['VIC', 'SA', 'TAS', 'WA', 'NT', 'QLD', 'NSW', 'ACT', 'Other'], -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Postcode:	'; print textfield( -name=>'POSTCODE', -size=>21, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Country:	'; print textfield( -name=>'COUNTRY', -size=>21, -value=>'Australia', -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Phone:	'; print popup_menu( -name=>PHONE_TYPE, -values=>['Home', 'Work', 'Mobile'], -class=>'myfield' ); print textfield( -name=>'TELEPHONE_NUMBER', -size=>9, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print ' Email Address:	'; print textfield( -name=>'EMAIL_ADDRESS', -size=>21, -class=>'myfield' ); print '
'; print ' Do you have any questions to ask? '; print textarea( -name=>'QUEST', -rows=>5, -cols=>55, -class=>'myfield' ); print '
'; if( $missing == 1 ) { print '*'; } print checkbox_group( -name=>'ALLOW', -value=>['I UNDERSTAND THAT BY COMPLETING THIS FORM I WILL BE CONTACTED BY THE GB PAINT COMPANY PTY LTD.'] ); print ' '; print submit( -value=>'CLICK HERE TO SEND FORM', -class=>'send2', -name=>'enter' ); print ' '; print reset( -value=>'Clear', -class=>'send3' ); print '

'; print "\n"; print "\n"; print hidden( -name=>'NOT_FIRST', -value=>'TRUE' ); # keeps track of whether the user has # seen this form before. print "\n"; print end_form(); print <

Home | About | Products | Q & A | Contact

Web site by Newline Development Pty Ltd

EOF3 ; }