repo.or.cz
/
claws.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
don't get a fright when encountering an unknown Content-Type
[claws.git]
/
tools
/
google_msgid.pl
blob
40cf12e81c6f67f77e5e8ef4243ddd19045a7ded
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
=
$_
' &"
);