fix file selection for aradial usage import, RT#29053

[freeside.git] / bin / aradial-sftp_and_import

diff --git a/bin/aradial-sftp_and_import b/bin/aradial-sftp_and_import
index e6af710..923c674 100755 (executable)
--- a/bin/aradial-sftp_and_import
+++ b/bin/aradial-sftp_and_import
@@ -6,6 +6,7 @@ use strict;
 use Getopt::Std;
 use Text::CSV_XS;
 use DBI;
+use Net::SFTP::Foreign;
 #use FS::UID qw( adminsuidsetup datasrc );
 
 our %aradial2db = (
@@ -44,7 +45,7 @@ my $user = shift or die &usage;
 
 # %%%FREESIDE_CACHE%%% & hardcoded datasrc
 #my $cachedir = '%%%FREESIDE_CACHE%%%/cache.'. datasrc. '/cdrs';
-my $cachedir = '%%%FREESIDE_CACHE%%%/cache.DBI:Pg:dbname=freeside/cdrs';
+my $cachedir = '/usr/local/etc/freeside/cache.DBI:Pg:dbname=freeside/cdrs';
 mkdir $cachedir unless -d $cachedir;
 
 my $servername = shift or die &usage;
@@ -84,7 +85,7 @@ elsif($opt_m eq 'sftp') {
   $ls_sftp->setcwd($opt_r) or die "can't chdir to $opt_r\n"
     if $opt_r;
 
-  $ls = $ls_sftp->ls('.', wanted => qr/^$.*\.$/i,
+  $ls = $ls_sftp->ls('.', no_wanted  => qr/^\.+$/,
                           names_only => 1 );
 }
 else {