remove menu entry for upload to old HCL db

1 files changed, 0 insertions, 47 deletions

diff --git a/control-center b/control-center
index 0808fe4f..a5d3edc3 100755
--- a/control-center
+++ b/control-center
@@ -1221,7 +1221,6 @@ my $release = mandrake_release_info();
 
 my @menu_items = (
                   [ N("/_File"), undef, undef, undef, '<Branch>' ],
-                  [ N("/_File") . N("/_Upload the hardware list"), N("<control>U"), \&upload, undef, '<Item>' ],
                   [ N("/_File") . N("/_Quit"), N("<control>Q"), \&quit_global, undef, '<Item>', N("Quit") ],
                   [ N("/_Options"), undef, undef, undef, '<Branch>' ],
                   [ join('', @{$options{show_log}}), undef,
@@ -1626,52 +1625,6 @@ sub warn_on_startup() {
     }
 }
 
-sub upload() {
-    my $dialog = _create_dialog(N("Upload the hardware list"),
-                                { transient => $window_global->{real_window} }); #, height => 400
-    gtkpack($dialog->vbox,
-            gtkset_markup(Gtk2::Label->new, qq(<span weight="bold">) . N("Upload the hardware list") . "</span>\n"),
-            create_packtable({ col_spacings => 10, row_spacings => 5, mcc => 1 },
-                               [ N("Account:"), my $account_w = Gtk2::Entry->new ],
-                               [ N("Password:"), my $password_w = Gtk2::Entry->new ],
-                               [ N("Hostname:"), my $system_name_w = Gtk2::Entry->new ],
-                           ),
-        );
-$password_w->set_visibility(0); #set_invisible_char('*');
-
-    my ($password, $account, $name);
-    gtkadd($dialog->action_area,
-           create_okcancel(
-               {
-                   cancel_clicked => sub { $dialog->destroy; Gtk2->main_quit },
-                   ok_clicked => sub { 
-                       $name     = $system_name_w->get_text;
-                       $account  = $account_w->get_text;
-                       $password = $password_w->get_text;
-                       $dialog->destroy;
-                       Gtk2->main_quit;
-                   },
-               },
-               undef, undef, '',
-           ),
-       );
-
-    $dialog->set_has_separator(0);
-    $dialog->show_all;
-    Gtk2->main;
-    if ($account) {
-        require interactive;
-        my $_wait = 'interactive'->vnew->wait_message(N("Please wait"), N("Uploading in progress"));
-        #info_dialog(N("Please wait"), N("Uploading in progress"));
-
-        local $ENV{HWDB_PASSWD} = $password;
-        require run_program;
-        run_program::run("/usr/sbin/hwdb_add_system", $account, $name);
-        run_program::raw({ detach => 1 }, "/usr/bin/www-browser", 'http://hcl.mandriva.com/');
-    }
-}
-
-
 #-------------------------------------------------------------
 # socket/plug managment