#!/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 } 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
--