-- hubionmac.com 2010-09-03

-- script to be added to a Apple Mail rule

--saves PDF attachmens of new mails into a tmp folder and prints them with standard printer

on perform_mail_action(info)

tell application "Mail"

tell application "Finder" to set mypath to (name of startup disk & ":tmp:") as text

set theMessages to |SelectedMessages| of info

repeat with thisMessage in theMessages

try

repeat with a in (every mail attachment of thisMessage)

set current_a_name to name of a

if current_a_name ends with ".pdf" then

set current_a_name to my checkname_with_pdf_suffix(current_a_name, mypath as alias, false)

save a in mypath & current_a_name

my print_file_with_standard_printer(POSIX path of ((mypath & current_a_name) as alias))

else

--display dialog current_a_name

end if

end repeat

on error msg

do shell script "echo " & quoted form of msg & " | cat>>~/Desktop/MailscriptErrorLog.txt"

end try

end repeat

end tell

end perform_mail_action

on checkname_with_pdf_suffix(n, D, looped)

tell application "Finder"

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & " 1" & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

on getStandardPrinter()

tell application "Printer Setup Utility"

return name of current printer & ".app"

end tell

end getStandardPrinter

on print_file_with_standard_printer(thefile)

-- thefile is a unquoted POSIX path

--assumes that the printer app is stored in ~/Library/Printers/ not /Library/Printers/

tell application (my getStandardPrinter()) to activate

tell application "Mail"

do shell script "open -a ~/Library/Printers/" & quoted form of (my getStandardPrinter()) & " " & quoted form of thefile

end tell

end print_file_with_standard_printer

--04.07.2010 hubionmac.com

--Tested with Mac OS 10.6.4 

--Sonorasaurus File Upload Droplet

on open these

tell application "Finder"

set myname to name of (path to me)

end tell

set AppleScript's text item delimiters to "Upload mp3s to "

set ipad_ip to text item 2 of myname

set AppleScript's text item delimiters to ".app"

set ipad_ip to text item 1 of ipad_ip

set AppleScript's text item delimiters to ""

set server_address to "http://" & ipad_ip & ":8888"

repeat with this in these

set this_x to POSIX path of (this as alias)

set this_file to do shell script "basename " & quoted form of this_x

if this_file ends with ".mp3" then

set this_dir to do shell script "dirname " & quoted form of this_x

do shell script "cd " & quoted form of this_dir & ";curl -F \"file=@" & this_file & "\" -F \"button=Upload\" " & server_address

end if

end repeat

display dialog "finished" giving up after 4

end open

[InternetShortcut]

URL=http://www.apple.com/