diff options
Diffstat (limited to 'translate_menu')
| -rwxr-xr-x | translate_menu | 48 |
1 files changed, 21 insertions, 27 deletions
diff --git a/translate_menu b/translate_menu index 4128f8b..db37640 100755 --- a/translate_menu +++ b/translate_menu @@ -21,28 +21,23 @@ chomp($menudir); ! -d "$buildroot/$menudir/" || exit(0); -my @nested = (["Configuration", "System/Configuration"], - - ["Applications/Monitoring", "System/Monitoring"], - ["Applications/Publishing", "Office/Publishing"], - ["Applications/File tools", "System/File Tools"], - ["Applications/Text tools", "System/Text Tools"], - ["Applications/Archiving", "System/Archiving"], - ["Applications", "More Applications"], - - ["Terminals", "System/Terminals"], - - ["Documentation", "More Applications/Documentation"], - - ["Office/PDA", "Office/Communications/PDA"], - - ["Networking/IRC", "Internet/Chat"], - ["Networking/WWW", "Internet/Web Browsers"], - ["^Networking", "Internet"], - - ["Amusement", "More Applications/Games"], - ["Session/Windowmanagers", "System/Session/Windowmanagers"], - ); +my @nested = ( + ["Configuration", "System/Configuration"], + ["Applications/Monitoring", "System/Monitoring"], + ["Applications/Publishing", "Office/Publishing"], + ["Applications/File tools", "System/File Tools"], + ["Applications/Text tools", "System/Text Tools"], + ["Applications/Archiving", "System/Archiving"], + ["Applications", "More Applications"], + ["Terminals", "System/Terminals"], + ["Documentation", "More Applications/Documentation"], + ["Office/PDA", "Office/Communications/PDA"], + ["Networking/IRC", "Internet/Chat"], + ["Networking/WWW", "Internet/Web Browsers"], + ["^Networking", "Internet"], + ["Amusement", "More Applications/Games"], + ["Session/Windowmanagers", "System/Session/Windowmanagers"], +); sub translate { my ($str) = @_; @@ -51,21 +46,22 @@ sub translate { if ($str =~ /(.*)$t->[0](.*)/ && $str !~ /$t->[1]/) { print "$str => $1$t->[1]$2\n"; return "$1$t->[1]$2"; - } + } } return $str; } # process each file passed on cli: -foreach my $file (glob("$ENV{RPM_BUILD_ROOT}/$menudir/*")) { +foreach my $file (glob("$buildroot/$menudir/*")) { open(my $FILE, "<$file") or die $!; my @lines = <$FILE>; close($FILE); open($FILE, ">$file") or die $!; foreach my $l (@lines) { chomp($l); - if ($l =~ /(.*section=)"([^"]+)"(\s*.*)/ || $l =~ /(.*section=)([^"].+?)((\s|\\)+.*)/) { + if ($l =~ /(.*section=)"([^"]+)"(\s*.*)/ || + $l =~ /(.*section=)([^"].+?)((\s|\\)+.*)/) { my ($beg, $section, $end) = ($1, $2, $3); $section = translate($section); $l = qq($beg"$section"$end); @@ -74,5 +70,3 @@ foreach my $file (glob("$ENV{RPM_BUILD_ROOT}/$menudir/*")) { } close($FILE); } - -# translate_menu.pl ends here |