summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xcontrol-center47
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