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 $what =~ s/\s/%20/g;
  29
  30 chdir($ENV{HOME} . "/.sylpheed")
  31         || die("Can't find your ~/.sylpheed directory\n");
  32
  33 open (CONF, "<multiwebsearch.conf")
  34         || die("Can't open ~/.sylpheed/multiwebsearch.conf\n");
  35         @conflines = <CONF>;
  36 close CONF;
  37
  38 foreach $confline (@conflines) {
  39         if ($confline =~ m/^$where\|/) {
  40                 chomp $confline;
  41                 @parts = split(/\|/, $confline);
  42                 $url = $parts[1];
  43                 if ($parts[2]) {
  44                         $what .= $parts[2];
  45                 }
  46         }
  47 }
  48
  49 if (!$url) {
  50         die("No url found with the alias \"$where\"\n");
  51 }
  52
  53 open (SYLRC, "<sylpheedrc")
  54         || die("Can't open ~/.sylpheed/sylpheedrc\n");
  55         @rclines = <SYLRC>;
  56 close SYLRC;
  57
  58 foreach $rcline (@rclines) {
  59         if ($rcline =~ m/^uri_open_command/) {
  60                 chomp $rcline;
  61                 @browser = split(/=/, $rcline);
  62                 $browser[1] =~ s/%s/$url$what/;
  63         }
  64 }
  65 system("$browser[1]&");
  66 exit;