Commit 2cc5d3c7 authored by Gavin Brown's avatar Gavin Brown

fixed

parent 185ba2fd
...@@ -52,12 +52,14 @@ syslog(LOG_DEBUG, sprintf('connected to %s', $config->{'cp.host'})); ...@@ -52,12 +52,14 @@ syslog(LOG_DEBUG, sprintf('connected to %s', $config->{'cp.host'}));
printf($IN "cd '%s'\n", $config->{'cp.directory'}); printf($IN "cd '%s'\n", $config->{'cp.directory'});
foreach my $file (@files) { foreach my $file (@files) {
printf($IN "put '%s'\n", $file); my $cmd = sprintf("put '%s'", $file);]
syslog(LOG_DEBUG, $cmd);
print $IN "$cmd\n";
} }
close($IN); close($IN);
while ($OUT) { while (<$OUT>) {
chomp; chomp;
syslog(LOG_DEBUG, $_); syslog(LOG_DEBUG, $_);
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment