drakx-backup-do-not-use - Mageia Installer and base platform for many utilities

diff options

author	damien <damien@mandriva.com>	2001-04-09 00:36:02 +0000
committer	damien <damien@mandriva.com>	2001-04-09 00:36:02 +0000
commit	c9bca6e16d098fc647d9b18ff0956c5927f8a25f (patch)
tree	013900e02345ad0be40db2d0084c10cbb620bc47 /perl-install/modules.pm
parent	7594e76d93c3cc6410d222fa261d3937ddb6fc43 (diff)
download	drakx-backup-do-not-use-c9bca6e16d098fc647d9b18ff0956c5927f8a25f.tar drakx-backup-do-not-use-c9bca6e16d098fc647d9b18ff0956c5927f8a25f.tar.gz drakx-backup-do-not-use-c9bca6e16d098fc647d9b18ff0956c5927f8a25f.tar.bz2 drakx-backup-do-not-use-c9bca6e16d098fc647d9b18ff0956c5927f8a25f.tar.xz drakx-backup-do-not-use-c9bca6e16d098fc647d9b18ff0956c5927f8a25f.zip

removed use install_any

Diffstat (limited to 'perl-install/modules.pm')

-rw-r--r--

perl-install/modules.pm

1 files changed, 0 insertions, 1 deletions

package move; # $Id$ $ #- Copyright (c) 2003-2004 Mandrakesoft #- #- This program is free software; you can redistribute it and/or modify #- it under the terms of the GNU General Public License as published by #- the Free Software Foundation; either version 2, or (at your option) #- any later version. #- #- 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. use diagnostics; use strict; use modules; use common; use fs; use fsedit; use run_program; use partition_table qw(:types); use swap; use log; use lang; use Digest::MD5 qw(md5_hex); my $key_disabled; my ($using_existing_user_config, $using_existing_host_config); my $key_sysconf = '/home/.sysconf'; my $key_part; my $virtual_key_part; my $key_mountopts = 'umask=077,uid=501,gid=501,shortname=mixed,nobadchars'; sub symlinkf_short { my ($dest, $file) = @_; if (my $l = readlink $dest) { $dest = $l if $l =~ m!^/!; } -d $file and log::l("$file already exists and is a directory! writing in directory may be needed, not overwriting"), return; symlinkf($dest, $file); } sub handle_etcfiles { my (@allowed_modes) = @_; #- non-trivial files listed from tools/scan-etc.pl my ($mode, $allowed); foreach (chomp_(cat_('/image/move/etcfiles'))) { if (m|^# (\S+)|) { $mode = $1; $allowed = member($mode, @allowed_modes); } elsif (m|^/| && $allowed) { if ($mode eq 'READ') { mkdir_p(dirname($_)); symlinkf_short("/image$_", $_) if !-e $_; } elsif ($mode eq 'OVERWRITE') { mkdir_p(dirname($_)); cp_f("/image$_", $_); #- need copy contents } elsif ($mode eq 'DIR') { mkdir_p $_; } } } } sub handle_virtual_key() { return if $key_disabled; if (my ($device, $file, $options) = cat_('/proc/cmdline') =~ /\bvirtual_key=([^,\s]+),([^,\s]+)(,\S+)?/) { log::l("using device=$device file=$file as a virtual key with options $options"); my $dir = '/virtual_key_mount'; mkdir $dir; run_program::run('mount', $device, $dir); if ($options =~ /format/) { if (! -e "$dir$file") { require commands; commands::dd("if=/dev/zero", "of=$dir$file", "bs=1M", "count=40"); } run_program::run('mkdosfs', "$dir$file"); } require devices; my $loop = devices::find_free_loop(); run_program::run('losetup', $loop, "$dir$file"); run_program::run('mount', $loop, '/home', '-o', $key_mountopts); $virtual_key_part = { device => $loop, mntpoint => '/home', type => 0xc, isMounted => 1 }; } } sub setup_userconf { my ($o) = @_; if (is_empty_array_ref($o->{users}) && `getent passwd 501` =~ /([^:]+):/) { log::l("passwd/501 is $1"); $o->{users} = [ { name => $1 } ]; $ENV{HOME} = "/home/$1"; #- used by lang::read() :-/ print "using existing user configuration\n"; $using_existing_user_config = 1; } } sub lang2move_clp_name { my ($lang) = @_; my $dir = '/usr/share/locale/' . lang::l2locale($lang); my $link = readlink($dir) or return -d $dir ? '' : 'ERROR'; my ($name) = $link =~ m!image_(i18n_.*?)/! or log::l("ERROR: bad link $link for $dir"), return 'ERROR'; $name; } #- run very soon at stage2 start, setup things on tmpfs rw / that #- were not necessary to start stage2 itself (there were setup #- by stage1 of course) sub init { my ($o) = @_; $::testing and goto drakx_stuff; #- rw things mkdir "/$_" foreach qw(home mnt root root/tmp etc var); mkdir "/etc/$_" foreach qw(X11); touch '/etc/modules.conf'; touch '/etc/modprobe.conf'; cp_f('/proc/mounts', '/etc/mtab'); #- these files need be writable but we need a sensible first contents cp_f("/image/etc/$_", '/etc') foreach qw(passwd passwd- group sudoers fstab); #- these files are typically opened in read-write mode, we need them copied mkdir_p("/etc/$_"), cp_f(glob_("/image/etc/$_/*"), "/etc/$_") foreach qw(cups profile.d sysconfig devfs/conf.d); #- TODO: cp_af is broken for symlinks to directories #- replace below with cp_af is fixed in perl-MDK-Common run_program::run('cp', '-a', glob("/image/etc/rc[0-6].d"), '/etc'); #- directories we badly need as non-links because files will be written in handle_etcfiles('DIR'); #- for /etc/sysconfig/networking/ifcfg-lo mkdir "/etc/sysconfig/networking"; #- ro things symlinkf_short("/image/etc/$_", "/etc/$_") foreach qw(alternatives man.config services shells pam.d inputrc ld.so.conf DIR_COLORS bashrc profile init.d devfsd.conf gtk-2.0 pango fonts modules.devfs dynamic hotplug gnome-vfs-2.0 gnome-vfs-mime-magic gtk gconf menu menu-methods nsswitch.conf default login.defs skel ld.so.cache openoffice xinetd.d xinetd.conf syslog.conf sysctl.conf sysconfig/networking/ifcfg-lo ifplugd); symlinkf_short("/image/etc/X11/$_", "/etc/X11/$_") foreach qw(encodings.dir app-defaults applnk fs lbxproxy proxymngr rstart wmsession.d xinit xkb xserver xsm); symlinkf_short("/image/root/$_", "/root/$_") foreach qw(.bashrc); mkdir_p(dirname("/var/$_")), symlinkf_short("/image/var/$_", "/var/$_") foreach qw(lib/samba lib/rpm cache/gstreamer-0.6); #- non-trivial files/directories that need be readable, files that will be overwritten handle_etcfiles('READ', 'OVERWRITE'); run_program::run('chown', 'clamav.clamav', '/var/log/clamav/freshclam.log'); #- create remaining /etc and /var subdirectories if not already copied or symlinked, #- because programs most often won't try to create the missing subdir before trying #- to write a file, leading to obscure unexpected failures foreach (cat_('/image/move/directories-to-create')) { my ($mode, $uid, $gid, $name) = split; next if -d $name; mkdir($name); chmod(oct($mode), $name); chown($uid, $gid, $name); } chmod 01777, '/tmp', '/var/tmp'; #- /var/tmp -> badly needed for printing from OOo #- remaining non existent /etc files are symlinked from the RO volume, #- better to have them RO than non existent. #- PB: problems arise when programs try to open then in O_WRONLY #- or O_RDWR -> in that case, they should be handled in the #- OVERWRITE section of data/etcfiles) foreach (chomp_(cat_('/image/move/all-etcfiles'))) { -f $_ or symlinkf_short("/image$_", $_); } #- free up stage1 memory eval { fs::umount($_) } foreach qw(/stage1/proc/bus/usb /stage1/proc /stage1); #- devfsd needed for devices accessed by old names fs::mount("none", "/dev", "devfs", 0); fs::mount("none", "/dev/pts", "devpts", 0); run_program::run('/sbin/devfsd', '/dev'); -d '/lib/modules/' . c::kernel_version() or warn("ERROR: kernel package " . c::kernel_version() . " not installed\n"), c::_exit(1); $key_disabled = !-e '/cdrom/live_tree_nvidia.clp' && cat_('/proc/mounts') !~ /nfs/; run_program::run('/sbin/service', 'syslog', 'start'); run_program::run('sysctl', '-w', 'kernel.hotplug=/bin/true'); modules::load_category('bus/usb');


context:
space:
mode: