–hubionmac 09.12.2011

–adds a dynamic overlay/background to a pdf

– requires:

– wkpdf: http://plessl.github.com/wkpdf/

– pdftk: http://www.pdflabs.com/docs/install-pdftk/

– a working html file with “blafasel” place holders for the dynamic data ;-)

– tested Mac OS 10.7.2 

–wir brauchen die Datei-Pfade und die Daten für das Overlay

set thepdf to quoted form of POSIX path of (choose file of type {“pdf”})

set thelayout to quoted form of POSIX path of (choose file) –of type “html funktioniert irgendwie nicht

set headline to text returned of (display dialog “Bitte Überschrift eingeben:” default answer “Toller Titel”)

set thedate to do shell script “date ‘+Datum:  %d.%m.%Y’”

set thedata to {headline, thedate}

–Die Daten werden in den HTML-Code eingebaut

set htmlsource to do shell script “cat ” & thelayout

set AppleScript‘s text item delimiters to “blafasel”

set htmlparts to every text item of htmlsource

set AppleScript‘s text item delimiters to “”

set myoutput to {}

repeat with i from 1 to count of thedata

set myoutput to myoutput & item i of htmlparts & item i of thedata

end repeat

if (count of htmlparts) > (count of thedata) then

set myoutput to myoutput & items (count of thedata) through -1 of htmlparts

end if

–der angepasste HTML-Code wir in eine Datei geschrieben

do shell script “echo ” & quoted form of (myoutput as text) & ” > ” & thelayout & “.data.html”

–wkpdf erstellt aus dieser Datei ein PDF

do shell script “wkpdf –output ” & thelayout & “.data.pdf –source ” & thelayout & “.data.html –paper a4 –orientation portrait –print-background –paginate false”

–PDFTK nimmt sich das erstellte PDF und fügt es als background zum eigentlichen PDF hinzu und am Ende wird das Ergebnis im geöffnet

do shell script “/opt/pdflabs/pdftk/bin/pdftk ” & thepdf & ” background ” & thelayout & “.data.pdf output ” & thepdf & “.overlayed.pdf flatten;open ” & thepdf & “.overlayed.pdf”

–30.04.2011 hubionmac.com

–quick & dirty script to extract first ISBN-Number of a PDF file… just uses grep, maybe some nice reqexp would do a better job!

set myselection to choose file of type {“pdf”} with multiple selections allowed

set myoutput to “”

repeat with pdf_file in myselection

tell application “Finder” to set pdfname to name of (pdf_file as alias)

set pdf_file_posix to quoted form of POSIX path of (pdf_file as alias)

do shell script “”

try

–first add the path, otherwhise s2ascii will fail since it cannot find ghostscript (gs) which is also installed in /usr/local/bin (think by macports)

set ISBN_String to do shell script “PATH=\”$PATH:/usr/local/bin\”; /usr/local/bin/ps2ascii ” & pdf_file_posix & ” | grep -m 1 ISBN”

set foundLine to true

on error

display dialog “maybe \”" & pdfname & “\” does not contain a ISBN at all”

set foundLine to false

end try

if foundLine is true then

repeat with s in every word of ISBN_String

try

get s as integer

set s to s as text

set foundisbn to true

exit repeat

on error

set s to “”

end try

end repeat

end if

set myoutput to myoutput & pdfname & tab & s & return

end repeat

tell application “TextEdit”

activate

set a to make new document

set text of a to myoutput as text

end tell

## 25.01.2011 hubionmac.com

## Make a pdf-printout of a URL at your desktop called webscreenshot.pdf

## requires wkpdf (ruby)

## to install open terminal and: sudo gem update –system; sudo gem install wkpdf;gem update wkpdf

##get url to print

set myurl to “”

repeat until myurl starts with “http://” or myurl starts with “https://”

set myurl to text returned of (display dialog “URL?:” default answer “”)

end repeat

##check if name of screenshot file already exists and change if nes…

tell application “Finder” to set myname to my checkname_with_pdf_suffix(“WebScreenshot.pdf”, desktop, false)

##take a screenshot using wkpdf (with background and screen layout)

do shell script “wkpdf –enable-plugins yes –caching no –save-delay 3 –format A4 –stylesheet-media screen –print-background yes –source ” & myurl & ” –output /tmp/wkpdf_out.pdf;mv /tmp/wkpdf_out.pdf ~/Desktop/” & quoted form of myname

##play a sound that makes clear what has just happend!

do shell script “afplay /System/Library/Components/CoreAudio.component/Contents/Resources/SystemSounds/system/Grab.aif”

## put the URL and the date of the screenshot into the file’s comment (this will be lost when copying it to a non-mac-volume!!!)

tell application “Finder” to set comment of item myname of desktop to myurl & return & “@ ” & ((current date) as text)

to checkname_with_pdf_suffix(n, D, looped)

–check if filename exists in D

– so if “A File.pdf” exists it names it “A File 1.pdf”,”A File 2.pdf”,…

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

– 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

## Update 15.02.2011

## – script now also prints filled pdf forms (requires pdftk to flatten forms)

## – printing app window is hidden after launch (pomps up a milsec… )

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

##print pdf form workaround, this requires pdftk installed!!!

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

do shell script “/opt/pdflabs/pdftk/bin/pdftk ” & quoted form of POSIX path of ((mypath & current_a_name) as alias) & ” output ” & POSIX path of ((mypath) as alias) & quoted form of current_a_name2 & ” flatten;rm ” & quoted form of POSIX path of ((mypath & current_a_name) as alias)

set current_a_name to current_a_name2

##workaround –END–

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

##hide the printer app

tell application “Finder” to set visible of process (characters 1 through -5 of (my getStandardPrinter()) as text) to false

end tell

end print_file_with_standard_printer

– Save Mail as PDF and it’s attachments to folder

–  Created by hubionmac (29.09.2010)

– 29.09.2010 

– -Auswahl von mehren Emails wird nun auch möglich

– -Abgesendete Emails werden als solche erkannt und in einem anderen Verzeichnis mit Empfänger-Adresse im Ordnernamen gespeichert (req. by Andreas)

– 27.09.2011 made it work with local mailboxes, too

global frontmost_message_viewer

–this is the posix (unix) path of the folder you would like to store the messages in

tell application “Finder” to set mymailboxpath to POSIX path of ((desktop) as alias) & “received_mail_box/”

tell application “Finder” to set mysentmailboxpath to POSIX path of ((desktop) as alias) & “sent_mail_box/”

tell application “Mail”

set myselection to my check_message_viewer_and_return_selection()

repeat with currentMail in myselection

open currentMail

set currentSender to my (getEmail(sender of currentMail))

set currentDateSent to my getDatestring(date sent of currentMail)

set currentSubject to my replace_chars(my replace_chars(subject of currentMail, “:”, “-”), “/”, “:”) –Doppelpunkte kommen bei Dateinamen nicht so gut

if my is_in_sent_mail(currentMail) is true then

–if the file was sent FROM this email account

set sentToEmail to address of item 1 of to recipient of currentMail

set currentFolder2Store to mysentmailboxpath & sentToEmail & ” ” & currentDateSent & ” ” & currentSubject & “/” as rich text

else

–if the email was sent TO this email account 

try

set myemail to item 1 of (get email addresses of account of mailbox of currentMail)

on error

–27.09.2011 added to make it work with local mailboxes, too

set myemail to item 1 of (get address of to recipient of currentMail)

end try

set currentFolder2Store to mymailboxpath & currentDateSent & ” ” & currentSender & ” ” & currentSubject & ” send to” & myemail & “/” as rich text

end if

my create_messagefolder(currentFolder2Store)

repeat with a in (every mail attachment of currentMail)

set current_a_name to name of a

set current_a_name to my checkname_with_pdf_suffix(current_a_name, (POSIX file currentFolder2Store) as alias, false)

save a in (((POSIX file currentFolder2Store) as rich text) & current_a_name) as rich text

end repeat

set desktop_pdf_name to my checkname_with_pdf_suffix(“1.pdf”, path to desktop, false)

set the clipboard to desktop_pdf_name

tell application “System Events”

tell process “Mail”

set wc to count of every window

end tell

end tell

my print_current_mail_as_pdf()

tell application “System Events”

tell process “Mail”

repeat until (count of every window) is wc

end repeat

end tell

end tell

my move_desktop_pdf(desktop_pdf_name, currentFolder2Store)

–close last_message window

activate

tell application “System Events”

tell process “Mail”

keystroke “w” using command down

end tell

end tell

–open destination folder in finder ( did it really work? YES!! =))

–do shell script “open ” & quoted form of currentFolder2Store

end repeat

end tell

to move_desktop_pdf(desktop_pdf_name, currentFolder2Store)

–used to move the printed pdf to it’s final destination

set finalname to checkname_with_pdf_suffix(“__message.pdf”, (POSIX file currentFolder2Store) as alias, false)

try

tell application “Finder” to do shell script “mv ” & POSIX path of ((desktop) as alias) & quoted form of desktop_pdf_name & ” ” & quoted form of currentFolder2Store & quoted form of finalname

on error msg

error “Fehler beim Bewegen der gedruckten Nachricht:  ” & msg as text

end try

end move_desktop_pdf

to getEmail(mailstring)

– if an email contains the senders name like “Mr.Bla <bla@bla.com>” then returns just the email not leaves the name

if mailstring contains “<” then

return (characters ((offset of “<” in mailstring) + 1) through ((offset of “>” in mailstring) – 1) of mailstring) as text

else

return mailstring

end if

end getEmail

to getDatestring(thedate)

–format a date to a string like 2010-03-22

set monthnum to characters -2 through -1 of (“0″ & ((month of thedate) as integer)) as text

set daynum to characters -2 through -1 of (“0″ & ((day of thedate) as integer)) as text

set yearnum to year of the thedate

return yearnum & “-” & monthnum & “-” & daynum as text

end getDatestring

to create_messagefolder(thepath_posix)

–I love mkdir -p, simple, short, easy to use

try

do shell script “mkdir -p ” & quoted form of thepath_posix

on error msg

error msg

end try

end create_messagefolder

to replace_chars(this_text, search_string, replacement_string)

–this replaces characters

–used for folder and filenames, since a : must not be used for that

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return this_text

end replace_chars

to checkname_with_pdf_suffix(n, D, looped)

–check if filename exists in D

– so if “A File.pdf” exists it names it “A File 1.pdf”,”A File 2.pdf”,…

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

to print_current_mail_as_pdf()

–hopefully works on every mac in every language =)

– GUI-Scripting is not the best way, but somehow the only way at the moment :-/

tell application “Mail”

activate

tell application “System Events”

tell process “Mail”

keystroke “p” using command down

set p to “false”

repeat until 0 = 1

if (count of every sheet of window 1) > 0 then

set p to “ready”

exit repeat

end if

end repeat

if p = “ready” then

click menu button 1 of sheet 1 of window 1

delay 0.25

key code 125

key code 125

delay 0.25

set cwc to count of every window

keystroke return

repeat until 1 = 0

if (cwc + 1) = (count of every window) then

exit repeat

end if

end repeat

click text field 1 of window 1

keystroke “a” using command down

keystroke “v” using command down

keystroke “d” using command down

keystroke return

else

error “timeout”

end if

end tell

end tell

end tell

end print_current_mail_as_pdf

to check_message_viewer_and_return_selection()

– check if frontmost window is a message viewer, otherwhise tell the user to RTFM!… wait there is no manual… don’t care error change user!

tell application “Mail”

set frontmost_message_viewer to {}

repeat with i from 1 to count of every message viewer

if index of window of message viewer i = 1 then

set frontmost_message_viewer to message viewer i

exit repeat

end if

end repeat

if frontmost_message_viewer = {} then

error “Ist ja gar kein Message Viewer im Vordergrund, so kann ich einfach nicht arbeiten!”

else

return selection

end if

end tell

end check_message_viewer_and_return_selection

on is_in_sent_mail(amessage)

tell application “Mail”

set sentmailboxes to every mailbox of sent mailbox

set currentmailbox to mailbox of amessage

repeat with i from 1 to (count of sentmailboxes)

if item i of sentmailboxes = currentmailbox then

return true

end if

end repeat

return false

end tell

end is_in_sent_mail