package modparm; # $Id$ use diagnostics; use strict; #-###################################################################################### #- misc imports #-###################################################################################### use common; use log; sub get_options_result($@) { my ($module, @value) = @_; mapn { my ($a, $b) = @_; $b =~ s/^(\w).*/$1/; $a ? "$b=$a" : (); } \@value, [get_options_name($module)]; } sub get_options_name($) { my ($module) = @_; my @names; my @line = `/sbin/modinfo -p $module`; foreach (@line) { chomp; s/int/i/; s/string/string/; s/short/h/; s/long/l/; s/(\S) array \(min = (\d+), max = (\d+)\)/$2-$3$1/; s/(\d)-\1i/$1i/; if (/parm:\s+(.+)/) { my ($name, $type) = split '\s', $1; push @names, "$name ($type)"; } } @names; } 1; elect name='h' onchange='this.form.submit();'> Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/raid.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-12 09:38:18 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-12 09:38:18 +0000
commit1e820ce6d8d7ec5e58a4e548241e728d9a06eed1 (patch)
treec5444c68c5ab5a0c8de2208842a23a0b33e42988 /perl-install/raid.pm
parent2719bc8d0150ec8d6df10ec59a4024dc52a40b9b (diff)
downloaddrakx-1e820ce6d8d7ec5e58a4e548241e728d9a06eed1.tar
drakx-1e820ce6d8d7ec5e58a4e548241e728d9a06eed1.tar.gz
drakx-1e820ce6d8d7ec5e58a4e548241e728d9a06eed1.tar.bz2
drakx-1e820ce6d8d7ec5e58a4e548241e728d9a06eed1.tar.xz
drakx-1e820ce6d8d7ec5e58a4e548241e728d9a06eed1.zip