mitgcm.org/front_content/Assemble.pl

#! /usr/bin/perl

#  Ed Hill
#  Tue Dec  2 20:17:27 EST 2003

#  Assemble the web pages from XML files.

$topdir = ".";
$file_list = $topdir . "/order.txt";
open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n";
$_ = join(" ", <ORDER>);
s/\n//s;
@flist = split(" ", $_);

open(TEMPL,"<template.xml") or die "ERROR: can't open \"template.xml\"\n";
$template = join "", <TEMPL>;

system("rm -rf html");
system("mkdir html");

print "Parsing files ...  ";
foreach $file (@flist) {
    $fname = $topdir . "/" . $file;
    open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
    $all = join "", <INF>;
    $_ = $all;
    /<meta *name="add_name_0" *content="(.*)"/  and $k0 = $1;
    $_ = $all;
    /<meta *name="add_name_1" *content="(.*)"/ and $k1 = $1;
    $name0{$file} = $k0;
    $name1{$file} = $k1;
    close(INF);
}
print "  done\n";

print "Generating XHTML ...";
foreach $file (@flist) {
    
    $fname = "<" . $topdir . "/" . $file;
    open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
    $f_all = join "", <INF>;
    close(INF);

    #  Get the body
    $_ = $f_all;
    /<body>(.*)<\/body>/s and $body = $1;

    #  Get the title
    $_ = $f_all;
    /<meta *name="add_title" *content="(.*)"/ and $title = $1;

    #  Create the menu
    $cname = $name0{$file};
    $menu = "";
    foreach $fm (@flist) {
        $ind = "";
        $name = $name0{$fm};

#       if ($name eq "Documentation") {
#           $tmp = "<a href=\"http://eddy.csail.mit.edu/r2/latest/\">"
#               . "Documentation</a><br />\n";
#           $menu = join "", $menu, $tmp;
#           next;
#       }

        if (length($name1{$fm}) > 0) {
            $ind = "&nbsp;&nbsp;&nbsp;";
            $name = $name1{$fm};
        }
        if (length($ind) > 0 and ($name0{$fm} ne $cname)) {
            next;
        }
        if ($fm ne $file) {
            $_ = $fm;
            s/.xml/.html/;
            $tmp = $ind . "<a href=\"./" . $_ . "\">" . $name . "</a><br />\n";
        } else {
            $tmp = $ind . "<b>" . $name . "</b><br />\n";
        }
        $menu = join "", $menu, $tmp;
    }
    # $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
    # $menu = join "", $menu, $tmp;

    #  Create the output
    $_ = $template;
    s/<!--ADDTITLE-->/$title/s;
    s/<!--ADDMENU-->/$menu/s;
    s/<!--ADDCONTENT-->/$body/s;
    $content = $_;

    $_ = $file;
    s/.xml/.html/;
    $out_name = ">./html/" . $_;
    open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n";
    print OUT $content;

    close(OUT);
}
print "  done\n";

1	#! /usr/bin/perl
2
3	# Ed Hill
4	# Tue Dec 2 20:17:27 EST 2003
5
6	# Assemble the web pages from XML files.
7
8	$topdir = ".";
9	$file_list = $topdir . "/order.txt";
10	open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n";
11	$_ = join(" ", <ORDER>);
12	s/\n//s;
13	@flist = split(" ", $_);
14
15	open(TEMPL,"<template.xml") or die "ERROR: can't open \"template.xml\"\n";
16	$template = join "", <TEMPL>;
17
18	system("rm -rf html");
19	system("mkdir html");
20
21	print "Parsing files ... ";
22	foreach $file (@flist) {
23	$fname = $topdir . "/" . $file;
24	open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
25	$all = join "", <INF>;
26	$_ = $all;
27	/<meta name="add_name_0" content="(.*)"/ and $k0 = $1;
28	$_ = $all;
29	/<meta name="add_name_1" content="(.*)"/ and $k1 = $1;
30	$name0{$file} = $k0;
31	$name1{$file} = $k1;
32	close(INF);
33	}
34	print " done\n";
35
36	print "Generating XHTML ...";
37	foreach $file (@flist) {
38
39	$fname = "<" . $topdir . "/" . $file;
40	open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
41	$f_all = join "", <INF>;
42	close(INF);
43
44	# Get the body
45	$_ = $f_all;
46	/<body>(.*)<\/body>/s and $body = $1;
47
48	# Get the title
49	$_ = $f_all;
50	/<meta name="add_title" content="(.*)"/ and $title = $1;
51
52	# Create the menu
53	$cname = $name0{$file};
54	$menu = "";
55	foreach $fm (@flist) {
56	$ind = "";
57	$name = $name0{$fm};
58
59	# if ($name eq "Documentation") {
60	# $tmp = "<a href=\"http://eddy.csail.mit.edu/r2/latest/\">"
61	# . "Documentation</a><br />\n";
62	# $menu = join "", $menu, $tmp;
63	# next;
64	# }
65
66	if (length($name1{$fm}) > 0) {
67	$ind = "   ";
68	$name = $name1{$fm};
69	}
70	if (length($ind) > 0 and ($name0{$fm} ne $cname)) {
71	next;
72	}
73	if ($fm ne $file) {
74	$_ = $fm;
75	s/.xml/.html/;
76	$tmp = $ind . "<a href=\"./" . $_ . "\">" . $name . "</a><br />\n";
77	} else {
78	$tmp = $ind . "<b>" . $name . "</b><br />\n";
79	}
80	$menu = join "", $menu, $tmp;
81	}
82	# $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
83	# $menu = join "", $menu, $tmp;
84
85	# Create the output
86	$_ = $template;
87	s/<!--ADDTITLE-->/$title/s;
88	s/<!--ADDMENU-->/$menu/s;
89	s/<!--ADDCONTENT-->/$body/s;
90	$content = $_;
91
92	$_ = $file;
93	s/.xml/.html/;
94	$out_name = ">./html/" . $_;
95	open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n";
96	print OUT $content;
97
98	close(OUT);
99	}
100	print " done\n";
101