Actually, if that is what you want to do, then you don't want to use the
redirect header (whi is what CGI::redirect generates). A redirect header
will make the browser go to a different location from the requesed location
without actually ever loading any html into the browser. If you just want
to redirect the same page over and over again from the client side, you are
doing the right thing.
You can stuff it into your $q->start_html() call using syntax similar to:
-meta=>{'keywords'=>'pharaoh secret mummy',
'copyright'=>'copyright 1996 King Tut'},
Which I grabbed from:
http://www.perldoc.com/perl5.6.1/lib/CGI.html#CREATING-THE-HTML-DOCUMENT-HEA
DER
But you can get from your perldoc resource of choice (which seems to be the
command line version on this list).
An explicit example from some google search result:
print start_html(-title => "CNN Headline News",
-head => meta({-http_equiv => 'refresh',
-content => $REFRESH * 60}));
----- Original Message -----
From: "Jason Ostrom" <[EMAIL PROTECTED]>
To: "Adam Morton" <[EMAIL PROTECTED]>
Sent: Thursday, May 02, 2002 5:19 PM
Subject: Re[2]: Re-direct/Refresh question
> Adam,
>
> Thanks for your rapid response.
>
> How do I use the redirect method to redirect every 3 seconds or so?
> What is the syntax?
>
> -Jason
>
> Adam Morton> Perhaps you just want to use $q->redirect() ?
>
> Adam Morton> ----- Original Message -----
> Adam Morton> From: "Jason Ostrom" <[EMAIL PROTECTED]>
> Adam Morton> To: <[EMAIL PROTECTED]>
> Adam Morton> Sent: Thursday, May 02, 2002 5:02 PM
> Adam Morton> Subject: Re-direct/Refresh question
>
>
> >> Is there a more efficient way to do page re-directs / refreshes with
> >> CGI.pm? I've searched all over, and can't find the answer.
> >>
> >> Like if I'm trying to re-create this HTML:
> >> <html><head>
> >> <title>Blah Blah!!!!Refresh Test</title>
> >> <meta HTTP-EQUIV="Refresh" CONTENT="3; URL=refresh.html"> </head>
> >> <body>
> >>
> >>
> >> I use CGI.pm with the object-oriented interface, and I can't figure
> >> out how to put that refresh code in the Header; I'm trying to put it
> >> in to this:
> >>
> >> print $q->header( "text/html" ),
> >> $q->start_html( -title => " Blah Blah Blah", -bgcolor =>
> Adam Morton> "#ffffff" ),
> >> $q->h1( "Blah Blah" ),
> >> $q->p("Last Updated: $tm" ),
> >> $q->end_html;
> >>
> >> Or maybe I just need to use print with qq to do straight HTML, as in:
> >> print qq'<etc, etc, etc>' But I would like to use the object-oriented
> >> interface.
> >>
> >> Thanks in advance for your help.
> >> -Jason
> >>
> >>
> >> --
> >> To unsubscribe, e-mail: [EMAIL PROTECTED]
> >> For additional commands, e-mail: [EMAIL PROTECTED]
> >>
> >>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
