@@ -7,12 +7,14 @@ (set 'params (main-args)) (if (< (length params) 3) (begin - (println "USAGE: checksite.lsp url") + (println "USAGE: checksite.lsp url repeats") (exit) ) ) (set 'url (nth 2 params)) +; repeats - # of repeat alerts to send once an alert is tripped +(set 'repeats (nth 3 params)) (set 'startdate (date)) (println "----[ Sitebeagle is checking your site ]----") @@ -44,12 +46,17 @@ ; ; send the tweet ; -(tweet:dm (string "something changed: " snoopy:url)) -(println "something changed: " snoopy:url) -(println "startdate:") -(println startdate) -(println "enddate:") -(println (date)) - +(until (> iter (int repeats)) + (tweet:dm (string "sequnce (" (int iter) ") something changed: " snoopy:url)) + (println "sending tweet alert sequence: " (int iter)) + (println "something changed: " snoopy:url) + (println "startdate:") + (println startdate) + (println "enddate:") + (println (date)) + (inc iter) + (sleep 15000) + +) ; end until (exit) checksite.lsp b13347754c17e99fe176a70b3ad0b8d0f97c6206 barce jbarcelona@gmail.com http://github.com/barce/sitebeagle/commit/d1849420557b14ab0f79d19598cc2cf138fad2ba d1849420557b14ab0f79d19598cc2cf138fad2ba 2009-08-08T21:25:29-07:00 2009-08-08T21:25:29-07:00 sitebeagle will DM you every 15 seconds N times until you turn the alerts off e44d9f0b92fcab88edc1515f142c244b8f71ae52 barce jbarcelona@gmail.com