An AppleScript to Backup a stuffed archive of your files.
by Dave Oliver
I have had my hard drive inexplicably die twice in the last 5
months. Norton couldn't fix it and I had to manually piece together
1 1/5 years of email and a lot of graphics files that I lost.
The other big things I lost were all my 'net preferences (I'm
really sick of having to keep telling InternetConfig and Netscape
how to handle the files I download.
Instead of simply copying the Eudora Folder onto my Jaz drive,
I decided to "Think Different" and use the tools Apple gave me:
I wrote an AppleScript that Stuffs and uploads my Eudora folder
and all mu Internet Preferences onto my web FTP site. I now do
this religiously every Friday when I get home from work, so if
anything major happens I only loose a couple days' worth of email.
Incidentally, the meat of the script was done simply by hitting
record in the Script Editor and doing what I wanted!
(download the script)
tell application "Finder"
activate
if file "Macintosh HD:Desktop Folder:eudora_folder.sit" exists
then
delete file "Macintosh HD:Desktop Folder:eudora_folder.sit"
end if
if file "Macintosh HD:Desktop Folder:internet_prefs.sit" exists
then
delete file "Macintosh HD:Desktop Folder:internet_prefs.sit"
end if
end tell
tell application "StuffIt Deluxe™"
activate
«event SIT!updm»
make new archive with properties {pathname:"Macintosh HD:Desktop
Folder:eudora_folder.sit"}
stuff {alias "Macintosh HD:System Folder:Eudora Folder:"}
close archive 1
-- here's where it gets complicated :)
make new archive with properties {pathname:"Macintosh HD:Desktop
Folder:internet_prefs.sit"}
make new archive folder with properties {name:"internet folder"}
set current folder of archive 1 to archive folder "internet folder"
of archive 1
stuff {alias "Macintosh HD:System Folder:Note Pad File"} into
archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Netscape
Users:Dave Oliver:bookmarks.html"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:MT-NewsWatcher
Prefs"} into archive 1
stuff {alias "Macintosh HD:Internet:MT-NewsWatcher 2.4.4 ƒ:MT-Newswatcher
Filters"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Modem Preferences"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Internet
Preferences"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:GC Universal
Prefs"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Fetch Prefs"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Fetch Shortcuts"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:CD Remote
Programs"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Virtual PC
2.0 Preferences"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Transit Favorites"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Transit Preferences"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:TCP/IP Preferences"}
into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Stickies
file"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:Remote Access:Remote
Access Connections"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:QuickTime
Preferences"} into archive 1
stuff {alias "Macintosh HD:System Folder:Preferences:PC Exchange
Preferences"} into archive 1
stuff {alias "Macintosh HD:System Folder:Extensions:Modem Scripts:pope
288/336"} into archive 1
close archive 1
quit
end tell
tell application "Fetch 3.0.3"
activate
with timeout of 300 seconds
put into url "ftp://username:password@your.ftp.site/" item alias "Macintosh HD:Desktop Folder:eudora_folder.sit"
put into transfer window "your.ftp.site" item alias "Macintosh HD:Desktop Folder:internet_prefs.sit"
end timeout
close window 1
quit
end tell
tell application "Finder"
activate
if file "Macintosh HD:Desktop Folder:eudora_folder.sit" exists
then
delete file "Macintosh HD:Desktop Folder:eudora_folder.sit"
end if
if file "Macintosh HD:Desktop Folder:internet_prefs.sit" exists
then
delete file "Macintosh HD:Desktop Folder:internet_prefs.sit"
end if
end tell |
