changeset 7:6c212f9834b6 default tip

fix hg-browse
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 23 Nov 2020 14:07:02 +0900
parents 5b8f7c3dd929
children
files hg-browse
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/hg-browse	Tue May 07 08:55:23 2019 +0900
+++ b/hg-browse	Mon Nov 23 14:07:02 2020 +0900
@@ -18,7 +18,7 @@
 exit 1 unless ($stdout);
 
 # yomitanはパスで開けないので別枠
-if ($stdout =~ /yomitan/){
+if ($stdout =~ /(yomitan)|(chatan)/){
     yomitan($stdout);
 } elsif ($stdout =~ /firefly/){
     firefly($stdout);
@@ -38,11 +38,10 @@
 sub yomitan {
     my $input  = shift;
     my $http_domain = 'https://ie.u-ryukyu.ac.jp/hg/';
-    my $mid_path = 'index.cgi/home/hg/';
     my $url;
 
     if ($input =~ m[.*//home/hg/y(\d+)(.+)]){
-        $url = $http_domain . "y$1/".$mid_path."y$1".$2;
+        $url = $http_domain . "y$1$2";
     }
     @cmd = ('open',$url);
     eval { run3 \@cmd,undef,\$stdout,\$stderr;};