Enquiry Form
* Marked fields are Mandatory.
/$BODY/;
$content =~ s//$title/;
$Response->write($content);
sub f_send {
my $body = qq[
The following message is received from your website Contact Us Page\n\n
Visitor Name: $data{'name'} \n
Organisation: $data{'organisation'} \n
Designation: $data{'designation'} \n
Visitor Phone: $data{'phone'} \n
Prefered Contact Time: $data{'contactTime'} \n
Email: $data{'email'} \n
Address: $data{'address'} \n
Message: $data{'message'} \n
### end of message ###
];
&f_sendEmail( "Website Visitor", $data{'email'}, $data{'emailList'}, "Message from your website visitor - Contact Us", $body );
}
sub f_readFile {
local( $fileName ) = shift;
local( $tempContent );
open( FL2, "<$filename" );
@tempContent ="
;
close( FL2 );
return ( join( '', @tempContent ) );
}
sub f_readFileIntoArray {
my $fileName = shift;
my @lines;
open( FL1, "<$filename" );
@lines ="
;
close( FL1 );
return ( @lines );
}
sub f_getClientVariable {
my $var1 = shift;
my $default1 = shift;
my $temp1 = '';
if ( $var1 eq null ) {
return 'null';
}
if ( defined($Request->Form($var1)->Item) ) {
$temp1 = $Request->Form($var1)->Item;
}
if ( $temp1 ne '' ) {
return $temp1;
}
elsif ( defined($default1)) {
return $default1;
}
return 'null';
} ##f_getClientVariable
sub f_sendEmail {
my $fromWhom = shift;
my $fromEmail = shift;
my $toEmail = shift;
my $subject = shift;
my $body = shift;
$fromWhom = 'From HamaraShehar' if ($fromWhom eq '');
$fromEmail = 'mayor@hamarashehar.com' if ($fromEmail eq '');
$objMail = $Server->CreateObject("CDO.Message");
$objMail->{'To'} = $toEmail;
$objMail->{'Subject'} = $subject;
$objMail->{'From'} = $fromEmail;
$objMail->{'TextBody'} = $body;
$rc = $objMail->send();
undef $objMail;
return 1;
}
sub isLengthMin ( $$$ ) {
my ( $data, $length, $errorMessage ) = @_;
if (length( $data ) < $length ) {
$ERRORTEXT .= qq[
$errorMessage];
return 0;
}
return 1;
} # isLengthMin
sub isLengthMax ( $$$ ) {
my ( $data, $length, $errorMessage ) = @_;
if (length( $data ) > $length ) {
$ERRORTEXT .= qq[
$errorMessage];
return 0;
}
return 1;
} # isLengthMax
--> |
 |
