cronwrap: Import existing script

Currently the cronwrap script is maintained in its own repository [1]
and installed via bee. Now that we have mxtools its seems to be more
efficient to integrate cronwrap into mxtools.

The script, as installed on the distmaster, has gotten out of sync with
the cronwrap repository and the bee package.

Import the script as it is installed in the distmaster into the
repository.

[1]: https://github.molgen.mpg.de/mariux64/cronwrap

cronwrap/cronwrap

@@ -0,0 +1,120 @@
+#! /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\" <postmaster\@molgen.mpg.de>",
+			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";
+}

install.sh

@@ -231,6 +231,7 @@ install_exec crashkernel/startup-crashmemory              "$DESTDIR$usr_sbindir/
 install_data crashkernel/startup-crashmemory.service      "$DESTDIR$systemdunitdir/startup-crashmemory.service"
 install_exec mxsnoop/mxsnoop.sh                           "$DESTDIR$usr_sbindir/mxsnoop.sh"
 install_exec net_qdisc_nfs_low/net_qdisc_nfs_low          "$DESTDIR$usr_sbindir/net_qdisc_nfs_low"
+install_exec cronwrap/cronwrap                            "$DESTDIR$usrlocal_bindir/cronwrap"
 
 postinstall
 exit