ASIP Status

on run
    set MySkript to "netstat -n | awk -F\" \" '/\\.548 +ESTABLISHED/ {print $5}' | sed 's/\\.[^.]\\{0,3\\}$//g'"
    set ServerAddresses to (do shell script MySkript)
    set Lala to count of text items of ServerAddresses
    if ServerAddresses is "" then
        set Ansage to "Es sind aktuell keine Server-Volumes gemountet anhand derer die Server-Adresse ermittelt werden konnte. Bitte richtige Adresse manuell ™eingeben"
    else
        set Ansage to "Es sind Volumes von folgenden Servern gemountet:" & return & ServerAddresses & return & "Bitte eine aussuchen und eingeben:"
    end if

    if Lala is less than 17 and Lala is not 1 then
        set DefaultAnswer to ServerAddresses
        set Ansage to "Es sind Volumes von folgendem Server gemountet: " & ServerAddresses & return & return & "Adresse übernehmen oder manuell korrigieren:"
    else
        set DefaultAnswer to ""
    end if

    set AddressToCheck to text returned of (display dialog Ansage default answer DefaultAnswer buttons {"Abbruch", "Server checken"} with icon caution cancel button 1 default button 2)

    if AddressToCheck is not "" then
        set AsipStatusPath to (path to me as string) & "Contents:Resources:asip-status.pl"
        set UnixPath to quoted form of POSIX path of AsipStatusPath
        set MySkript to "TmpFile=$(mktemp /tmp/asip-status.XXXXXX) && " & UnixPath & " " & AddressToCheck & " >$TmpFile ; open -t $TmpFile ; cat $TmpFile"
        set ASIPInfo to (do shell script MySkript)
        set the clipboard to ASIPInfo
    end if
end run