Horas and konnichiwa untuk semua

(* set the_file to (((path to desktop) as string) & "test.txt") as file specification *)

set observationperiod to 240 -- period in minutes
set delprevdb to 1 -- delete previous database when set to 1

set loc to space & "~/desktop/FBTestDB.db" & space
set head to "sqlite3" & loc & quote
set tail to quote
set tblName to "facebook"

if delprevdb is 1 then
set newTbl to "drop table if exists " & tblName & "; create table " & tblName & "(id, dispname, totalminutes,network,firstonline,lastonline); "
do shell script head & newTbl & tail
--display dialog "Table created"
end if

tell application "GrowlHelperApp"
set the allNotificationsList to ¬
{"Facebook stat", "Another Test Notification"}

set the enabledNotificationsList to ¬
{"Facebook stat"}

register as application ¬
"adiumpoll" all notifications allNotificationsList ¬
default notifications enabledNotificationsList ¬
icon of application "Script Editor"
end tell

tell application "Adium"

set counter to 0
repeat observationperiod times

set d to (current date)
set polledtime to "" & year of d & "/" & (month of d as integer) & "/" & day of d & " " & hours of d & ":" & minutes of d & ":" & seconds of d

set counter to counter + 1
set notificationmsg to "Polling no." & counter & (ASCII character 10) & "Time: " & polledtime

tell application "GrowlHelperApp"
-- Send a Notification...
notify with name ¬
"Facebook stat" title ¬
"Polling round" description ¬
notificationmsg application name "adiumpoll"

end tell

set alluserlist to display name of every contact of second account
set userlist to display name of every contact of second account whose status type is not offline

set users to ""
set onlineusers to ""

repeat with user in alluserlist

repeat with onlineuser in userlist

if onlineuser contains user then
set userstatus to 1
set onlineusers to onlineusers & onlineuser & (ASCII character 10)

set query to "select totalminutes from " & tblName & " where dispname='" & onlineuser & "'; "
set totalminutes to do shell script head & query & tail

--display dialog "query: " & query & ", result: " & totalminutes

if totalminutes is not "" then
--display dialog "totalminutes is not empty, " & totalminutes
set totalminutes to totalminutes + 1
set query to "update " & tblName & " set totalminutes=" & totalminutes & ",lastonline='" & polledtime & "' where dispname='" & onlineuser & "'"
--display dialog "query : " & query
else
--display dialog "totalminutes is empty, " & totalminutes
set totalminutes to 0
set query to "insert into " & tblName & " values('','" & onlineuser & "', '" & totalminutes & "','','" & polledtime & "',''); "
--display dialog "query : " & query
end if

do shell script head & query & tail

--display dialog "User: " & onlineuser & ", Total min: " & totalminutes

exit repeat -- found a match with online user list, so exit repeat
else
set userstatus to 0
end if
end repeat

--set users to users & userstatus & ","
end repeat

tell application "GrowlHelperApp"
notify with name ¬
"Facebook stat" title ¬
"Friends online" description ¬
onlineusers application name "adiumpoll"

end tell

set users to (polledtime & "," & users & (ASCII character 10))

(*
try
open for access the_file with write permission
--set eof of the_file to 0
write (users) to the_file starting at eof
close access the_file
on error
try
close access the_file
end try
end try

• )

tell application "GrowlHelperApp"
notify with name ¬
"Facebook stat" title ¬
"Delay" description ¬
"Delaying for 60 seconds" application name "adiumpoll"

end tell

delay 60 -- in seconds
end repeat
display dialog "Finished."

end tell