Mail address as password for anonymous FTP

[<@IU.AI.SRI.COM:slug-admin@iu.ai.sri.com>]

Many anonymous FTP sites like, and some require, the
user to send an e-mail address as the password.
Currently, the Symbolics software sends "FOO".
I've hacked the following to send a mail address:
if you edit SYS:IO;FILE-ACCESS-PATHS.LISP.194 and
search for "ANONYMOUS" (function is prompt-for-user-and-password), 
replace the next line with
 (let ((ma (send si:*user* :mail-address)))
     (format nil "~a@~a" (first ma) (send (second ma) :internet-domain-name))))

(I don't know how to handle a non-machine mail address,
maybe someone else has an idea.)

The acid test is :show directory ftp.uu.net:/*
They require a real e-mail address as password, so FOO doesn't work.

A late Xmas gift for SLUG; enjoy.


Liam M. Healy