$xml->startTag('transRequest', RequestCount => scalar(@cust_pay_batch) + 1);
$xml->startTag('batchFileID');
$xml->dataElement(userID => $username);
- $xml->dataElement(fileDateTime => time2str('%Y%m%d%H%M%s', time));
+ $xml->dataElement(fileDateTime => time2str('%Y%m%d%H%M%S', time));
$xml->dataElement(fileID => 'FILEID');
$xml->endTag('batchFileID');
}
#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";
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" );