use Getopt::Std;
use Text::CSV_XS;
use DBI;
-use FS::UID qw( adminsuidsetup datasrc );
+use Net::SFTP::Foreign;
+#use FS::UID qw( adminsuidsetup datasrc );
our %aradial2db = (
#'Date' => '',
my %options = ();
my $user = shift or die &usage;
-adminsuidsetup $user;
+#adminsuidsetup $user;
-# %%%FREESIDE_CACHE%%%
-my $cachedir = '%%%FREESIDE_CACHE%%%/cache.'. datasrc. '/cdrs';
+# %%%FREESIDE_CACHE%%% & hardcoded datasrc
+#my $cachedir = '%%%FREESIDE_CACHE%%%/cache.'. datasrc. '/cdrs';
+my $cachedir = '/usr/local/etc/freeside/cache.DBI:Pg:dbname=freeside/cdrs';
mkdir $cachedir unless -d $cachedir;
my $servername = shift or die &usage;
$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 {
"Usage:
aradial-sftp_and_import [ -m method ] [ -a ] [ -b ]
[ -r remotefolder ] [ -d donefolder ] [ -v level ] [ -P port ]
- user format [sftpuser@]servername
+ user [sftpuser@]servername dbi_datasrc dbi_username dbi_pass
";
}
aradial-sftp_and_import [ -m method ] [ -a ] [ -b ]
[ -r remotefolder ] [ -d donefolder ] [ -v level ] [ -P port ]
- user format [sftpuser@]servername dbi_datasrc dbi_username dbi_pass
+ user [sftpuser@]servername dbi_datasrc dbi_username dbi_pass
=head1 DESCRIPTION
user: freeside username
-format: CDR format name
-
[sftpuser@]servername: remote server
(or ftpuser:ftppass@servername)