From e13b7fcba7ad93db3a685de21ae6cafc85915ca9 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Mon, 23 Sep 2002 16:33:58 +0000 Subject: Really fix daemon mode issue. --- perl-install/standalone/drakbackup | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone') 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}; -- cgit v1.2.1