Ticket #24433: main.4.applescript

#---------------------------------------------------------------------------------------------------
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#---------------------------------------------------------------------------------------------------
#
# GPL-licensed icons included in applet.icns are courtesy of KMyMoney's developers!
#
#---------------------------------------------------------------------------------------------------
#
# Authors:
#  - Brad Giesbrecht <brad@pixilla.com>
#  - Marko K"aning <MK-MacPorts@techno.ms>
#
########################################################

try
        
        set userID to do shell script "stat -f '%Su' $HOME"
        
end try

set executable to "__PREFIX__/bin/kmymoney" as string
set kmymoney to (POSIX file executable)

try
        get alias kmymoney
on error
        display alert "There was an error locating KMyMoney's executable." & return & return & "Try 'port installed kmymoney' to verify that port 'kmymoney' is installed." & return & return & "The file we tried to find was:" & return & return & "'" & executable & "'" as warning
        return
end try

set command to ""

set kdedirID to ""
set ICEauthorityID to ""
set XauthorityID to ""

set kdeDir to (POSIX path of (path to home folder) & ".kde/" as string)
set ICEauthority to (POSIX path of (path to home folder) & ".ICEauthority" as string)
set Xauthority to (POSIX path of (path to home folder) & ".Xauthority" as string)

set kdeDirMessage to ""

try
        
        POSIX file kdeDir as alias
        set kdedirID to do shell script "stat -f '%Su' $HOME/.kde"
        
end try

try
        
        POSIX file ICEauthority as alias
        set ICEauthorityID to do shell script "stat -f '%Su' $HOME/.ICEauthority"
        
end try

try
        
        POSIX file Xauthority as alias
        set XauthorityID to do shell script "stat -f '%Su' $HOME/.Xauthority"
        
end try

if ((not kdedirID is equal to "") and not kdedirID = userID) or not ICEauthorityID = userID or not XauthorityID = userID then
        
        if (not kdedirID is equal to "") then set kdeDirMessage to (kdeDir & return & " is owned by " & kdedirID & return & return)
        
        set fixPermissions to button returned of (display dialog (kdeDirMessage & ICEauthority & return & " is owned by " & ICEauthorityID & return & return & Xauthority & return & " is owned by " & XauthorityID & return & return & "They should be owned by " & userID & " for KMyMoney to run properly!") buttons {"Cancel", "Fix"} default button {"Fix"} with icon 2)
        
        if fixPermissions = "Fix" then
                
                if (not kdedirID is equal to "") then do shell script "chown -R " & userID & " " & kdeDir with administrator privileges
                do shell script "chown " & userID & " " & ICEauthority with administrator privileges
                do shell script "chown " & userID & " " & Xauthority with administrator privileges
                
        end if
        
end if

try
        tell application "X11"
                open POSIX path of kmymoney
        end tell
on error
        display alert "There was an error launching KMyMoney." & return & return & "Try 'port installed kmymoney' to verify that port 'kmymoney' is installed." as warning
end try