e-smith-backup/sme7/e-smith-backup-1.14.0-eject.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape mezzanine_patched_e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape
--- e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape    1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape  2007-01-03 15:19:54.000000000 -0700
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+package esmith;
+
+use strict;
+use esmith::ConfigDB;
+
+my $event = shift;
+my $cause = shift;
+exit 0 if not defined $cause or $cause eq "desktop";
+
+my $confdb = esmith::ConfigDB->open_ro;
+my $backup = $confdb->get('backup') or die "No backup db entry found\n";
+my $device = $backup->prop('Device') || '/dev/st0';
+my $eject = $backup->prop('Eject') || 'no';
+
+exit 0 unless $device =~ /[sh]t/;
+
+if (lc($eject) eq 'yes') {
+    exec("/bin/mt", "-f", $device, "eject");
+    die("A problem occurred execing mt");
+}
1	diff -Nur -x '.orig' -x '.rej' e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape mezzanine_patched_e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape
2	--- e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape 1969-12-31 17:00:00.000000000 -0700
3	+++ mezzanine_patched_e-smith-backup-1.14.0/root/etc/e-smith/events/actions/eject-tape 2007-01-03 15:19:54.000000000 -0700
4	@@ -0,0 +1,22 @@
5	+#!/usr/bin/perl -w
6	+
7	+package esmith;
8	+
9	+use strict;
10	+use esmith::ConfigDB;
11	+
12	+my $event = shift;
13	+my $cause = shift;
14	+exit 0 if not defined $cause or $cause eq "desktop";
15	+
16	+my $confdb = esmith::ConfigDB->open_ro;
17	+my $backup = $confdb->get('backup') or die "No backup db entry found\n";
18	+my $device = $backup->prop('Device') \|\| '/dev/st0';
19	+my $eject = $backup->prop('Eject') \|\| 'no';
20	+
21	+exit 0 unless $device =~ /[sh]t/;
22	+
23	+if (lc($eject) eq 'yes') {
24	+ exec("/bin/mt", "-f", $device, "eject");
25	+ die("A problem occurred execing mt");
26	+}