tell application "URL Access Scripting"
try
with timeout of intervalSeconds seconds
download thisImageSRC to destination_file replacing yes
end timeout
on error
set newError to true
try
set p to POSIX path of destination_file
do shell script "rm " & p
on error errMsg
log_event("ERROR: " & errMsg)
end try
end try
end tell
*)
--
if newError is false then
log_event("Collected Image: " & fileName1)
sendNotification("Image Creation", "Collected Image: " & fileName1)
else
log_event("Error fetching URL: " & thisImageSRC)
sendNotification("Error Alert", "Error fetching URL: " & thisImageSRC)
end if
--
return intervalSeconds
end idle

on quit
log_event("**********Terminating Application**********")
continue quit
end quit

-- Misc Functions
--
-- Logger
on log_event(themessage)
set theLine to (do shell script "date +'%Y-%m-%d %H:%M:%S'" as string) & " " & themessage
do shell script "echo " & theLine & " >> ~/Library/Logs/AppleScript-events.log"
end log_event
-- Test for Growl Application
on testGrowl()
tell application "System Events"
set isRunning to (count of (every process whose name is "GrowlHelperApp")) > 0
end tell
return isRunning
end testGrowl

on createGrowlPipe()
set test to testGrowl()
if test is true then
try
tell application "GrowlHelperApp"
set the allNotificationsList to {"Image Creation", "Error Alert"}
set the enabledNotificationsList to {"Image Creation", "Error Alert"}
register as application script_name all notifications allNotificationsList default notifications enabledNotificationsList icon of application "Collect IP Camera Images"
return true
end tell
end try
else
return false
end if
end createGrowlPipe

on sendNotification(notification, msg)
set test to testGrowl()
if test is true then
try
tell application "GrowlHelperApp"
notify with name notification title script_name description msg application name script_name
end tell
end try
end if
end sendNotification

on makeFileName()
set theDate to the current date
copy theDate to b
set the month of b to January
set monthNum to (1 + (theDate - b + 1314864) div 2629728)
if (monthNum < 10) then
set monthNum to "0" & (monthNum as string)
end if
set yearNum to the year of theDate
set dateNum to the day of theDate
if (dateNum < 10) then
set dateNum to "0" & dateNum
end if
set hourNum to the hours of theDate
if (hourNum < 10) then
set hourNum to "0" & hourNum
end if
set minuteNum to the minutes of theDate
if (minuteNum < 10) then
set minuteNum to "0" & minuteNum
end if
set secondNum to the seconds of theDate
if (secondNum < 10) then set secondNum to "0" & secondNum end if -- set theFileName to (yearNum as string) & (monthNum as string) & (dateNum as string) & (hourNum as string) & (minuteNum as string) & (secondNum as string) & ".jpg" return theFileName end makeFileName on chooseFolder() set theVar to (choose folder with prompt "Please choose a folder to save the images to.") as string return theVar end chooseFolder on enterUrl() set theIcon to note repeat display dialog "Please enter a camera URL:" default answer camUrl with icon theIcon set camUrl to text returned of result try if camUrl = "" then error exit repeat on error set theIcon to stop end try end repeat return camUrl end enterUrl on enterInterval() set theIcon to note repeat display dialog "Please enter a time interval in seconds (> 10):" default answer intervalSeconds with icon theIcon
set intervalSeconds to text returned of result
try
if intervalSeconds < 10 then error
set intervalSeconds to intervalSeconds as number
exit repeat
on error
set theIcon to stop
end try
end repeat
return intervalSeconds
end enterInterval