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	slords	1.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			-}