by denverrusty » Thu Aug 21, 2008 11:31 am
I wrote a PERL program that pulls up a PHP page that has the includes needed to dynamically generate the navigation. It works great.
Here is the PERL code for anyone else who needs to do this:
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30);
my $url = "http://yourdomain/shop/includes/dynamic_body.php";
my $header = HTTP::Request->new(GET => $url);
my $request = HTTP::Request->new('GET', $url, $header);
my $response = $agent->request($request);
if ($response->is_success){
print $response->content;
} else {
print '<FAILED></body></html>';
}