#!/usr/bin/perl use strict; use warnings; use DBI; use CGI; use CGI::Carp qw(fatalsToBrowser); #print "Content-type: text/html\n\n"; my $database = "dbname"; my $db_server = "hostname"; my $user = "dbusername"; my $password = 'pwd'; #single quote as it contained $ my $query = new CGI; print $query->header; my $dbh = DBI->connect("DBI:mysql:$database:$db_server",$user,$password); my $statement = "select active from comm_desk_widget_status where user = 'admin' order by name asc"; my $sth; $sth = $dbh->prepare($statement) or die "Couldn’t prepare the query: $sth->errstr"; my $rv = $sth->execute or die "Couldn’t execute query: $dbh->errstr"; print < CommDesk Dashboard
Call Volume Tab Configuration
Customize your personal view of the Call Volume Tab. HTML; #stop HTML printing in chunk. But when this file is fetched from browser, it displays everything starting from the following line until next while (my \@row = $sth->fetchrow_array) { print ""; print ""; if (row[0] eq '1') { print ""; } else { print ""; } if (row[1] eq '1') { print ""; } else { print ""; } print ""; print ""; if (row[2] eq '1') { print ""; } else { print ""; } if (row[3] eq '1') { print ""; } else { print ""; } print ""; print ""; if (row[4] eq '1') { print ""; } else { print ""; } if (row[5] eq '1') { print ""; } else { print ""; } print ""; print ""; if (row[6] eq '1') { print ""; } else { print ""; } if (row[7] eq '1') { print ""; } else { print ""; } print ""; print "
% Trunk Usage
% Trunk Usage
Pre-IVR Call Volume
Pre-IVR Call Volume
Trunk Group Utilization
Trunk Group Utilization
Average Speed of Answer
Average Speed of Answer
Outage Call Volume
Outage Call Volume
IVR Call Volume
IVR Call Volume
Non-Outage Call Volume
Non-Outage Call Volume
Post-IVR Call Volume
Post-IVR Call Volume
"; print < HTML