#!/usr/bin/perl

use strict;
use Date::Manip;
use vars qw($domaindb);
do "data/domaindb.pl";

my $out;
while(my $line = <>) {
  chomp $line;
  my ($sr_no,$order_id,$txn_id,$cust_id,$desc,$txn_date,$txn_type,$amount,$pending_amount) = split(',',$line);
  #print "Data: $sr_no,$order_id,$txn_id,$cust_id,$desc,$txn_date,$txn_type,$amount,$pending_amount\n";

  if($desc =~ /(Renewal|Transfer|Registration) of (\S*)/) {
    if($txn_type eq 'Invoice') {
    my $domain = $2;
    $txn_date = UnixDate($txn_date,"%Y-%m-%d");
    $amount =~ s/\((.*)\)/-$1/;
    my $username = "UNKOWN";
    if($domaindb->{$domain}->{owner}) {
      $username = $domaindb->{$domain}->{owner};
    }
    print "Username: $username\tDomain: $domain\tDate:$txn_date\tAmount:$amount\n";
    open my $userfile, '>>', "data/userdata/$username.txt" or die "Err...";
    print $userfile "$txn_date\t$amount\t$desc\n";
    close $userfile;
    }
  } else {
#    print "Can't find domain! '$desc'\n";
  }

=cut

  $out = '';
  if($line =~ /\s(\S+)\s(for|from)\s/) {
    my $domain = $1;
    $out .= "$line,$domain";
    if($domaindb->{$domain}->{owner}) {
      $out .= ",$domaindb->{$domain}->{owner}";
    } else {
      $out .= print ",UNKNOWN";
    }
    my @row = split /,/, $out;
    my ($username, $date, $amount, $desc) = @row[9,5,7,4];
    $date = UnixDate($date,"%Y-%m-%d");
    open my $userfile, '>>', "data/userdata/$username.txt" or die "Err...";
    print $userfile "$date\t-$amount\t$desc\n";
    close $userfile;
  } else {
    print "$line,domain,username";
  }

=cut

}