From owner-FreeBSD-net-jp@jp.freebsd.org  Sun Oct 24 02:15:21 1999
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id CAA58583;
	Sun, 24 Oct 1999 02:15:21 +0900 (JST)
	(envelope-from owner-FreeBSD-net-jp@jp.FreeBSD.org)
Received: from cs0.catv.ne.jp (cs0.catv.ne.jp [202.232.171.20])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id CAA58578
	for <FreeBSD-net-jp@jp.freebsd.org>; Sun, 24 Oct 1999 02:15:19 +0900 (JST)
	(envelope-from mak@fd.catv.ne.jp)
Received: from mina.shiori.noemi.mizho by cs0.catv.ne.jp (8.9.1/3.7W)
	id CAA01684; Sun, 24 Oct 1999 02:14:37 +0900 (JST)
Received: from localhost (localhost [127.0.0.1])
	by mina.shiori.noemi.mizho (8.9.3/3.7W) with ESMTP id CAA60712;
	Sun, 24 Oct 1999 02:15:15 +0900 (JST)
To: FreeBSD-net-jp@jp.freebsd.org, usatoh@hotmail.com
In-Reply-To: <19991023160734.25528.qmail@hotmail.com>
References: <004f01bf1cbc$117123c0$696dabd2@gonzo.co.jp>
	<19991024005012Q.ueta@pixy.issp.u-tokyo.ac.jp>
	<19991023160734.25528.qmail@hotmail.com>
X-Mailer: Mew version 1.94 on XEmacs 20.4 (Emerald)
X-Prom-Mew: Prom-Mew 1.93.4 (procmail reader for Mew)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19991024021515Z.mak@mina.shiori.noemi.mizho>
Date: Sun, 24 Oct 1999 02:15:15 +0900
From: Karasawa <mak@fd.catv.ne.jp>
X-Dispatcher: imput version 990905(IM130)
Lines: 41
Reply-To: FreeBSD-net-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: FreeBSD-net-jp 2023
Subject: [FreeBSD-net-jp 2023] Re: Netatalk
 =?ISO-2022-JP?B?GyRCJEgbKEI=?= ftp
Errors-To: owner-FreeBSD-net-jp@jp.freebsd.org
Sender: owner-FreeBSD-net-jp@jp.freebsd.org
X-Originator: mak@fd.catv.ne.jp

$BEbBt$G$9!#(B

From: "Satoh Yuji" <usatoh@hotmail.com>
Subject: [FreeBSD-net-jp 2022] Re: Netatalk $B$H(B ftp
Date: Sun, 24 Oct 1999 01:07:44 +0900
Message-ID: <19991023160734.25528.qmail@hotmail.com>

usatoh> $B"(JL$N%9%l%C%I$K$b=q$-9~$_$^$7$?$,!"$9$G$K:n$i$l$?F|K\8l$N%U%!%$%k(B
usatoh> $B%G%#%l%/%H%jL>$r(BCAP$B$+$i$^$k$4$H(BJIS$B$d(BEUC$B$KJQ49$G$-$J$$$b$N$G$7$g$&$+!)(B

%cat cap2euc
#!/usr/bin/perl
require "/usr/local/lib/perl/jcode.pl";
while($data = shift @ARGV)
{
  if(!($data =~ m/\/$/))
  {
    $data = $data."/";
  }
  opendir(INPUT,$data);
  @filearray = readdir(INPUT);
  foreach $oldname (@filearray)
  {
    $newname = $oldname;
    $newname =~ s/:(..)/pack("C",hex($1))/eg;
    &jcode'convert(*newname, 'euc');
    if ( -f $data.$oldname )
    {
      rename($oldname,$newname);
      print "$oldname -> $newname \n";
    }
  }
}

$B$H$$$&$N$O$I$&$G$7$g$&$+!)(B

%./cap2sjis ./
$B$H$d$l$P%+%l%s%H%G%#%l%/%H%j$NCf$NA4$F$N%U%!%$%k$r%j%M!<%`$7$^$9!#(B

$B:F5"E*$K=hM}$9$k$3$H$O$7$^$;$s!#(B
$B!t8D?ME*$K$3$l$G4V$K9g$C$F$$$k$N$G!&!&!&(B
