Mercurial > hg > Members > anatofuz > anatofuz-tools
comparison hg-browse @ 3:f05a6c7471fa
tweak
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 06 Apr 2019 17:34:35 +0900 |
parents | 3656bdd46f54 |
children | 6c212f9834b6 |
comparison
equal
deleted
inserted
replaced
2:3656bdd46f54 | 3:f05a6c7471fa |
---|---|
51 | 51 |
52 sub firefly { | 52 sub firefly { |
53 my $input = shift; | 53 my $input = shift; |
54 my $http_domain = 'http://www.cr.ie.u-ryukyu.ac.jp/'; | 54 my $http_domain = 'http://www.cr.ie.u-ryukyu.ac.jp/'; |
55 my $url; | 55 my $url; |
56 if ($input =~ m[.*firefly/(.*)]){ | 56 if (($input =~ m[.*?firefly.cr.ie.u-ryukyu.ac.jp/(.*)] )||($input =~ m[.*firefly/(.*)])){ |
57 $url = $http_domain.$1; | 57 $url = $http_domain.$1; |
58 } | 58 } |
59 @cmd = ('open',$url); | 59 @cmd = ('open',$url); |
60 eval { run3 \@cmd,undef,\$stdout,\$stderr;}; | 60 eval { run3 \@cmd,undef,\$stdout,\$stderr;}; |
61 exit 0; | 61 exit 0; |