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" );
push @filenames, $filename;
}
-my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' :
- 'orbitalbatch.paymentech.net');
+my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net'
+ : 'orbitalbatch.paymentech.net');
print STDERR "Connecting to $username\@$host...\n" if $opt_v;
my $sftp = Net::SFTP::Foreign->new( host => $host,