[freeside-commits] freeside/FS/bin freeside-cdr-sftp_and_import, 1.6.4.2, 1.6.4.3

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv20387/FS/bin

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	freeside-cdr-sftp_and_import 
Log Message:
freeside-cdr-sftp_and_import: add an option to gunzip imported files

Index: freeside-cdr-sftp_and_import
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-cdr-sftp_and_import,v
retrieving revision 1.6.4.2
retrieving revision 1.6.4.3
diff -u -w -d -r1.6.4.2 -r1.6.4.3
--- freeside-cdr-sftp_and_import	22 Jun 2011 00:56:56 -0000	1.6.4.2
+++ freeside-cdr-sftp_and_import	22 Jun 2011 17:22:52 -0000	1.6.4.3
@@ -11,8 +11,8 @@
 # parse command line
 ###
 
-use vars qw( $opt_m $opt_p $opt_r $opt_e $opt_d $opt_v $opt_P $opt_a $opt_c );
-getopts('c:m:p:r:e:d:v:P:a');
+use vars qw( $opt_m $opt_p $opt_r $opt_e $opt_d $opt_v $opt_P $opt_a $opt_c $opt_g );
+getopts('c:m:p:r:e:d:v:P:ag');
 
 $opt_e ||= 'csv';
 #$opt_e = ".$opt_e" unless $opt_e =~ /^\./;
@@ -94,8 +94,12 @@
 
   warn "Processing $filename\n" if $opt_v;
 
+  my $ungziped = $filename;
+  my $ungziped =~ s/\.gz$//;
+  system("gunzip $cachedir/$filename") if $opt_g;
+
   my $import_options = {
-    'file'            => "$cachedir/$filename",
+    'file'            => "$cachedir/$ungziped",
     'format'          => $format,
     'batch_namevalue' => $filename,
     'empty_ok'        => 1,
@@ -119,6 +123,7 @@
   }
 
   unlink "$cachedir/$filename";
+  unlink "$cachedir/$ungziped" if $opt_g;
 
 }