summaryrefslogtreecommitdiffstats
path: root/perl-install/share/themes
Commit message (Expand)AuthorAgeFilesLines
* new gfxdamien2002-02-154-0/+0
* new gfxdamien2002-02-122-0/+0
* new buttonsdamien2001-09-052-0/+0
* new theme for betadamien2001-08-111-0/+0
* re-adding with -kbPascal Rigaux2001-07-0311-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* Don't delete any images in test mode. Fix tabs in bootloader.pm.Stew Benedict2001-05-021-0/+0
* *** empty log message ***Francois Pons2000-09-221-0/+0
* no_commentPascal Rigaux2000-04-132-0/+0
* no_commentPascal Rigaux2000-04-122-0/+0
* no_commentPascal Rigaux2000-04-062-0/+0
* no_commentPascal Rigaux2000-04-065-0/+0
* no_commentPascal Rigaux1999-12-213-0/+0
* no_commentPascal Rigaux1999-11-056-0/+0
>$class}{$vendor}{$device} ||= []; push @{$group->{$class}{$vendor}{$device}}, $alias, $module; } else { push @{$group->{$class}{other}}, $alias, $module; } } } } } } sub parse_file_modules { my ($path) = @_; my %modules; foreach (cat_($path)) { if (my ($alias, undef, $module) = $_ =~ $alias_re) { push @{$modules{$module}}, $alias; } } \%modules; } sub get_alias_groups { my ($o_skip_config) = @_; #- FIXME: only o_skip_config from the first call is considered @alias_groups = map { my $group = {}; parse_path($group, $_) foreach @$_; $group; } if_(!$o_skip_config, @config_groups), @system_groups unless @alias_groups; @alias_groups; } sub get_modules { my ($modalias, $o_skip_config) = @_; my ($class) = $modalias =~ /^([^:]+):\S+$/; my ($vendor, $device) = alias_to_ids($modalias); $class && member($class, @classes) or return; require File::FnMatch; foreach my $group (get_alias_groups($o_skip_config)) { my @aliases; foreach my $subgroup ($group->{$class}{$vendor}{$device}, $group->{$class}{other}) { foreach (group_by2(@$subgroup)) { File::FnMatch::fnmatch($_->[0], $modalias) and push @aliases, $_->[1]; } } return uniq(@aliases) if @aliases; } } 1;