Commit 8402bd4d authored by Gavin Brown's avatar Gavin Brown

be a bit more verbose

parent 6d992467
......@@ -29,10 +29,14 @@ if (!opendir(DIR, $config->{'dsd.directory'})) {
exit(1);
}
syslog(LOG_DEBUG, "Scanning for files in $config->{'dsd.directory'}");
my @files = map { $config->{'dsd.directory'} . '/' . $_ } grep { /\.js$/ } readdir(DIR);
closedir(DIR);
syslog(LOG_DEBUG, scalar(@files)." files to copy");
foreach my $file (@files) {
if (!system(
'scp',
......@@ -55,6 +59,8 @@ foreach my $file (@files) {
}
}
syslog(LOG_DEBUG, "done");
__END__
=pod
......
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