– ©hubionmac.com 10.01.2011 

– Copy an image URL to the Clipboard and the Script will upload the image to your PixelPipe Account

–Version 0.1 -> First release (11.01.2011)

–basic idea for curl file login/upload by Martin(http://siarp.de/node/196)-

property MyUserName : “” –%40 is @

property MyPassword : “”

property LoginSite : “https://pixelpipe.com/signin”

property MyUploadPage : “http://pixelpipe.com/upload”

property LogoutSite : “http://pixelpipe.com/signout”

property CookieFile : “~/.pixelpipe.cookie”

–only query login data from keychain if necessary (first run)

if MyUserName is “” then

set mylogindata to getLoginData()

set MyUserName to my returnURLEscaped((item 1 of mylogindata) as text)

set MyPassword to my returnURLEscaped((item 2 of mylogindata) as text)

end if

set mypipes to getPixelPipes()

set mylocalfile to my download_img_from_URL()

upload2pixelpipe(mylocalfile, getPostData(mylocalfile), mypipes)

on upload2pixelpipe(filepath, postdata, mypipes)

if filepath is not false then

–login&store Cookie

set curlLogin to “curl”

set curlLogin to curlLogin & ” -k”

set curlLogin to curlLogin & ” -c ” & CookieFile

set curlLogin to curlLogin & ” -b ” & CookieFile

set curlLogin to curlLogin & ” -d ‘email=” & MyUserName & “&password=” & MyPassword & “&defpipe=false&noexpire=true&from=&login=Sign+In&p3next=’ ” & LoginSite

do shell script curlLogin

–getUploadCookie Stuff

set curlAddForm to “curl”

set curlAddForm to curlAddForm & ” -L”

set curlAddForm to curlAddForm & ” -c ” & CookieFile

set curlAddForm to curlAddForm & ” -b ” & CookieFile

set curlAddForm to curlAddForm & ” ” & MyUploadPage

set a to do shell script curlAddForm

–upload files

– set thefile to quoted form of (POSIX path of (thefile as alias))

set curlAddForm to “curl”

set curlAddForm to curlAddForm & ” -L ” & MyUploadPage

set curlAddForm to curlAddForm & ” -c ” & CookieFile

set curlAddForm to curlAddForm & ” -b ” & CookieFile

set curlAddForm to curlAddForm & ” -F fileName_1=@” & quoted form of filepath –”/Users/hubi/Desktop/bla.png”

set curlAddForm to (curlAddForm & ” -F ‘title_1=” & (item 1 of postdata) as text) & “‘”

set curlAddForm to (curlAddForm & ” -F ‘caption_1=” & (item 2 of postdata) as text) & “‘”

set curlAddForm to (curlAddForm & ” -F ‘keywords_1=” & (item 3 of postdata) as text) & “‘”

repeat with mypipe in mypipes

set curlAddForm to curlAddForm & ” -F pipes=” & mypipe

end repeat

set curlAddForm to curlAddForm & ” -F filter_dest=”

set curlAddForm to curlAddForm & ” -F idSequence=1″

set curlAddForm to curlAddForm & ” -F upload=Upload”

do shell script curlAddForm

–signout

set curlLogout to “curl”

set curlLogout to curlLogout & ” ” & LogoutSite

set curlLogout to curlLogout & “  -L”

set curlLogout to curlLogout & ” -c ” & CookieFile

set curlLogout to curlLogout & ” -b ” & CookieFile & ” –output ~/out.html”

do shell script curlLogout

activate

display dialog “upload done” giving up after 1

else

tell application “Safari” to error “No Image detected under mouse cursor”

end if

end upload2pixelpipe

on download_img_from_URL()

(**does not work on properly

tell application “Safari”

activate

tell document 1

delay 1

do JavaScript “

function retunsrc(event)

{

blafasel= (event.target.src)

}

document.onmousemove = retunsrc;

“

delay 1

set imgsrc to do JavaScript “blafasel”**)

set imgsrc to the clipboard as text

if imgsrc ends with “.png” or imgsrc ends with “.jpg” or imgsrc ends with “.gif” or imgsrc ends with “.tif” or imgsrc ends with “.jpeg” then

set filename to do shell script “basename ” & quoted form of imgsrc

do shell script “cd /tmp/;curl -O ” & quoted form of imgsrc

return “/tmp/” & filename

else

return false

end if

end download_img_from_URL

on getLoginData()

–returns list of  username and password for pixelpipe

tell application “Keychain Scripting”

set myKeyChain to keychain “login.keychain”

set mykeys to every Internet key of myKeyChain whose name is “pixelpipe_upload_script”

if (count of mykeys) > 1 then

tell application “Safari”

activate

error “Too many passwords… I am confused!”

end tell

else if (count of mykeys) = 0 then

my inputNewPassword(myKeyChain)

else if (count of mykeys) = 1 then

return my return_username_and_password(item 1 of mykeys, myKeyChain)

end if

end tell

end getLoginData

on return_username_and_password(mykey, myKeyChain)

tell application “Keychain Scripting”

tell myKeyChain

return {account of mykey, password of mykey}

end tell

end tell

end return_username_and_password

on inputNewPassword(myKeyChain)

tell application “Safari”

activate

repeat until 1 = 0

set MyUserName to text returned of (display dialog “Username (Email) for Pixelpipe.com” default answer “”)

if MyUserName contains “@” then

exit repeat

end if

end repeat

repeat until 1 = 0

set MyPassword to text returned of (display dialog “Password for ” & MyUserName & ” at Pixelpipe:” default answer “” with hidden answer)

if MyUserName is not “” then

exit repeat

end if

end repeat

end tell

tell application “Keychain Scripting”

tell myKeyChain

make new Internet key with properties {server:”pixelpipe.com”, comment:”keychain login for pixelpipe upload script”, name:”pixelpipe_upload_script”, account:MyUserName, password:MyPassword}

tell application “Safari”

activate

error “Data was saved in kechain. Please restart script.”

end tell

end tell

end tell

end inputNewPassword

on returnURLEscaped(myinput)

return do shell script “echo \”" & myinput & “\\c\”| perl -p -e ‘s/([^-_.~A-Za-z0-9])/sprintf(\”%%%02X\”, ord($1))/seg’”

end returnURLEscaped

on getPixelPipes()

try

set mypipes to every paragraph of (do shell script “cat ~/.pixelpipe.pipes”)

on error

tell application “Safari”

open location “http://pixelpipe.com/destinations”

tell document 1

repeat until 1 = 0

if (do JavaScript “document.title”) = “Pixelpipe – Destinations” then

set mypipes to do JavaScript “

k = new Array();

for (var i=0;i<document.links.length;i++){

if (document.links[i].href.indexOf(‘/destination/settings/’)>-1){

var tmp = document.links[i].href.replace( /.*\\//, ” )

if (k.join(‘ ‘).indexOf(tmp)==-1)

k.push(tmp + ‘ (‘ + document.links[i].text + ‘)’)

}

}

k”

exit repeat

else if (do JavaScript “document.title”) = “Pixelpipe – Sign In” then

error “Please login!”

else

delay 0.25

end if

end repeat

if (count of mypipes) = 0 then

error “No Pipes found…”

end if

end tell

end tell

set AppleScript‘s text item delimiters to “

“

set mypipes to mypipes as text

set AppleScript‘s text item delimiters to “”

do shell script “echo ” & quoted form of mypipes & “> ~/.pixelpipe.pipes”

set mypipes to every paragraph of mypipes

end try

set mypipes to (choose from list mypipes with prompt “Post to Pipes:” with multiple selections allowed and empty selection allowed)

set r to {}

repeat with mypipe in mypipes

set r to r & word 1 of mypipe

end repeat

return r

end getPixelPipes

on getPostData(filepath)

set mytitle to text returned of (display dialog “Please enter Title:” default answer (do shell script “basename ” & quoted form of filepath))

set mybody to text returned of (display dialog “Please enter BodyText:” default answer “”)

set mytags to text returned of (display dialog “Please enter Tags:” default answer “”)

return {mytitle, mybody, mytags}

end getPostData

tell application “Safari”

tell document 1

do JavaScript “for (var i=0;i<document.getElementsByTagName(‘*’).length;i++)

{

if ((document.getElementsByTagName(‘*’)[i].style.position == ‘absolute’)||(document.getElementsByTagName(‘*’)[i].style.position == ‘fixed’))

document.getElementsByTagName(‘*’)[i].style.display = ‘none’

}”

end tell

end tell

tell application “Safari”

tell document 1

do JavaScript “for (var i=0;i<document.getElementsByTagName(‘*’).length;i++)

{

if ((document.defaultView.getComputedStyle(document.getElementsByTagName(‘*’)[i],null).position == ‘absolute’)||(document.defaultView.getComputedStyle(document.getElementsByTagName(‘*’)[i],null).position == ‘fixed’))

document.getElementsByTagName(‘*’)[i].style.display = ‘none’

}”

end tell

end tell

javascript:swfHTM%20=%20document.getElementById(‘movie_player’).getAttribute(‘flashvars’);%20w%20=%20swfHTM.split(‘&’);%20for%20(i%20=%200;%20i%20<=%20w.length%20-%201;%20i++)%20{%20if%20(w[i].split(‘=’)[0]%20==%20′t’)%20{%20t%20=%20w[i].split(‘=’)[1];%20}%20if%20(w[i].split(‘=’)[0]%20==%20′video_id’)%20{%20videoid%20=%20w[i].split(‘=’)[1];%20}%20}%20bla%20=%20document.createElement(‘a’);%20bla.setAttribute(‘href’,'http://youtube.com/get_video?video_id=’%20+%20videoid%20+%20′&t=’%20+%20t%20+%20′=’%20+%20′&fmt=18′);%20bla.innerHTML%20=%20′DOWNLOAD’;%20document.getElementById(‘masthead-nav’).appendChild(bla);

display dialog “Hallo, ich bin ein Dialog voller Sonderzeichen!\”§$%&/()=?

und Umlaute: ÖÄÜöää

Hm, fällt mir sonst noch etwas ein… ∂†ΩƒΩ©¨ªºø{|Ω®[€¢€‚∂®çƒ©√∫ª~º∆øπ@•∞œ@”

global thewindow

tell application “Address Book”

set ts to selection

if ts ≠ {} then

repeat with t in the ts

if (count of addresses of t) = 0 then

error “Da gib es doch gar keine Anschrift zu prüfen…”

else

repeat with i from 1 to count of addresses of t

set myzip to zip of address i of t

set mystreet to street of address i of t

set mycity to city of address i of t

if ((my search_plz(myzip, “”)) = false) then

tell application “Safari” to close tab 1 of window 1

repeat with i from 2 to count of every character of mystreet

set streetslice to (characters 1 through i of mystreet) as text

if ((my search_plz(myzip, streetslice)) = false) then

tell application “Safari” to close tab 1 of window 1

else

exit repeat

end if

end repeat

end if

set ca to name of t & return & formatted address of address 1 of t

set h to my get_search_results()

repeat until my get_weitere_link() = “”

if my get_weitere_link() ≠ “” then

my loadURL(my get_weitere_link())

my page_loaded(20)

set tmp to my get_search_results()

set item 1 of h to item 1 of h & item 1 of tmp

set item 2 of h to item 2 of h & item 2 of tmp

– h = liste aus liste der Orte + liste der Strassen

end if

end repeat

set allok to true

if item 1 of h does not contain mycity then

set allok to false

display dialog “Der Ort ” & mycity & ” passt nicht zur PLZ ” & myzip

end if

set foundit to false

repeat with i from 1 to count of every item of (item 2 of h)

if mystreet contains (item i of (item 2 of h)) then

set foundit to true

exit repeat

end if

end repeat

if foundit = false then

set allok to false

display dialog “Der Strassenname ” & mystreet & ” stimmt nicht….”

set the clipboard to (choose from list (item 2 of h) with prompt “Wähle einen korrekten Strassennamen aus, der landet dann in der Zwischenablage… kannst den Rest dann selber machen ;-)”) as text

end if

if allok = true then

display dialog “Supi, war alles ok bei” & return & return & ca

else

display dialog “Hm, die Adresse musst du wohl mal korrigieren” & return & return & ca

tell application “Safari” to close tab 1 of window 1

end if

end repeat

end if

end repeat

end if

end tell

on search_plz(theplz, thestreet)

tell application “Safari”

(**do JavaScript “window.location.href = \”http://www.postdirekt.de/plzserver/PlzSearchServlet?id=streetsearch&source=12&plz=” & theplz & “&city=&district=&box=&street=&no=&kgs=&lang=de_DE&checked=5EDDB487F8FE81980113A474DCA88486EADD5B1E&pagenumber=1\”"**)

set thewindow to open location “http://www.postdirekt.de/plzserver/PlzSearchServlet?id=streetsearch&source=12&plz=” & theplz & “&city=&district=&box=&street=” & thestreet & “&no=&kgs=&lang=de_DE&checked=5EDDB487F8FE81980113A474DCA88486EADD5B1E&pagenumber=1\”"

my page_loaded(20)

if text of document 1 contains “Es wurden zu viele Suchergebnisse gefunden” then

return false

else

return true

end if

end tell

end search_plz

on loadURL(TheURL)

tell application “Safari”

tell document 1

do JavaScript “window.location.href = \”" & TheURL & “\”"

end tell

end tell

end loadURL

on get_weitere_link()

tell application “Safari”

tell document 1

set weiter_link to do JavaScript “

if (document.getElementsByClassName(‘pagebutton’).length>1)

{

var w = document.getElementsByClassName(‘pagebutton’)[1].href;

}else{

if (document.getElementsByClassName(‘pagebutton’).length>0)

{

if (document.getElementsByClassName(‘pagebutton’)[0].text.indexOf(‘Weitere’)>-1)

var w = document.getElementsByClassName(‘pagebutton’)[0].href;

else

var w = ”;

}else{

var w= ”;

}

}

 w;

“

return weiter_link

end tell

end tell

end get_weitere_link

on get_search_results()

tell application “Safari”

tell document 1

set Tabellen_inhalt to do JavaScript “

function Trim(str){

return str.replace(/(^\\s*)|(\\s*$)/g, ”);

}

try{

var orte = new Array();

var strassen = new Array();

Array.prototype.contains = function (element) {

for (var i = 0; i < this.length; i++) {

if (this[i] == element) {

return true;

}

}

return false;

}

if (document.getElementById(‘result_table’).rows[0].innerHTML.indexOf(‘Zustellart’)==-1){

if (document.getElementById(‘result_table’).rows.length>2)

{

var strasse_cells_index = 0;

for (var k=0;k<document.getElementById(‘result_table’).rows[0].cells.length;k++)

{

if (document.getElementById(‘result_table’).rows[0].cells[k].innerHTML == ‘Straße’)

{

strasse_cells_index = k;

break;

}

}

for (var i=1;i<(document.getElementById(‘result_table’).rows.length)-1;i++)

{

if (strasse_cells_index == 0)

{

var plz = Trim(document.getElementById(‘result_table’).rows[i].cells[0].getElementsByTagName(‘div’)[1].innerHTML.replace(/\\&nbsp;/g,”));

var ort = Trim(document.getElementById(‘result_table’).rows[i].cells[1].innerHTML.replace(‘  ‘,”).replace(/\\&nbsp;/g,”).replace(/\\n/g,”));

var strasse = ”;

}else

{

var plz = Trim(document.getElementById(‘result_table’).rows[i].cells[0].getElementsByTagName(‘div’)[1].innerHTML.replace(/\\&nbsp;/g,”));

var ort = Trim(document.getElementById(‘result_table’).rows[i].cells[1].innerHTML.replace(‘  ‘,”).replace(/\\&nbsp;/g,”).replace(/\\n/g,”));

var strasse = document.getElementById(‘result_table’).rows[i].cells[strasse_cells_index].innerHTML.replace(/\\n/g,”);

strasse = Trim(strasse.slice(0,strasse.indexOf(String.fromCharCode(160))).replace(/\\&nbsp;/g,”))

}

if (orte.contains(ort))

{

}else{

orte.push(ort);

}

if (strassen.contains(strasse))

{

}else{

strassen.push(strasse);

}

}

}

}

var myoutput = [orte,strassen]

myoutput

}catch(e)

{

alert (e)

}

“

end tell

end tell

return Tabellen_inhalt as list

end get_search_results

on page_loaded(timeout_value) – in seconds

delay 1

repeat with i from 1 to timeout_value

tell application “Safari”

if name of current tab of window 1 is not “Loading” then exit repeat

end tell

delay 1

end repeat

if i is timeout_value then return false

tell application “Safari”

repeat until (do JavaScript “document.readyState” in document 1) is “complete”

delay 0.5

end repeat

end tell

return true

end page_loaded