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]