/[smeserver]/rpms/e-smith-backup/sme7/e-smith-backup-1.14.0-eject.patch
ViewVC logotype

Contents of /rpms/e-smith-backup/sme7/e-smith-backup-1.14.0-eject.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Sat Sep 8 00:55:20 2007 UTC (17 years, 1 month ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
Error occurred while calculating annotation data.
FILE REMOVED
Update packages

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 +}

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed