property username : "blog_username"

property userpass : "blog_password"

property myblogid : "Blog_id"

property user : "delicious_username"



on postToBlog(myTitle, des)

set poststrut to {title:myTitle, |description|:des}

--I can't work out how to put the metaweblog url in a property so hard code it here

tell application "http://johnjohnston.info/blog/pivotx/metaweblog.php"

return call xmlrpc {method name:"metaWeblog.newPost", parameters:{myblogid, username, userpass, poststrut, true}}

end tell

end postToBlog



set qChar to ASCII character 34

set use_date to (current date) - 8 * days

set html to ""

set turl to "http://feeds.delicious.com/v2/rss/" & user

set xmlData to do shell script "curl" & " " & "'" & turl & "'"



tell application "System Events"

set xmlDocument to make new XML data with data xmlData

tell contents of xmlDocument

set rootElement to first XML element

set n to name of rootElement

set idElements to XML elements of XML element "channel" of XML element n of xmlDocument whose name is "item"

if ((count of idElements) = 0) then return ""

repeat with idElement in idElements

set pubDate to value of (XML element "pubDate" of idElement)

set dateVar to the current date

set monthList to {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}

set m to word 3 of pubDate

set y to word 4 of pubDate

repeat with i in monthList

if m is equal to i as string then set monthnum to number of i

end repeat

set year of dateVar to y

set the month of dateVar to monthnum

set the day of dateVar to word 2 of pubDate

if dateVar < use_date then exit repeat

set tdes to value of (XML element "description" of idElement)

set turl to value of (XML element "link" of idElement)

set ttitle to value of (XML element "title" of idElement)

set html to html & return & "<li><a href=" & qChar & turl & qChar & ">" & ttitle & "</a> " & tdes & "</li>"

end repeat

end tell

--return html

end tell


set des to "Webpages I've bookmarked on delicious this weeK:<ul>" & html & "</ul>"

set thisdate to get date string of (current date) as string

set myTitle to "This weeks links " & thisdate


postToBlog(myTitle, des)