#!/usr/bin/perl

use DBI;
use Getopt::Std;

$mydir = `cd \$(dirname $0) 2>/dev/null; pwd`; chomp($mydir);
unshift @INC,("$mydir/../setup");
if( -f "$mydir/../setup/db_config.local") { require "db_config.local"; }
else { require "db_config"; }

%hometeaching_data = ();
%membership_data = ();
getopts('vsn:o');

######################################################################
# SUBROUTINES
######################################################################
sub csv_to_hash
{
	my ($filename, $hashref) = @_;

	open(FILE,$filename) || die "-E- Could not open $filename for reading\n";

	my $found_header = 0; my $index = 0;
	while(<FILE>)
	{
		$line = $_;
		@data = split /\",/, $line;
		if(!$found_header) { @header = @data; $found_header = 1; }
		else {
			foreach $i (0..$#data-1) {
				$data[$i] =~ s/\"//g;
				$header[$i] =~ s/\"//g;
				$hashref->{$index}{$header[$i]} = $data[$i];
				#print "$index: $i: $header[$i]: $data[$i]\n";
			}
			$index++;
		}
	}

	close(FILE);
}

######################################################################
sub print_hash
{
	my ($hashref) = @_;

	foreach $key (sort {$a <=> $b} keys %$hashref) {
		print "Index: $key\n";
		foreach $field (keys %{$hashref->{$key}}) {
			print "$field: $hashref->{$key}{$field}\n";
		}
		print "\n";
	}
}

######################################################################
# MAIN
######################################################################

###################################################
# Open a connection to the database
$dbh=DBI->connect("dbi:mysql:dbname=$dbname:host=$dbhost:port=$dbport",$dbuser,$dbpass,{
    AutoCommit=>0,
    PrintError=>0}) or print "Connect Failure:".$DBI::errstr."\n" and exit 2;

###################################################
# Process command line options
if(defined $opt_n) { $datadir = $opt_n; }
else { $datadir = shift(@ARGV); }
print "-> Processing all ward data files in $datadir\n";

###################################################
# Parse Ward Data Files
&csv_to_hash("$datadir/Membership.csv",\%membership_data);
&csv_to_hash("$datadir/HomeTeaching.csv",\%hometeaching_data);

if($opt_v) {
	print "-> Membership Data Dump\n\n";
	&print_hash(\%membership_data);
	print "-> HomeTeaching Data Dump\n\n";
	&print_hash(\%hometeaching_data);
}

if($opt_s) { $dbh->disconnect(); exit; }

###################################################
# Disconnect from the database
$dbh->disconnect();

######################################################################