Script Library: watch-various-webcams.r

Script Library: 1238 scripts

watch-various-webcams.r

REBOL [
    title: "Watch Various Webcams"
    date: 11-mar-2011
    file: %watch-various-webcams.r
    purpose: {
        Display video feeds from more than 130 live webcam servers.  
        The code used to gather the list of validated working cam URLs
        is also provided.
    }
]
view w: layout [
  i: image 320x240 
  text-list 320x200 data load http://re-bol.com/cams.txt [
    forever [
      set-face i load pick get-face face 1  wait 1
      if not viewed? w [quit]
    ]
  ]
]

; here's the code used to gather the list of validated working cam URLs:

repeat i 363 [append cams:[] rejoin [http://207.251.86.238/cctv i ".jpg"]]
bad-image: load http://207.251.86.238/cctv1.jpg
foreach cam cams [if bad-image <> load cam [print cam append c:[] cam]]
editor c
save ftp://user:%pass--url--com/public_html/cams.txt c

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(pass:url:com)