Cleanup debug messages.

agranig/1_0_subfix
Andreas Granig 12 years ago
parent 46f4a3a609
commit b2ba73cecc

@ -277,7 +277,6 @@ sub handles_download :Chained('handles_base') :PathPart('download') :Args(0) {
$filename =~ s/\.\w+$/.wav/;
my $data;
say ">>>>>>>>>>>>>>>>> download ".$file->filename." with codec ".$file->codec;
if($file->codec ne 'WAV') {
try {
$data = NGCP::Panel::Utils::Sounds::transcode_data(

@ -22,8 +22,6 @@ sub get_host_list {
->maxdepth( 1 )
->in('/var/lib/collectd/rrd');
@hosts = sort {$a cmp $b} apply { s|.*/|| } @hosts;
print ">>>>>>>>>>>>>>> get_host_list:\n";
use Data::Printer; p @hosts;
return \@hosts;
}
@ -35,8 +33,6 @@ sub get_host_subdirs {
->maxdepth( 1 )
->in('/var/lib/collectd/rrd/' . $host);
@dirs = sort {$a cmp $b} apply { s|.*/|| } @dirs;
print ">>>>>>>>>>>>>>> get_host_subdirs:\n";
use Data::Printer; p @dirs;
return \@dirs;
}
@ -72,8 +68,6 @@ sub get_rrd {
return $content;
}
1;
# vim: set tabstop=4 expandtab:

Loading…
Cancel
Save