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	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";