tools/freshmeat_search.pl

   1 #!/usr/bin/perl
   2
   3 my $freshmeat = "http://freshmeat.net/search?q";
   4 $_ = <>;
   5
   6 chdir($ENV{HOME} . "/.sylpheed") or die("Can't find your .sylpheed directory\n");
   7
   8 open (SYLRC, "<sylpheedrc") || die("Can't open the sylpheedrc file\n");
   9         @rclines = <SYLRC>;
  10 close SYLRC;
  11
  12 foreach $rcline (@rclines) {
  13         if ($rcline =~ m/^uri_open_command/) {
  14                 chomp $rcline;
  15                 @browser = split(/=/, $rcline);
  16                 $browser[1] =~ s/ '%s'$//;
  17         }
  18 }
  19
  20 system("$browser[1] '$freshmeat=$_' &");
  21
  22 exit;