drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/tools/cvslog2changelog.pl

	Commit message (Expand)	Author	Age	Files	Lines
*	fix email addressses	Thierry Vignaud	2005-07-25	1	-30/+30
*	fix typo	Pascal Rigaux	2005-02-15	1	-1/+1
*	add peroyvind	Thierry Vignaud	2005-02-15	1	-0/+1
*	- added Romain	Daouda Lo	2004-10-01	1	-1/+2
*	add one more translator	Thierry Vignaud	2004-09-03	1	-0/+1
*	sync with soft/common/username	Thierry Vignaud	2004-08-12	1	-0/+38
*	list a few more contributors	Thierry Vignaud	2004-08-10	1	-1/+4
*	sort	Thierry Vignaud	2004-07-09	1	-19/+20
*	add Robert Vojta	Thierry Vignaud	2004-07-09	1	-0/+1
*	add vincent	Thierry Vignaud	2004-07-08	1	-0/+1
*	perl_checker cleanups	Thierry Vignaud	2004-06-17	1	-10/+17
*	add olivier blin	Thierry Vignaud	2004-06-10	1	-0/+1
*	add rafael	Thierry Vignaud	2004-06-08	1	-0/+1
*	add AUTHOR environment option for my warly reports	Pascal Rigaux	2004-06-03	1	-0/+2
*	clean up users	Guillaume Cottenceau	2004-01-22	1	-9/+0
*	add planou	Guillaume Cottenceau	2004-01-22	1	-0/+1
*	add erwan	Guillaume Cottenceau	2003-08-22	1	-0/+1
*	add fabman	Guillaume Cottenceau	2003-03-07	1	-26/+27
*	add florin alafox alus	Guillaume Cottenceau	2003-03-04	1	-3/+6
*	add baudens	Guillaume Cottenceau	2002-09-05	1	-0/+1
*	add fcrozat	Guillaume Cottenceau	2002-09-04	1	-4/+5
*	uniformize real names	Guillaume Cottenceau	2002-08-21	1	-3/+3
*	add warly,jgotti	Guillaume Cottenceau	2002-08-06	1	-0/+2
*	use new dam's email	Thierry Vignaud	2002-08-01	1	-1/+1
*	add daouda chaumette cbelisle	Guillaume Cottenceau	2002-07-17	1	-2/+5
*	typo fix	Thierry Vignaud	2002-07-05	1	-1/+1
*	added yduret entry in user.	Yves Duret	2002-03-11	1	-0/+1
*	add me	Thierry Vignaud	2002-02-25	1	-0/+1
*	add till	Pascal Rigaux	2001-08-12	1	-0/+1
*	s/Linux-Mandrake/Mandrake Linux/	Pascal Rigaux	2001-06-21	1	-1/+1
*	(%users): add stew	Pascal Rigaux	2001-03-08	1	-0/+1
*	fix for gc & fpons	Mystery Man 553	2001-02-13	1	-0/+2
*	fix for fredl broken CVS	Mystery Man 553	2001-02-13	1	-0/+2
*	(auto_fill): indent lines beginning with '-'	Pascal Rigaux	2001-01-09	1	-0/+2
*	tools to auto generate the ChangeLog and the mail to changelog	Pascal Rigaux	2000-12-19	1	-0/+67

class="hl opt">) = @_; my %modules_descriptions = modules_descriptions(); map { $_ => $modules_descriptions{$_} } category2modules($categories); } my %mappings_24_26 = ( "usb_ohci" => "ohci_hcd", "usb_uhci" => "uhci_hcd", "uhci" => "uhci_hcd", "printer" => "usblp", "bcm4400" => "b44", "3c559" => "3c359", "3c90x" => "3c59x", "dc395x_trm" => "dc395x", ); my %mappings_26_24 = reverse %mappings_24_26; $mappings_26_24{'uhci_hcd'} = 'usb_uhci'; my @parallel_zip_modules = qw(imm ppa); sub mapping_24_26 { my ($modname) = @_; $mappings_24_26{$modname} || $modname; } sub mapping_26_24 { my ($modname) = @_; $mappings_26_24{$modname} || $modname; } sub cond_mapping_24_26 { my ($modname) = @_; $mappings_24_26{$modname} || list_modules::filename2modname($modname); } sub module_is_available { my ($module) = @_; defined list_modules::modname2filename($module); } #-############################################################################### #- module loading #-############################################################################### # handles dependencies sub load_raw { my ($l, $h_options) = @_; if ($::testing || $::local_install) { log::l("i would load module $_ ($h_options->{$_})") foreach @$l; } elsif ($::isInstall) { load_raw_install($l, $h_options); } else { run_program::run('/sbin/modprobe', $_, split(' ', $h_options->{$_})) or !run_program::run('/sbin/modprobe', '-n', $_) #- ignore missing modules or die "insmod'ing module $_ failed" foreach @$l; } if (any { /^(mousedev|printer)$/ } @$l) { sleep 2; } elsif (member('usb_storage', @$l)) { #- usb_storage is only modprobed when we know there is some scsi devices #- so trying hard to wait for devices to be detected #- first sleep the minimum time usb-stor-scan takes sleep 5; #- 5 == /sys/module/usb_storage/parameters/delay_use # then wait for usb-stor-scan to complete my $retry = 0; while ($retry++ < 10) { fuzzy_pidofs('usb-stor-scan') or last; sleep 1; log::l("waiting for usb_storage devices to appear (retry = $retry)"); } } } sub load_with_options { my ($l, $h_options) = @_; my @l = map { if_(member($_, 'plip', @parallel_zip_modules), 'parport_pc'), if_($_ eq 'vfat', 'nls_cp437', 'nls_iso8859_1'), dependencies_closure(cond_mapping_24_26($_)); } @$l; @l = remove_loaded_modules(@l) or return; my %options = map { cond_mapping_24_26($_) => $h_options->{$_} } keys %$h_options; load_raw(\@l, \%options); } sub load { my (@l) = @_; load_with_options(\@l, {}); } # eg: load_and_configure($modules_conf, 'bt878', [ bttv => 'no_overlay=1' ]) sub load_and_configure { my ($conf, $module, $o_options) = @_; my @l = remove_loaded_modules(dependencies_closure(cond_mapping_24_26($module))); load_raw(\@l, { cond_mapping_24_26($module) => $o_options }); if (member($module, @parallel_zip_modules) && ! -d "/proc/sys/dev/parport/parport0/devices/$module") { log::l("$module loaded but is not useful, removing"); unload($module); return; } $conf->set_options($module, $o_options) if $o_options; when_load($conf, $module); } sub unload { if ($::testing) { log::l("rmmod $_") foreach @_; } else { run_program::run("rmmod", $_) foreach @_; } } sub load_category { my ($conf, $category, $o_wait_message) = @_; my @try_modules = ( if_($category =~ /scsi/, if_(detect_devices::usbStorage(), 'usb_storage'), ), arch() =~ /ppc/ ? ( if_($category =~ /scsi/, if_(detect_devices::has_mesh(), 'mesh'), if_(detect_devices::has_53c94(), 'mac53c94'), ), if_($category =~ /net/, 'bmac', 'gmac', 'mace', 'airport'), ) : (), ); my @l = ( (map { my $other = { ahci => 'ata_piix', ata_piix => 'ahci' }->{$_->{driver}}; $_->{try} = 1 if $other; ($_, if_($other, { %$_, driver => $other })); } detect_devices::probe_category($category)), (map { { driver => $_, description => $_, try => 1 } } @try_modules), ); foreach (@l) { $o_wait_message->($_->{description}, $_->{driver}) if $o_wait_message; eval { load_and_configure($conf, $_->{driver}, $_->{options}) }; $_->{error} = $@; $_->{try} = 1 if member($_->{driver}, 'hptraid', 'ohci1394'); #- do not warn when this fails } eval { load_and_configure($conf, 'ide_generic') } if $category eq 'disk/ide'; grep { !($_->{error} && $_->{try}) } @l; } sub load_parallel_zip { my ($conf) = @_; arch() !~ /ppc/ or return; grep { eval { load_and_configure($conf, $_); 1 }; } @parallel_zip_modules; } #-############################################################################### #- modules.conf functions #-############################################################################### sub write_preload_conf { my ($conf) = @_; my @l; my $is_laptop = detect_devices::isLaptop(); my $manufacturer = detect_devices::dmidecode_category('System')->{Manufacturer}; push @l, 'scsi_hostadapter' if $conf->get_probeall('scsi_hostadapter'); push @l, detect_devices::probe_name('Module'); push @l, 'nvram' if $is_laptop; push @l, map { $_->{driver} } detect_devices::probe_category($_) foreach qw(multimedia/dvb multimedia/tv various/agpgart various/laptop input/joystick various/crypto disk/card_reader); push @l, 'padlock-aes', 'padlock-sha' if cat_("/proc/cpuinfo") =~ /rng_en/; push @l, 'evdev' if any { $_->{Synaptics} || $_->{ALPS} || $_->{HWHEEL} } detect_devices::getInputDevices(); push @l, 'asus_acpi' if $is_laptop && $manufacturer =~ m/^ASUS/; push @l, 'thinkpad_acpi' if $is_laptop && member($manufacturer, qw(IBM LENOVO)); push @l, 'hdaps' if $is_laptop && $manufacturer eq 'LENOVO'; append_to_modules_loaded_at_startup("$::prefix/etc/modprobe.preload", @l); } sub append_to_modules_loaded_at_startup_for_all_kernels { append_to_modules_loaded_at_startup($_, @_) foreach "$::prefix/etc/modprobe.preload"; } sub append_to_modules_loaded_at_startup { my ($file, @l) = @_; my $l = join '|', map { '^\s*' . $_ . '\s*$' } @l; log::l("to put in $file ", join(", ", @l)); substInFile { $_ = '' if $l && /$l/; $_ .= join '', map { "$_\n" } @l if eof; } $file; } sub set_preload_modules { my ($service, @modules) = @_; my $preload_file = "$::prefix/etc/modprobe.preload.d/$service"; if (@modules) { output_p($preload_file, join("\n", @modules, '')); } else { unlink($preload_file); } eval { load(@modules) } if @modules && !$::isInstall; } #-############################################################################### #- internal functions #-############################################################################### sub loaded_modules() { map { /(\S+)/ } cat_("/proc/modules"); } sub remove_loaded_modules { my (@l) = @_; difference2([ uniq(@l) ], [ map { my $s = $_; $s =~ s/_/-/g; $s, $_ } loaded_modules() ]); } sub read_already_loaded { my ($conf) = @_; when_load($conf, $_) foreach reverse loaded_modules(); } sub when_load { my ($conf, $name) = @_; if (my $category = module2category($name)) { when_load_category($conf, $name, $category); } if (my @above = $conf->get_above($name)) { load(@above); #- eg: for snd-pcm-oss set by set_sound_slot() } } sub when_load_category { my ($conf, $name, $category) = @_; if ($category =~ m,disk/ide,) { $conf->add_probeall('ide-controller', $name); eval { load('ide_disk') }; } elsif ($category =~ m,disk/(scsi|hardware_raid|sata|usb|firewire),) { $conf->add_probeall('scsi_hostadapter', $name); eval { load('sd_mod') }; } elsif ($category eq 'bus/usb') { $conf->add_probeall('usb-interface', $name); -f '/proc/bus/usb/devices' or eval { require fs::mount; fs::mount::usbfs(''); #- ensure keyboard is working, the kernel must do the job the BIOS was doing sleep 4; load("usbkbd", "keybdev") if detect_devices::usbKeyboards(); }; } elsif ($category eq 'bus/firewire') { $conf->set_alias('ieee1394-controller', $name); } elsif ($category =~ /sound/) { my $sound_alias = find { /^sound-slot-[0-9]+$/ && $conf->get_alias($_) eq $name } $conf->modules; $sound_alias ||= 'sound-slot-0'; $conf->set_sound_slot($sound_alias, $name); } elsif ($category =~ m!disk/card_reader!) { my @modules = ('mmc_block', if_($name =~ /tifm_7xx1/, 'tifm_sd')); $conf->set_above($name, join(' ', @modules)); } } #-############################################################################### #- isInstall functions #-############################################################################### sub module_extension() { ".ko" } sub extract_modules { my ($dir, @modules) = @_; map { my $modname = $_; my $path = list_modules::modname2path($modname); my $f = $modname . module_extension(); if (-e $path) { system("gzip -dc $path > $dir/$f") == 0 or unlink "$dir/$f"; } else { log::l("warning: unable to get module filename for $modname (path: $path)"); } "$dir/$f"; } @modules; } sub load_raw_install { my ($l, $options) = @_; extract_modules('/tmp', @$l); my @failed = grep { my $m = '/tmp/' . $_ . module_extension(); if (-e $m) { my $stdout; my $rc = run_program::run('/sbin/insmod', '2>', \$stdout, $m, split(' ', $options->{$_})); log::l(chomp_($stdout)) if $stdout; if ($rc) { unlink $m; ''; } } else { log::l("missing module $_"); 'error'; } } @$l; die "insmod'ing module " . join(", ", @failed) . " failed" if @failed; } 1;