Attachment 302304 Details for Bug 406201 – v2 for cron script mail_log.pl

[patch] v2 for cron script mail_log.pl

cronjob_mail_log (text/plain), 2.70 KB, created by Noura El hawary on 2008-04-14 04:10:24 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Noura El hawary

Created: 2008-04-14 04:10:24 UTC

Size: 2.70 KB

patch

obsolete

>Index: mail_log.pl
>===================================================================
>RCS file: mail_log.pl
>diff -N mail_log.pl
>--- /dev/null	1 Jan 1970 00:00:00 -0000
>+++ mail_log.pl	14 Apr 2008 04:08:14 -0000
>@@ -0,0 +1,108 @@
>+#!/usr/bin/perl 
>+
>+use lib '.';
>+use strict;
>+use warnings;
>+
>+use MIME::QuotedPrint;
>+use MIME::Base64;
>+use File::Basename;
>+use Log::Log4perl;
>+use Bugzilla;
>+use Bugzilla::Mailer;
>+
>+main(@ARGV) if not caller();
>+
>+sub main {
>+    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst )
>+        = localtime(time);
>+    my $current_date = sprintf(
>+        "%.4d/%.2d/%.2d %.2d:%.2d:%.2d",
>+        $year + 1900,
>+        $mon + 1, $mday, $hour, $min, $sec
>+    );
>+
>+
>+    my $boundary = "====" . time() . "====";
>+
>+    my $msg = encode_qp("Bugzilla Log File");
>+
>+    # Get the log file name from Log4perl config file
>+    my $log_file = Bugzilla->log_filename;
>+
>+    # Exit if file does not exist
>+    return if !-e $log_file;
>+
>+    # Gzip the current log file and rename to logfile.gz
>+    my $tmp_file = $log_file . ".gz";
>+    system("/bin/gzip -f $log_file") == 0
>+        or die "Error executing gzip -f $log_file";
>+
>+    open( F, $tmp_file ) or die "Cannot read $tmp_file: $!\n";
>+    binmode F;
>+    undef $/;
>+    my $mailbody = encode_base64(<F>);
>+    close F;
>+
>+    # Need just filename for email filename
>+    my $email_file = basename( $tmp_file, [".gz"] );
>+
>+    $boundary = '--' . $boundary;
>+    $mailbody = <<END_OF_BODY;
>+$boundary
>+Content-Type: text/plain; charset="iso-8859-1"
>+Content-Transfer-Encoding: quoted-printable
>+
>+$msg
>+$boundary
>+Content-Type: application/octet-stream; name="$email_file"
>+Content-Transfer-Encoding: base64
>+Content-Disposition: attachment; filename="$email_file"
>+
>+$mailbody
>+$boundary--
>+END_OF_BODY
>+
>+
>+    my $maintainer = Bugzilla->params->{maintainer};
>+    my $message = <<END;
>+From: bugzilla\@redhat.com
>+To: $maintainer
>+Subject: [$current_date] Bugzilla Log File
>+
>+$mailbody
>+END
>+
>+    MessageToMTA($message);
>+
>+
>+    # Removed the compressed file
>+    unlink($tmp_file) || die "Error: could not remove $tmp_file: $!\n";
>+}
>+
>+1;
>+__END__
>+
>+=head1 NAME
>+
>+mail_log.pl - Gzip's the Log4Perl log file and emails to bugzilla maintainer 
>+
>+=head1 SYNOPSIS
>+
>+ cd /path/to/bugzilla && perl mail_log.pl
>+ 
>+ # cron example
>+ MAILTO="bugzilla-owner@redhat.com"
>+ # run 13 minutes past midnight every day
>+ 0 13 * * * cd <your-bugzilla-directory>; ./mail_log.pl 
>+
>+=head1 DESCRIPTION
>+
>+The script gzips the current log file and then emails it to
>+the current Bugzilla maintainer. The script then removes the log file. 
>+
>+=head1 ENVIRONMENT 
>+
>+Needs to be in the root directory of the Bugzilla installation in order
>+to load the perl libs.
>+

Flags:

dkl: review+

Actions: View | Diff

Attachments on bug 406201: 300010 | 302304 | 302305 | 302344