summaryrefslogtreecommitdiff
path: root/FS/bin
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2012-07-08 22:45:58 -0700
committerIvan Kohler <ivan@freeside.biz>2012-07-08 22:45:58 -0700
commita6fe07e49e3fc12169e801b1ed6874c3a5bd8500 (patch)
treeb87a7e6f37da5c8e13eb4d4653cfc8ce9239d8f0 /FS/bin
parente27244386c346f459d1569db26344407a0372a05 (diff)
parent005424d0c899aa899f43f583a6c74deb13ea4be1 (diff)
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Conflicts: httemplate/misc/process/cancel_pkg.html
Diffstat (limited to 'FS/bin')
-rw-r--r--FS/bin/freeside-check7
-rwxr-xr-xFS/bin/freeside-daily5
-rwxr-xr-xFS/bin/freeside-eftca-upload2
-rwxr-xr-xFS/bin/freeside-paymentech-upload2
-rw-r--r--FS/bin/freeside-prepaidd2
5 files changed, 8 insertions, 10 deletions
diff --git a/FS/bin/freeside-check b/FS/bin/freeside-check
index 9930aae6c..fdfc66af0 100644
--- a/FS/bin/freeside-check
+++ b/FS/bin/freeside-check
@@ -5,7 +5,6 @@ use strict;
use FS::UID qw( adminsuidsetup );
use FS::Cron::check qw(
check_queued check_selfservice check_apache check_bop_failures
- check_sg check_sg_login check_sgng
alert error_msg
);
@@ -21,11 +20,5 @@ check_queued or alert('Queue daemon not running', @emails);
check_selfservice or alert(error_msg(), @emails);
check_apache or alert('Apache not running: '. error_msg(), @emails);
-#no-ops unless you are sg
-my $sg = 'FS::ClientAPI::SG';
-check_sg or alert("$sg not responding: ". error_msg(), @emails);
-check_sg_login or alert("$sg login errort: ". error_msg(), @emails);
-check_sgng or alert("${sg}NG not responding: ". error_msg(), @emails);
-
check_bop_failures or alert(error_msg(), @emails);
diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily
index b73d0b112..2b33d1671 100755
--- a/FS/bin/freeside-daily
+++ b/FS/bin/freeside-daily
@@ -65,6 +65,11 @@ backup();
use FS::Cron::rt_tasks qw(rt_daily);
rt_daily(%opt);
+#does nothing unless batch-gateway-* configs are set
+use FS::Cron::pay_batch qw(batch_submit batch_receive);
+batch_submit(%opt);
+batch_receive(%opt);
+
my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/";
unlink <${deldir}.invoice*>;
unlink <${deldir}.letter*>;
diff --git a/FS/bin/freeside-eftca-upload b/FS/bin/freeside-eftca-upload
index 45a358b23..b66765af3 100755
--- a/FS/bin/freeside-eftca-upload
+++ b/FS/bin/freeside-eftca-upload
@@ -46,7 +46,7 @@ foreach my $pay_batch (@batches) {
my $batchnum = $pay_batch->batchnum;
my $filename = time2str('%Y%m%d', time) . '-' . sprintf('%06d.csv',$batchnum);
print STDERR "Exporting batch $batchnum to $filename...\n" if $opt_v;
- my $text = $pay_batch->export_batch('eft_canada');
+ my $text = $pay_batch->export_batch(format => 'eft_canada');
open OUT, ">$tmpdir/$filename";
print OUT $text;
close OUT;
diff --git a/FS/bin/freeside-paymentech-upload b/FS/bin/freeside-paymentech-upload
index 3f8abc047..609019eb2 100755
--- a/FS/bin/freeside-paymentech-upload
+++ b/FS/bin/freeside-paymentech-upload
@@ -59,7 +59,7 @@ foreach my $pay_batch (@batches) {
my $batchnum = $pay_batch->batchnum;
my $filename = sprintf('%06d',$batchnum) . '-' .time2str('%Y%m%d%H%M%S', time);
print STDERR "Exporting batch $batchnum to $filename...\n" if $opt_v;
- my $text = $pay_batch->export_batch('paymentech');
+ my $text = $pay_batch->export_batch(format => 'paymentech');
$text =~ s!<fileID>FILEID</fileID>!<fileID>$filename</fileID>!
or die "couldn't find FILEID tag\n";
open OUT, ">$tmpdir/$filename.xml";
diff --git a/FS/bin/freeside-prepaidd b/FS/bin/freeside-prepaidd
index 05b068b02..c095ceee4 100644
--- a/FS/bin/freeside-prepaidd
+++ b/FS/bin/freeside-prepaidd
@@ -85,7 +85,7 @@ while (1) {
}
die "exiting" if sigterm() || sigint();
- sleep 5;
+ sleep 60;
}