IChat Server Bot

Question

Hey guys!!
I've been Googling this for quite a while now and this is one of the nicer methods I've seen so far! Sadly I don't have much Perl or Ruby experience so I can't write one myself!!
Dan McCoy of id26.com posted this blog post way back in February '05. The bot he wrote was designed for 10.3 and in 10.5.3 it fails to run giving an "Error: -1708".
I was wondering if anyone here wud be able to shed some light as to what would need to be done to bring this brilliant script back to full functionality! I'd love to be able to get it to run network/computer maintenance through some ARD/Automator scripts!
Thanks in anticipation!
John
*Link to original article:*
http://www.id26.com/mccoysworld/applescript/iChat-Server-Bot.php
Code:
property watchAccount : "Your account:"
property AppName : "Server_Backup.app"
property AppProc : "Server_Backup"
property theCommand : missing value
property theSkip : missing value
property theLoop : missing value
property theReturn : "10"
on idle
tell application "System Events" to (name of processes) contains AppProc
if result is true then
set theSkip to true
tell application "iChat"
set status message to "Backing up Server"
set theResponse to do shell script "cat lastbackuptime.txt"
send theResponse to buddy watchAccount
end tell
else if result is false then
set theSkip to false
end if
if theSkip is false then
tell application "iChat"
set theList to name of every buddy where status is available
if theList contains watchAccount then
-- response to let me know the bot sees me
if theCommand is not "missing value" then
set theLoop to true
else
set status message to "System Ready " & watchAccount
end if
if theLoop is true then
set theLoop to false
set status message to "System Ready " & watchAccount
end if
set theAway to the status message of buddy watchAccount
-- the triggers
if theCommand is not "Backup Server" then
if theAway contains "Backup Server" then
set theCommand to "Backup Server"
tell application "System Events"
set theResult to name of processes contains AppProc
if result is true then
tell application "iChat"
set status message to "Backing up Server"
set theSkip to true
end tell
else if result is false then
tell application "System Events"
do shell script "open -a /path/to/app/" & AppName
end tell
set theSkip to true
end if
end tell
end if
end if
if theCommand is not "Run Maintenance" then
if theAway contains "Run Maintenance" then
set theCommand to "Run Maintenance"
set status message to "Running Maintenance"
end if
end if
if theCommand is not "List Students" then
if theAway contains "List Students" then
set theCommand to "List Students"
set status message to "Listing Active Students"
set theResponse to do shell script "
serveradmin command afp:command=getConnectedUsers |
grep name | awk '{print $3}'"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Counting Students" then
if theAway contains "Counting Students" then
set theCommand to "Counting Students"
set status message to "Listing Counted Students"
set theResponse to do shell script "
serveradmin command afp:command=getConnectedUsers |
grep name | awk '{print $3}' | wc |awk '{print $1}'"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Who" then
if theAway contains "Who" then
set theCommand to "Who"
set status message to "List Who"
set theResponse to do shell script "who"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Get Hostname" then
if theAway contains "Get Hostname" then
set theCommand to "Get Hostname"
set status message to "Getting Host Name"
set theResponse to do shell script "
/System/Library/ServerSetup/serversetup -getHostname"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Get Rendevousname" then
if theAway contains "Get Rendevousname" then
set theCommand to "Get Rendevousname"
set status message to "Getting Rendevous Name"
set theResponse to do shell script "
/System/Library/ServerSetup/serversetup -getRendezvousname"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Get DefaultInfo" then
if theAway contains "Get DefaultInfo" then
set theCommand to "Get DefaultInfo"
set status message to "Getting Default Info"
set theResponse to do shell script "
/System/Library/ServerSetup/serversetup -getDefaultInfo"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Get DefaultDNSServer" then
if theAway contains "Get DefaultDNSServer" then
set theCommand to "Get DefaultDNSServer"
set status message to "Getting Default DNS Server Info"
set theResponse to do shell script "
/System/Library/ServerSetup/serversetup -getDefaultDNSServer"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Get Uptime" then
if theAway contains "Get Uptime" then
set theCommand to "Get Uptime"
set status message to "Getting Server Uptime"
set theResponse to do shell script "uptime"
send theResponse to buddy watchAccount
end if
end if
if theCommand is not "Triggers" then
if theAway contains "Triggers" then
set theCommand to "Triggers"
set status message to "Listing Triggers"
set trigger to "Triggers - this list"
set trigger1 to "Backup Server - Executes Backup_Server.app"
set trigger2 to "Run Maintenance - none"
set trigger3 to "List Students - Lists the active accounts"
set trigger4 to "Count Students - Counts # of active accounts"
set trigger5 to "Who - List of shell users"
set trigger6 to "Get Hostname - Get TCP/IP Hostname"
set trigger7 to "Get Rendevousname - Get Rendevous Hostname"
set trigger8 to "Get DefaultInfo - Get Default Network Info"
set trigger9 to "Get DefaultDNSServer- Get Default DNS Server Info"
set trigger10 to "Get Uptime - Get Server Uptime"
set theResponse to trigger & return & trigger1 & return & trigger2 & return & trigger3 & return & trigger4 & return & trigger5 & return & trigger6 & return & trigger7 & return & trigger8 & return & trigger9 & return & trigger10
send theResponse to buddy watchAccount
end if
end if
else
if name of window 1 contains "Instant Message" then
close window 1
end if
set status message to "I'm bored"
end if
end tell
end if
return theReturn
end idle

Answer 1

Yup! SSL is off. Still is! I test my Perl bot again to see what messages it was getting. It got the following:
Jul 3 20:09:33 server jabberd/c2s[51779]: [9] [192.168.1.17, port=57668] connect
Jul 3 20:09:33 server jabberd/c2s[51779]: GSSAPI Error: A required input parameter could not be read (No error)
Jul 3 20:09:33 server jabberd/c2s[51779]: [9] [192.168.1.17, port=57668] disconnect
PS: The forum is adding http:// to my log entries
Of course there's no guarantee the Perl script will do what I want if it does eventually connect!
Message was edited by: [email protected]