From owner-FreeBSD-users-jp@jp.freebsd.org  Wed Dec 18 11:36:12 1996
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) id LAA04236
	Wed, 18 Dec 1996 11:36:12 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) with SMTP id LAA04231
	for <freebsd-users-jp@jp.freebsd.org>; Wed, 18 Dec 1996 11:36:07 +0900 (JST)
Received: by nirvana.cs.titech.ac.jp (8.6.12+2.4W/3.2W-titmx-2.0g); Wed, 18 Dec 1996 11:36:02 +0900
Message-Id: <199612180236.LAA28088@nirvana.cs.titech.ac.jp>
To: freebsd-users-jp@jp.freebsd.org
Mime-Version: 1.0 (generated by tm-edit 7.60)
Content-Type: text/plain; charset=ISO-2022-JP
Date: Wed, 18 Dec 1996 11:36:01 +0900
From: "SHIGEOKA Tomohiko =?ISO-2022-JP?B?GyRCTFAyLENOSScbKEI=?= " <shigeoka@cs.titech.ac.jp>
Reply-To: FreeBSD-users-jp@jp.freebsd.org
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 7625
Subject: [FreeBSD-users-jp 7625] [A] autoftp script
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B$"$^$j0lHLE*$H$O8@$($^$;$s$,!"(Bftp$B%*!<%H%Q%$%m%C%H$N$h$&$J$3$H$d$j$?$$(B
$B$J$i(BSTk$B$N:G?7HG(B(3.1.1?)$B$r;H$C$F$_$k$H$$$&$N$O$I$&$G$7$g$&$+!#(Bport$B$K$b(B
STk$B$O$"$k$N$G$9$,:G?7HG$+$I$&$+$OITL@$G$9!#(B

$B"-"-$3$&$$$&$3$H$,$G$-$^$9"-"-(B

STk> (require "ftp")
STk> (define f (make <FTP-connection> :host "ftp.cs.titech.ac.jp"))
STk> (when (ftp-login f "ftp" "hoge@hogege.ac.jp") (ftp-chdir f "/pub") 
	  (ftp-dir f "-lsa") (ftp-quit f))
Guest login ok, send your complete e-mail address as password.
Guest login ok, access restrictions apply.
total 43
   1 drwxr-xr-x  22 root     ftp-admi     1024 May 16  1996 .
   1 drwxr-xr-x   8 root     3            1024 Aug  6 16:48 ..
   1 lrwxr-xr-x   1 root     3              10 Mar  9  1996 FreeBSD -> os/FreeBSD
   3 drwxr-xr-x  11 10137    ftp-admi     3072 Dec 18 02:16 IEICE
   1 drwxr-xr-x   7 6118     ftp-admi     1024 Mar  9  1996 Mac
   1 drwxr-xr-x   2 root     ftp-admi     1024 Mar  9  1996 NeXT
   1 drwxr-xr-x   3 root     ftp-admi     1024 Mar  9  1996 Sun
   1 lrwxr-xr-x   1 root     3               9 Mar 16  1996 TR -> ../lab/TR
   1 drwxr-xr-x   5 kagotani ftp-admi     1024 Apr 19  1996 X11
   1 drwxr-xr-x   7 kagotani ftp-admi     1024 May 20  1996 doc
   1 drwxr-xr-x   3 root     ftp-admi     1024 Mar  9  1996 games
  16 drwxr-xr-x  10 kagotani ftp-admi    16384 Dec 17 18:32 gnu
   1 drwxr-xr-x   8 root     ftp-admi     1024 Mar  9  1996 gnu-rel
   1 drwxr-xr-x   8 kagotani ftp-admi     1024 Nov 26 03:01 japanese
   1 lrwxr-xr-x   1 root     3               6 Mar 14  1996 lab -> ../lab
   1 drwxr-xr-x   9 kagotani ftp-admi     1024 Oct  9 03:32 lang
   1 drwxr-xr-x   5 kagotani ftp-admi     1024 Dec 15 08:07 mail
   1 drwxr-xr-x   3 kagotani ftp-admi     1024 Mar  9  1996 misc
   2 drwxr-xr-x  17 root     ftp-admi     2048 Oct  8 02:57 net
   1 drwxr-xr-x  12 kagotani ftp-admi     1024 Nov 26 03:25 news
   1 lrwxr-xr-x   1 root     3               6 Mar 27  1996 os -> ../.os
   1 drwxr-xr-x   9 kagotani ftp-admi     1024 Sep 21 00:26 security
   1 drwxr-xr-x   7 kagotani ftp-admi     1024 Apr 23  1996 shell
   1 drwxr-xr-x   5 kagotani ftp-admi     1024 Mar  9  1996 text
   1 drwxr-xr-x   5 kagotani ftp-admi     1024 Mar  9  1996 tool
Goodbye.

**Scheme$B8@8l$,$o$+$l$P(B***$B$J$s$G$b$G$-$A$c$$$^$9!#(B


     $BEl5~9)6HBg3X(B $BBg3X1!(B $B>pJsM}9)3X8&5f2J(B $B7W;;9)3X@l96(B
            $BLP2,(B $BCNI'(B(shigeoka@cs.titech.ac.jp)
