bin/setbg

   1 #!/usr/bin/perl
   2
   3 =pod
   4
   5 =head1 NAME $RCSfile: setbg,v $
   6
   7 Set background
   8
   9 =head1 VERSION
  10
  11 =over
  12
  13 =item Author
  14
  15 Andrew DeFaria <Andrew@ClearSCM.com>
  16
  17 =item Revision:
  18
  19 $Revision: 1.10 $
  20
  21 =item Created:
  22
  23 Fri Mar 18 01:14:38 PST 2005
  24
  25 =item Modified:
  26
  27 $Date: 2012/11/09 15:31:30 $
  28
  29 =back
  30
  31 =head1 SYNOPSIS
  32
  33  Usage: setbg [-u|sage] [-ve|rbose] [-d|ebug] [-s|leep <n>] [-bgdir <bgdir>]
  34
  35  Where:
  36
  37  -u|sage:     Displays this usage
  38  -ve|rbose:   Be verbose
  39  -d|ebug:     Output debug messages
  40
  41  -s|leep:     Number of minutes to sleep between setting the background
  42              (Default: 1 hour)
  43  -b|gdir:     Directory to scan for images (Default: /web/Pictures)
  44
  45 =head1 DESCRIPTION
  46
  47 This script sets the background image randomly based on images $imgDir. Note
  48 if this script is run again it senses that it was previously run and sends the
  49 previous script a SIGUSR2 which the script intrprets as "Change the background
  50 now", then exits.
  51
  52 =cut
  53
  54 use strict;
  55 use warnings;
  56
  57 use FindBin;
  58 use Getopt::Long;
  59 use Proc::ProcessTable;
  60
  61 use lib "$FindBin::Bin/../lib";
  62
  63 use Display;
  64 use Utils;
  65
  66 my $VERSION  = '$Revision: 1.10 $';
  67   ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
  68
  69 my $processes = new Proc::ProcessTable;
  70
  71 foreach my $process (@{$processes->table}) {
  72   if ($process->cmndline =~ /setbg/ and
  73       $process->pid != $$) {
  74     kill 12, $process->pid;
  75
  76     exit 0;
  77   } # if
  78 } # foreach
  79
  80 $0 = "$FindBin::Script " . join ' ', @ARGV;
  81
  82 verbose "$FindBin::Script v$VERSION";
  83
  84 my $sleep  = 60 * 60;
  85 my @imgDir;
  86
  87 GetOptions (
  88   'usage'   => sub { Usage },
  89   'verbose' => sub { set_verbose },
  90   'debug'   => sub { set_debug },
  91   'sleep=i' => \$sleep,
  92   'bgdir=s' => \@imgDir,
  93 ) || Usage;
  94
  95 foreach (@imgDir) {
  96   error "$_ is not a directory", 1 unless -d $_;
  97 } # foreach
  98
  99 # Using gsettings
 100 my $setbg       = "gsettings";
 101 my $setbgOpts   = "set org.gnome.desktop.background picture-uri \"file://";
 102
 103 my @images;
 104
 105 foreach (@imgDir) {
 106   my @pics = `find "$_" -type f -name "*.jpg"`;
 107   chomp @pics;
 108   push @images, @pics;
 109 } # foreach
 110
 111 Usage "No images to display. Must specify -imgDir" unless @images;
 112
 113 sub SwitchWallPaper {
 114   # We don't need to do anything here, just handle the interrupt and
 115   # let the while loop continue.
 116   debug 'SwitchWallPaper: Interrupt received';
 117 } # SwitchWallPaper
 118
 119 $SIG{USR2} = \&SwitchWallPaper;
 120
 121 my $debugger = $DB::OUT;
 122
 123 EnterDaemonMode unless defined $DB::OUT;
 124
 125 while () {
 126   my $image = $images[int (rand $#images)];
 127
 128   open my $log, '>', "$ENV{HOME}/.$FindBin::Script"
 129     or error "Unable to open $ENV{HOME}/.setbg for writing - $!", 1;
 130
 131   display $image, $log;
 132
 133   my $cmd = "$setbg $setbgOpts$image\" 2> /dev/null";
 134
 135   `$cmd`;
 136
 137   close $log;
 138
 139   sleep $sleep;
 140 } # while