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

Annotation of /rpms/e-smith-backup/sme8/e-smith-backup-1.14.0-eject.patch

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


Revision 1.2 - (hide annotations) (download)
Sat Sep 8 00:55:21 2007 UTC (17 years, 1 month ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
Update packages

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