must be one of " . join(' ', @known_actions) . "\n"; if ($image) { if (my $ver = bootloader::vmlinuz2version($image)) { if ($kernel_version) { $kernel_version eq $ver or die "$kernel_version and $ver do not match (hint: do not pass both --image and --kernel-version)\n"; } else { $kernel_version = $ver; } } $image = "/boot/$image" if $image !~ m!^/!; } elsif ($kernel_version) { $image = find { -e $_ } map { "/boot/$_-$kernel_version" } qw(vmlinux uImage vmlinuz); } my $all_hds = fsedit::get_hds(); fs::get_info_from_fstab($all_hds); my $bootloader = bootloader::read($all_hds); if (!$bootloader) { if (member($action, 'add-kernel', 'remove-kernel')) { if ($no_initrd) { die "Cannot find a bootloader installed and initrd build suppressed\n"; } warn "Cannot find a boot loader installed. Only taking care of initrd\n"; } else { die "Cannot find a boot loader installed\n"; } } $action =~ s/-/_/g; $::{$action}->(); #-############################################################################### sub remove_now_broken_boot_symlinks() { foreach (glob("/boot/vmlinuz*"), glob("/boot/initrd*")) { -l $_ && !-e $_ or next; log::l("removing now broken symlink $_"); unlink $_; } } sub remove_kernel() { unlink "/lib/modules/$kernel_version/build"; unlink "/lib/modules/$kernel_version/source"; remove_now_broken_boot_symlinks(); if (!$bootloader) { #- removing the initrd for weird configs where no mga bootloader is configured my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n"; my $initrd_long = bootloader::kernel_str2initrd_long($kernel_str); unlink "/boot/$initrd_long"; return; } remove_kernel_generic() if bootloader::main_method($bootloader->{method}) ne 'grub2'; modify_bootloader(); } sub remove_kernel_generic() { my %proposed_labels; my @new_entries; my ($to_remove, $to_keep) = partition { if ($_->{kernel_or_dev} && $_->{kernel_or_dev} eq $image) { 1; } else { my $vmlinuz = $_->{kernel_or_dev} && bootloader::expand_vmlinuz_symlink($_->{kernel_or_dev}); if ($vmlinuz && "/boot/$vmlinuz" eq $image) { #- eg: removing kernel XXX and entry "linux" has /boot/vmlinuz -> vmlinuz-XXX #- so finding out which kernel still installed is better suited to use label "linux" if (!%proposed_labels) { %proposed_labels = bootloader::get_kernels_and_labels_before_kernel_remove($vmlinuz); } if (my $kernel_str = $proposed_labels{$_->{label}}) { push @new_entries, [ $kernel_str, $_ ]; 1; } else { 0; } } else { 0; } } } @{$bootloader->{entries}}; $_->{initrd} && unlink $_->{initrd} foreach @$to_remove; @{$bootloader->{entries}} = @$to_keep; foreach (@new_entries) { my ($kernel_str, $v) = @$_; bootloader::add_kernel($bootloader, $kernel_str, $v); } } #-############################################################################### sub add_kernel() { configure_ide_controller(); my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n"; if (!$bootloader) { #- building the initrd for weird configs where no mga bootloader is configured my $fake_bootloader = { vga => undef }; my %opts = (initrd_options => $initrd_options); my $initrd_long = bootloader::kernel_str2initrd_long($kernel_str); bootloader::mkinitrd($kernel_str->{version}, $fake_bootloader, \%opts, "/boot/$initrd_long"); return; } my $root_part = fs::get::root_([ fs::get::fstab($all_hds) ]) or warn "cannot find root partition in /etc/fstab\n"; $root_part ||= fs::get::root_from_mounted() or die "cannot find root partition\n"; my %opts = ( root => fs::wild_device::from_part('', $root_part), initrd_options => $initrd_options, if_($label, label => $label), (grep_each { member($::a, 'vga', 'lock') } %{$bootloader->{default_options}}), ); #- short name bootloader::add_kernel($bootloader, $kernel_str, { %opts }, 0, $no_initgit-svn-id: file:///svn/phpbb/trunk@4710 89ea8834-ac86-4346-8a33-228a782c2dd0

Diffstat (limited to 'phpBB')

-rw-r--r--	phpBB/styles/subSilver/imageset/topic_delete.gif	bin	311 -> 0 bytes
-rw-r--r--	phpBB/styles/subSilver/imageset/topic_lock.gif	bin	316 -> 0 bytes
-rw-r--r--	phpBB/styles/subSilver/imageset/topic_move.gif	bin	316 -> 0 bytes
-rw-r--r--	phpBB/styles/subSilver/imageset/topic_split.gif	bin	348 -> 0 bytes
-rw-r--r--	phpBB/styles/subSilver/imageset/topic_unlock.gif	bin	317 -> 0 bytes

5 files changed, 0 insertions, 0 deletions

"); $fstab_migrated = 1; } if ($fstab_migrated) { cp_af('/etc/fstab', '/etc/fstab.before-migrate-to-uuids'); my ($s) = fs::prepare_write_fstab(\@raw_fstab, '', 'keep_smb_credentials'); output('/etc/fstab', $s); } } sub _migrate_dev_to_uuid { my ($fstab, $dev) = @_; $dev && $dev =~ m!/dev/! or return; my $part = fs::get::device2part($dev, $fstab); _should_prefer_UUID($part) or return; $part && $part->{device_UUID} && "UUID=$part->{device_UUID}"; } sub _should_prefer_UUID { my ($part) = @_; devices::should_prefer_UUID($part->{device}) || $part->{device} =~ m!\bmapper/!; # we want to migrate dmraid devices, because of xxx1 vs xxxp1 device name issue } # add UUID to swap v.2 in case the swap was created long ago when mkswap didn't do it by default sub _add_uuid_to_swap { my ($part) = @_; my $ids = fs::type::call_blkid($part); $ids->{ID_FS_VERSION} eq '2' or log::l("ERROR: do not know swap version $ids->{ID_FS_VERSION}, so cannot add UUID to it"), return; my $uuid = run_program::get_stdout('uuidgen'); log::l("adding UUID=$uuid to $part->{device}"); $uuid =~ s/-//g; $uuid =~ s/(..)/chr(hex($1))/ge; { my $F; sysopen($F, devices::make($part->{device}), 2) or die "error opening device $part->{device} for writing"; sysseek($F, 1036, 0) && syswrite($F, $uuid) or log::l("writing UUID failed"); } if (my $p = fs::type::type_subpart_from_magic($part)) { $part->{device_UUID} = $p->{device_UUID}; } } #-############################################################################### sub update_splash() { bootloader::update_splash($bootloader); bootloader::action($bootloader, 'when_config_changed') if !$no_launch; } sub remove_splash() { foreach (@{$bootloader->{entries}}) { bootloader::remove_boot_splash($_->{initrd}) if $_->{initrd}; } bootloader::action($bootloader, 'when_config_changed') if !$no_launch; } sub detectloader() { print uc(bootloader::main_method($bootloader->{method})), "\n" if $bootloader; }