projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c5b703e
)
change directory names in ipifony-download
author
Mark Wells
<mark@freeside.biz>
Fri, 8 Mar 2013 20:14:02 +0000
(12:14 -0800)
committer
Mark Wells
<mark@freeside.biz>
Fri, 8 Mar 2013 20:14:02 +0000
(12:14 -0800)
FS/bin/freeside-ipifony-download
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-ipifony-download
b/FS/bin/freeside-ipifony-download
index
12c2dc6
..
e2d7e97
100644
(file)
--- a/
FS/bin/freeside-ipifony-download
+++ b/
FS/bin/freeside-ipifony-download
@@
-117,7
+117,7
@@
die "failed to connect to '$sftpuser\@$host'\n(".$sftp->error.")\n"
$sftp->setcwd($path) if $path;
$sftp->setcwd($path) if $path;
-my $files = $sftp->ls('
.
', wanted => qr/\.csv$/, names_only => 1);
+my $files = $sftp->ls('
ready
', wanted => qr/\.csv$/, names_only => 1);
if (!@$files) {
print STDERR "No charge files found.\n" if $opt{v};
exit(-1);
if (!@$files) {
print STDERR "No charge files found.\n" if $opt{v};
exit(-1);
@@
-130,23
+130,23
@@
my %is_e911 = map {$_ => 1} @E911_CODES;
FILE: foreach my $filename (@$files) {
print STDERR "Retrieving $filename\n" if $opt{v};
FILE: foreach my $filename (@$files) {
print STDERR "Retrieving $filename\n" if $opt{v};
- $sftp->get("$filename", "$tmpdir/$filename");
+ $sftp->get("
ready/
$filename", "$tmpdir/$filename");
if($sftp->error) {
warn "failed to download $filename\n";
next FILE;
}
# make sure server archive dir exists
if($sftp->error) {
warn "failed to download $filename\n";
next FILE;
}
# make sure server archive dir exists
- if ( !$sftp->stat('
Archiv
e') ) {
- print STDERR "Creating $path/
Archiv
e\n" if $opt{v};
- $sftp->mkdir('
Archiv
e');
+ if ( !$sftp->stat('
don
e') ) {
+ print STDERR "Creating $path/
don
e\n" if $opt{v};
+ $sftp->mkdir('
don
e');
if($sftp->error) {
# something is seriously wrong
die "failed to create archive directory on server:\n".$sftp->error."\n";
}
}
#move to server archive dir
if($sftp->error) {
# something is seriously wrong
die "failed to create archive directory on server:\n".$sftp->error."\n";
}
}
#move to server archive dir
- $sftp->rename("
$filename", "Archiv
e/$filename");
+ $sftp->rename("
ready/$filename", "don
e/$filename");
if($sftp->error) {
warn "failed to archive $filename on server:\n".$sftp->error."\n";
} # process it anyway, I guess/
if($sftp->error) {
warn "failed to archive $filename on server:\n".$sftp->error."\n";
} # process it anyway, I guess/