mirror of
https://github.com/gnustep/tools-make.git
synced 2025-04-22 22:00:49 +00:00
4f47d8c4df
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/tools/make/trunk@28707 72102866-910b-0410-8b05-ffd578937521
28 lines
879 B
Text
28 lines
879 B
Text
if (defined($ENV{'GNUSTEP_WEB_ROOT'})) {
|
|
open(TMPL,"<$ENV{'GNUSTEP_WEB_ROOT'}/secondary.html.template");
|
|
$tmpl=join("",<TMPL>);
|
|
close(TMPL);
|
|
($T2H_EXTRA_HEAD,$T2H_AFTER_BODY_OPEN,$T2H_PRE_BODY_CLOSE_BAD) =
|
|
($tmpl=~/<\/title>(.*)<\/head>.*<body>(.*<div id="main">).*(<\/div><\/div>.*)<\/body>/sm);
|
|
}
|
|
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" />';
|
|
}
|
|
|
|
######################################################################
|
|
|
|
sub nothing
|
|
{
|
|
}
|
|
|
|
$T2H_print_About = \¬hing;
|
|
$T2H_SECTION_NAVIGATION = 0;
|
|
#$T2H_print_navigation = \¬hing;
|
|
|
|
# Perl initialization file must end with the following instruction
|
|
# that returns true, confirming the initialization completed
|
|
# successfully.
|
|
1;
|