From e13b7fcba7ad93db3a685de21ae6cafc85915ca9 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
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')
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