Ticket #32088 Thinktel integration

diff --git a/bin/cdr-thinktel.import b/bin/cdr-thinktel.import
old mode 100644 (file)
new mode 100755 (executable)
index ccbd78c..9afd34c
--- a/bin/cdr-thinktel.import
+++ b/bin/cdr-thinktel.import
@@ -52,7 +52,8 @@ $ftp->login($login, $password)
 warn "Retrieving directory listing\n" if $opt_v;
 
 $ftp->cwd('/');
-my @files = $ftp->ls();
+my @files = grep { $_ =~ /MetaSwitch/ } $ftp->ls();
+
 warn scalar(@files)." CDR files found.\n" if $opt_v;
 # apply date range
 if ( $opt_a ) {