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/; $filename =~ s/\.\w+$/.wav/;
my $data; my $data;
say ">>>>>>>>>>>>>>>>> download ".$file->filename." with codec ".$file->codec;
if($file->codec ne 'WAV') { if($file->codec ne 'WAV') {
try { try {
$data = NGCP::Panel::Utils::Sounds::transcode_data( $data = NGCP::Panel::Utils::Sounds::transcode_data(

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

Loading…
Cancel
Save