ec554406a77e6e97badffcb6955abb6aed9b7069
[claws.git] / 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;