Pan Arab Research Center

#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; my $dbh=DBI->connect('dbi:mysql:TECESS:localhost','arabdemog_com','p2a9r7cd'); #my $dbh=DBI->connect('dbi:mysql:tecess:localhost:3306','root','root') or die "Unable to connect: $DBI::errstr\n"; $str1=""; $tot=0; $temp=0; $cnt=0; $me3=0; $me5=0; $tmail=0; $culr=""; $totmail=0; $tme3=0; $tme5=0; $pe=0; $per=0; $pe1=0; $per1=0; $dcode=0; ##Parameters - Start $strSQL="SELECT d.deptcode,d.deptdesc,d.Total,d.ME3,d.ME5,count(*) FROM esdept1 as d, ess_entry as e WHERE d.deptcode=e.dept group by d.deptcode,d.deptdesc,d.Total,d.ME3,d.ME5 order by deptcode"; $sthAT=$dbh->prepare($strSQL); $sthAT->execute; print < Pan Arab Research Center blk1 $str1=$str1 . "CodeDepartmentTotal EmailsME3ME5Achieved % on (ME3) % on (ME5)"; while (@strVal=$sthAT->fetchrow_array()) { $pe=0; $dcode=@strVal[0]; if($dcode==28) { $dcode=26; } elsif($dcode==29) { $dcode=27; } elsif($dcode==30) { $dcode=28; } elsif($dcode==31) { $dcode=29; } elsif($dcode==32) { $dcode=30; } $temp=@strVal[5]; $tmail=@strVal[2]; $me3=@strVal[3]; $me5=@strVal[4]; $pe1=$temp/$me5*100; $pe1=sprintf("%d", $pe1); $pe=$temp/$me3*100; $pe=sprintf("%d", $pe); $totmail=$totmail+$tmail; $tme3=$tme3+$me3; $tme5=$tme5+$me5; if($temp>=$me3) { $bgculr="#254117"; } elsif($temp>=$me5 & $temp<$me3) { $bgculr="#0000A0"; } elsif($temp<$me5) { $bgculr="#800000"; } $culr=""; $str1=$str1 . "$dcode@strVal[1]$tmail$me3$me5 $temp$pe$pe1"; $cnt=$cnt+@strVal[2]; $tot=$tot+$temp; } $per1=$tot/$tme5*100; $per1=sprintf("%d", $per1); $per=$tot/$tme3*100; $per=sprintf("%d", $per); $str1=$str1 . "Total$totmail$tme3$tme5 $tot$per$per1"; print <

Employee Satisfaction Survey - 2014

$str1

Powered by Pan Arab Research Center

blk2