#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost','parcdemog','parc9904')or die "Couldn't connect to database: " . DBI->errstr; #my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost:3306','root','root') or die "Unable to connect: $DBI::errstr\n"; print < blk $cnt=param("cnt"); $shID=param("shID"); $FLG=0; $FLG1=0; $unAlloc=""; $emailFrom="parcdxb\@emirates.net.ae"; $sthE=$dbh->prepare("SELECT email from shopper WHERE ShID=$shID"); $sthE->execute; while ($em=$sthE->fetchrow_hashref()) { $email="$em->{'email'}"; } for ($i=1;$i<=$cnt ;$i++) { $n1 = "pa1".$i; $n2 = "pb2".$i; $n3 = "pc3".$i; $n4 = "pd4".$i; $n5 = "pe5".$i; $n6 = "pf6".$i; $n7 = "pg7".$i; my $locCode =param("$n1"); my $city =param("$n2"); my $location =param("$n3"); #uncommented for mail #my $type =param("$n4"); my $planDate =param("$n5"); my @arsdate=split('-',$planDate); $planDate=$arsdate[2]."-".$arsdate[1]."-".$arsdate[0]; my $planTime =param("$n6"); my $planCode =param("$n7"); my$YY = substr $arsdate[2],-2; my $visitCode=$locCode.$arsdate[0].$arsdate[1].$YY.$shID; #### Outer Loop Begins here if($planDate ne '--') { $comments="Visit has been approved for $location on $planDate $planTime. \n\nPlease use the INTERNET EXPLORER to fill the Questionnaire.\n\nPlease use the following link. \n\n\n"; $sthPC=$dbh->prepare("SELECT planCode from cf_visitPlan WHERE planCode=$planCode and hasMailed='F'"); $sthPC->execute; if($sthPC->rows==1) { my $strsql="INSERT INTO cf_visitDetail(planCode,visitCode,locCode,visitDate,visitTime,shID,hasMailed,hasVisited)VALUES ($planCode,'$visitCode','$locCode','$planDate','$planTime',$shID,'T','F')"; my $rv=$dbh->do($strsql); if($rv==1) { my $strSQL="update cf_visitPlan set hasMailed='T' where planCode='$planCode'"; my $rv=$dbh->do($strSQL); my $lnk = "http://www.arabdemog.com/reg/reg.pl?locCode=$locCode&planDate=$planDate&visitCode=$visitCode"; $comments="$comments $lnk"; $subject="Approved Visits of Carrefour!"; $sendmailpath="/usr/sbin/sendmail"; open (sil, "| $sendmailpath -t"); print sil "Subject: $subject\n"; print sil "From: $emailFrom\n"; print sil "To: $email\n"; print sil "$comments\n\n"; print sil "Thanks"; close (sil)|| print("unable to send $!"); $k=$k+1; $Alloc=$Alloc."$k$city$location$planDate$planTime"; $FLG1=1; $msg="Visit Plan submitted successfully!!!"; } } else { $m=$m+1; $FLG=1; $unAlloc=$unAlloc."$m$city$location$planDate$planTime"; } } ### Outer Loop Ends here } $dbh->disconnect; if($FLG1==1) { $Alloc="

Allocated Visit(s)

" .$Alloc."
S.No.CityLocationSelected DateTime
"; } else { $Alloc=" "; } if($FLG==1) { $unAlloc="

Unallocated Visit(s)

" .$unAlloc."
S.No.CityLocationSelected DateTime
"; } else { $unAlloc=" "; } print<

$msg

$Alloc

$unAlloc

 
blk1