5 use Date::Format qw(time2str);
6 use File::Temp qw(tempdir);
7 use Net::SFTP::Foreign;
9 use FS::UID qw(adminsuidsetup datasrc);
10 use FS::Record qw(qsearch qsearchs);
12 use FS::cust_pay_batch;
15 use vars qw( $opt_v $opt_a );
18 #$Net::SFTP::Foreign::debug = -1;
21 freeside-eftca-download [ -v ] [ -a archivedir ] user\n
25 'tid', # transaction ID
26 'paybatchnum', # reference field
27 'returncode', # status code
29 'paid', # dollars and cents, with decimal
38 my $user = shift or die &HELP_MESSAGE;
42 die "no such directory: $opt_a\n"
44 die "archive directory $opt_a is not writable by the freeside user\n"
48 #my $tmpdir = File::Temp->newdir();
49 my $tmpdir = tempdir( CLEANUP => 1 ); #DIR=>somewhere?
51 my $conf = new FS::Conf;
52 my @batchconf = $conf->config('batchconfig-eft_canada');
53 # BIN, terminalID, merchantID, username, password
54 my $username = $batchconf[0] or die "no EFT Canada batch username configured\n";
55 my $password = $batchconf[1] or die "no EFT Canada batch password configured\n";
57 my $host = 'ftp.eftcanada.com';
58 print STDERR "Connecting to $username\@$host...\n" if $opt_v;
60 my $sftp = Net::SFTP::Foreign->new( host => $host,
62 password => $password,
65 die "failed to connect to '$username\@$host'\n(".$sftp->error.")\n" if $sftp->error;
67 $sftp->setcwd('/Returns');
69 my $files = $sftp->ls('.', wanted => qr/^ReturnFile/, names_only => 1);
70 die "no response files found\n" if !@$files;
72 FILE: foreach my $filename (@$files) {
73 print STDERR "Retrieving $filename\n" if $opt_v;
74 $sftp->get("$filename", "$tmpdir/$filename");
76 warn "failed to download $filename\n";
80 #move to server archive dir
81 $sftp->rename("$filename", "Archive/$filename");
83 warn "failed to archive $filename on server\n";
84 } # process it anyway though
86 #copy to local archive dir
88 print STDERR "Copying $tmpdir/$filename to archive dir $opt_a\n"
90 system 'cp', "$tmpdir/$filename", $opt_a;
91 warn "failed to copy $tmpdir/$filename to $opt_a: $@" if $@;
94 open my $fh, "<$tmpdir/$filename";
95 # Some duplication with FS::pay_batch::import_results, but we're really
96 # doing something different here.
97 my $csv = new Text::CSV_XS ( { quote_char => undef, sep_char => '|' } );
99 while (my $line = <$fh>) {
100 next if $line =~ /^\s*$/;
101 $csv->parse($line) or do {
102 warn "can't parse $filename: ".$csv->error_input."\n";
103 next FILE; #parsing errors = reading the wrong kind of file
105 @hash{@fields} = $csv->fields();
106 print STDERR "voiding paybatchnum#$hash{paybatchnum}\n" if $opt_v;
107 my $cpb = qsearchs('cust_pay_batch',
108 { paybatchnum => $hash{'paybatchnum'} });
110 warn "can't find paybatchnum #$hash{paybatchnum} ($hash{first} $hash{last}, $hash{paid})\n";
113 my $error = $cpb->decline("Returned payment ($hash{returncode})");
115 warn "can't void paybatchnum #$hash{paybatchnum}: $error\n";
121 print STDERR "Finished!\n" if $opt_v;
125 freeside-eftca-download - Retrieve payment batch responses from EFT Canada.
129 freeside-eftca-download [ -v ] [ -a archivedir ] user
133 Command line tool to download returned payment reports from the EFT Canada
134 gateway and void the returned payments. Uses the login and password from
135 'batchconfig-eft_canada'.
139 -a directory: Archive response files in the provided directory.
141 user: freeside username
145 You need to manually SFTP to ftp.eftcanada.com from the freeside account
146 and accept their key before running this script.