claws-mail/tools/google_msgid.pl
2013-03-20 11:26:52 +01:00

7 lines
169 B
Perl
Executable file

#!/usr/bin/perl
my $browser = 'mozilla';
my $google_id = 'http://groups.google.com/groups?as_umsgid';
$_ = <>;
chomp;
s/<|>//eg;
system("$browser '$google_id=$_' &");