tools/multiwebsearch.pl

   1 #!/usr/bin/perl
   2
   3 #  * Copyright © 2003 Paul Mangan <claws@thewildbeast.co.uk>
   4 #  *
   5 #  * This file is free software; you can redistribute it and/or modify it
   6 #  * under the terms of the GNU General Public License as published by
   7 #  * the Free Software Foundation; either version 2 of the License, or
   8 #  * (at your option) any later version.
   9 #  *
  10 #  * This program is distributed in the hope that it will be useful, but
  11 #  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12 #  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 #  * General Public License for more details.
  14 #  *
  15 #  * You should have received a copy of the GNU General Public License
  16 #  * along with this program; if not, write to the Free Software
  17 #  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18 #  *
  19
  20 use Getopt::Long;
  21
  22 my $where = '';
  23 my $what  = '';
  24
  25 GetOptions("where=s"    => \$where,
  26            "what=s"     => \$what);
  27
  28 chdir($ENV{HOME} . "/.sylpheed")
  29         || die("Can't find your ~/.sylpheed directory\n");
  30
  31 open (CONF, "<multiwebsearch.conf")
  32         || die("Can't open ~/.sylpheed/multiwebsearch.conf\n");
  33         @conflines = <CONF>;
  34 close CONF;
  35
  36 foreach $confline (@conflines) {
  37         if ($confline =~ m/^$where\|/) {
  38                 chomp $confline;
  39                 @parts = split(/\|/, $confline);
  40                 $url = $parts[1];
  41                 if ($parts[2]) {
  42                         $what .= $parts[2];
  43                 }
  44         }
  45 }
  46
  47 if (!$url) {
  48         die("No url found with the alias \"$where\"\n");
  49 }
  50
  51 open (SYLRC, "<sylpheedrc")
  52         || die("Can't open ~/.sylpheed/sylpheedrc\n");
  53         @rclines = <SYLRC>;
  54 close SYLRC;
  55
  56 foreach $rcline (@rclines) {
  57         if ($rcline =~ m/^uri_open_command/) {
  58                 chomp $rcline;
  59                 @browser = split(/=/, $rcline);
  60                 $browser[1] =~ s/%s/$url$what/;
  61         }
  62 }
  63 system("$browser[1]&");
  64 exit;