Mercurial > hg > Members > anatofuz > anatofuz-tools

comparison hg-browse @ 1:85f5eada6707

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix regex for yomitan
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 13 Nov 2018 08:54:23 +0900
parents 78df974566a7
children 3656bdd46f54
comparison
equal deleted inserted replaced
0:78df974566a7 1:85f5eada6707
40 my $input = shift; 40 my $input = shift;
41 my $http_domain = 'https://ie.u-ryukyu.ac.jp/hg/'; 41 my $http_domain = 'https://ie.u-ryukyu.ac.jp/hg/';
42 my $mid_path = 'index.cgi/home/hg/'; 42 my $mid_path = 'index.cgi/home/hg/';
43 my $url; 43 my $url;
44 44
45 if ($input =~ m[jp//home/hg/y(\d+)(.+)]){ 45 if ($input =~ m[.*//home/hg/y(\d+)(.+)]){
46 $url = $http_domain . "y$1/".$mid_path."y$1".$2;
47 } elsif ($input =~ m[ssh://.*yomitan.*//home/hg/y(\d+)(.*)] ){
48 $url = $http_domain . "y$1/".$mid_path."y$1".$2; 46 $url = $http_domain . "y$1/".$mid_path."y$1".$2;
49 } 47 }
50 @cmd = ('open',$url); 48 @cmd = ('open',$url);
51 eval { run3 \@cmd,undef,\$stdout,\$stderr;}; 49 eval { run3 \@cmd,undef,\$stdout,\$stderr;};
52 exit 0; 50 exit 0;