chmod a+x ~/Pictures/DeskFeed/deskfeed.py
~/Pictures/DeskFeed/deskfeed.py

5      1       *       *       *       /Users/username/Pictures/DeskFeed/deskfeed.py

crontab ~/Desktop/dfcron

#!/usr/bin/env python
import os
import md5
from urllib import URLopener
from urllib2 import urlopen
from xml.dom.minidom import parseString
 
rss_feeds = {}
 
#
# Comment / Uncomment the following lines to use the required feeds
#
rss_feeds['chromasia'] = 'http://deskfeed.neophytou.net/rss/chromasia'
rss_feeds['ddoi'] = 'http://deskfeed.neophytou.net/rss/ddoi'
 
dst_dir = os.path.expanduser('~/Pictures/DeskFeed/')
 
# Based on script found at HackerMoJo.com
# http://hackermojo.com/mt-static/archives/2008/04/metropulse-launched.html
def parseFeed(rss):
  try:
    rss_contents = urlopen( rss )
  except:
    print "Failed to read rss feed %s" % rss
    return
  rss_src = rss_contents.read()
  rss_contents.close()
  dom = parseString( rss_src )
  node_lst = dom.getElementsByTagName('item')
  items = range(node_lst.length)
  hashes = {}
  group = node_lst.item(0).getElementsByTagName('title')[0].getAttribute('group')
  # Store the md5 hashes of all the saved photos
  for i in items:
    img_filename = "%s%s_%s.jpg" % (dst_dir,group,i)
    try:
      image_file = open(img_filename, "r")
      hashes[img_filename] = md5.md5(image_file.read()).hexdigest()
      image_file.close()
    except IOError:
      hashes[img_filename] = ""
      pass
  # Go through all the photos in the rss feed, in reverse order
  items.reverse()
  for i in items:
    element = node_lst.item(i)
    group = element.getElementsByTagName( 'title' )[0].getAttribute('group')
    link = element.getElementsByTagName( 'link' )[0].getAttribute('source')
    photo_hash = element.getElementsByTagName('hash')[0].firstChild.data
    img_filename = "%s%s_%s.jpg" % (dst_dir, group, i)
    # Check all the saved photos and see if any of them have the same hash
    for j in range(i):
      old_img_filename = "%s%s_%s.jpg" % (dst_dir, group, j)
      if (hashes[old_img_filename] == photo_hash):
        # If one does, give it the current photo filename
        os.system("mv %s %s" % (old_img_filename, img_filename))
        hashes[old_img_filename] = ""
        hashes[img_filename] = photo_hash
        break
    try:
      image_file = open(img_filename, "r")
      old_hash = md5.md5(image_file.read()).hexdigest()
      image_file.close()
      if (old_hash == photo_hash):
        continue
    except IOError:
      pass
    try:
      URLopener().retrieve(link, img_filename)
    except IOError:
      continue
 
def main():
  for key in rss_feeds:
    parseFeed(rss_feeds[key])
 
if __name__ == "__main__":
  main()

(*
    Prepare secure drive droplet
    Part of 'Simulating encrypted physical disk in OS X' by Constantinos Neophytou
    http://www.cneophytou.com/2008/01/30/simulating-encrypted-physical-disk-in-os-x/
 
    Version 0.1.1
*)
 
property imageType : "UDIF" (* one of "UDIF", "SPARSE" or "SPARSEBUNDLE" - the latter two have faster creation times, but leave empty space on the device *)
property thePass : ""
 
on open dropped_item
    set this_vol_alias to (dropped_item as alias)
    try
        tell application "Finder"
            if the kind of this_vol_alias is "Volume" then
                set freeSpace to free space of this_vol_alias
                set volumeName to quoted form of POSIX path of this_vol_alias
                set imgSize to (round (freeSpace - (1024 * 1024 * 1)) / (1024 * 1024)) (* leave 1mb of free space, just in case *)
 
                display dialog "Enter password for encrypted image:" default answer thePass with hidden answer
                set thePass to text returned of result as string
 
                set createImg to "hdiutil create " & volumeName & ".secure -size " & imgSize & "m -fs HFS+ -type " & imageType & " -encryption -volName Secure -passphrase " & thePass
                set thePass to "" (* clear the password from memory *)
                set hideVol to "chflags hidden " & volumeName
                with timeout of 600 seconds
                    do shell script createImg
                    do shell script hideVol
                    do shell script "hdiutil detach " & quoted form of POSIX path of this_vol_alias
                end timeout
            else
                display alert "This script can only be executed on volumes"
                return
            end if
        end tell
 
    on error error_message number error_number
        display dialog error_message buttons {"OK"} default button 1
    end try
end open

(*
    Automount secure drive folder action
    Part of 'Simulating encrypted physical disk in OS X' by Constantinos Neophytou
    http://www.cneophytou.com/2008/01/30/simulating-encrypted-physical-disk-in-os-x/
 
    Version 0.1.1
*)
 
property secureName : ".secure"
 
on adding folder items to this_folder after receiving these_volumes
    try
        tell application "Finder"
            set the volume_list to every file of this_folder
            (* go through all entries in /Volumes/ *)
            repeat with i from 1 to number of items in volume_list
                set this_item to the original item of item i of volume_list
                if the kind of this_item is "Volume" then
                    set this_disk to (this_item as alias)
 
                    (* is this item the newly mounted disk? *)
                    if this_disk is in these_volumes then
                        (* iterate through all files in the root of disk *)
                        set searchCmd to "ls -d " & quoted form of POSIX path of this_disk & secureName & "*"
                        (* check to see if a hidden secure image  is available *)
                        set searchResult to ""
                        try
                            set searchResult to do shell script searchCmd
                        end try
                        (* mount the secure image *)
                        if (searchResult starts with "/Volumes") then
                            set hiddenFile to POSIX file searchResult as alias
                            open hiddenFile
                        end if
                    end if
                end if
            end repeat
        end tell
    end try
end adding folder items to
 
on removing folder items from this_folder after losing these_items
    tell application "Finder"
        try
            set the volume_list to every file of this_folder
            (* go through all entries in /Volumes/ *)
            repeat with i from 1 to number of items in volume_list
                set this_item to the original item of item i of volume_list
                if the kind of this_item is "Volume" then
                    set this_disk to (this_item as alias)
 
                    set searchCmd to "ls -d " & quoted form of POSIX path of this_disk & secureName & "*"
                    (* check to see if a hidden secure image  is available *)
                    set searchResult to ""
                    try
                        set searchResult to do shell script searchCmd
                    end try
                    if (searchResult starts with "/Volumes") then
                        (* eject the volume *)
                        do shell script "hdiutil detach " & quoted form of POSIX path of this_disk
                        (* eject this_disk *)
                        delay 1
                        display alert "It is now safe to remove the encrypted disk"
                        return
                    end if
                end if
            end repeat
        end try
    end tell
end removing folder items from

(*
    Restore secure drive
    Part of 'Simulating encrypted physical disk in OS X' by Constantinos Neophytou
    http://www.cneophytou.com/2008/01/30/simulating-encrypted-physical-disk-in-os-x/
 
    Version 0.1.1
*)
 
property secureName : ".secure"
tell application "Finder"
    try
        set the volume_list to every file of (POSIX file "/Volumes/" as alias)
        repeat with i from 1 to number of items in volume_list
            set this_item to the original item of item i of volume_list
            if the kind of this_item is "Volume" then
                set this_disk to (this_item as alias)
 
                set searchCmd to "ls -d " & quoted form of POSIX path of this_disk & secureName & "*"
                (* check to see if a hidden secure image  is available *)
                set searchResult to ""
                try
                    set searchResult to do shell script searchCmd
                end try
                if (searchResult starts with "/Volumes") then
                    display dialog "Restore secure disk " & (name of this_disk) & "?" buttons ["No", "Yes"] default button 2
                    set the_button to button returned of result
                    if (the_button is "Yes") then
                        display dialog "Preserve copy of secure data on Desktop?" buttons ["No", "Yes"] default button 2
                        set the_button to button returned of result
                        if (the_button is "Yes") then
                            with timeout of 600 seconds
                                do shell script "mv " & quoted form of searchResult & " ~/Desktop/secure.dmg"
                            end timeout
                        else
                            do shell script "rm -f " & quoted form of searchResult
                        end if
                        set volumeName to quoted form of POSIX path of this_disk
                        do shell script "chflags nohidden " & volumeName
                        do shell script "hdiutil detach " & volumeName
                        delay 1
                        display alert "Device restored. It is now safe to unplug the device."
                        return
                    end if
                end if
            end if
        end repeat
 
    on error error_message number error_number
        display dialog error_message buttons {"OK"} default button 1
    end try
end tell

sudo ifconfig en0 ether 00:00:00:00:00:00

sudo ifconfig en0 lladdr 00:00:00:00:00:00

# Set the bandwidth limit at 5:59pm
59 17	* * *	root	/sbin/ipfw pipe 1 config bw 15KByte/s
# Add the bandwidth limit to the specified port at 6:00pm
0 18	* * *	root	/sbin/ipfw add 1 pipe 1 src-port 8080
# Lift the bandwidth limit at 12:00am
0 0	* * *	root	/sbin/ipfw delete 1

property restartLog : {"Quicksilver.crash.log"}
property restartID : {"daed"}
 
on adding folder items to this_folder after receiving these_items
    repeat with i from 1 to number of items in these_items
        set fileAlias to item i of these_items as alias
        set fileInfo to info for fileAlias
        set fileName to name of fileInfo as text
        if fileName is in restartLog then
            beep
            set itm to my list_position(fileName, restartLog)
            tell application "Finder"
                open application file id (item itm of restartID)
                delete item fileAlias
            end tell
        end if
    end repeat
end adding folder items to
 
on list_position(this_item, this_list)
    repeat with i from 1 to the count of this_list
        if item i of this_list is this_item then return i
    end repeat
    return 0
end list_position

tell application "Finder" to return creator type of process "Process Name"

property restartName : "Quicksilver"
property restartID : "daed"
 
on adding folder items to this_folder after receiving these_items
    repeat with i from 1 to number of items in these_items
        set fileAlias to item i of these_items as alias
        set fileInfo to info for fileAlias
        set fileName to name of fileInfo as text
        if fileName starts with restartName then
            beep
            tell application "Finder"
                open application file id restartID
            end tell
        end if
    end repeat
end adding folder items to

property emdash : «data utxt2014» as Unicode text
property black_star : «data utxt272F» as Unicode text
property white_star : «data utxt2606» as Unicode text
property dot : «data utxt00B7» as Unicode text
 
set appName to "GrowlHelperApp"
set app2Name to "iTunes"
 
tell application "System Events"
    set appIsRunning to (name of processes contains appName) and (name of processes contains app2Name)
end tell
 
if appIsRunning then
    tell application "iTunes"
        if class of current track is in {track, file track, URL track, device track, shared track, audio CD} then
            (* Increments of 20, from 0 to 100 for 0 - 5 stars *)
            set rating of current track to 100
        end if
        my notifyTrack(current track, player position, "5 Stars") (* or whatever else you want *)
    end tell
end if
 
on notifyTrack(myTrack, pos, txt)
    tell application "iTunes"
        set trkName to name of myTrack
        set trkArtist to artist of myTrack
        set trkAlbum to album of myTrack
        set trkTime to time of myTrack
        set trkRating to (rating of myTrack) / 20
        set trkPos to my getTimeString(pos)
        set artworkCount to count of artwork of myTrack
        if artworkCount > 0 then
            tell myTrack
                set trkArt to (data of artwork 1)
            end tell
        else
            set iTunesIcon to "Macintosh HD:Applications:iTunes.app:Contents:Resources:iTunes.icns"
            set trkArt to read (file iTunesIcon) as picture
        end if
        if (txt is equal to false) then
            set txt to trkName
            set trkInfo to trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist & return & trkAlbum
        else
            set trkInfo to trkName & return & trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist
            if (trkAlbum is not equal to "") then
                set trkInfo to trkInfo & " (" & trkAlbum & ")"
            end if
        end if
    end tell
    my showQSNotify(txt, trkArt, trkInfo)
end notifyTrack
 
on showStars(trkRating)
    set stars to ""
    repeat trkRating times
        set stars to stars & black_star
    end repeat
    repeat (5 - trkRating) times
        set stars to stars & " " & dot
    end repeat
    return stars
end showStars
 
on showQSNotify(txt, trkArt, trkInfo)
    tell application "GrowlHelperApp"
        set the allNotificationsList to {"Rating Change", "Song Skipping", "Song Info"}
        register as application ¬
            "Hotkey iTunes Notification" all notifications allNotificationsList default notifications allNotificationsList ¬
            icon of application "iTunes"
 
        if (trkArt is equal to missing value) then
            notify with name "Rating Change" title txt description trkInfo application name "Hotkey iTunes Notification"
        else
            notify with name "Rating Change" title txt description trkInfo application name "Hotkey iTunes Notification" pictImage the trkArt
        end if
    end tell
end showQSNotify
 
on showTrackInfo()
    try
        tell application "GrowlTunes"
            show current track
        end tell
    end try
end showTrackInfo
 
on getTimeString(secs)
    set no_seconds to the secs as number
    set no_minutes to no_seconds div 60
    set no_seconds to no_seconds mod 60
    if no_seconds < 10 then
        set seconds_text to "0" & (no_seconds as string)
    else
        set seconds_text to no_seconds as string
    end if
    if no_minutes ≥ 60 then
        set no_hours to no_minutes div 60
        set no_minutes to no_minutes mod 60
        if no_minutes < 10 then
            set no_minutes to "0" & (no_minutes as string)
        end if
        set minutes_text to (no_hours as string) & ":" & (no_minutes as string)
    else
        set minutes_text to no_minutes as string
    end if
 
    return minutes_text & ":" & seconds_text
end getTimeString

property emdash : «data utxt2014» as Unicode text
property black_star : «data utxt272F» as Unicode text
property white_star : «data utxt2606» as Unicode text
property dot : «data utxt00B7» as Unicode text
 
set appName to "GrowlHelperApp"
set app2Name to "iTunes"
 
tell application "System Events"
    set appIsRunning to (name of processes contains appName) and (name of processes contains app2Name)
end tell
 
if appIsRunning then
    try
        tell application "iTunes"
            set myTrack to current track
            set dur to duration of myTrack
            set q1 to dur / 4
            set q2 to q1 * 2
            set q3 to q1 * 3
            set q4 to dur - 3
            set curPos to player position
            set counter to 0
            set theList to {q1, q2, q3, q4, dur}
            set pos to 0
            repeat while pos is less than or equal to curPos
                set counter to counter + 1
                set pos to item counter of theList
            end repeat
            if pos is less than 1 then set pos to 1
            set player position to pos
 
            if counter is greater than 3 then
                my notifyTrack(myTrack, player position, "Ending Song")
            else
                my notifyTrack(myTrack, player position, "Song Skip")
            end if
            (* my showTrackInfo() *)
        end tell
    end try
end if
 
on notifyTrack(myTrack, pos, txt)
    tell application "iTunes"
        set trkName to name of myTrack
        set trkArtist to artist of myTrack
        set trkAlbum to album of myTrack
        set trkTime to time of myTrack
        set trkRating to (rating of myTrack) / 20
        set trkPos to my getTimeString(pos)
        set artworkCount to count of artwork of myTrack
        if artworkCount > 0 then
            tell myTrack
                set trkArt to (data of artwork 1)
            end tell
        else
            set iTunesIcon to "Macintosh HD:Applications:iTunes.app:Contents:Resources:iTunes.icns"
            set trkArt to read (file iTunesIcon) as picture
        end if
        if (txt is equal to false) then
            set txt to trkName
            set trkInfo to trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist & return & trkAlbum
        else
            set trkInfo to trkName & return & trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist
            if (trkAlbum is not equal to "") then
                set trkInfo to trkInfo & " (" & trkAlbum & ")"
            end if
        end if
    end tell
    my showQSNotify(txt, trkArt, trkInfo)
end notifyTrack
 
on showStars(trkRating)
    set stars to ""
    repeat trkRating times
        set stars to stars & black_star
    end repeat
    repeat (5 - trkRating) times
        set stars to stars & " " & dot
    end repeat
    return stars
end showStars
 
on showQSNotify(txt, trkArt, trkInfo)
    tell application "GrowlHelperApp"
        set the allNotificationsList to {"Rating Change", "Song Skipping", "Song Info"}
        register as application ¬
            "Hotkey iTunes Notification" all notifications allNotificationsList default notifications allNotificationsList ¬
            icon of application "iTunes"
 
        if (trkArt is equal to missing value) then
            notify with name "Song Skipping" title txt description trkInfo application name "Hotkey iTunes Notification"
        else
            notify with name "Song Skipping" title txt description trkInfo application name "Hotkey iTunes Notification" pictImage the trkArt
        end if
    end tell
end showQSNotify
 
on showTrackInfo()
    try
        tell application "GrowlTunes"
            show current track
        end tell
    end try
end showTrackInfo
 
on getTimeString(secs)
    set no_seconds to the secs as number
    set no_minutes to no_seconds div 60
    set no_seconds to no_seconds mod 60
    if no_seconds < 10 then
        set seconds_text to "0" & (no_seconds as string)
    else
        set seconds_text to no_seconds as string
    end if
    if no_minutes ≥ 60 then
        set no_hours to no_minutes div 60
        set no_minutes to no_minutes mod 60
        if no_minutes < 10 then
            set no_minutes to "0" & (no_minutes as string)
        end if
        set minutes_text to (no_hours as string) & ":" & (no_minutes as string)
    else
        set minutes_text to no_minutes as string
    end if
 
    return minutes_text & ":" & seconds_text
end getTimeString

property myUserName : "Constantinos"
property appName : "iTunes"
 
tell application "System Events" to set appIsRunning to name of processes contains appName
 
if appIsRunning then
    tell application "iTunes"
        try
            set myTrack to current track
            set trackName to name of myTrack
            if (trackName is equal to "") then
                set trackName to "Unknown Track"
            end if
            set trackArtist to artist of myTrack
            if (trackArtist is equal to "") then
                set trackArtist to "Unknown Artist"
            end if
            set trackAlbum to album of myTrack
            if (trackAlbum is equal to "") then
                set trackAlbum to "Unknown Album"
            end if
        end try
    end tell
 
    set artworkFilename to "/Users/" & myUserName & "/Library/Images/Music/" & trackArtist & "/" & trackAlbum & "/Tracks/" & trackName & "/Track.png"
    set deleteFilename to "Macintosh HD:Users:" & myUserName & ":Library:Images:Music:" & trackArtist & ":" & trackAlbum & ":Tracks:" & trackName & ":Track.png"
 
    set deleteCoverFilename to "Macintosh HD:Users:" & myUserName & ":Library:Images:Music:" & trackArtist & ":" & trackAlbum & ":Cover.png"
    set albumCoverFilename to "/Users/" & myUserName & "/Library/Images/Music/" & trackArtist & "/" & trackAlbum & "/Cover.png"
 
    set tempfile to "Macintosh HD:tmp:temporary.pict"
 
    tell application "Image Events"
        (* set artworkFile to (POSIX file artworkFilename)
        set myImage to open (artworkFile as alias) *)
        set myImage to open artworkFilename
        try
            save myImage as PICT in (file tempfile)
        on error
            try
                set deleteFilename to deleteCoverFilename
                set myImage to open albumCoverFilename
                save myImage as PICT in (file tempfile)
            on error
                return
            end try
        end try
        close myImage
    end tell
 
    tell application "iTunes"
        set myTrack to current track
        set artworkCount to count of artwork of myTrack
        set myArt to read (file tempfile) from 513 as picture
        if artworkCount > 0 then
            set data of artwork (artworkCount + 1) of current track to myArt
        else
            set data of artwork 1 of current track to myArt
        end if
    end tell
 
    tell application "Image Events"
        delete (file tempfile)
        delete (file deleteFilename)
    end tell
 
end if

property emdash : «data utxt2014» as Unicode text
property black_star : «data utxt272F» as Unicode text
property white_star : «data utxt2606» as Unicode text
property dot : «data utxt00B7» as Unicode text
 
set appName to "GrowlHelperApp"
set app2Name to "iTunes"
 
tell application "System Events"
    set appIsRunning to (name of processes contains appName) and (name of processes contains app2Name)
end tell
 
if appIsRunning then
    tell application "iTunes"
        my notifyTrack(current track, player position, false)
    end tell
end if
 
on notifyTrack(myTrack, pos, txt)
    tell application "iTunes"
        set trkName to name of myTrack
        set trkArtist to artist of myTrack
        set trkAlbum to album of myTrack
        set trkTime to time of myTrack
        set trkRating to (rating of myTrack) / 20
        set trkPos to my getTimeString(pos)
        set artworkCount to count of artwork of myTrack
        if artworkCount > 0 then
            tell myTrack
                set trkArt to (data of artwork 1)
            end tell
        else
            set iTunesIcon to "Macintosh HD:Applications:iTunes.app:Contents:Resources:iTunes.icns"
            set trkArt to read (file iTunesIcon) as picture
        end if
        if (txt is equal to false) then
            set txt to trkName
            set trkInfo to trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist & return & trkAlbum
        else
            set trkInfo to trkName & return & trkPos & "/" & trkTime & " " & emdash & " " & my showStars(trkRating) & return & trkArtist
            if (trkAlbum is not equal to "") then
                set trkInfo to trkInfo & " (" & trkAlbum & ")"
            end if
        end if
    end tell
    my showQSNotify(txt, trkArt, trkInfo)
end notifyTrack
 
on showStars(trkRating)
    set stars to ""
    repeat trkRating times
        set stars to stars & black_star
    end repeat
    repeat (5 - trkRating) times
        set stars to stars & " " & dot
    end repeat
    return stars
end showStars
 
on showQSNotify(txt, trkArt, trkInfo)
    tell application "GrowlHelperApp"
        set the allNotificationsList to {"Rating Change", "Song Skipping", "Song Info"}
        register as application ¬
            "Hotkey iTunes Notification" all notifications allNotificationsList default notifications allNotificationsList ¬
            icon of application "iTunes"
 
        if (trkArt is equal to missing value) then
            notify with name "Song Info" title txt description trkInfo application name "Hotkey iTunes Notification"
        else
            notify with name "Song Info" title txt description trkInfo application name "Hotkey iTunes Notification" pictImage the trkArt
        end if
    end tell
end showQSNotify
 
on showTrackInfo()
    try
        tell application "GrowlTunes"
            show current track
        end tell
    end try
end showTrackInfo
 
on getTimeString(secs)
    set no_seconds to the secs as number
    set no_minutes to no_seconds div 60
    set no_seconds to no_seconds mod 60
    if no_seconds < 10 then
        set seconds_text to "0" & (no_seconds as string)
    else
        set seconds_text to no_seconds as string
    end if
    if no_minutes ≥ 60 then
        set no_hours to no_minutes div 60
        set no_minutes to no_minutes mod 60
        if no_minutes < 10 then
            set no_minutes to "0" & (no_minutes as string)
        end if
        set minutes_text to (no_hours as string) & ":" & (no_minutes as string)
    else
        set minutes_text to no_minutes as string
    end if
 
    return minutes_text & ":" & seconds_text
end getTimeString

property backup_script : "rsync.app" (* add/change this string to match the name of your script *)
 
on adding folder items to this_folder after receiving these_volumes
    tell application "Finder"
        try
            set the volume_list to every file of this_folder
 
            (* go through all entries in /Volumes/ *)
            repeat with i from 1 to number of items in volume_list
                set this_item to the original item of item i of volume_list
                if the kind of this_item is "Volume" then
                    set this_disk to (this_item as alias)
 
                    (* is this item the newly mounted disk? *)
                    if this_disk is in these_volumes then
 
                        (* iterate through all files in the root of disk *)
                        set searchCmd to "ls -d " & quoted form of POSIX path of this_disk & backup_script
                        (* check to see if a backup script is available *)
                        set searchResult to ""
                        try
                            set searchResult to do shell script searchCmd
                        end try
                        (* run the backup script *)
                        if (searchResult starts with "/Volumes") then
                            set backupFile to POSIX file searchResult as alias
                            open backupFile
                        end if
 
                    end if
                end if
            end repeat
        on error error_message number error_number
            if the error_number is not -128 then
                display dialog error_message buttons {"OK"} default button 1
            end if
        end try
    end tell
end adding folder items to

property backup_script : "rsync" (* add/change this to match the name of your script *)
 
on open dropped_item
    set this_vol_alias to (dropped_item as alias)
    try
        tell application "Finder"
            if the kind of this_vol_alias is "Volume" then
                set the file_list to every file of this_vol_alias
                repeat with j from 1 to number of items in file_list
                    (* check to see if a backup script is available *)
                    set this_file to name of item j of file_list
                    if this_file is equal to (backup_script & ".app") then
                        open item j of file_list (* run the backup script *)
                    end if
                end repeat
            else
                display alert "This script can only be executed on volumes"
                return
            end if
        end tell
 
        delay 2 (* give some time for the backup script to actually launch *)
        tell application "Finder"
            try
                set bakapp to creator type of process backup_script
                repeat while bakapp is not equal to ""
                    delay 1 (* the backup is still running, we can check again in a second *)
                    set bakapp to creator type of process backup_script
                end repeat
            on error
                if (ejectable of this_vol_alias is true) then
                    (* display alert POSIX path of dropped_item *)
                    eject this_vol_alias
                end if
            end try
        end tell
 
    on error error_message number error_number
        if the error_number is not -128 then
            display dialog error_message buttons {"OK"} default button 1
        end if
    end try
end open

property archive_backup : true
property number_of_archives : 3 (* 0 for unlimited *)
property with_administrator_privileges : false
property one_archive_per_day : true
 
property display_notification : false
property backup_target : "Backups/" (* MUST be a folder location with trailing slash! Always relative to home folder *)
 
property rsync_params : "-aEz --delete-excluded"
(* END OF PREFERENCES *)
 
set WhereImRunningFrom to path to me
tell application "Finder"
    (* can't run from the script editor *)
    set AppCreator to creator type of WhereImRunningFrom
    if AppCreator is "ToyS" then
        activate of me
        beep
        display alert "This script cannot run directly from ScriptEditor"
        return
    end if
 
    (* NEVER run from the hard drive! *)
    set bootVolume to name of disk of home (* safety feature! *)
    set NameOfDisk to name of disk of WhereImRunningFrom
    if NameOfDisk is bootVolume then
        beep
        display alert "Should not run this script from the boot volume!"
        return
    end if
 
    (* setup backup dir *)
    set homeDir to path to home folder from user domain
    set backup_folder to POSIX path of homeDir & backup_target
    try
        (* quick and dirty check to see if folder exists - must be a good way to do this in applescript? *)
        do shell script "cd " & backup_folder
    on error
        try
            do shell script "mkdir " & backup_folder
        on error
            display alert "There was an error creating the backup folder " & backup_folder
            return
        end try
    end try
 
    (* find source and target *)
    set backupBase to NameOfDisk & "-Backup"
    set targetDir to backup_folder & quoted form of backupBase
    set sourceDir to quoted form of ("/Volumes/" & NameOfDisk & "/")
 
    (* set up archive filename *)
    if archive_backup then
        set thedate to current date
        set theday to day of thedate
        set themonth to month of thedate
        set theyear to year of thedate
        set thetime to time of thedate
 
        set thedate to "-" & theyear & "-" & shortMonth(themonth) of me & "-" & theday as string
        if not one_archive_per_day then set thedate to thedate & "-" & thetime as string
 
        set backupFolder to quoted form of (backup_folder & backupBase & thedate  & "/")
    end if
end tell
 
(* do the backup *)
(* try *)
if with_administrator_privileges then
    set excluded to " "
else
    set excluded to " --exclude='.Trash*' --exclude='.Spotlight*'  "
end if
 
if archive_backup then
    set posixDir to POSIX file backup_folder
    set fileList to list folder posixDir
    set archiveList to {}
    tell application "Finder"
        (* Search for existing backups *)
        repeat with i from 1 to number of items in fileList
            set thisFile to item i of fileList
            set filePath to path to resource thisFile in bundle posixDir
            if thisFile starts with backupBase then
                set archiveList to archiveList & POSIX path of filePath
            end if
        end repeat
    end tell
 
    (* List existing backups in order of last modified date *)
    set latestArchive to ""
    set linkDest to ""
    set listString to ""
    repeat with x from 1 to number of items in archiveList
        set listString to listString & " " & quoted form of item x of archiveList
    end repeat
    set newString to do shell script "ls -dt " & listString (* sort files by modified date *)
    set theList to (paragraphs of newString)
 
    (* Clear out outdated backups *)
    if (number of items in theList is greater than number_of_archives) and (number_of_archives is greater than 0) then
        repeat with y from (number_of_archives + 1) to (number of items in theList)
            do shell script "rm -Rf " & quoted form of item y of theList
        end repeat
    end if
    if number of items in theList is greater than 0 then
        set latestArchive to quoted form of item 1 of theList
        if latestArchive is equal to backupFolder then
            (* Preserve same target folder *)
            if number of items in theList is greater than 1 then
                set latestArchive to quoted form of item 2 of theList
            else
                set latestArchive to ""
            end if
        end if
    end if
 
    if latestArchive is not equal to "" then
        set linkDest to " --link-dest=" & latestArchive
    end if
    set theScript to "rsync " & rsync_params & linkDest & excluded & sourceDir & " " & backupFolder & "; touch " & backupFolder
else
    set theScript to "rsync " & rsync_params & excluded & sourceDir & " " & targetDir & "; touch " & targetDir
end if
 
if with_administrator_privileges then
    do shell script theScript with administrator privileges
else
    do shell script theScript
end if
 
activate of me
beep
if display_notification then display alert NameOfDisk & " drive backed up"
(*
on error
    display alert "There was an error backing up " & NameOfDisk
end try
*)
 
 
to shortMonth(themonth)
    set MonthList to {January, February, March, April, May, June, July, August, September, October, November, December}
    set mm to 1
    repeat until item mm of MonthList = themonth
        copy mm + 1 to mm
    end repeat
    if mm < 10 then copy "0" & mm to mm
    return mm
end shortMonth

PATH=/usr/X11R6/bin:$PATH
 
# surpress starting of an initial xterm
xterm()
{
    return 0
}
 
# remember the display name
echo "$DISPLAY" > $HOME/.tmp/X11-display-`hostname -s`
 
# run system-defined xinitrc (doesn't return)
source /etc/X11/xinit/xinitrc

if [ !$DISPLAY ] && [ !$SSH_TTY ] && [ !$REMOTEHOST ]
then
    export DISPLAY=`ps xw -o command | sed -n '/^\/.*X11.*\:/s/.*:/:/p'`
fi
 
if [ $DISPLAY ]
then
    if xwininfo -display "$DISPLAY" -root >/dev/null 2>&1
    then
        echo Using X11 display $DISPLAY
        export DISPLAY
    else
        unset DISPLAY
    fi
fi