#!/usr/bin/perl

use strict;
use warnings;
use vars qw( %opt );
use FS::Misc::Getopt;
use FS::Record qw(qsearch qsearchs dbh);

getopts('cpiXr:t:');

my $dbh = dbh;
$FS::UID::AutoCommit = 0;

sub usage() {
  "Usage: bulk_void  -s start -e end
                  -r void_reason
                  { -c | -p | -i }
                  [ -t payby ]
                  [ -X ]
                  <user>
-s, -e: date range (required)
-r: void reason text (required)
-c, -p, -i: void credits, payments, invoices
-t: only void payments with this payby
-X: commit changes
";
}

if (!$opt{start} or !$opt{end} or !$opt{r}) {
  die usage;
}

print "DRY RUN--changes will not be committed.\n" unless $opt{X};

my %search = ();
$search{payby} = $opt{t} if $opt{t} && $opt{p};

my $date = (keys %search ? ' AND ' : ' WHERE ').
           " _date >= $opt{start} AND _date <= $opt{end}";

my %tables = (
  c => 'cust_credit',
  p => 'cust_pay',
  i => 'cust_bill',
);

my $reason = $opt{r};

foreach my $k (keys %tables) {
  next unless $opt{$k};
  my $table = $tables{$k};
  debug("$table:");
  my $done_count = 0;
  my $error_count = 0;

  my $cursor = FS::Cursor->new({
    table     => $table,
    hashref   => \%search,
    extra_sql => $date,
  });
  my $error;
  while (my $record = $cursor->fetch) {
    $error = $record->void($reason);
    if ( $error ) {
      $error = "$table #" . $record->get($record->primary_key) . ": $error";
      print "$error\n";
      $error_count++;
      if ( $opt{X} ) {
        $dbh->rollback;
        exit(1);
      }
    } else {
      $done_count++;
    }
  }
  print " $table voided: $done_count\n errors: $error_count\n";
}

if ( $opt{X} ) {
  $dbh->commit;
  print "Committed changes.\n";
} else {
  $dbh->rollback;
  print "Reverted changes.\n";
}