tell application "Safari"

tell document 1

--set mybaseURL to do JavaScript "document.URL.slice(0, document.URL.lastIndexOf('/')+1)"

set jslinks to do JavaScript "var jssrcarray = new Array()

for (var i=0;i<document.getElementsByTagName('script').length;i++)

{

jssrcarray.push(document.getElementsByTagName('script')[i].src)

}

jssrcarray

"

repeat with jslink in jslinks

open location jslink

end repeat

end tell

end tell

set a to {"04:1e:aa:ef:7c:5d", "04:1e:aa:eb:1:e7"}

set i to 1

repeat with w in a

activate application "AirPort Utility"

tell application "System Events"

tell process "AirPort-Dienstprogramm"

click button 2 of tab group 1 of window 1

delay 1

keystroke w as text

delay 0.25

keystroke tab

keystroke tab

keystroke "mac " & i

delay 0.25

keystroke return

delay 1

end tell

end tell

set i to i + 1

end repeat

set file1 to quoted form of (POSIX path of ((choose file) as alias))

set file2 to quoted form of (POSIX path of ((choose file) as alias))

set mytempfile to "/tmp/a21239d511fe54d3b3ba661bc0a45a31.txt"

set thetext to (do shell script "cat " & file1 & " > " & mytempfile & ";echo ''>>" & mytempfile & ";cat " & file2 & " >>" & mytempfile & "; sort " & mytempfile)

set valueList to buildlist(thetext, tab)

repeat with i from 1 to count of every item of valueList

if i = 1 then

copy {item 1 of valueList} to finalvaluelist

else

if item 1 of item i of valueList = item 1 of last item of finalvaluelist then

set item 2 of last item of finalvaluelist to (item 2 of last item of finalvaluelist) + (item 2 of item i of valueList)

set item 3 of last item of finalvaluelist to (item 3 of last item of finalvaluelist) + (item 3 of item i of valueList)

else

copy finalvaluelist & {item i of valueList} to finalvaluelist

end if

end if

end repeat

set the clipboard to buildtext(finalvaluelist, tab)

display dialog "result is in clipboard"

on buildtext(llist, thedelimiter)

set AppleScript's text item delimiters to thedelimiter

repeat with i from 1 to count of llist

set item i of llist to item i of llist as text

end repeat

set AppleScript's text item delimiters to return

set llist to llist as text

set AppleScript's text item delimiters to ""

return llist

end buildtext

on buildlist(thetext, thedelimiter)

set thelines to every paragraph of thetext

set thevalues to {}

set AppleScript's text item delimiters to thedelimiter

repeat with theline in thelines

set tmp to every text item of theline

if (count of tmp) = 3 then

set thevalues to thevalues & {{item 1 of tmp, (item 2 of tmp) as integer, item 3 of tmp as integer}}

end if

end repeat

set AppleScript's text item delimiters to ""

return thevalues

end buildlist #

set thetext to (do shell script "tr '\r' '\n' <" & file1 & " > " & mytempfile & ";echo ''>>" & mytempfile & ";tr '\r' '\n' <" & file2 & " >>" & mytempfile & ";sort " & mytempfile)

on open these

tell application "Finder"

if (count of these) is 1 then

repeat with this in these

if name of this ends with ".csv" then

set this_x to POSIX path of this

set this_name to name of this

set this_folder_X to POSIX path of ((container of this) as alias)

do shell script "cd " & quoted form of this_folder_X & ";iconv -f ISO-8859-1 -t UTF-16 " & quoted form of this_x & ">_" & quoted form of (this_name) as text

end if

end repeat

end if

end tell

end open

tell application "Finder"

set these to selection

set folderkind to kind of folder 1 of startup disk

set movetothisfolder to ""

repeat with this in these

if kind of this is folderkind then

if movetothisfolder = "" then

set movetothisfolder to this

end if

set these2 to every item of this

set biggestsize to 0

repeat with this2 in these2

if size of this2 > biggestsize then

set biggestsize to size of this2

set movethis2 to this2

end if

end repeat

move movethis2 to movetothisfolder

end if

end repeat

end tell

tell application "Finder"

set mydesktop to desktop as alias

set desktopsize to my sizeof(mydesktop)

end tell

to sizeof(a)

set a to quoted form of (POSIX path of (a))

return (word 1 of ((do shell script "du -ks " & a)) as integer)

end sizeof

-- Save Mail as PDF and it's attachments to folder

--  Created by hubionmac (22.03.2010) requested by Udo

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) & "mail_box/"

tell application "Mail"

set myselection to my check_message_viewer_and_return_selection()

--works only with one selected message for many reasons...

if (count of myselection) = 1 then

repeat with currentMail in myselection

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

set currentFolder2Store to mymailboxpath & currentDateSent & " " & currentSender & " " & currentSubject & "/" as text

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 text) & current_a_name) as 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

my print_current_mail_as_pdf()

repeat until (index of window of frontmost_message_viewer) is 1

delay 1

end repeat

my move_desktop_pdf(desktop_pdf_name, currentFolder2Store)

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

do shell script "open " & quoted form of currentFolder2Store

end repeat

else

error "Sorry, ich kann zur Zeit nur mit einer ausgewählten Email hantieren"

end if

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 with i from 1 to 10

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

set p to "ready"

exit repeat

end if

delay 1

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

keystroke return

delay 1

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

tell application "System Events"

set visible of every process to false

end tell

tell application "Finder"

activate

close every window

repeat with i from 1 to 1

set arrangement of icon view options of window of desktop to arranged by kind

delay 0.25

set arrangement of icon view options of window of desktop to arranged by name

delay 0.25

set arrangement of icon view options of window of desktop to arranged by size

delay 0.25

set arrangement of icon view options of window of desktop to arranged by creation date

delay 0.25

set arrangement of icon view options of window of desktop to arranged by modification date

delay 0.25

set arrangement of icon view options of window of desktop to arranged by kind

delay 0.25

end repeat

end tell