diff options
| author | Stew Benedict <stewb@mandriva.org> | 2002-09-23 16:33:58 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2002-09-23 16:33:58 +0000 |
| commit | e13b7fcba7ad93db3a685de21ae6cafc85915ca9 (patch) | |
| tree | 1dded4c48b5f3fce8e4accf2302f2c149f9325d2 | |
| parent | f2ccbba03e6f28ab8e5b6b9d3c349d77767127a1 (diff) | |
| download | drakx-backup-do-not-use-e13b7fcba7ad93db3a685de21ae6cafc85915ca9.tar drakx-backup-do-not-use-e13b7fcba7ad93db3a685de21ae6cafc85915ca9.tar.gz drakx-backup-do-not-use-e13b7fcba7ad93db3a685de21ae6cafc85915ca9.tar.bz2 drakx-backup-do-not-use-e13b7fcba7ad93db3a685de21ae6cafc85915ca9.tar.xz drakx-backup-do-not-use-e13b7fcba7ad93db3a685de21ae6cafc85915ca9.zip | |
Really fix daemon mode issue.
| -rwxr-xr-x | perl-install/standalone/drakbackup | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 3449d88a4..38eb4cc64 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -123,14 +123,11 @@ use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' use interactive; -use my_gtk qw(:helpers :wrappers); use common; -use strict; + use Time::localtime; use detect_devices; -my $in = 'interactive'->vnew('', 'default'); - if ("@ARGV" =~ /--help|-h/) { print q(Backup and Restore application @@ -619,7 +616,7 @@ sub save_cron_files { $backup_daemon = 0; return(1); } - my @cron_file = ("#!/bin/sh\n", "export TERM=xterm\n", "/usr/sbin/drakbackup --daemon > /dev/null 2>&1\n"); + my @cron_file = ("#!/bin/sh\n", "export USER=root\n", "/usr/sbin/drakbackup --daemon > /dev/null 2>&1\n"); if ($backup_daemon) { foreach (qw(hourly daily weekly monthly)) { @@ -4652,6 +4649,14 @@ sub interactive_mode_box { sub interactive_mode { $interactive = 1; + eval { require my_gtk; }; + if ($@ ne '') { + die "Can't load my_gtk...\n"; + } else { + my_gtk->import(qw(:helpers :wrappers)); + } + my $in = 'interactive'->vnew('', 'default'); + my $box; $my_win = my_gtk->new('drakbackup'); $window1 = $my_win->{window}; |