X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Fsetbg;h=8de93c618fb5804a08dce4a37034bc511d5207b2;hb=7103b16938d37a059a79e99c3bf7058687247658;hp=b64024c3cdcb5bf20c302eddea9d2db0a5b5d859;hpb=29fd03b88e85941f89c41a34d52e171213660368;p=clearscm.git diff --git a/bin/setbg b/bin/setbg index b64024c..8de93c6 100755 --- a/bin/setbg +++ b/bin/setbg @@ -63,10 +63,10 @@ contents of the bgdirs incase it has changed and display a new image". This is useful for script to be able to alert setbg that something has changed. For example, a script named rmbg might look at ~/.setbg to get the name of the current background image file and remove it then signal setbg with SIGUSR1 to -have it re-evaluate the state of bgdirs. +have it re-evaluate the state of bgdirs. Finally setbg will perform the this re-evaluation at midnight everyday. This is -useful because we point setbg to look at -bgdirs from Dropbox where Camera +useful because we point setbg to look at -bgdirs from Dropbox where Camera Uploads is included and new pictures can arrive everyday. =cut @@ -105,7 +105,7 @@ my %opts = ( my %totals; -sub displayStats () { +sub displayStats() { my $statsFile = Logger->new( name => ".$FindBin::Script.stats", path => $ENV{HOME}, @@ -125,7 +125,7 @@ sub displayStats () { return; } # displayStats -sub fillPictures () { +sub fillPictures($signame = undef) { my @images; $totals{bgdirs} = 0; @@ -157,12 +157,12 @@ sub writeHistory($msg) { $msg = localtime() . $msg; - print $hist $msg; + print $hist "$msg\n"; close $hist; } # writeHistory -sub writeSetBG ($filename, $image) { +sub writeSetBG($filename, $image) { open my $file, '>', $filename or error "Unable to open $filename for writing - $!", 1; @@ -183,7 +183,7 @@ sub updateSetBG($bgimage, $lockimage) { return; } # updateSetBG -sub SwitchWallPaper { +sub SwitchWallPaper($saigname) { # We don't need to do anything here, just handle the interrupt and # let the while loop continue. debug 'SwitchWallPaper: Interrupt received';