Need a Script (loading pic)

[Creatures]

i'm new in programming Perl so i cant do much (nearly nothing )

but i need a program which downloads once a day a pic from a site and save it on my server (so i dont have to hotlink the pic and i dont have to do it manually)

anyone knows how to program or where i could find one?

Creatures

[gothic]

What kind of server?
Is the pic always the same filename?

If filenames differ, is the surrounding code the same?

If you can supply the site with the picture you want to yank, I can give you a short program to do it.

[SpookyEddy]

If the filename and path is static you could just grab it with wget and set a cron job to run every day (or do something similar if its not a unix box). If you really want to use perl then I will gladly help if you describe the problem in more detail.

Regards

eddy

[Creatures]

it's always on the same place and same name

so anyone is a coder? i'm just too bad

Creatures

[gothic]

Heck, if it's the same place and same filename, you might as well follow Spooky's suggestion with using 'wget'. Assuming you are on a *nix OS.

'wget -q -t 3 -O yourfilename.png http://somedomain.com/somefile.png'

[gothic]

Now for the PERL code:
*edit* -- This code requires LWP, which you can get from cpan.org or if you are lucky enough to run Debian, you can get it from apt.. =]

#!/usr/bin/perl -w -T
my $file = "yourfile.png";
my $remotefile = "http://somedomain.com/somefile.png";


use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("PERLFoo/0.1 " . $ua->agent);
$result = "";

$doc = new HTTP::Request GET => $remotefile;
$doc->content_type('application/x-www-form-urlencoded');
$doc->content('match=www&errors=0');
$result = $ua->request($doc);

if ($result->is_success) {
 open TEMP, ">$file";
 print TEMP $result->content;
 close TEMP;
} else {
 print "Error downloading: $remotefile\n";
}

[Creatures]

ok gonna try out, thx for your coder skills

Creatures