$title

package CGN_template; use DBD::mysql (); use Apache (); my $header_file = "/soldb/website/sgn/website_files/cgn/header.html"; my $footer_file = "/soldb/website/sgn/website_files/cgn/footer.html"; sub print_footer { open FOOTER_FILE, "<$footer_file" or print "!! Error, can not open CGN footer file ($!)\n"; print < EOF ; print ; print < EOF ; close FOOTER_FILE; } sub print_header { open HEADER_FILE, "<$header_file" or print "!! Error, can not open CGN header file ($!)\n"; #get server name my $r = Apache->request(); my $s = $r->server; my $hostname=$s->server_hostname; my ($title) = @_; #Content-Type: text/html\n\n print < $title EOF ; print ; print <

$title

EOF ; close HEADER_FILE; } return 1;