#!/usr/bin/perl

use strict;
use Date::Manip;

my @files = <data/userdata/*>;
my $today = ParseDate("today");

foreach my $filename (@files) {
  my $first = '9999-99-99';
  open my $in, '<', $filename or die "ERROR: $!\n";
  while(my $line = <$in>) {
    chomp $line;
    my ($date, $amount, $desc) = split("\t",$line);
    if($date lt $first) {
      $first = $date;
    }
  }
  close $in;
  print "$filename $first\n";
  open my $out, '>>', $filename or die "ERROR: $!\n";
  $first = ParseDate($first);
  while($first lt $today) {
    $first = DateCalc($first,"+ 1 month");
    print "\t$first\n";
    my $txn_date = UnixDate($first,"%Y-%m-%d");
    print $out "$txn_date\t-2.00\tMonthly Service\n";
  }
  close $out;


}