From b5688c80acc26f9d0b218876b3b8dc6b810ea25b Mon Sep 17 00:00:00 2001
From: Renaud Chaillat <rchaillat@mandriva.com>
Date: Fri, 31 Aug 2001 10:04:25 +0000
Subject: now exec drakbug_report and send the results

---
 mdkonline   | 40 ++++++++++++----------------------------
 scpcall.exp | 13 +++++++------
 2 files changed, 19 insertions(+), 34 deletions(-)

diff --git a/mdkonline b/mdkonline
index 4c9db513..98b44a54 100755
--- a/mdkonline
+++ b/mdkonline
@@ -88,18 +88,13 @@ $Button_SkipWiz->signal_connect( clicked => \&confirm_quit);
 $hbox->pack_start($Button_SkipWiz, 0, 1, 0);
 my $login_user= new Gtk::Entry();
 my $passwd_user= new Gtk::Entry();
-my $login_user2= new Gtk::Entry();
-my $passwd_user2= new Gtk::Entry();
 
 my $login   = "";
-my $login2  = "";
 my $passwd  = "";
-my $passwd2 = "";
 
 my %actions = ( 
 		2 => \&test_passwd,
-		3 => \&test_passwd,
-		4 => \&send_config
+		3 => \&send_config
 		);
 
 init_ui();
@@ -156,11 +151,7 @@ sub test_passwd () {
 
     # test the password
     $login   = $login_user->get_text();
-    $login2  = $login_user2->get_text();
     $passwd  = $passwd_user->get_text();
-    $passwd2 = $passwd_user2->get_text();
-    if ($login2)  { $login = $login2; }
-    if ($passwd2) { $passwd = $passwd2; }
     print STDERR "Login: $login\n";
 
     my $ssh_script = "";
@@ -173,12 +164,11 @@ sub test_passwd () {
 
     # if correct (exit code: 0 from ssh script), go to page 4
     if (! $?) {
-	$notebook_global->set_page(4); 
+	$notebook_global->next_page(); 
     } else {
-    # if incorrect, clear passwd and go/stay on page 3
+    # if incorrect, clear passwd and stay on page 2
 	info_popup (_("Wrong password"), _("Your login or password was wrong, you'll have to type it again"));
-	$passwd_user2->set_text("");
-	$notebook_global->set_page(3);
+	$passwd_user->set_text("");
     }
 
 }
@@ -187,20 +177,22 @@ sub send_config {
     # When we arrive here, we're sure the login/passwd is correct
     print STDERR "Sending config\n";
 
+    `/usr/sbin/drakbug_report > /root/drakbug_report.log`;
+
     my $scp_script = "";
     foreach ("./scpcall.exp", "/usr/bin/scpcall.exp") {
 	[ -e "$_" ] and $scp_script="$_", last;
     }
-    print "Exec: $scp_script $login $authentication_host $passwd \n";
+    print "Exec: $scp_script /root/drakbug_report.log $login $authentication_host $passwd \n";
     # TODO: beware if the script was not found
-    `$scp_script $login $authentication_host $passwd`;
+    `$scp_script /root/drakbug_report.log $login $authentication_host $passwd`;
 
-    # if informations were sent correctly (exit code: 0 from scp script), go to page 6
+    # if informations were sent correctly (exit code: 0 from scp script), go to page 5
     if (! $?) {
-	$notebook_global->set_page(6); 
+	$notebook_global->set_page(5); 
     } else {
-    # if incorrect, go/stay on page 5 to retry sending data
-	$notebook_global->set_page(5);
+    # if incorrect, go/stay on page 4 to retry sending data
+	$notebook_global->set_page(4);
     }
 
 }
@@ -226,14 +218,6 @@ sub step_wizard {
     pack_box_identity($vbox_ident,_("Login:"),$login_user,_("Password:"),$passwd_user);
     $notebook_global->append_page($vbox_ident,new Gtk::Label("login"));
 
-    # building the "retype passwd page"
-    my $vbox_ident2= new Gtk::VBox(0,0);
-    write_on_pixmaps($vbox_ident2,"identity.png",_("Mandrake Online Authentification"),540,100);
-    my $label_wrong = new Gtk::Label("\n\n" . _("Wrong login/password, please try again:"));
-    $vbox_ident2->pack_start($label_wrong,$false ,$false,1);
-    pack_box_identity($vbox_ident2,"Login:",$login_user2,"Password:",$passwd_user2);
-    $notebook_global->append_page($vbox_ident2,new Gtk::Label("login"));
-
     my $vbox_rev=new Gtk::VBox(0,0);
     write_on_pixmaps($vbox_rev,"mailnews.png",_("Sending your Configuration"),540,100);
     my $label_rev = new Gtk::Label(_("This is your chance, to help us improving Mandrake Linux.\n\nThe Wizard will now send the following informations to MandrakeSoft:\n1) the packages you have installed on your system,\n2) your hardware configuration.\n\nIf you feel uncomfortable, by that idea, press 'Cancel'.\nBy pressing 'Next', you will grant us the privilege\nto learn more about about you as our customer\nand it gives us the chance to keep you informed\nabout security updates and useful upgrades."));
diff --git a/scpcall.exp b/scpcall.exp
index ca76a6cf..0add445c 100755
--- a/scpcall.exp
+++ b/scpcall.exp
@@ -18,20 +18,21 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.       
 ####################################################################################
 
-if "$argc == 3" {
+if "$argc == 4" {
 
 #  Get username, host and password from commandline if present.
 
-    set username	[lindex $argv 0]
-    set host            [lindex $argv 1]
-    set password	[lindex $argv 2]
+    set file		[lindex $argv 0]
+    set username	[lindex $argv 1]
+    set host            [lindex $argv 2]
+    set password	[lindex $argv 3]
 } else {
 
-    exit 0;
+    exit 2;
 
 }
 
-spawn /usr/bin/scp $username@$host:~/test .
+spawn /usr/bin/scp $file $username@$host:~/
 
 # The sleep is needed to give passwd time to get ready.
 expect {
-- 
cgit v1.2.1