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

diff -Nur -x '*.orig' -x '*.rej' smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape
--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape     2004-07-26 10:31:46.000000000 -0600
+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape   1969-12-31 17:00:00.000000000 -0700
@@ -1,22 +0,0 @@
-#!/usr/bin/perl -w
-
-package esmith;
-
-use strict;
-use esmith::ConfigDB;
-
-my $event = shift;
-my $cause = shift || "unknown";
-exit 0 if $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") if $eject eq 'Yes' || $eject eq 'yes';
-    die("A problem occurred execing mt");
-}
1	diff -Nur -x '.orig' -x '.rej' smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape
2	--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape 2004-07-26 10:31:46.000000000 -0600
3	+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/eject-tape 1969-12-31 17:00:00.000000000 -0700
4	@@ -1,22 +0,0 @@
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 \|\| "unknown";
14	-exit 0 if $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") if $eject eq 'Yes' \|\| $eject eq 'yes';
25	- die("A problem occurred execing mt");
26	-}