view release on metacpan or  search on metacpan

HTML.pm  view on Meta::CPAN

    
    print $t; 

}

sub disp_header {
  my ($s, $q, $ar, $prt, $add_ct) = @_;

  my $ck = (exists $ar->{_cookie} && $ar->{_cookie} 
           && ref($ar->{_cookie}) =~ /^ARRAY/ ) ? $ar->{_cookie} : [];
  # for my $i (0..$#$ck) { my $c = $ck->[$i]; print "Set-Cookie: $c\n";  } 
  
  my $f_ma = "  <meta name=\"%s\" content=\"%s\" />\n";
  my $f_ss = "  <link rel=\"stylesheet\" type=\"text/css\" href=\"%s\" />\n";
  my $f_sc = "<script src=\"%s\" type=\"text/javascript\"></script>\n";
  my $f_s2 = "<script type=\"text/javascript\">\n%s\n</script>\n";
  my $f_bs = "  <base href=\"%s\" target=\"%s\" />\n";

  my $vs = 'cgi_script,home_url,HomeLoc';
  my ($cgi,$home_url,$home_loc) = $s->get_params($vs, $ar); 
     $cgi = $home_url if ! $cgi;