Do not hardcode resolv.conf location
[claws.git] / tools / google_msgid.pl
blob40cf12e81c6f67f77e5e8ef4243ddd19045a7ded
1 #!/usr/bin/perl
2 my $browser = 'mozilla';
3 my $google_id = 'http://groups.google.com/groups?as_umsgid';
4 $_ = <>;
5 chomp;
6 s/<|>//eg;
7 system("$browser '$google_id=$_' &");