+++ /dev/null
-\@main::INC
-EOT
-my $subref = \&dumpvar_epic::dump_array_expr;
-my $savout = CORE::select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-CORE::select($savout);
-};
-
-;{
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-
-my $offset = 0;
-my $varexpr = <<'EOT';
-+{%main::INC}
-EOT
-my $subref = \&dumpvar_epic::dump_hash_expr;
-my $savout = CORE::select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-CORE::select($savout);
-};
-
-;{
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-
-my $offset = 0;
-my $varexpr = <<'EOT';
-+{%main::SIG}
-EOT
-my $subref = \&dumpvar_epic::dump_hash_expr;
-my $savout = CORE::select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-CORE::select($savout);
-};
-
-;{
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-
-my $offset = 0;
-my $varexpr = <<'EOT';
-$h->{'%violations'}
-EOT
-my $subref = \&dumpvar_epic::dump_hash_expr;
-my $savout = CORE::select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-CORE::select($savout);
-};
-
-;{
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-
-my $offset = 0;
-my $varexpr = <<'EOT';
-$h->{'@lines'}
-EOT
-my $subref = \&dumpvar_epic::dump_array_expr;
-my $savout = CORE::select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-CORE::select($savout);
-};
-
-c 188
-x \%violations
-x $nbrViolations
-x $ip
-x $violations{$ip}
-x @emails
-x $ip
-x $message
-c 285
-x $email
-x $email
-$email=1
-x $message
-$to="andrew\@defaria.com"
-$to="andrew\@defaria.com"
-c 228
-x \%violations
-c 235
-x $attempts
-x $violations{$ip}
} # foreach
# Using gsettings
-my $setbg = "gsettings";
+my $setbg = "gsettings";
my $setbgOpts = "set org.gnome.desktop.background picture-uri \"file://";
my @images;
my $cmd = "$setbg $setbgOpts$image\" 2> /dev/null";
- `$cmd`;
+ my @output = `$cmd`;
+ if ($? != 0) {
+ display "ERROR Trying to set background - command used \"$cmd\"", $log;
+ display "Output:";
+ display join "\n", @output, $log;
+ } # if
+
close $log;
sleep $sleep;