Attachment 6547 Details for Bug 8819 – live patch

live patch

patch.pl (text/plain), 1.84 KB, created by Thierry Vignaud on 2015-05-15 10:19:24 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2015-05-15 10:19:24 CEST

Size: 1.84 KB

patch

obsolete

>#perl -I/usr/lib/libDrakX -cw /tmp/patch.pl
>use install::steps_interactive;
>package install::steps_interactive;
>
>undef *installUpdates;
>*installUpdates = sub {
>    my ($o) = @_;
>    $o->{updates} ||= {};
>    
>    if (!$o->hasNetwork) {
>	if ($o->ask_yesorno('',
>			    join("\n",
>				 N("A network connection is needed to enable update media."),
>				 N("Do you want to configure the network now?")))) {
>	    require network::netconnect;
>	    network::netconnect::real_main($o->{net}, $o, $o->{modules_conf});
>	}
>    }
>
>    if (install::any::is_network_install($o) &&
>	find { $_->{update} } install::media::allMediums($o->{packages})) {
>	log::l("installUpdates: skipping since updates were already available during install");
>	return;
>    }
>
>    $o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
>N("You now have the opportunity to download updated packages. These packages
>have been updated after the distribution was released. They may
>contain security or bug fixes.
>
>To download these packages, you will need to have a working Internet 
>connection.
>
>Do you want to install the updates?")),
>			   interactive_help_id => 'installUpdates',
>					       }, 1) or do {
>	log::l("installUpdates: skipping since user say no to updates");
>	return;
>    };
>
>    #- bring all interface up for installing updates packages.
>    install::interactive::upNetwork($o);
>
>    install::pkgs::clean_rpmdb_shared_regions();
>    if (any::urpmi_add_all_media($o, $o->{previous_release})) {
>	my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi2'), 'urpmi' or return;
>	my $log_file = '/root/drakx/updates.log';
>	run_program::rooted($::prefix, $binary, '>>', $log_file, '2>>', $log_file, '--auto-select');
>    }
>    install::pkgs::clean_rpmdb_shared_regions();
>
>    #- not downing network, even ppp. We don't care much since it is the end of install :)
>};
>
>1;

#perl -I/usr/lib/libDrakX -cw /tmp/patch.pl
use install::steps_interactive;
package install::steps_interactive;

undef *installUpdates;
*installUpdates = sub {
    my ($o) = @_;
    $o->{updates} ||= {};
    
    if (!$o->hasNetwork) {
	if ($o->ask_yesorno('',
			    join("\n",
				 N("A network connection is needed to enable update media."),
				 N("Do you want to configure the network now?")))) {
	    require network::netconnect;
	    network::netconnect::real_main($o->{net}, $o, $o->{modules_conf});
	}
    }

    if (install::any::is_network_install($o) &&
	find { $_->{update} } install::media::allMediums($o->{packages})) {
	log::l("installUpdates: skipping since updates were already available during install");
	return;
    }

    $o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
N("You now have the opportunity to download updated packages. These packages
have been updated after the distribution was released. They may
contain security or bug fixes.

To download these packages, you will need to have a working Internet 
connection.

Do you want to install the updates?")),
			   interactive_help_id => 'installUpdates',
					       }, 1) or do {
	log::l("installUpdates: skipping since user say no to updates");
	return;
    };

    #- bring all interface up for installing updates packages.
    install::interactive::upNetwork($o);

    install::pkgs::clean_rpmdb_shared_regions();
    if (any::urpmi_add_all_media($o, $o->{previous_release})) {
	my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi2'), 'urpmi' or return;
	my $log_file = '/root/drakx/updates.log';
	run_program::rooted($::prefix, $binary, '>>', $log_file, '2>>', $log_file, '--auto-select');
    }
    install::pkgs::clean_rpmdb_shared_regions();

    #- not downing network, even ppp. We don't care much since it is the end of install :)
};

1;

Actions: View

Attachments on bug 8819: 6534 | 6535 | 6536 | 6547 | 6566 | 6579 | 6586 | 6587 | 6601 | 6638