Remove stupid print:)
This commit is contained in:
@ -33,9 +33,6 @@ sub load_config {
|
||||
$toret = pcurse::import_json($file);
|
||||
}
|
||||
$toret = pcurse::sane_defaults($toret);
|
||||
foreach my $k(keys %{$toret}) {
|
||||
print "k: $k, val: $toret->{$k}\n";
|
||||
}
|
||||
return $toret;
|
||||
}
|
||||
|
||||
@ -210,9 +207,7 @@ sub update {
|
||||
my $fileid = shift;
|
||||
my $targetpath = shift;
|
||||
$uri .= '/download/'.$fileid.'/file';
|
||||
#print "\n".'Would update from '.$uri."\n";
|
||||
my ($filename,$file) = pcurse::download($uri);
|
||||
#print 'We got hold of '.$filename;
|
||||
unless(-e "/tmp/$filename") {
|
||||
open my $fh, '>', "/tmp/$filename" or return 0;
|
||||
print $fh $file;
|
||||
|
||||
Reference in New Issue
Block a user