#!/usr/bin/perl -w

use lib "/www/opals/module";


use strict;
#use Opals::Context;
use Opals::Context("/etc/opals/conf/dps_dhs");

use Text::CSV_XS;
use Getopt::Std;

my %options = ();
getopts("i:",\%options);
my $myFile = $options{i};
if (!$myFile || ! -f $myFile) {
    print "Usage: $0 -i IN_FILE\n";
    exit 1;
}

my $dbh = Opals::Context->dbh();;
END {
    if ($dbh) {
        $dbh->disconnect();
    }
}
#$| = 1;
# Codes start...


my $csv = Text::CSV_XS->new({ binary => 1 });
my $myLine;
open TMPFILE, "$myFile";

my $max = 0;
my @headerList = ();
my $rid = 1;
my $header = <TMPFILE>;
$csv->parse($header);
my @field = $csv->fields();

foreach my $f (@field){
    $f =~ s/^\s+//;
    $f =~ s/\s+$//;
    print $f , "\n";
    push @headerList , $f;
}


while (<TMPFILE>){
    $myLine = $_;
    chomp;
    #print "record :" ,$myLine,"\n";
    $csv->parse($myLine);
    my @field = $csv->fields();
    my ($name, $code)  =("","") ;
    $name = $field[0];
    $code = $field[1];
    my $params = {
        name    => $name,
        code    => $code
    };
    addCourses($dbh, $params);
    print $max , "-name :" , $name,  "\t", "code: ",  $code, "\n";

    $max++;
    #last if ($max > 100);
}

close TMPFILE;

# Codes end.

exit 0;

sub addCourses {
    
    my ($dbh, $params) = @_;
    return -1 if ($params->{'code'} eq '' || $params->{'name'} eq '');
    my $sql = "insert into tb_courseList set courseCode=?, courseName=?, schoolYear = 2 ";

    my $sth = $dbh->prepare($sql);
    $sth->execute($params->{'code'}, $params->{'name'});
    my $id = $dbh->{'mysql_insertid'};
    $sth->finish;
    return $id;

}