#!/usr/bin/perl #vul hier de locaties in van de joomla site(s): my @websites=qw(www.example.nl www.example.com); my $feedpath="administrator/components/com_datafeeds/cron/feedcron.php"; use LWP ; # Loads all important LWP classes, and makes # sure your version is reasonably recent. my $browser = LWP::UserAgent->new; @ns_headers = ( 'User-Agent' =>'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.3) Gecko/20070309', 'Referer'=>'http://shops.gryla.nl/uitleg.html' ); foreach $website (@websites) { print "$website\n"; my $response = $browser->get( "http://$website/$feedpath?showfeeds=1" , @ns_headers); if ($response->is_success) { $c=$response->content; foreach $line (split("\n",$c)) { if ($line =~ /Feed:(.*)/) { $update=$1; print "\n\nUpdate : $update \n"; my $response = $browser->get( "http://$website/$feedpath?feed=$update" , @ns_headers); print $response->content; sleep (10); #effe pauze } } } else { print "BOEBOE ". $response->code; } # deze ruimt dan de troep op my $response = $browser->get( "http://$website/$feedpath" ,@ns_headers); }