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. It would be nice if, in two weeks, you merged all the pics into one gif animation... 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
Sofie _______________________________________________ Binari Intellectuals Need And Require Insanity https://maillist.psb.ugent.be/mailman/listinfo/binari
-- ================================================================== Thomas Van Parys Tel:+32 (0)9 331 36 95 fax:+32 (0)9 3313809 VIB Department of Plant Systems Biology, Ghent University Technologiepark 927, 9052 Gent, BELGIUM thomas.vanparys@psb.ugent.be http://bioinformatics.psb.ugent.be ==================================================================