/dkms-modules-info/2.6.20.16-krg2.1.1-1mdv/

">($file =~ m:^((.*/share/help)/([^/]+)/([^/]+))/([^/]+).*:) { if (!$withhelp) { return; } my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1); if (pkg_match($pkg)) { parent_to_own($langfile, $file, $lang); } } elsif ($file =~ m:^((.*/doc/kde)/HTML/([^/@]+)[^/]*)/([^/]+)/.*:) { if (!$withkde) { return; } my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1); if (pkg_match($pkg)) { parent_to_own($langfile, $file, $lang); } } elsif ($file =~ m:^((.*/doc)/HTML/([^/@]+)[^/]*)/([^/_]+).*:) { if (!$withhtml) { return; } my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1); if (pkg_match($pkg)) { parent_to_own($langfile, $file, $lang); } } elsif ($file =~ m:^((/+usr/share/man)/([^/@\.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*:) { if (!$withman) { return; } my ($pkg, $lang, $parent, $langfile) = ($4, $3, undef, $1); $file =~ s/\.[^\.]+$//; $file .= '.*'; if (pkg_match($pkg)) { parent_to_own($langfile, $file, $lang); } } else { return; } }, $buildroot || '/' ); open(my $hlang, '>', "$pkgname.lang") or die "cannot open $pkgname.lang\n"; foreach my $f (sort keys %finallist) { my ($lang, @otherlang) = keys %{ $finallist{$f}{'lang'} || {}}; my $l = sprintf("%s%s%s", $finallist{$f}{'dir'} ? '%dir ' : '', @otherlang == 0 && $lang && $lang ne 'C' ? "%lang($lang) " : '', # skip if multiple lang, 'C' or dir $f ); debug('OUT: %s', $l); print $hlang "$l\n"; } close($hlang); exit(0); sub pkg_match { my ($pkg) = @_; if ($allname) { return 1 }; if (grep { $_ eq $pkg } @searchname) { return 1; } return; } sub own_file { my ($file, $lang) = @_; $finallist{$file}{'lang'}{$lang} = 1; } sub parent_to_own { my ($parent, $file, $lang) = @_; debug("parent_to_own: $parent, $file, $lang"); if ($allname) { #my @subdir = grep { $_ } split('/', substr($file, length($parent))); #$parent .= '/' . shift(@subdir); $finallist{$parent}{'lang'}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } else { my @subdir = grep { $_ } split('/', substr($file, length($parent))); pop(@subdir); $finallist{$parent}{dir} = 1; $finallist{$parent}{'lang'}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); while (my $part = shift(@subdir)) { $parent .= "/$part"; $finallist{$parent}{dir} = 1; $finallist{$parent}{'lang'}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } own_file($file, $lang); debug("Parent %s will be %s", $file, $lang); } }