#!/usr/bin/perl -w

use strict;
use vars qw($dsn $db $ret $count);
use Win32::ODBC;
use Date::Parse;

$count = 0;
$dsn = "extent";
#my $db = new Win32::ODBC("DSN=extent;UID=administrator;PWD=password") || die "new odbc: " . Win32::ODBC::Error();
$db = new Win32::ODBC("extent");
if (! $db) {
  die "new: ". Win32::ODBC::Error();
}
$ret = $db->Sql("SELECT * FROM Users, UserDetails WHERE Users.UserIndex = UserDetails.UserIndex AND CreateDate BETWEEN {ts '2001-11-20 00:00:00'} AND {ts '2001-11-20 23:59:59'} ORDER BY Users.UserID");
if ($ret) {
  die "sql: ". $db->Error() . "\n";
}
while ($db->FetchRow()) {
  my %d = $db->DataHash();
  if (defined $d{CreateDate}) {
    my $date = str2time($d{CreateDate});
    if (! defined $date) {
      print "Bad date: $d{CreateDate}\n";
    }
#      print "User: $d{UserID}\n";
#      print "Password: $d{Password}\n";
#      print "CreateDate: $d{CreateDate}\n\n";

    print "$d{UserID},$d{Password}\n";
    $count++;
  }
#    foreach(keys %d) {
#      if(defined $d{$_}) {
#        print "$_: $d{$_}\n";
#      }
#    }
}

print "\n--------------\nTotal: $count\n";
DESTROY {
    $db->Close();
}