use strict;
use DBI;
#   populateFacultyTable.pl
#       Insert a row using DBI::ODBC

#   Global variables for porting.
my $DSN = 'yue';
my $DIRECTORY_FILENAME = "directory.txt";
my $DEBUG = 1;

my $dbh = DBI->connect("dbi:ODBC:$DSN");

#   Open input file and get directory data.
open IN, $DIRECTORY_FILENAME
    || die "Can't open $DIRECTORY_FILENAME.\n";

while ($_ = <IN>) {
   #   Process one record.
   chomp;
   my ($lastname, $firstname, $phone, $email) = split ',';
   #   Insert the record.
   $lastname =~ s/'/''/g;
   $firstname =~ s/'/''/g;
   $phone =~ s/'/''/g;
   $email =~ s/'/''/g;
   my $sql = "INSERT INTO Faculty(LastName,FirstName,Phone,Email) " .
             "values('$lastname','$firstname','$phone','$email')";
   print "SQL => $sql\n" if $DEBUG;
   my $sth = $dbh->prepare($sql);
   $sth->execute();
}

$dbh->disconnect;
exit 0;