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

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

$captcha = $_POST['captcha'];
session_start();
if (($captcha != $_SESSION['captcha']) || !$captcha) {
    // Verification failed... Do what you will.
}
unset($_SESSION['captcha']);

<span><img src='captcha.php' alt='Captcha image' id='captcha_img' /></span>

<a href='#' onclick="var i = document.getElementById('captcha_img'); var n = new Image(); var rand = (Math.round((Math.random()*1000)+1)); n.onload = function() { i.parentNode.appendChild(n); i.parentNode.removeChild(i); n.id='captcha_img'; }; n.src='captcha.php?'+rand; return false;">reload image</a>

<?php
/**
 * Generate a CAPTCHA and display the image
 *
 * @author Constantinos Neophytou
 * @link http://www.cneophytou.com/
 * @license Creative Commons Attribution-Noncommercial-Share Alike 3.0  License
 *     {@link http://creativecommons.org/licenses/by-nc-sa/3.0/}
 **/
 
/**
 * Initialize page
 **/
 
session_start();
 
header("Content-Type: image/png");
header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT");
 
create_image();
exit;
 
/**
 * Generate a random string, and create a CAPTCHA image out of it
 */
function create_image()
{
    // generate pronouncable pass
    $pass = genPassword(5, 6);
    $font = './captcha.ttf';
    $maxsize = 50;
    $sizeVar = 25;
    $rotate = 20;
    $bgcol = 50; // + 50
    $bgtextcol = 80; // + 50
    $textcol = 205; // + 50
 
    // remember the pass
    $_SESSION["captcha"] = $pass;
 
    // calculate dimentions required for pass
    $box = @imageTTFBbox($maxsize,0,$font,$pass);
    $minwidth = abs($box[4] - $box[0]);
    $minheight = abs($box[5] - $box[1]);
 
    // allow spacing for rotating letters
    $width = $minwidth + 100;
    $height = $minheight + rand(5,15); // give some air for the letters to breathe
    // create initial image
    $image = ImageCreatetruecolor($width, $height);  
 
    if (function_exists('imageantialias')) {
        imageantialias($image, true);
    }
    // define background color - never the same, close to black
    $clr_black = ImageColorAllocate($image, rand($bgcol, $bgcol+30),
                                    rand($bgcol, $bgcol+30), rand($bgcol, $bgcol+30));
    imagefill($image, 0, 0, $clr_black);
 
    // calculate starting positions for letters
    $x = rand(10, 25);//($width / 2) - ($minwidth / 2);
    $xinit = $x;
    $y = ($minheight-abs($box[1])) + (($height - $minheight) / 2);
 
    // fill the background with big letters, colored a bit lightly, to vary the bg.
    $bgx = $x / 2;
    $size = rand($maxsize - 10, $maxsize);
    for($i = 0; $i < strlen($pass); $i++) {
        // modify color a bit
        $clr_white = ImageColorAllocate($image, rand($bgtextcol, $bgtextcol+50),
                    rand($bgtextcol, $bgtextcol+50), rand($bgtextcol, $bgtextcol+50));
        $angle = rand(0-$rotate, $rotate);
        $letter = substr($pass, $i, 1);
        imagettftext($image, $size*2, $angle, $bgx, $y, $clr_white, $font, $letter);
        list($x1, $a, $a, $a, $x2) = @imageTTFBbox($size,$angle,$font,$letter);
        $bgx += abs($x2 - $x1);
    }
 
    // for each letter, decide a color, decide a rotation, put it on the image,
    //     and figure out width to place next letter correctly
    for($i = 0; $i < strlen($pass); $i++) {
        // modify color a bit
        $clr_white = ImageColorAllocate($image, rand($textcol, $textcol+50), 
                            rand($textcol, $textcol+50), rand($textcol, $textcol+50));
 
        $angle = rand(0-$rotate, $rotate);
        $letter = substr($pass, $i, 1);
        $size = rand($maxsize - $sizeVar, $maxsize);
        $tempbox = @imageTTFBbox($size,$angle,$font,$letter);
 
        $y = (abs($tempbox[5] - $tempbox[1])) +
                                        (($height - abs($tempbox[5] - $tempbox[1])) / 2);
 
        imagettftext($image, $size, $angle, $x, $y, $clr_white, $font, $letter);
        $x += abs($tempbox[4]-$tempbox[0]);
    }
    // figure out final width (same space at the end as there was at the beginning)
    $width = $xinit + $x;
 
    // throw in some lines
    $clr_white = ImageColorAllocate($image, rand(160, 200), rand(160, 200),
                                             rand(160, 200));
    imagelinethick($image, rand(0, 10), rand(0, $height / 2), rand($width - 10, $width),
                           rand($height / 2, $height), $clr_white, rand(1, 2));
    $clr_white = ImageColorAllocate($image, rand(160, 200), rand(160, 200),
                                             rand(160, 200));
    imagelinethick($image, rand(($width / 2) - 10, $width / 2),
                            rand($height / 2, $height), rand(($width / 2)+ 10, $width),
                           rand(0, ($height / 2)), $clr_white, rand(1, 2));
 
    // generate final image by cropping initial image to the proper width,
    //     which we didn't know till now.
    $finalimage = ImageCreatetruecolor($width, $height);
    if (function_exists('imageantialias')) {
        imageantialias($finalimage, true);
    }
    imagecopy($finalimage, $image, 0, 0, 0, 0, $width, $height);
    // clear some memory
    imagedestroy($image);
 
    // dump image
    imagepng($finalimage);
 
    // clear some more memory
    imagedestroy($finalimage);
}
 
/**
 * Draw lines through an image
 * @param resource
 * @param int
 * @param int
 * @param int
 * @param int
 * @param int - the color to use for the line
 * @param int - line thickness
 * @return bool - true on success
 */
function imagelinethick($image, $x1, $y1, $x2, $y2, $color, $thick = 1)  {
   if ($thick == 1) {
       return imageline($image, $x1, $y1, $x2, $y2, $color);
   }
   $t = $thick / 2 - 0.5;
   if ($x1 == $x2 || $y1 == $y2) {
       return imagefilledrectangle($image, round(min($x1, $x2) - $t),
                                           round(min($y1, $y2) - $t),
                                           round(max($x1, $x2) + $t),
                                           round(max($y1, $y2) + $t),
                                   $color);
   }
   $k = ($y2 - $y1) / ($x2 - $x1); //y = kx + q
   $a = $t / sqrt(1 + pow($k, 2));
   $points = array(
       round($x1 - (1+$k)*$a), round($y1 + (1-$k)*$a),
       round($x1 - (1-$k)*$a), round($y1 - (1+$k)*$a),
       round($x2 + (1+$k)*$a), round($y2 - (1-$k)*$a),
       round($x2 + (1-$k)*$a), round($y2 + (1+$k)*$a),
   );    
   imagefilledpolygon($image, $points, 4, $color);
   return imagepolygon($image, $points, 4, $color);
}
 
/**
 * Generate a random, pronouncable password
 * Modified to exclude letters which don't show up well in the CAPTCHA
 * @link http://www.zend.com/code/codex.php?id=215&single=1
 * @author Rival7 {@link http://www.zend.com/code/search_code_author.php?author=Rival7}
 * @author Constantinos Neophytou
 */
function genPassword($minlen, $maxlen) {
    srand((double)microtime()*1000000);
 
    $vowels = array('a', 'e', 'i', 'o', 'u');
    $cons = array('b', 'c', 'd', 'g', 'h', 'j', 'k', 'm', 'n', 'p', 'r', 's', 't', 'v',
     'w', 'tr', 'cr', 'br', 'fr', 'th', 'dr', 'ch', 'ph', 'wr', 'st', 'sp', 'sw', 'pr');
    // removed 'l', 'sl', 'cl'
 
    $num_vowels = count($vowels);
    $num_cons = count($cons);
 
    $length = rand($minlen, $maxlen);
 
    $start = rand(0, 1);
    if ($start) {
        $first = $cons;
        $num_first = $num_cons;
        $second = $vowels;
        $num_second = $num_vowels;
    } else {
        $first = $vowels;
        $num_first = $num_vowels;
        $second = $cons;
        $num_second = $num_cons;
    }
 
    for($i = 0; $i < $length; $i++) {
        $add = $first[rand(0, $num_first - 1)] . $second[rand(0, $num_second - 1)];
        $password .= $add;
        $i += (strlen($add) - 1);
    }
 
    //$password = substr($password, 0, $length);
    return $password;
}
 
?>

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