I think the following will work. To use, cd to the Applications folder of the .vmwarevm bundle, then
./stripFileURLHandling.pl *.app
Edited to correct script.
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
if ($#ARGV == -1) {
print "Removes file/URL associations from Dockers. Usage:\n";
print "$0 docker.app [docker2.app [docker3.app ...]]\n\n";
exit;
}
foreach my $appnum (0 .. $#ARGV) {
my $surpress = 0;
move("$ARGV[$appnum]/Contents/Info.plist", "$ARGV[$appnum]/Contents/Info.plist.bak");
open INFILE, "$ARGV[$appnum]/Contents/Info.plist.bak" or die $!;
open OUTFILE, ">", "$ARGV[$appnum]/Contents/Info.plist" or die $!;
while (<INFILE>) {
if (/^\t<key>CFBundleDocumentTypes<\/key>/) { $surpress = 1; }
if (/^\t<key>CFBundleURLTypes<\/key>/) { $surpress = 1; }
if ($surpress == 0) { print OUTFILE; }
if (/^\t<\/array>/) { $surpress = 0; }
}
# Fusion will overwrite the Docker, making it show up again. Make the
# Docker non-writable to prevent this.
# Is there a way to only remove the write bit?
chmod 0444, "$ARGV[$appnum]/Contents/Info.plist";
chmod 0555, "$ARGV[$appnum]/Contents";
chmod 0555, "$ARGV[$appnum]";
}
