(*

    IrDA Internet Sharing Script

    Copyright 2003 Peter Thompson

*)



property admin_password : "xxxxx"

property irda_device_name : "tty.IrDA-IrCOMM0913"

property dns_address : "xxxxx"

property mac_ip_address : "xxxxx"

property irda_ip_address : "xxxxx"



on run

    checkStatus()

end run





on checkStatus()

    set shellreturn to ""

    try

 set shellreturn to do shell script ¬

     "ps -ax | grep pppd | grep -v grep" password admin_password with administrator privileges

    on error errText number errNum

 

    end try

    if shellreturn ? "" and (offset of ("/dev/" & irda_device_name) in shellreturn) > 0 then

 set theReply to display dialog "Network is available on IR Port." buttons {"Quit", "Stop & Quit"} default button "Stop & Quit" with icon 0

 if button returned of theReply is "Stop & Quit" then stopService((word 1 of shellreturn) * 1)

 

    else

 set theReply to (display dialog "Network is NOT available on IR Port." buttons {"Quit", "Start"} default button "Start" with icon 0)

 

 if button returned of theReply is "Start" then startService()

    end if

end checkStatus



on startService()

    

    tell application "HotSync Manager"

 open setup

    end tell

    

    set shellreturn to do shell script ¬

 ("/usr/sbin/pppd /dev/" & irda_device_name & " 115200 " & mac_ip_address & ":" & irda_ip_address & " proxyarp passive silent persist noauth local ms-dns " & dns_address) password admin_password with administrator privileges

    if shellreturn ? "" then

 display dialog "Error returned when trying to start networking:" & return & shellreturn

    end if

    delay 2

    checkStatus()

end startService



on stopService(procnum)

    

    tell application "HotSync Manager"

 open setup

    end tell

    

    set shellreturn to do shell script ("kill " & procnum) password admin_password with administrator privileges

    if shellreturn ? "" then

 display dialog "Error returned when trying to stop networking:" & return & shellreturn

    end if

    

end stopService