daniell/pcurse
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Remove stupid print:)

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-04 22:27:38 +02:00
parent 06b95e3150
commit fece89620b
1 changed files with 0 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
pcurse.pm
View File

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