[mhc:00604] Re: mhc-snap20000522

[Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>]

On Mon, 22 May 2000 19:15:44 +0900,
	Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx> said:

>  http://www.swlab.csce.kyushu-u.ac.jp/~nom/prj/mhc/mhc-snap20000522.tar.gz
> 
> elisp 的には前のスナップから 何ら変わっていません。
> 
> 大きな変化は mhc-sync の引数書式をかなり変えて、
> ちゃんと引数チェックをするようにしたことです。
> 前の通り使うと、多分おかしなことになるので、usage() をよく読んで下さい。

うっ、mhc-sync で remote の username を渡せなくなってました。
以下パッチ。
--
nom # 収束させるつもりが。。

--- mhc-sync    2000/05/22 08:42:20     1.8
+++ mhc-sync    2000/05/22 11:48:07     1.10
@@ -143,7 +143,7 @@
   when /^-/
     usage()
   else
-    if ARGV[0] =~ /(([^@])+@)?([^:\s]+)(:(.*))?/
+    if ARGV[0] =~ /(([^@]+)@)?([^:\s]+)(:(.*))?/
       $flag_server_user, $flag_server_host, $flag_server_dir = $2, $3, $5
     else
       usage()
@@ -272,7 +272,7 @@
 else
 
   STDERR .print"Connecting #{$flag_server_host} ...\n"
-  svr = $flag_server_user ?  $flag_server_user  + '@' : '' + $flag_server_host
+  svr = ($flag_server_user ?  $flag_server_user  + '@':'') + $flag_server_host
   dry = $flag_noharm ? '-n' : ''
   xid = $flag_syncid ? "-x #{$flag_syncid}" : ''
   dir = $flag_server_dir ? "-r #{$flag_server_dir}" : ''