tell application “Address Book”

set groupnames to name of every group whose id does not end with “SmartGroup”

end tell

–10.12.2011 hubionmac.com

–Beweg Emails die markiert sind in einen anderen Ordner

– In den Prefs können als Quelle mehrere Ordner angegeben werden

– Unterordner werden in Form einer Liste angegeben z.B. um den Ordner Bla im Ordner Fasel anzugeben -> {“Fasel”,”Bla”}

–Beim Ziel-Ordner kann wahlweise angegeben werden, ob es sich um einen lokal oder ggf. um einen IMAP-Ordner des jeweiligen Accounts handelt

set theprefs to {¬

{AccountName:”hubionmac.com”, SourceFolders:{{“INBOX”}, {“Archive”, “Kleiner Test”}}, DestinationFolder:{“Sammel”, “Lager”}, DestinationFolderIsLocal:false}, ¬

{AccountName:”gmx.net”, SourceFolders:{{“INBOX”}, {“bla”, “blafasel”}}, DestinationFolder:{“Sammel”, “Lager”}, DestinationFolderIsLocal:false} ¬

}

–prüfer erst mal ob Mail läuft… denn extra gestartet werden soll es deswegen mal nicht

tell application “System Events”

set MailIsRunning to (count of (every process whose bundle identifier is “com.apple.mail”)) > 0

end tell

end

if MailIsRunning then

tell application “Mail”

repeat with todo in theprefs

set AccountName to AccountName of todo

set SourceFolders to SourceFolders of todo

set DestinationFolder to DestinationFolder of todo

set islocal to DestinationFolderIsLocal of todo

set TheDestinationFolder to my getFolderReference(AccountName, DestinationFolder, islocal)

repeat with SourceFolder in SourceFolders

set TheSourceFolder to my getFolderReference(AccountName, SourceFolder, false)

– get the mails that are interesting

set themails to (every message of TheSourceFolder whose flagged status is true)

–movethemails

repeat with themail in themails

move themail to TheDestinationFolder

end repeat

end repeat

end repeat

end tell

end if

on getFolderReference(AccountName, DestinationFolder, isAlwayslocal)

tell application “Mail”

set TheDestinationFolder to “”

set islocal to (get account type of account AccountName is pop)

if isAlwayslocal = true then set islocal to true

repeat with FolderName in DestinationFolder

if islocal then

if FolderName as string ≠ “INBOX” then

if TheDestinationFolder = “” then

set TheDestinationFolder to mailbox FolderName

else

set TheDestinationFolder to mailbox FolderName of TheDestinationFolder

end if

else

set TheDestinationFolder to mailbox FolderName of account AccountName

end if

else

if TheDestinationFolder = “” then

set TheDestinationFolder to mailbox FolderName of account AccountName

else

set TheDestinationFolder to mailbox FolderName of TheDestinationFolder

end if

end if

end repeat

return TheDestinationFolder

end tell

end getFolderReference

–03.09.2008 hubionmac.com

–asks for an app and adds it to login items

addtologin(choose file of type {“APPL”})

on addtologin(thisApp) – adds an item to login items

set appPath to POSIX path of thisApp

tell application “System Events”

set appName to name of thisApp

set shortName to (characters 1 through ((get offset of “.app” in appName) – 1) of appName) as text

if shortName is not in (name of every login item) then

make login item at end with properties {path:appPath}

end if

end tell

end addtologin

–19.11.2006 hubionmac.com

–Ordneraktion die Dateien an Hand Ihrer Datei-Endung in Unter-Ordner sortiert

on adding folder items to derOrdner after receiving added_items

– die Liste kann man gut erweitern

set endungmitordner to {“.jpg;JPEGS”, “.mov;Movies”}

repeat with k in endungmitordner

–damit kann man die Einträge aus der Liste gut in Ihre Bestandteile zerlegen

–Ist auch super um in Strings Teile zu ersetzen =)

set AppleScript‘s text item delimiters to “;”

set endung to text item 1 of k

set ordnername to text item 2 of k

set AppleScript‘s text item delimiters to “”

tell application “Finder”

set inhalt to every item of derOrdner

set itemcount to count of every item of inhalt

– wenn in dem Ordner nix drin ist, soll er auch nix machen… lohnt ja nicht

if itemcount > 1 then

repeat with aitem in inhalt

–Die Anzahl der Buchstabe einer definierten Endung… damit ich am Ende auch weiß ob ich nach

– .tiff oder .mov suchen muss

set endcount to (-1 * (count of every character of endung))

set itemname to name of aitem

if (characters endcount through -1 of itemname) as text = endung then

–wenn es den ordner schon gibt den fehler ignorieren und weiter im Text

try

make folder at derOrdner with properties {name:ordnername}

end try

–wir basteln uns einen Alias zu einem Verzeichnis

set workingdir to ((derOrdner as string) & ordnername & “:”) as alias

–tja und dieser teil bewegt die Datei in den Ordner… und bennent sie um, sofern der

–Name bereits im Zielordner existiert

– man könnte statt des counters auch die uhrzeit bzw. das datum nehmen…

– oh ich neheme die Uhrzeit =).

try

move aitem to workingdir as alias

on error

set no_error to false

repeat until no_error = true

set counter to (time of (current date))

try

set name of aitem to (counter & “##” & itemname) as string

move aitem to workingdir as alias

set no_error to true

exit repeat

on error

set no_error to false

end try

end repeat

end try

end if

end repeat

end if

end tell

end repeat

end adding folder items to

–18.01.2005

–Safari Bookmark safer

– it’s not a boookmark but a tiny html file that redirects to the saved URL

set html_text01 to “<html><meta http-equiv=\”refresh\” content=\”0; URL=”

set html_text02 to “\”></html>”

tell application “Safari” to set windowcount to count of every window

if windowcount ≥ 1 then

tell application “Safari” to set theurl to URL of document 1

tell application “Safari” to set thename to name of document 1

display dialog “Filename” default answer thename

set thename to text returned of the result

set thetext to html_text01 & theurl & html_text02 as text

do shell script “echo ” & quoted form of thetext & “|cat >~/Desktop/” & quoted form of thename & “.html”

end if

– 18.3.2007 hubionmac.com.com

– creates a table of contents (tree structure) of  a folder that was dropped onto the script and saves it into a text file

global theroottxt, thefolder_unix, tabcount

on open thefolder

if (count of thefolder) > 1 then

display dialog “Please put ONE Folder onto the script”

end if

set thefolder to thefolder as alias

set thefolder_unix to POSIX path of thefolder

set theroottxt to thefolder as text

tell application “Finder”

set these_folders to every folder of thefolder

end tell

set tabcount to 0

repeat with this_folder in these_folders

set folderstring to get_folderstring(this_folder)

do shell script (“echo ” & quoted form of folderstring & “|cat>> ” & quoted form of thefolder_unix & “folder_list.txt”) as text

do_folder(this_folder)

end repeat

end open

on do_folder(this_folder)

set tabcount to tabcount + 1

tell application “Finder”

set these_folders to every folder of this_folder

end tell

repeat with this_folder in these_folders

set folderstring to get_folderstring(this_folder)

do shell script (“echo ” & quoted form of folderstring & “|cat>> ” & quoted form of thefolder_unix & “folder_list.txt”) as text

do_folder(this_folder)

end repeat

set tabcount to tabcount – 1

end do_folder

on get_folderstring(this_folder)

tell application “Finder”

set FolderName to name of this_folder

end tell

repeat with i from 1 to tabcount

set FolderName to tab & FolderName

end repeat

return FolderName as text

end get_folderstring

–12.10.2005 hubionmac.com

–Beispiel zum Thema Rekursion

global folderkind

set thisfolder to choose folder

display dialog “deepcount=” default answer “0″

set deepcount to text returned of the result as integer

if deepcount = 0 then

process_item(thisfolder)

else

process_folder(thisfolder, deepcount)

end if

on process_folder(this_item, deepcount)

tell application “Finder”

set these_items to every folder of this_item

set deepcount to deepcount – 1

end tell

repeat with this_item in these_items

if deepcount = 0 then

process_item(this_item)

else

process_folder(this_item, deepcount)

end if

end repeat

end process_folder

on process_item(this_item)

tell application “Finder”

set itemname to name of this_item

display dialog itemname

end tell

end process_item

–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”

set thefolder to choose folder

set thefolderx to POSIX path of (thefolder as alias)

tell application “Finder”

set thealiases to every alias file of thefolder

repeat with thisalias in thealiases

set aliasname to name of thisalias

set theorig to original item of thisalias

set theorigx to POSIX path of (theorig as alias)

do shell script “cd ” & quoted form of thefolderx & “;rm ” & quoted form of aliasname & “;ln -s ” & quoted form of theorigx & ” ” & quoted form of aliasname

end repeat

end tell

on open these_items

my makeTar(these_items)

end open

on run

tell application “Finder”

set these_items to selection

if these_items = {} then error “Nothing slected”

my makeTar(these_items)

end tell

end run

on makeTar(these_items)

– READ THE NAME

display dialog “Name of the file:” default answer “” buttons {“.TAR”, “.TAR.GZ”, “cancel”}

copy result as list to dialog01

set tarname to item 1 of dialog01

if tarname = “” then

display dialog “please enter a propper name!” buttons {“cancel”}

else

if (item 2 of dialog01) as text = “.TAR” then

set tarname to (tarname & “.tar”) as text

set zz to “-”

else if (item 2 of dialog01) as text = “.TAR.GZ” then

set tarname to (tarname & “.tar.gz”) as text

set zz to “-z”

end if

end if

– READ THE LOCATION WHERE THE FILE SHOULD BE STORED

set save_path to POSIX path of (choose folder with prompt “Where do you wanna save ” & tarname & “?”)

set thefiles to “”

set first_item to true

repeat with this_item in these_items

tell application “Finder”

– READ THE FILE’s LOCATIONS AND COMPARE THEM

set current_container to container of this_item

if first_item = true then

set item_container to current_container

set first_item to false

end if

– if the current_containter does not match the general container ERROR!

if item_container ≠ current_container then

display dialog “Sorry, this script can only proccess files/folders that at the same location” buttons {“cancel”}

else

– GET THE ITEMS’ NAMES AND LIST THEM

set item_name to name of this_item

set thefiles to thefiles & ” \”" & item_name & “\”"

end if

end tell

end repeat

– GET THE POSIX PATH OF THE ITEMS ‘ CONTAINER

set thefilespath to quoted form of POSIX path of (item_container as alias)

– MAKE THE COMMAND STRING FOR THE SHELL

set theshellcommand to (“cd ” & thefilespath & “; tar ” & zz & “cf ” & quoted form of ((save_path & tarname) as text) & thefiles) as text

set the clipboard to theshellcommand

– display dialog theshellcommand

– DO THE SHELL COMMAND, BECAUSE THIS COULD TAKE SOME TIME… A LONG TIMEOUT SO NO APPLE EVENT TIMEOUT POPS UP =)

with timeout of 3600 seconds

do shell script theshellcommand

end timeout

end makeTar

on open these_

if (count of these_) > 1 then

tell me to quit

end if

tell application “Finder”

set orig_image to quoted form of (POSIX path of item 1 of these_)

set imagename to quoted form of ((name of (item 1 of these_)) as text)

set image_destination to quoted form of POSIX path of (folder of ((item 1 of these_) as alias) as alias)

end tell

set thecommand to (“hdiutil convert ” & orig_image & ” -format UDZO -imagekey zlinb-level=9 -o ” & image_destination & imagename & “.dmg”) as text

tell application “Terminal”

run

delay 1

do script with command thecommand

end tell

end open

on open hubi

tell application “Finder”

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end if

end repeat

end tell

end open

tell application “Finder”

set hubi to selection

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end if

end repeat

end tell

tell application “Finder”

set hubi to selection

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end if

end repeat

end tell

set thepath to POSIX path of (choose folder)

set hubi to do shell script “cd ” & quoted form of thepath & “;find ./ -name .DS_Store -delete”

display dialog “.DS_Store deleted”

–hubionmac.com >~2007 i think

–AppleScript Droplet to sort fieles into folders by creation date

on open these_items

set thelist to {make_dateString(current date, 1)} & {make_dateString(current date, 2)} & {make_dateString(current date, 3)} as list

choose from list thelist with prompt “Choose date format:”

if result as text = item 1 of thelist as text then

set theformat to 1

else if result as text = item 2 of thelist as text then

set theformat to 2

else if result as text = item 3 of thelist as text then

set theformat to 3

end if

repeat with this_item in these_items

tell application “Finder”

– set thedate to creation date of this_item

set thedate to modification date of this_item

set theLocation to quoted form of POSIX path of ((folder of this_item) as alias)

end tell

set foldername to make_dateString(thedate, theformat)

try

do shell script “cd ” & theLocation & “;mkdir ” & quoted form of foldername

end try

set the_item to quoted form of POSIX path of this_item

– 2008-05-26 -n Option add, so files are not overwritten

do shell script “cd ” & theLocation & “;mv -n ” & the_item & ” ./” & quoted form of foldername & “/”

end repeat

end open

on get_month_number(incomingDate)

– works with systems <OS X 10.4

copy incomingDate to b

set the month of b to January

set month_number to “0″ & (1 + (incomingDate – b + 1314864) div 2629728) as text

return (characters -2 through -1 of month_number) as text

end get_month_number

on make_dateString(thedate, theformat)

if theformat = 1 then

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

set thestring to (year of thedate) & “-” & get_month_number(thedate) & “-” & theday

else if theformat = 2 then

set thestring to (year of thedate) & “-” & get_month_number(thedate)

else if theformat = 3 then

set thestring to (year of thedate)

end if

return thestring as text

end make_dateString

with timeout of 600000 seconds

display dialog “Shutdown in x Minutes?” default answer 10

set i to (text returned of the result) as integer

delay i * 60

tell application “Finder” to shut down

end timeout