From 300a642511449942b948f2345e8c188a7914be40 Mon Sep 17 00:00:00 2001
From: Renaud Chaillat <rchaillat@mandriva.com>
Date: Mon, 17 Sep 2001 12:42:41 +0000
Subject: changed file name to use md5 password in it; password is in md5_hex;
 corrected a bug with step label at the last page

---
 mdkonline | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'mdkonline')

diff --git a/mdkonline b/mdkonline
index 3b8b0d94..fb4663db 100755
--- a/mdkonline
+++ b/mdkonline
@@ -157,8 +157,10 @@ sub on_next_clicked {
     # change "Next" to "Finish" in the last page
     if ($page == $nb_pages - 1) {
 	$hbox->remove($Button_Prev);
+	$hbox->remove($Step_Label);
 	$hbox->remove($Button_Next);
 	$hbox->pack_end($Button_End, 0, 1, 0);
+	$hbox->pack_end($Step_Label, 0, 1, 0);
 	$hbox->pack_end($Button_Prev, 0, 1, 0);
     }
 
@@ -242,7 +244,7 @@ sub test_passwd () {
 	
 # NEW METHOD (http)
 	# first, MD5ify the password
-	$passwd = md5 ($passwd); # or md5_hex () or md5_base64 ()
+	$passwd = md5_hex ($passwd); # or md5 () or md5_base64 ()
 	
 	my $ua = LWP::UserAgent->new;
 	$ua->agent("MdkOnlineAgent/0.15" . $ua->agent);
@@ -280,17 +282,17 @@ sub send_config {
 #    print STDERR "Sending config\n";
     my $result = -1;
 
-    `/usr/sbin/drakbug_report > /root/$login-drakbug_report.log`;
-    `/usr/bin/bzip2 \\\-9 \\\-f /root/$login-drakbug_report.log`;
+    `/usr/sbin/drakbug_report > /root/$login.$passwd.online.log`;
+    `/usr/bin/bzip2 \\\-9 \\\-f /root/$login.$passwd.online.log`;
 
     # Turn the binary file into a uuencoded ascii file
-    open (FILE, " /root/$login-drakbug_report.log.bz2") or die "$!";
+    open (FILE, " /root/$login.$passwd.online.log.bz2") or die "$!";
     my ($chunk, $buffer);
     while (read(FILE, $chunk, 60*57)) {
 	$buffer .= $chunk;
     }
     close (FILE);
-    open (FILEOUT, "> /root/$login-drakbug_report.log.bz2.uue") or die "$!";
+    open (FILEOUT, "> /root/$login.$passwd.online.log.bz2.uue") or die "$!";
 	print FILEOUT encode_base64($buffer);
     close (FILEOUT);
 
@@ -311,7 +313,7 @@ sub send_config {
     my $response = $ua->request(POST 'http://dev-online/upload/test-up-wizard.php',
 				Content_Type => 'form-data',
 				Content => [submit => "test_upload",
-					    wizard => ["/root/$login-drakbug_report.log.bz2.uue"]
+					    wizard => ["/root/$login.$passwd.online.log.bz2.uue"]
 					    ]);
 
     # Check the outcome of the response
-- 
cgit v1.2.1