From a96d084e29638d67e95264f6f727613f4ca9bb6a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 15 Feb 2006 14:26:28 +0000 Subject: uploading the hw status to hcl.mandriva.com is now done in mcc --- perl-install/standalone/harddrake2 | 42 -------------------------------------- 1 file changed, 42 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 0df0f5668..afce96ad7 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -188,7 +188,6 @@ my %menu_options = ( my @menu_items = ( [ N("/_File"), undef, undef, undef, '' ], - [ N("/_File") . N("/_Upload the hardware list"), undef, \&upload, undef, '' ], [ N("/_File") . N("/_Quit"), N("Q"), \&quit_global, undef, '' ], [ join('', @{$menu_options{PRINTERS_DETECTION}}), undef, sub { $options{PRINTERS_DETECTION} = $check_boxes{PRINTERS_DETECTION}->get_active }, undef, '' ], @@ -591,47 +590,6 @@ sub popup_menu { }; } -sub upload() { - my $dialog = _create_dialog(N("Upload the hardware list"), - { transient => $w->{real_window} }); #, height => 400 - gtkpack($dialog->vbox, - gtkset_markup(Gtk2::Label->new, qq() . N("Upload the hardware list") . "\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) { - local $ENV{HWDB_PASSWD} = $password; - require run_program; - run_program::raw({ detach => 1 }, "/usr/sbin/hwdb_add_system", $account, $name); - } -} - - sub simple_read_rpmsrate() { map { split(' ', $_) } map { if (my ($priority, $p, $packages) = /(\d+)\s*[^!]HW"(.*)"(.*)/) { -- cgit v1.2.1