From 316eb76720880c2e708440ec8c4697cb94cabd10 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 10 Oct 2002 14:38:41 +0000 Subject: finally got the stuff to work. --- mdkonline | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'mdkonline') diff --git a/mdkonline b/mdkonline index bf9c21d0..1110d520 100755 --- a/mdkonline +++ b/mdkonline @@ -319,11 +319,6 @@ sub send_config { # print STDERR "Sending config\n"; my $result = -1; - #- added to allow .mdkupdate.rpms file creation. - open FILE, ">/root/.mdkupdate.rpms" or die "Couldn't open /root/.mdkupdate.rpms : $!"; - print FILE join ('', sort `rpm -qa`); - close FILE; - report_config("/root/$login.$passwd.$box_name.online.log"); `/usr/bin/bzip2 \\\-9 \\\-f /root/$login.$passwd.$box_name.online.log`; @@ -360,6 +355,11 @@ sub send_config { # if informations were sent correctly (exit code: 0 from scp script), go to page 5 if (! $result) { + #- added to allow .mdkupdate.rpms file creation. + open FILE, ">/root/.mdkupdate.rpms" or die "Couldn't open /root/.mdkupdate.rpms : $!"; + print FILE join ('', sort `rpm -qa`); + close FILE; + # go to last page $notebook_global->set_page(5); } else { -- cgit v1.2.1