Ticket #21044: openbrowser.diff

files/openbrowser

@@ -11 +11 @@
 # e.g. a text editor.
 #
 # usage: openbrowser [ file | url ] [ ... ]
-#
-# Thanks to John Gruber for coincidentally posting the code I'd been
-# seeking for reading the http helper from Internet Config.
-# http://daringfireball.net/2009/02/do_shell_script_premature_optimization
 
-use Mac::InternetConfig;
+sub GetBrowser {
+        use Mac::PropertyList qw(parse_plist_file);
+        my $browser = "com.apple.safari";
+        my $plist_file = "$ENV{HOME}/Library/Preferences/com.apple.LaunchServices.plist";
+        $data = parse_plist_file($plist_file);
+        if ($data) {
+                for my $handler ($data->{"LSHandlers"}->value()) {
+                        $handler->{"LSHandlerURLScheme"} || next;
+                        "http" eq $handler->{"LSHandlerURLScheme"}->value() || next;
+                        $browser = $handler->{"LSHandlerRoleAll"}->value();
+                        last;
+                }
+        }
+        return $browser;
+}
 
-$browser = +(GetICHelper "http")[1];
-@open_args = ("-a", $browser);
+my $browser = GetBrowser();
+@open_args = ("-b", $browser);
 push @open_args, @ARGV;
 
 exec "open", @open_args;

Portfile

@@ -3 +3 @@
 PortSystem              1.0
 
 name                    openbrowser
-version                 1.0
+version                 1.0.1
 categories              sysutils
 platforms               macosx
 maintainers             ryandesign
@@ -20 +20 @@
 
 distfiles
 
-depends_run             port:p5-mac-carbon
+depends_run             port:p5-mac-propertylist
 
 universal_variant       no