#!/usr/bin/perl
use strict;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";
use DBI;

my $serverName = "db-mysql";
my $serverPort = "zenit.senecac.on.ca:3306";

#################################################
#          Change the next three lines          #
#################################################

my $serverUser = "int322_101b04";
my $serverPass = "26596312";
my $serverDb   = "int322_101b04";

my $serverTabl = "mysql";
my ($dbh, $ex6, @row);
$dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort", $serverUser, $serverPass) or die("Can't connect to the database: " . DBI->errstr);

$ex6 = $dbh->prepare("select * from mysql");
$ex6->execute;

print
  header,
  start_html("mysql"),
  h1("mysql");
  print "\n";
  print "First Name\t|Last Name\t|SID\t|Logins", br;
while(@row = $ex6->fetchrow_array){
  print $row[0],"\t\t|",$row[1],"\t|", $row[2],"\t|",$row[3],br;
}

print end_html;
$ex6->finish;
$dbh->disconnect();