summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRenaud Chaillat <rchaillat@mandriva.com>2001-09-17 12:42:41 +0000
committerRenaud Chaillat <rchaillat@mandriva.com>2001-09-17 12:42:41 +0000
commit300a642511449942b948f2345e8c188a7914be40 (patch)
tree9e3321f02aa24f5a34f77e63bd3c7756443c4c91
parent91c1993604e8583f5c7bb91f537c38a76feae55a (diff)
downloadmgaonline-300a642511449942b948f2345e8c188a7914be40.tar
mgaonline-300a642511449942b948f2345e8c188a7914be40.tar.gz
mgaonline-300a642511449942b948f2345e8c188a7914be40.tar.bz2
mgaonline-300a642511449942b948f2345e8c188a7914be40.tar.xz
mgaonline-300a642511449942b948f2345e8c188a7914be40.zip
changed file name to use md5 password in it; password is in md5_hex; corrected a bug with step label at the last page
-rwxr-xr-xmdkonline14
1 files changed, 8 insertions, 6 deletions
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