Re: cgi application & global style sheet

you could do it in postrun:

sub cgiapp_postrun {
  my ($self, $output_ref) = @_;
  my $q = $self->query;

  $$output_ref = $q->start_html(
        -style=>
        {
            -type => 'text/css',
            -src=>'/styles/print.css',
            -rel => 'stylesheet',    
            -media => 'all'  
        } 
    )
    . $$output_ref;
}
[download]

Comment on Re: cgi application & global style sheet Download Code

Replies are listed 'Best First'.
Re^2: cgi application & global style sheet by arcnon (Monk) on Mar 02, 2006 at 19:48 UTC
your example creates 2 headers <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-U +S"> <head> <title>Untitled Document</title> <link rel="stylesheet" type="text/css" href="/styles/print.css" rel="s +tylesheet" media="all"/> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1 +" /> </head> <body> <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Maintain Users</title> </head> <body> [download]	[reply] [d/l]
Re^3: cgi application & global style sheet by rhesa (Vicar) on Mar 02, 2006 at 20:42 UTC
only if you already generated one in your run mode, and you didn't say you did. either way, i don't think you should be using CGI for generating html, but instead start looking at using templates. See HTML::Template or the Template Toolkit for that.	[reply]