2004-04-13 02:40:25 +00:00
|
|
|
if (defined($ENV{'GNUSTEP_WEB_ROOT'})) {
|
|
|
|
|
open(TMPL,"<$ENV{'GNUSTEP_WEB_ROOT'}/secondary.html.template");
|
|
|
|
|
$tmpl=join("",<TMPL>);
|
|
|
|
|
close(TMPL);
|
2004-10-18 15:32:39 +00:00
|
|
|
($T2H_EXTRA_HEAD,$T2H_AFTER_BODY_OPEN,$T2H_PRE_BODY_CLOSE_BAD) =
|
2004-07-10 03:07:56 +00:00
|
|
|
($tmpl=~/<\/title>(.*)<\/head>.*<body>(.*<div id="main">).*(<\/div><\/div>.*)<\/body>/sm);
|
2004-04-13 02:40:25 +00:00
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
# this is added inside <HEAD></HEAD> after <TITLE> and some META NAME stuff
|
|
|
|
|
# can be used for <style> <script>, <meta> tags
|
|
|
|
|
$T2H_EXTRA_HEAD = '<link rel="stylesheet" href="../gnustep-main.css"
|
|
|
|
|
type="text/css" />';
|
|
|
|
|
}
|
2004-02-12 04:36:45 +00:00
|
|
|
|
|
|
|
|
######################################################################
|
|
|
|
|
|
2004-04-13 02:40:25 +00:00
|
|
|
sub nothing
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$T2H_print_About = \¬hing;
|
|
|
|
|
$T2H_SECTION_NAVIGATION = 0;
|
2004-10-29 22:55:43 +00:00
|
|
|
#$T2H_print_navigation = \¬hing;
|
2009-09-19 07:56:15 +00:00
|
|
|
|
|
|
|
|
# Perl initialization file must end with the following instruction
|
|
|
|
|
# that returns true, confirming the initialization completed
|
|
|
|
|
# successfully.
|
|
|
|
|
1;
|
