On Wed, 7 Jan 2009, Thomas Van Parys wrote:
Thomas Van Parys schreef:
Kenny Billiau schreef:
#!/usr/bin/perl
=head1 DESCRIPTION Kenish will be ready! Capture the skitrip webcam.
=cut
use strict; use LWP::Simple;
# init vars .. $| = 1; # please print to stdout even when the buffer is not full .. my $put_dir = "~/images/menuires/";
while (1) { my $content = get("http://www.trinum.com/ibox/menuires/Images/image_00001.jpg");
(my $date = localtime(time)) =~ s/ /_/g; print "$date\n";
open(OUT, '>', "$put_dir/$date.jpg") && do { print OUT $content; close OUT; };
sleep 600; # sleep 10 minutes }
Short evaluation learns us that the image probably refreshes every 20min.
Nevermind... it's 10min.
T.
It would be nice if, in two weeks, you merged all the pics into one gif animation...
That's possible of course. I'll start the script on midas as soon as you people leave :) Maybe make a visibly large enough letter so we can see it on the webcam .. one for each screenshot :) (so you don't have to wave for 10 minutes) ( B I N A R I ? ) -Kenny
T.
On Wed, 7 Jan 2009, Sofie Van Landeghem wrote:
*Waving!
Sofie Van Landeghem wrote:
http://www.trinum.com/ibox/menuires/Images/image_00001.jpg
We'll be having to you guys from there next week! :D
--