#!/usr/bin/perl

$fileextension = "csv";

$divider = "\,";  # comma
#$divider = "\|";  # pipe
#$divider = "\t";  # tab


$d_name = "muncieml_db1";
$d_username = "muncieml_db1";
$d_pass = "\@rockdb1";


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



@days   = ('Sunday','Monday','Tuesday','Wednesday',
               'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
	         'August','September','October','November','December');


    ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
if ($hour eq "13") {
$hour = "1";
$pm = "y";
}if ($hour eq "14") {
$hour = "2";
$pm = "y";
}if ($hour eq "15") {
$hour = "3";
$pm = "y";
}if ($hour eq "16") {
$hour = "4";
$pm = "y";
}if ($hour eq "17") {
$hour = "5";
$pm = "y";
}if ($hour eq "18") {
$hour = "6";
$pm = "y";
}if ($hour eq "19") {
$hour = "7";
$pm = "y";
}if ($hour eq "20") {
$hour = "8";
$pm = "y";
}if ($hour eq "21") {
$hour = "9";
$pm = "y";
}if ($hour eq "22") {
$hour = "10";
$pm = "y";
}if ($hour eq "23") {
$hour = "11";
$pm = "y";
}if ($hour eq "0" || $hour eq "" || $hour eq "24") {
$hour = "12";
}
$newyear = $year+1900;
$time = sprintf("%02d:%02d",$hour,$min);
$tdate = "$days[$wday], $months[$mon] $mday, $newyear";
$mon = $mon + 1;



if ($pm eq "y") {
$tm = "pm";
}
else {
$tm = "am";
}

if ($mon < "10") {
$mon = "0$mon";
}

if ($mday < "10") {
$mday = "0$mday";
}

$actdate = "$newyear\_$mon\_$mday";


use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;

my $uasth = $dbh->prepare("select firstname,lastname,address,city,state,zipcode,Phone,email,timetomove,realtor,myERAAgent,DATE_FORMAT(datestamp, '%b %D at %Y %h\:%i%p'),DATE_FORMAT(lastlogin, '%b %D at %Y %h\:%i%p'),UserType from users");
$uasth->execute;

print "Content-type: application/octetstream\n";
print "Content-Disposition: filename=\"muncieml\_$actdate\.$fileextension\"\n";
print "Pragma: no-cache\n";
print "Expires: 0\n\n";

while (($firstname,$lastname,$address,$city,$state,$zipcode,$Phone,$email,$timetomove,$realtor,$myERAAgent,$datestamp,$lastlogin,$UserType) = $uasth->fetchrow_array()) {


#########################
$fieldformat = "$firstname$divider$lastname$divider$address$divider$city$divider$state$divider$zipcode$divider$Phone$divider$email$divider$timetomove$divider$realtor$divider$myERAAgent$divider$datestamp$divider$lastlogin$divider$UserType\r\n";
#########################



print "$fieldformat";



}



$dbh->disconnect;