home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / infoserv / gopher / Macintosh-TurboGopher / helper-applications / Anarchie-140.sit.hqx / Anarchie-140 / Example Scripts / DropPut < prev    next >
Encoding:
Text File  |  1994-09-08  |  231 b   |  13 lines
  1. property whereto : "ftp://user:pasword@host/path/"
  2.  
  3. on open doc
  4.     if doc's class is not list then
  5.         set doc to {doc}
  6.     end if
  7.     repeat with i in doc
  8.         tell application "Anarchie"
  9.             store i url whereto
  10.         end tell
  11.     end repeat
  12. end open
  13.