Re: Publish-file

>> I got aserve-1.2.35 at ftp:ftp.franz.com/pub/aserve but I didn't see the =
>> publish-file function.

Did you look in publish.cl ?




It's there when I get the distribution:


tiger :: ftp ftp.franz.com
Connected to ftp.franz.com (192.132.95.22).
220 Welcome to Allegro FTP
Name (ftp.franz.com:jkf): ftp
331 Guest login ok, send your complete e-mail address as password.
Password:[email protected]

230-Welcome to Franz Inc!
230 User ftp logged in.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp> cd pub/aserve
250 "/pub/aserve" is the current directory.
ftp> get aserve-1.2.35.tgz
local: aserve-1.2.35.tgz remote: aserve-1.2.35.tgz
227 Entering Passive Mode (192,132,95,22,155,10)
150 Opening BINARY mode data connection for /pub/aserve/aserve-1.2.35.tgz.
226 Transfer complete.
446118 bytes received in 0.298 secs (1.5e+03 Kbytes/sec)
ftp> quit
221 Goodbye.
tiger :: ls
total 440
 440 aserve-1.2.35.tgz
tiger :: tar xfz aserve-1.2.35.tgz
tiger :: ls
total 444
   4 aserve-1.2.35/   440 aserve-1.2.35.tgz
tiger :: cd aserve-1.2.35
tiger :: ls
total 516
   8 authorize.cl     4 htmlgen/		    24 parse.cl
  16 cgi.cl	      4 license-allegroserve.txt    84 proxy.cl
  36 ChangeLog	     24 license-lgpl.txt	    76 publish.cl
  32 client.cl	     12 load.cl			     4 readme.txt
  24 decode.cl	      8 log.cl			     4 source-readme.txt
   4 doc/	      8 macs.cl			     4 test/
   4 examples/	     88 main.cl			     4 webactions/
  36 headers.cl       8 packages.cl
tiger :: grep publish-file *.cl
packages.cl:   #:publish-file
publish.cl:(defun publish-file (&key (server *wserver*)
publish.cl:	    (return-from publish-file nil))
publish.cl:    (publish-file :path (request-decoded-uri-path req)
tiger ::