1if (defined($ENV{'GNUSTEP_WEB_ROOT'})) {
2  open(TMPL,"<$ENV{'GNUSTEP_WEB_ROOT'}/secondary.html.template");
3  $tmpl=join("",<TMPL>);
4  close(TMPL);
5  ($T2H_EXTRA_HEAD,$T2H_AFTER_BODY_OPEN,$T2H_PRE_BODY_CLOSE_BAD) =
6    ($tmpl=~/<\/title>(.*)<\/head>.*<body>(.*<div id="main">).*(<\/div><\/div>.*)<\/body>/sm);
7  }
8else {
9  # this is added inside <HEAD></HEAD> after <TITLE> and some META NAME stuff
10  # can be used for <style> <script>, <meta> tags
11  $T2H_EXTRA_HEAD = '<link rel="stylesheet" href="../gnustep-main.css"
12  type="text/css" />';
13  }
14
15######################################################################
16
17sub nothing
18{
19}
20
21$T2H_print_About = \&nothing;
22$T2H_SECTION_NAVIGATION = 0;
23#$T2H_print_navigation = \&nothing;
24
25# Perl initialization file must end with the following instruction
26# that returns true, confirming the initialization completed
27# successfully.
281;
29