lieven has asked for the wisdom of the Perl Monks concerning the following question:
########################################### User agent object aanmaken use LWP::UserAgent; use HTTP::Request; my $ua = LWP::UserAgent->new; my $request = HTTP::Request->new<br>('GET','http://www.telfort.nl/inc/ +headers/header_belmobiel.php'); my $response = $ua->request($request); my $header = $response->as_string(); ### Opschonen $header #my $headtemp; #($headtemp,$header)= split(/\!/,$header,2); #$header = "<!".$header; my $request = HTTP::Request->new<br>('GET','http://www.telfort.nl/inc/ +footers/footer_belmobiel.php'); my $response = $ua->request($request); my $footer = $response->as_string();
After this I open a Template to show the content.print "Cache-Control: no-cache\nPragma: no-cache\n"; ## caching tegen +te gaan (speciaal wegens proxy-servers) #print $cgi->header; print "Content-type: text/html\n\n"; #### header van telfort ##### print $header;
edited by ybiC: balanced <code> tags
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: cache problems
by liz (Monsignor) on Aug 14, 2003 at 14:38 UTC | |
|
Re: cache problems
by JPaul (Hermit) on Aug 14, 2003 at 15:57 UTC | |
|
Re: cache problems
by valdez (Monsignor) on Aug 14, 2003 at 17:09 UTC |