From e59d9d403ca61eb02b3f36f22951123d10ec75f8 Mon Sep 17 00:00:00 2001
From: Harold Paulson <haroldp@sierraweb.com>
Date: Tue, 1 Dec 2020 10:58:30 -0800
Subject: [PATCH] roll_apache_logs initial import

---
 README.md           |  19 +++++++
 crontab.in          |   2 +
 roll_apache_logs.pl | 124 ++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 145 insertions(+)
 create mode 100644 README.md
 create mode 100644 crontab.in
 create mode 100755 roll_apache_logs.pl

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..0e7921d
--- /dev/null
+++ b/README.md
@@ -0,0 +1,19 @@
+!roll_apache_logs Utility
+
+Rolls apache logs...
+
+!!Install
+
+cd /tmp
+fetch https://gitea.sierraweb.com/api/v1/repos/haroldp/roll_apache_logs/archive/master.tar.gz
+tar -zxvf master.tar.gz
+cd roll_apache_logs
+cp roll_apache_logs.pl /usr/local/bin/roll_apache_logs
+cat crontab.in >> /etc/crontab
+pkg install p5-Logfile-Rotate
+rm -rf /tmp/roll_apache_logs
+
+!!To Do
+
+Expire old logs(!)
+Apache configtest reloads(!)
diff --git a/crontab.in b/crontab.in
new file mode 100644
index 0000000..544e0d1
--- /dev/null
+++ b/crontab.in
@@ -0,0 +1,2 @@
+# roll apache log files at midnight
+0   0   *   *   *  root  /usr/local/bin/roll_apache_logs
\ No newline at end of file
diff --git a/roll_apache_logs.pl b/roll_apache_logs.pl
new file mode 100755
index 0000000..4c90c8c
--- /dev/null
+++ b/roll_apache_logs.pl
@@ -0,0 +1,124 @@
+#!/usr/local/bin/perl -w
+#######################################################################
+# Roll Apache Logs
+#######################################################################
+
+
+use Time::localtime;
+use Logfile::Rotate;
+use File::Basename;
+
+
+$DEBUG           = 0;
+
+$APACHE_PID_FILE = '/var/run/httpd.pid';
+$APACHE_CONF_DIR = '/usr/local/etc/apache24';
+$VHOST_CONF_DIR  = '/usr/local/etc/apache242/vhosts';
+$EXCLUDE_FILE    = "$APACHE_CONF_DIR/logroll_exclude.conf";
+
+%Logs            = ();
+$log_count       = 0;
+
+$aday	         = 23 * 60 * 60;  # a day's worth of seconds
+$rSecs           = time - $aday;
+$rDate           = localtime($rSecs);
+$logdate         = sprintf('%4d%02d%02d', 
+	$rDate->year+1900, $rDate->mon+1,  $rDate->mday);
+
+
+#### Grep the list of log files out of the vhost configs ##############
+$log_grep = 'grep -Rhi CustomLog\\\\\\|ErrorLog ' . $VHOST_CONF_DIR;
+open(LOGS,  "$log_grep |") 
+	|| die("ERROR: Could not get log list: $!\n");
+
+while (<LOGS> ) {
+	chomp;
+	if ( m/^\s*(Custom|Error)Log\s+(\S+).*$/i ) {
+		$Logs{$2} = 1;
+		$log_count++;
+	}
+	else {
+		print("ERROR: Bad Line: $_\n");
+	}
+}
+close(LOGS);
+#######################################################################
+
+
+#### Exclude certain logs #############################################
+if (-e $EXCLUDE_FILE) {
+	open(EXCL,  "$EXCLUDE_FILE") 
+		|| die("ERROR: Could not get exclude list: $!\n");
+	while (<EXCL> ) {
+		chomp;
+		next if ( m/^\s*$/ );    # skip blank lines
+		next if ( m/^\s*#$/ );   # skip comments
+		if ( m/^\s*(\S+).*$/ ) {
+			delete($Logs{$1});
+		}
+	}
+	close(EXCL);
+}
+#######################################################################
+
+
+# roll logs
+foreach my $log ( keys(%Logs) ) {
+	if ( $log =~ m/^(.+)\.(current|today)\.(.+)$/ ) {
+		$newname = "$1.$logdate.$3";
+	}
+	else {
+		$newname = "$log.$logdate";
+	}
+	
+	if (-e $log) {
+		if (! -e $newname) {
+			$log_base = basename($log);
+			$new_base = basename($newname);
+			print("Rolling $log_base -> $new_base\n") if ($DEBUG);
+			my $log = new Logfile::Rotate(
+				File    => $log, 
+				Count   => 1,
+				Gzip    => 'no', 
+				Post    =>  \&BetterName, 
+				Flock   => 'yes',
+				Persist => 'yes'
+			);
+			$log->rotate();
+			undef $log;
+		}
+		else {
+			print STDERR ("Could not rotate $log, file $newname in the way.\n");
+		}
+	}
+	else {
+		print STDERR ("$log not found, skipping.\n");
+	}
+
+}
+# Send 'kill' to apache
+if ( -e $APACHE_PID_FILE ) {
+	open(PID, $APACHE_PID_FILE);
+	chomp($pid = <PID>);
+	kill USR1 => $pid;
+}
+else {
+	print STDERR ("Could not signal Apache.  Pid file $APACHE_PID_FILE not found");
+}
+#######################################################################
+
+
+
+
+#######################################################################
+#######################################################################
+
+sub BetterName {
+	my $old   = shift;
+	my $new   = shift;
+	
+	rename($new, $main::newname);
+	
+	return 1;
+}
+