only need Customer-CDRs, RT#5229
authorivan <ivan>
Fri, 31 Jul 2009 07:58:04 +0000 (07:58 +0000)
committerivan <ivan>
Fri, 31 Jul 2009 07:58:04 +0000 (07:58 +0000)
bin/cdr-transnexus.import

index 10e0aed..9686f7d 100755 (executable)
@@ -51,7 +51,7 @@ foreach my $dir ( @$lsdir ) {
   warn "Scanning dir $dirname\n" if $opt_v;
 
   #my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*-CDRs$/i );
-  my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*-Customer-CDRs$/i );
+  my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*Customer-CDRs$/i );
 
   foreach my $file ( @$ls ) {