Re: Scriptable postscript downloader?
Re: Scriptable postscript downloader?
- Subject: Re: Scriptable postscript downloader?
- From: email@hidden
- Date: Wed, 8 Nov 2000 07:26:11 -0600
Here's a drag and drop script that I use all of the time for dumping PS to
a printer that uses Fetch.
on run
set appPath to application file id "FTCh" as string
try
run application appPath
on error number -1708
--ignore error
end try
set fileList to +event ScTlstdF; given +class prmp;:,
"Please choose one or more files to transfer:"
doTransfer(fileList)
end run
on open fileList
doTransfer(fileList)
end open
on doTransfer(doc)
tell application "Finder"
set x to information window of (path to me)
set myName to comment of x
end tell
display dialog " FTP Files To
LAN2 _TBLUE
Version 3.0 ? 8/8/00"
with timeout of 60000 seconds
tell application "Fetch 3.0.3"
activate
make new transfer window at beginning with properties
{hostname:"172.21.34.112", userid:"anonymous", password:""}
put into transfer window "172.21.34.112" item doc binary
format Raw Data ,
text format Raw Data
end tell
end timeout
tell application "Fetch 3.0.3"
activate
close window 1
close window 1
end tell
tell application "Finder"
activate
end tell
end doTransfer
------------------------------
Jim Frey
Integration Engineer
RR Donnelley & Sons
Lancaster Financial
717-295-4154
email@hidden