projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
somehow rc install wound up without any data
[freeside.git]
/
bin
/
cdr.sftp_and_import
diff --git
a/bin/cdr.sftp_and_import
b/bin/cdr.sftp_and_import
index
f68d70c
..
79e743f
100755
(executable)
--- a/
bin/cdr.sftp_and_import
+++ b/
bin/cdr.sftp_and_import
@@
-16,8
+16,8
@@
use FS::cdr;
# parse command line
###
# parse command line
###
-use vars qw( $opt_e $opt_d $opt_
u $opt_
v );
-getopts('e:d:
u:
v');
+use vars qw( $opt_e $opt_d $opt_v );
+getopts('e:d:v');
$opt_e ||= 'csv';
#$opt_e = ".$opt_e" unless $opt_e =~ /^\./;
$opt_e ||= 'csv';
#$opt_e = ".$opt_e" unless $opt_e =~ /^\./;
@@
-61,13
+61,11
@@
foreach my $file ( @$ls ) {
warn "Processing $filename\n" if $opt_v;
warn "Processing $filename\n" if $opt_v;
- open(FILE, "$cachedir/$filename") or die "can't read $cachedir/$filename: $!";
-
my $error = FS::cdr::batch_import( {
my $error = FS::cdr::batch_import( {
- 'file
handle' => *FILE{IO},
- 'format'
=> $format,
- '
cdrbatch' => $filename
,
- 'empty_ok'
=> 1,
+ 'file
' => "$cachedir/$filename"
+ 'format' => $format,
+ '
params' => { 'cdrbatch' => $filename, }
,
+ 'empty_ok' => 1,
} );
die $error if $error;
} );
die $error if $error;