google/freshmeat search Actions scripts should now work with any configured browser
authorPaul Mangan <paul@claws-mail.org>
Sun, 23 Feb 2003 10:10:22 +0000 (10:10 +0000)
committerPaul Mangan <paul@claws-mail.org>
Sun, 23 Feb 2003 10:10:22 +0000 (10:10 +0000)
ChangeLog.claws
tools/freshmeat_search.pl
tools/google_search.pl

index 49aa61fb1eedf0603ad090213a04f861d4fae709..70fa539075cd4ad49a4266e5eb67b16890c3f13f 100644 (file)
@@ -1,3 +1,9 @@
+2003-02-23 [paul]
+
+       * tools/freshmeat_search.pl
+         tools/google_search.pl
+               scripts should now work for any browser/browser command line
+
 2003-02-22 [christoph] 0.8.10claws45
 
        * src/procmsg.c
index 5ee49453a0ce3a65e538a0a1ffc3aec6be4e4218..292a228db34e699e43e8091615982732a6a8f7ef 100644 (file)
@@ -20,7 +20,7 @@
 my $freshmeat = "http://freshmeat.net/search?q";
 $_ = <>;
 
-chdir($ENV{HOME} . "/.sylpheed") or die("Can't find your .sylpheed directory\n");
+chdir($ENV{HOME} . "/.sylpheed") || die("Can't find your .sylpheed directory\n");
 
 open (SYLRC, "<sylpheedrc") || die("Can't open the sylpheedrc file\n");
        @rclines = <SYLRC>;
@@ -30,10 +30,10 @@ foreach $rcline (@rclines) {
        if ($rcline =~ m/^uri_open_command/) {
                chomp $rcline;
                @browser = split(/=/, $rcline);
-               $browser[1] =~ s/ '%s'$//;
+               $browser[1] =~ s/%s/$freshmeat=$_/;
        }
 }
 
-system("$browser[1] '$freshmeat=$_' &");
+system("$browser[1]&");
 
 exit;
index bf02bf32eac9ad706640d046187520163c16ed2c..30b19088009c0f3dcc3939dd465ce69a1fb0b9a6 100644 (file)
@@ -20,7 +20,7 @@
 my $google = "http://www.google.com/search?q";
 $_ = <>;
 
-chdir($ENV{HOME} . "/.sylpheed") or die("Can't find your .sylpheed directory\n");
+chdir($ENV{HOME} . "/.sylpheed") || die("Can't find your .sylpheed directory\n");
 
 open (SYLRC, "<sylpheedrc") || die("Can't open the sylpheedrc file\n");
        @rclines = <SYLRC>;
@@ -30,11 +30,10 @@ foreach $rcline (@rclines) {
        if ($rcline =~ m/^uri_open_command/) {
                chomp $rcline;
                @browser = split(/=/, $rcline);
-               $browser[1] =~ s/ '%s'$//;
+               $browser[1] =~ s/%s/$google=$_/;
        }
 }
-
-system("$browser[1] '$google=$_' &");
+system("$browser[1]&");
 
 exit;