New script - cleantmp.pl

diff --git a/bin/cleantmp.pl b/bin/cleantmp.pl
new file mode 100755 (executable)
index 0000000..ac26cc8
--- /dev/null
+++ b/bin/cleantmp.pl
@@ -0,0 +1,186 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use v5.22;
+
+=pod
+
+=head1 NAME $RCSfile: cleantmp.pl,v $
+
+Keep /tmp clean based on filesets
+
+=head1 VERSION
+
+=over
+
+=item Author
+
+Andrew DeFaria <Andrew@DeFaria.com>
+
+=item Revision
+
+$Revision: 1.0 $
+
+=item Created:
+
+Wed Feb 21 20:43:58 PST 2018
+
+=item Modified:
+
+$Date: $
+
+=back
+
+=head1 SYNOPSIS
+
+ Usage: cleantmp.pl [-u|sage] [-h|elp] [-v|erbose] [-d|ebug]
+                    [-t|mp <dir>] [-c|onf <file>] [-l|ogpath <path>]
+                    [-s|leep <secs>]
+
+ Where:
+   -u|sage           Print this usage
+   -h|elp            Detailed help
+   -v|erbose:        Verbose mode
+   -d|ebug:          Print debug messages
+   -t|mp <dir>:      Tmp directory to monitor (Default: /tmp)
+   -c|onf <file>:    Config file holding patterns to match (Default: 
+                     .../etc/cleantmp.conf)
+   -l|ogpath <path>: Path to logfile (Default: /var/log)
+   -s|leep <secs>:   How many seconds to sleep between polls (Default: 60)
+
+=head1 DESCRIPTION
+
+This script will run in the background and keep /tmp clean. It will read in a 
+list of Perl regexs from the config file. When new files are created in tmp they
+will be compared against the list of regexs and if there's a match the file or
+directory will be removed. 
+
+The sleep parameter tells us how long to wait before polling for changes again
+
+=cut
+
+use FindBin;
+use Getopt::Long;
+use Pod::Usage;
+use File::Monitor;
+use File::Spec;
+use File::Path;
+
+use lib "$FindBin::Bin/../lib";
+
+use Display;
+use Logger;
+use Utils;
+
+my ($script) = ($FindBin::Script =~ /^(.*)\.pl/);
+my $log;
+
+my %opts = (
+  usage   => sub { pod2usage },
+  help    => sub { pod2usage(-verbose => 2)},
+  verbose => sub { set_verbose },
+  debug   => sub { set_debug },
+  tmp     => File::Spec->tmpdir(),
+  conf    => "$FindBin::Bin/../etc/$script.conf",
+  logpath => '/var/log',
+  sleep   => 60,
+);
+
+sub loadConfig() {
+  my @patterns;
+
+  open my $patterns, '<', $opts{conf}
+    or $log->err("Unable to open $opts{conf} - $!", 1);
+
+  while (<$patterns>) {
+    next if /^\s*#/; # Skip comments
+
+    chomp;
+
+    push @patterns, $_;
+  } # while
+
+  close $patterns;
+
+  return @patterns;
+} # loadConfig
+
+sub FileCreated {
+  my ($name, $event, $change) = @_;
+
+  opendir my $dir, $opts{tmp}
+    or $log->err("Unable to open $opts{tmp} - $!", 1);
+
+  while (my $createdFile = readdir $dir) {
+    next if $createdFile =~ /^\./; # Skip all hidden files
+
+    for my $pattern (loadConfig) {
+      if ($createdFile =~ /$pattern/) {
+        if (-d "$opts{tmp}/$createdFile") {
+          remove_tree ("$opts{tmp}/$createdFile", {error => \my $err});
+
+          if (@$err) {
+            for my $diag (@$err) {
+              my ($file, $message) = %$diag;
+
+              if ($file eq '') {
+                $log->err("General error: $message");
+              } else {
+                $log->err("Unable to delete $file: $message");
+              } # if
+            } # for
+          } else {
+            $log->msg(scalar localtime . " $opts{tmp}/$createdFile removed");
+          } # if
+        } else {
+          unless (unlink "$opts{tmp}/$createdFile") {
+            $log->err("Unable to remove $opts{tmp}/$createdFile - $!");
+          } else {
+            $log->msg(scalar localtime . " $opts{tmp}/$createdFile removed");
+          } # if
+        } # if
+
+
+        last;
+      } # if
+    } # for
+  } # while
+
+  return;
+} # FileCreated
+
+## Main
+GetOptions (
+  \%opts,
+  'usage',
+  'help',
+  'verbose',
+  'debug',
+  'tmp=s',
+  'logpath=s',
+  'conf=s',
+  'sleep=i'
+) or pod2usage;
+
+$log = Logger->new(path => $opts{logpath});
+
+$log->msg(scalar localtime . ": Starting $FindBin::Script");
+
+my $monitor = File::Monitor->new;
+
+$monitor->watch({
+  name     => $opts{tmp},
+  files    => 1,
+  callback => {files_created => \&FileCreated}
+});
+
+set_debug if $DB::OUT;
+
+EnterDaemonMode unless $DB::OUT;
+
+while () {
+  $monitor->scan;
+
+  sleep $opts{sleep};
+} # while
+

diff --git a/etc/cleantmp.conf b/etc/cleantmp.conf
new file mode 100644 (file)
index 0000000..782f042
--- /dev/null
+++ b/etc/cleantmp.conf
@@ -0,0 +1,22 @@
+# This is a list of file patterns that keeptmpclean will use to determine
+# what file patterns should be removed from /tmp. Note that this file is
+# re-evaluated each time keeptmpclean notices a new file created in /tmp
+hsperfdata_.*
+qt-trayicon.*
+systemd-.*
+orbit-.*
+xssv\..*
+plugtmp
+.*Screenlet.py.log
+screenlets
+screenlets-daemon.py.log
+dropbox.*
+pms-.*
+VMwareDnD
+vmware-root
+pulse-.*
+qt-trayicon.*
+clipboardcache.*
+userstorage.*
+.+.tmp
+\+~.*