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
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;