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 = \¬hing; 22$T2H_SECTION_NAVIGATION = 0; 23#$T2H_print_navigation = \¬hing; 24 25# Perl initialization file must end with the following instruction 26# that returns true, confirming the initialization completed 27# successfully. 281; 29