+sub translate_menu {
+ my ($menu_file) = @_;
+
+ my $new_file = $menu_file;
+ $new_file =~ s/\./_new\./;
+
+ open my $in, "<", $menu_file or die "error opening $menu_file: $!";
+ open my $out, ">", $new_file or die "error opening $new_file: $!";
+
+ while (<$in>) {
+ print $out $_;
+ if (/^\[(.*)\]$/) {
+ my $name = $1;
+ # look if we got this in %icons
+ if ($icons{ $name . '.png' }) {
+ my $new_name = $icons{ $name . '.png' };
+ $new_name =~ s/\.png$//;
+ print $out "ICON=$icons{ $name . '.png' }\n";
+ } else {
+ warn "don't know what '$name' is in $menu_file";
+ }
+ }
+ }
+ system("mv $new_file $menu_file");
+}
+
+# checks();
+# make_icons();
+
+translate_menu('menus/erp.ini');
+translate_menu('menus/admin.ini');
+translate_menu('menus/crm.ini');