#!/usr/bin/perl -w
use CGI qw(standard);
use DBI();
use DBD::mysql;
use warnings;
use diagnostics;
my $q = CGI->new;
my $name = $q->param('name');
my $dbh = DBI->connect('dbi:mysql:oncall','webuser','password')
or die "Connection Error: $DBI::errstr\n";
my $sth = $dbh->prepare('Select * from users where name = "$name"');
$sth->execute();
print $q->header;
print $q->start_html;
print "\n\nUsers scheduled\n\nUsers Schedules\n";
print "\n";
print "| Name | >On-Call | >Phone Number | \n";
my ($name, $day, $phone) = $sth->fetchrow_array();
print "
|---|
| $name | $day | $phone | \n";
print "
\n";
$sth->finish();
$dbh->disconnect();
exit;