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;
54 if ( $conf->exists('batch-spoolagent') ) {
55 @agents = qsearch('agent', { 'disabled' => '' });
60 foreach my $agent (@agents) {
63 if ( $conf->exists('batch-spoolagent') ) {
64 @batchconf = $conf->config('batchconfig-eft_canada', $agent->agentnum, 1);
65 if ( !length($batchconf[0]) ) {
66 warn "agent '".$agent->agent."' has no batchconfig-eft_canada setting; skipped.\n";
70 @batchconf = $conf->config('batchconfig-eft_canada');
72 # user, password, transaction code, delay days
73 my $user = $batchconf[0] or die "no EFT Canada batch username configured\n";
74 my $pass = $batchconf[1] or die "no EFT Canada batch password configured\n";
76 my $host = 'ftp.eftcanada.com';
77 print STDERR "Connecting to $user\@$host...\n" if $opt_v;
79 my $sftp = Net::SFTP::Foreign->new( host => $host,
84 die "failed to connect to '$user\@$host'\n(".$sftp->error.")\n" if $sftp->error;
86 $sftp->setcwd('/Returns');
88 my $files = $sftp->ls('.', wanted => qr/\.txt$/, names_only => 1);
89 die "no response files found\n" if !@$files;
91 FILE: foreach my $filename (@$files) {
92 print STDERR "Retrieving $filename\n" if $opt_v;
93 $sftp->get("$filename", "$tmpdir/$filename");
95 warn "failed to download $filename\n";
99 #move to server archive dir
100 $sftp->rename("$filename", "Archive/$filename");
102 warn "failed to archive $filename on server\n";
103 } # process it anyway though
105 #copy to local archive dir
107 print STDERR "Copying $tmpdir/$filename to archive dir $opt_a\n"
109 system 'cp', "$tmpdir/$filename", $opt_a;
110 warn "failed to copy $tmpdir/$filename to $opt_a: $@" if $@;
113 open my $fh, "<$tmpdir/$filename";
114 # Some duplication with FS::pay_batch::import_results, but we're really
115 # doing something different here.
116 my $csv = new Text::CSV_XS ( { quote_char => undef, sep_char => '|' } );
118 while (my $line = <$fh>) {
119 next if $line =~ /^\s*$/;
120 $csv->parse($line) or do {
121 warn "can't parse $filename: ".$csv->error_input."\n";
122 next FILE; #parsing errors = reading the wrong kind of file
124 @hash{@fields} = $csv->fields();
125 print STDERR "voiding paybatchnum#$hash{paybatchnum}\n" if $opt_v;
126 my $cpb = qsearchs('cust_pay_batch',
127 { paybatchnum => $hash{'paybatchnum'} });
129 warn "can't find paybatchnum #$hash{paybatchnum} ($hash{first} $hash{last}, $hash{paid})\n";
132 my $error = $cpb->decline("Returned payment ($hash{returncode})");
134 warn "can't void paybatchnum #$hash{paybatchnum}: $error\n";
142 print STDERR "Finished!\n" if $opt_v;
146 freeside-eftca-download - Retrieve payment batch responses from EFT Canada.
150 freeside-eftca-download [ -v ] [ -a archivedir ] user
154 Command line tool to download returned payment reports from the EFT Canada
155 gateway and void the returned payments. Uses the login and password from
156 'batchconfig-eft_canada'.
160 -a directory: Archive response files in the provided directory.
162 user: freeside username
166 You need to manually SFTP to ftp.eftcanada.com from the freeside account
167 and accept their key before running this script.