From 115d9f441d0259defb8e219bf70218f5ee0bc24c Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 12 Aug 2003 20:25:52 +0000 Subject: add ability to manage media keys (not finished yet) --- edit-urpm-sources.pl | 77 ++++++++++++++++++++++++++++++++++++++++++++++++++++ rpmdrake.spec | 5 ++-- 2 files changed, 80 insertions(+), 2 deletions(-) diff --git a/edit-urpm-sources.pl b/edit-urpm-sources.pl index 2ff37a8e..4927f7ac 100755 --- a/edit-urpm-sources.pl +++ b/edit-urpm-sources.pl @@ -28,6 +28,7 @@ use common; require_root_capability(); use rpmdrake; +use URPM::Signature; eval { require ugtk2; ugtk2->import(qw(:all)) }; if ($@) { @@ -456,6 +457,81 @@ sub parallel_callback { } +sub keys_callback { + my $w = ugtk2->new(N("Manage keys for digital signatures of packages")); + + my $media_list_ls = Gtk2::ListStore->new("Glib::String"); + my $media_list = Gtk2::TreeView->new_with_model($media_list_ls); + $media_list->append_column(Gtk2::TreeViewColumn->new_with_attributes(N("Medium"), Gtk2::CellRendererText->new, 'text' => 0)); + $media_list->get_selection->set_mode('browse'); + + my $keys_list_ls = Gtk2::ListStore->new("Glib::String", "Glib::String"); + my $keys_list = Gtk2::TreeView->new_with_model($keys_list_ls); + $keys_list->append_column(Gtk2::TreeViewColumn->new_with_attributes(N("Keys"), Gtk2::CellRendererText->new, 'text' => 0)); + $keys_list->get_selection->set_mode('browse'); + + my ($current_medium, $current_medium_nb, @keys); + + my $read_conf = sub { + $urpm->parse_pubkeys(root => $urpm->{root}); + @keys = map { [ split /[,\s]+/, $_->{'key-ids'} ] } @{$urpm->{media}}; + }; + my $write = sub { + $urpm->write_config; + $urpm = urpm->new; + $urpm->read_config; + $read_conf->(); + }; + $read_conf->(); + my $key_name = sub { + $urpm->{keys}{$_[0] || {}}{name} || N("no name found"); + }; + + $media_list_ls->append_set([ 0 => $_->{name} ]) foreach @{$urpm->{media}}; + $media_list->get_selection->signal_connect(changed => sub { + my ($model, $iter) = $_[0]->get_selected; + $model && $iter or return; + $current_medium = $model->get($iter, 0); + $current_medium_nb = $model->get_path($iter)->to_string; + $keys_list_ls->clear; + $keys_list_ls->append_set([ 0 => sprintf("%s (%s)", $_, $key_name->($_)), 1 => $_ ]) foreach @{$keys[$current_medium_nb]}; + }); + + my $add_key = sub { + }; + + my $remove_key = sub { + my ($model, $iter) = $keys_list->get_selection->get_selected; + $model && $iter or return; + my $key = $model->get($iter, 1); + interactive_msg(N("Remove a key"), + N("Are you sure you want to remove the key %s from medium %s?\n(name of the key: %s)", + $key, $current_medium, $key_name->($key)), + yesno => 1) or return; + $urpm->{media}[$current_medium_nb]{'key-ids'} = join(',', difference2(\@{$keys[$current_medium_nb]}, [ $key ])); + $write->(); + $media_list->get_selection->signal_emit('changed'); + }; + + gtkadd($w->{window}, + gtkpack_(Gtk2::VBox->new(0,5), + 1, gtkpack_(Gtk2::HBox->new(0, 10), + 1, $media_list, + 1, $keys_list, + 0, gtkpack__(Gtk2::VBox->new(0, 5), + gtksignal_connect($remove = Gtk2::Button->new(but(N("Add a key..."))), + clicked => \&$add_key), + gtksignal_connect($remove = Gtk2::Button->new(but(N("Remove key"))), + clicked => \&$remove_key))), + 0, Gtk2::HSeparator->new, + 0, gtkpack(create_hbox(), + gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { Gtk2->main_quit })))); + $w->{rwindow}->set_position('center'); + + $w->main; +} + + sub mainwindow { $mainw = ugtk2->new(N("Configure media"), center => 1); @@ -545,6 +621,7 @@ sub mainwindow { gtksignal_connect(Gtk2::Button->new(but(N("Add..."))), clicked => sub { add_callback() and $reread_media->(); }), gtksignal_connect(Gtk2::Button->new(but(N("Update..."))), clicked => \&update_callback), + gtksignal_connect(Gtk2::Button->new(but(N("Manage keys..."))), clicked => \&keys_callback), gtksignal_connect(Gtk2::Button->new(but(N("Proxy..."))), clicked => \&proxy_callback), gtksignal_connect(Gtk2::Button->new(but(N("Parallel..."))), clicked => \¶llel_callback))), 0, Gtk2::HSeparator->new, diff --git a/rpmdrake.spec b/rpmdrake.spec index 24c71d64..e77e644c 100644 --- a/rpmdrake.spec +++ b/rpmdrake.spec @@ -101,7 +101,7 @@ rm -rf $RPM_BUILD_ROOT %{perl_vendorarch}/*.pm %changelog -* Fri Aug 8 2003 Guillaume Cottenceau 2.1-31mdk +* Tue Aug 12 2003 Guillaume Cottenceau 2.1-31mdk - require root capability when run "Install Sofware" and add a new menu entry reading "Browse Available Software" - s/Medias/Media/ in the program name of the menu entry @@ -113,12 +113,13 @@ rm -rf $RPM_BUILD_ROOT - when updating media, if url is too long, don't display it because it enlarges much the dialog; better display only the basename and the medium name (#4338) -- edit-urpmi-media/add: +- edit-urpm-media/add: - right-align left labels - use a checkbutton for "hdlist" so that user better understands it's optional (and say in a tooltip that it is) - fix browsing for adding a security update (port gtk2-perl-xs not complete) +- edit-urpm-media: add ability to manage media keys * Mon Aug 4 2003 Guillaume Cottenceau 2.1-30mdk - revert "use checkboxes instead of icons" -- cgit v1.2.1