sub mainHeader{
print $q->header( -type => "text/html", -expires => "now" ),
$q->start_html( -title => "Your Title");
This has always worked for me. I don't know if will do everything for you.
-----Original Message-----
From: "Nick Malden"<[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Date: Wed Nov 20 06:02:05 PST 2002
Subject: Non-caching META-tags
>
>When writing HTML, the trick I normally use to ensure that images etc are
>definitely the latest version, and not the cached version, is the
>following:
>
><META http-equiv="Cache-Control" content="no-cache, must-revalidate">
><META http-equiv="Pragma: no-cache">
>
>I want to do the same thing in a page generated by perl/cgi, i.e something
>like:
>
>print $q->header,
> $q->start_html(-title=>'My new page',
> -meta=>{'http-equiv'=>'Cache-Control'
>'content'='no-cache,must-revalidate'})
> -meta=>{'http-equiv'=>'Pragma: no-cache'});
>
>but this gives
>
>String found where operator expected at test.pl line 20, near
>"'Cache-Control' 'content'"
>
>How does one get perl produce the equivalent of the META tags above?
>
>
>Nick
>
>_________________________________________________________________
>
>Nick Malden, Manchester Gruppe, DESY, Notkestrasse 85, 22607
>Hamburg.
>
>----------------------------------------------------------------
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
___________________________________________________
GO.com Mail
Get Your Free, Private E-mail at http://mail.go.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
