This repository has been archived by the owner. It is now read-only.
Permalink
Cannot retrieve contributors at this time
Name already in use
A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
cronwrap/cronwrap
Go to fileThis commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
executable file
120 lines (105 sloc)
2.72 KB
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/local/system/perl/bin/perl -w | |
use strict; | |
use Getopt::Std; | |
use Mail::Mailer; | |
# debug metrics are written to cronwrap.log (in cwd which should be set to ~ by cron) if it exists | |
# | |
# -t dir : use this directory to capture output of script (default: cwd ) | |
# -m address : mail to this address (default $LOGNAME) | |
# -v : do send mail - even when exist status signals success | |
my $logfile="cronwrap.log"; | |
if (-e $logfile) | |
{ | |
open STDOUT,">>$logfile"; | |
open STDERR,">&STDOUT"; | |
} | |
else | |
{ | |
open STDOUT,">/dev/null"; | |
open STDERR,">/dev/null"; | |
} | |
my %opt; | |
getopts('m:t:l:v',\%opt); | |
my $cmd=join " ",@ARGV; | |
my $start_time=localtime; | |
my $hostname=`/bin/hostname`; | |
chomp($hostname); | |
warn "+++ $$ $start_time $hostname $0 $cmd\n"; | |
die "no command" if $cmd eq ""; | |
#warn "environment:\n",map("\t$_ => $ENV{$_}\n",keys %ENV); | |
my $tmpdir=$opt{'t'}||'.'; | |
my $tmpout="$tmpdir/cronwrap.tmp.$$"; | |
#warn "tempout : $tmpout\n"; | |
END | |
{ | |
$tmpout && -e $tmpout && unlink $tmpout; | |
} | |
-e $tmpout && unlink $tmpout; | |
my $pid=fork; | |
defined $pid or die "fork failed $!\n"; | |
unless ($pid) | |
{ | |
my $umask=umask 077; | |
open STDOUT,">$tmpout"; | |
open STDERR,">&STDOUT"; | |
umask $umask; | |
exec {'/bin/sh'} '-sh','-c',$cmd; | |
die "exec failed : $!\n"; | |
} | |
wait; | |
my $status=$?; | |
if ($tmpout && -e $tmpout && $opt{'l'}) { | |
if (open OUT, ">>$opt{'l'}") { | |
open T,"<$tmpout"; | |
while (<T>) { | |
print OUT; | |
} | |
close T; | |
close OUT; | |
} else { | |
warn "can't open output-logfile ('$opt{l}') to append output to: $!"; | |
} | |
} | |
if ($status || $opt{v}) | |
{ | |
my $subject = ($status ? 'FAIL: ':'')."$cmd"; | |
my $to=$opt{'m'}||$ENV{'LOGNAME'}||"nobody"; | |
my @to=split/,/,$to; | |
@to=map {/@/ ? $_ : "$_ <$_\@molgen.mpg.de>" } @to; | |
my $mailer=new Mail::Mailer 'smtp',Server=>'harry.molgen.mpg.de'; | |
$mailer->open | |
( | |
{ | |
From => "\"cronwrap\@$hostname\" <@>", | |
To => \@to, | |
Subject => $subject, | |
} | |
); | |
print $mailer "You cron command $cmd\n"; | |
print $mailer " started $start_time on $hostname\n"; | |
print $mailer " completed ".scalar(localtime)."\n"; | |
if ($status) { | |
print $mailer "It terminated with an exit value of ", | |
$status>>8," and a signal status of ",$status&255,"\n"; | |
} | |
if (-s $tmpout) { | |
print $mailer "It produced the following output:\n\n"; | |
print $mailer "-"x60,"\n"; | |
open T,"<$tmpout"; | |
while (<T>) { | |
$_ eq ".\n" and $_="..\n"; | |
print $mailer $_; | |
} | |
print $mailer "-"x60,"\n\n"; | |
close T; | |
} else { | |
print $mailer "It didn't produce any output.\n"; | |
} | |
print $mailer "\n\nYours\n cronwrap.pl\n"; | |
$mailer->close; | |
warn "--- $$ ",scalar(localtime),' ',"$hostname completion status: $status - mail sent to $to\n"; | |
} | |
else | |
{ | |
warn "--- $$ ",scalar(localtime),' ',"$hostname completion status: $status - no mail sent\n"; | |
} |