smeserver-arkeia/contribs7/smeserver-arkeia-1.0-recycletape.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape
--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape    2007-01-29 21:27:09.000000000 -0700
+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape  2007-01-29 21:26:34.000000000 -0700
@@ -5,6 +5,10 @@
 use strict;
 use esmith::ConfigDB;
 
+my $event = shift;
+my $cause = shift;
+exit 0 if not defined $cause or $cause ne "tape";
+
 my $cdb = esmith::ConfigDB->open_ro;
 my $backup = $cdb->get('backup') or die "No backup db entry found\n";
 my $arkeia = $cdb->get('arkeia') or die "No arkeia db entry found\n";
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape
2			--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape 2007-01-29 21:27:09.000000000 -0700
3			+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/arkeia-recycle-tape 2007-01-29 21:26:34.000000000 -0700
4			@@ -5,6 +5,10 @@
5			use strict;
6			use esmith::ConfigDB;
7
8			+my $event = shift;
9			+my $cause = shift;
10			+exit 0 if not defined $cause or $cause ne "tape";
11			+
12			my $cdb = esmith::ConfigDB->open_ro;
13			my $backup = $cdb->get('backup') or die "No backup db entry found\n";
14			my $arkeia = $cdb->get('arkeia') or die "No arkeia db entry found\n";