Fix zip password
authormark <mark>
Thu, 12 Nov 2009 02:03:29 +0000 (02:03 +0000)
committermark <mark>
Thu, 12 Nov 2009 02:03:29 +0000 (02:03 +0000)
FS/bin/freeside-paymentech-download
FS/bin/freeside-paymentech-upload

index 293db84..16ac3c2 100755 (executable)
@@ -68,7 +68,7 @@ BATCH: foreach my $filename (@files) {
   }
 
   #unzip file
-  system('unzip', '-P', '$password', '-q',
+  system('unzip', '-P', $password, '-q',
            "$tmpdir/${filename}_resp.zip", '-d', $tmpdir);
   if(! -f "$tmpdir/${filename}_resp.xml") {
     warn "failed to extract ${filename}_resp.xml from ${filename}_resp.zip\n";
index 42bd278..06bef68 100755 (executable)
@@ -63,7 +63,7 @@ foreach my $pay_batch (@batches) {
   print OUT $text;
   close OUT;
 
-  system('zip', '-P', '$password', '-q', '-j',
+  system('zip', '-P', $password, '-q', '-j',
            "$tmpdir/$filename.zip", "$tmpdir/$filename.xml");
 
   die "failed to create zip file\n" if (! -f "$tmpdir/$filename.zip" );