diff options
Diffstat (limited to 'edit-urpm-sources.pl')
| -rwxr-xr-x | edit-urpm-sources.pl | 255 |
1 files changed, 255 insertions, 0 deletions
diff --git a/edit-urpm-sources.pl b/edit-urpm-sources.pl new file mode 100755 index 00000000..992a8788 --- /dev/null +++ b/edit-urpm-sources.pl @@ -0,0 +1,255 @@ +#!/usr/bin/perl +#***************************************************************************** +# +# Copyright (c) 2002 Guillaume Cottenceau (gc at mandrakesoft dot com) +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License version 2, as +# published by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +# +#***************************************************************************** +# +# $Id$ + +$> and (exec {'consolehelper'} $0, @ARGV or die "consolehelper missing"); + +use lib qw(/usr/lib/libDrakX); +use strict; + +use rpmdrake; + +$::isStandalone = 1; +Gtk->init; + + +sub add_medium_and_check { + my ($urpm, $msg) = splice @_, 0, 2; + standalone::explanations("Adding medium @_"); + my $wait = wait_msg($msg); + $urpm->add_medium(@_); + $urpm->update_media(noclean => 1); + remove_wait_msg($wait); + my ($medium) = grep { $_->{name} eq $_[0] } @{$urpm->{media}}; + $medium or interactive_msg('rpmdrake', _("Unable to create medium.")); + $medium->{modified} and interactive_msg('rpmdrake', _("Unable to update medium; it will be automatically disabled.")); + $urpm->write_config; +} + +my $urpm = new urpm; +$urpm->read_config; + +my ($remove, $edit, $clist); + +sub add_callback { + my ($mode, $rebuild_ui, $name_entry, $url_entry, $hdlist_entry, $count_nbs); + my $w = my_gtk->new(_("Edit a source")); + my %radios_infos = (local => { name => _("Local files"), url => _("Path:"), dirsel => 1 }, + ftp => { name => _("FTP server"), url => _("URL:"), loginpass => 1 }, + http => { name => _("HTTP server"), url => _("URL:") }, + removable => { name => _("Removable device"), url => _("Path or mount point:"), dirsel => 1 }, + security => { name => _("Security updates"), url => _("URL:"), securitysel => 1 }, + ); + my @radios_names_ordered = qw(local ftp http removable security); + my @modes_buttons = gtkradio($radios_infos{local}{name}, map { $radios_infos{$_}{name} } @radios_names_ordered); + my $notebook = new Gtk::Notebook; + $notebook->set_show_tabs(0); $notebook->set_show_border(0); + mapn { + my $info = $radios_infos{$_[0]}; + my $url_entry = sub { + gtkpack_(new Gtk::HBox(0, 0), + 1, $info->{url_entry} = gtkentry, + if_($info->{dirsel}, 0, gtksignal_connect(new Gtk::Button(but(_("Browse..."))), + clicked => sub { $info->{url_entry}->set_text(ask_dir) })), + if_($info->{securitysel}, 0, gtksignal_connect(new Gtk::Button(but(_("Choose a mirror..."))), + clicked => sub { my $m = choose_mirror; + if ($m) { + my ($r) = cat_('/etc/mandrake-release') =~ /release\s(\S+)/; + $info->{url_entry}->set_text("$m/$r/RPMS/"); + $info->{hdlist_entry}->set_text('../base/hdlist.cz'); + } + }))); + }; + my $loginpass_entries = sub { + map { my $entry_name = $_->[0]; + [ gtkpack_(new Gtk::HBox(0, 0), + 1, new Gtk::Label, + 0, gtksignal_connect($info->{$_->[0].'_check'} = new Gtk::CheckButton($_->[1]), + clicked => sub { $info->{$entry_name.'_entry'}->set_sensitive($_[0]->get_active); + $info->{pass_check}->set_active($_[0]->get_active); + $info->{login_check}->set_active($_[0]->get_active); + }), + 1, new Gtk::Label), + gtkset_sensitive($info->{$_->[0].'_entry'} = gtkentry, 0) ] } + ([ 'login', _("Login:") ], [ 'pass', _("Password:") ]) + }; + my $nb = $count_nbs++; + gtksignal_connect($_[1], 'clicked' => sub { $_[0]->get_active and $notebook->set_page($nb) }); + $notebook->append_page(my $book = create_packtable({}, + [ _("Name:"), $info->{name_entry} = gtkentry($_[0] eq 'security' and 'update_source') ], + [ $info->{url}, $url_entry->() ], + [ _("Relative path to synthesis/hdlist:"), $info->{hdlist_entry} = gtkentry ], + if_($info->{loginpass}, $loginpass_entries->()))); + $book->show; + } \@radios_names_ordered, \@modes_buttons; + + my $checkok = sub { + my $info = $radios_infos{$radios_names_ordered[$notebook->get_current_page]}; + my ($name, $url, $hdlist) = map { $info->{$_.'_entry'}->get_text } qw(name url hdlist); + $name eq '' || $url eq '' || $hdlist eq '' and interactive_msg('rpmdrake', _("You need to fill up all the entries.")), return 0; + if (member($name, map { $_->{name} } @{$urpm->{media}})) { + $info->{name_entry}->select_region(0, -1); + interactive_msg('rpmdrake', +_("There is already a medium by that name, do you +really want to replace it?"), 1) or return 0; + } + 1; + }; + + gtkadd($w->{window}, + gtkpack(new Gtk::VBox(0,5), + new Gtk::Label(_("Adding a source:")), + gtkpack__(new Gtk::HBox(0, 0), new Gtk::Label(but(_("Type of source:"))), @modes_buttons), + $notebook, + new Gtk::HSeparator, + gtkpack(create_hbox(), + gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub { + $checkok->() and $w->{retval} = { nb => $notebook->get_current_page }, Gtk->main_quit; + }), + gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $w->{retval} = 0; Gtk->main_quit })))); + $w->{rwindow}->set_position('center'); + if ($w->main) { + my $type = $radios_names_ordered[$w->{retval}{nb}]; + my $info = $radios_infos{$type}; + my $name = $info->{name_entry}->get_text; + my $url = $info->{url_entry}->get_text; + my %make_url = (local => "file:/$url", http => $url, security => $url, removable => "removable:/$url"); + $make_url{ftp} = sprintf "ftp://%s%s", $info->{login_check}->get_active + ? ($info->{login_entry}->get_text.':'.$info->{pass_entry}->get_text.'@') + : '', + $url; + if (member($name, map { $_->{name} } @{$urpm->{media}})) { + standalone::explanations("Removing medium $name"); + $urpm->select_media($name); + $urpm->remove_selected_media; + } + add_medium_and_check($urpm, _("Please wait, adding medium..."), + $name, $make_url{$type}, $info->{hdlist_entry}->get_text, update => $type eq 'security'); + return 1; + } + return 0; +} + +sub remove_callback { + my $wait = wait_msg(_("Please wait, removing medium...")); + my $name = $urpm->{media}[$clist->selection]{name}; + standalone::explanations("Removing medium $name"); + $urpm->select_media($name); + $urpm->remove_selected_media; + $urpm->update_media(noclean => 1); + remove_wait_msg($wait); +} + +sub edit_callback { + my $medium = $urpm->{media}[$clist->selection]; + my $w = my_gtk->new(_("Edit a source")); + my ($url_entry, $hdlist_entry); + gtkadd($w->{window}, + gtkpack_(new Gtk::VBox(0,5), + 0, new Gtk::Label(_("Editing source \"%s\":", $medium->{name})), + 0, create_packtable({}, + [ _("URL:"), $url_entry = gtkentry($medium->{url}) ], + [ _("Relative path to synthesis/hdlist:"), $hdlist_entry = gtkentry($medium->{with_hdlist}) ]), + 0, new Gtk::HSeparator, + 0, gtkpack(create_hbox(), + gtksignal_connect(new Gtk::Button(_("Save changes")), clicked => sub { $w->{retval} = 1; Gtk->main_quit }), + gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $w->{retval} = 0; Gtk->main_quit })))); + $w->{rwindow}->set_position('center'); + $w->{rwindow}->set_usize(600, 0); + if ($w->main) { + my ($name, $update, $ignore) = map { $medium->{$_} } qw(name update ignore); + my ($url, $with_hdlist) = ($url_entry->get_text, $hdlist_entry->get_text); + standalone::explanations("Removing medium $name"); + $urpm->select_media($name); + $urpm->remove_selected_media; + add_medium_and_check($urpm, _("Please wait, updating medium..."), + $name, $url, $with_hdlist, update => $update); + return 1; + } + return 0; +} + +sub mainwindow { + my %pixmaps = (selected => [ gtkcreate_png('selected') ], unselected => [ gtkcreate_png('unselected') ]); + my $mainw = my_gtk->new(_("Configure sources")); + $clist = new_with_titles Gtk::CList(_("Enabled?"), _("Source")); + $clist->set_column_auto_resize($_, 1) foreach qw(0 1); + $clist->set_column_justification(0, 'center'); + $clist->signal_connect(button_press_event => sub { my ($row, $col) = $clist->get_selection_info($_[1]->{x}, $_[1]->{'y'}); + if ($col == 0) { + invbool(\$urpm->{media}[$row]{ignore}); + my $pix = $pixmaps{$urpm->{media}[$row]{ignore} ? 'unselected' : 'selected'}; + $clist->set_pixmap($row, 0, $pix->[0], $pix->[1]); + } + }); + $clist->signal_connect(select_row => sub { $$_->set_sensitive(1) foreach (\$remove, \$edit) }); + $clist->signal_connect(unselect_row => sub { $$_->set_sensitive(0) foreach (\$remove, \$edit) }); + + my $reread_media = sub { + $clist->clear; + foreach (@{$urpm->{media}}) { + $clist->append('', $_->{name}); + my $pix = $pixmaps{$_->{ignore} ? 'unselected' : 'selected'}; + $clist->set_pixmap($clist->rows-1, 0, $pix->[0], $pix->[1]); + } + }; + $reread_media->(); + + gtkadd($mainw->{window}, + gtkpack_(new Gtk::VBox(0,5), + 1, gtkpack_(new Gtk::HBox(0, 10), + 1, $clist, + 0, gtkpack__(new Gtk::VBox(0, 5), + gtksignal_connect(new Gtk::Button(but(_("Add"))), + clicked => sub { add_callback and $reread_media->(); }), + gtkset_sensitive(gtksignal_connect($remove = new Gtk::Button(but(_("Remove"))), + clicked => sub { remove_callback; $reread_media->(); }), 0), + gtkset_sensitive(gtksignal_connect($edit = new Gtk::Button(but(_("Edit"))), + clicked => sub { edit_callback and $reread_media->() }), 0))), + 0, new Gtk::HSeparator, + 0, gtkpack(create_hbox(), + gtksignal_connect(new Gtk::Button(_("Save and quit")), clicked => sub { $mainw->{retval} = 1; Gtk->main_quit }), + gtksignal_connect(new Gtk::Button(_("Quit")), clicked => sub { $mainw->{retval} = 0; Gtk->main_quit })))); + $mainw->{rwindow}->set_position('center'); + $mainw->main; +} + + +readconf; + +if (!member(basename($0), @$already_splashed)) { + interactive_msg('rpmdrake', +_("%s + +Is it ok to continue?", +_("Welcome to the packages source editor! + +This tool will help you configure the packages sources you wish to use on +your computer. They will then be available to install new software package +or to perform updates.")), 1) or exit -1; + push @$already_splashed, basename($0); +} + +if (mainwindow()) { + $urpm->write_config; +} + +writeconf; |