/usr/share/icewm/contrib/config-fix.pl is in icewm-gnome-support 1.3.7-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | #!/usr/bin/perl
# © Eduard Bloch <blade@debian.org>, 2003
#
$menufile = $ENV{"HOME"}."/.icewm/menu";
$updateMenuMsg = "updating... ";
$menufile = $ARGV[0] if( -f $ARGV[0] );
if(! -f $menufile)
{
print "No personal menu file, fine...\n";
}
else {
print "Testing $menufile... ";
}
open(menu, "+<$menufile");
while(<menu>) {
if($_ =~ /folder.*icewm-menu-gnome/) {
if(defined $updateMenuMsg) {
push(menuContents, "
menuprog \"Gnome\" folder icewm-menu-gnome2 --list /usr/share/gnome/vfolders
menuprog \"KDE\" folder icewm-menu-gnome2 --list /usr/share/applnk
");
print $updateMenuMsg;
undef $updateMenuMsg;
}
}
else {
push(menuContents, $_);
}
}
# fix very old config without gnome menu entry
if(defined $updateMenuMsg) {
push(menuContents, "
menufile Toolbar folder toolbar
separator
menuprog \"Gnome\" folder icewm-menu-gnome2 --list /usr/share/gnome/vfolders
menuprog \"KDE\" folder icewm-menu-gnome2 --list /usr/share/applnk
");
print $updateMenuMsg;
undef $updateMenuMsg;
}
print "done.\n";
seek(menu, 0, 0);
print menu @menuContents;
|