home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / Mac shareware / Comms / Anarchie-121 / Example Scripts / List Clipboard < prev    next >
Encoding:
Text File  |  1994-09-21  |  852 b   |  21 lines  |  [TEXT/ToyS]
  1. -- Change these to specify your prefered Umich & Info-Mac FTP sites.
  2. -- Don't use the home sites, as they are already overloaded.
  3. set umichaddr to "archie.au:/micros/mac/umich/"
  4. set infomacaddr to "archie.au:/micros/mac/info-mac/"
  5.  
  6. set theurl to the clipboard
  7. if (theurl contains " /info-mac") and (theurl contains ";") then
  8.     copy ((characters (offset of "/info-mac" in theurl) thru ┬
  9.         ((offset of ";" in theurl) - 1) of theurl) as string) to theurl
  10. end if
  11. if (theurl does not contain ":") and (theurl starts with "/mac/") then
  12.     copy umichaddr & text from character 6 of theurl to end of theurl to theurl
  13. end if
  14. if (theurl does not contain ":") and (theurl starts with "/info-mac/") then
  15.     copy infomacaddr & text from character 11 of theurl to end of theurl to theurl
  16. end if
  17. tell application "Anarchie"
  18.     activate
  19.     list url theurl with window
  20. end tell
  21.