mitgcm.org/front_content/Assemble.pl

#! /usr/bin/env 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 (length($name1{$fm}) > 0) {
            $ind = "&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/env 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	if (length($name1{$fm}) > 0) {
59	$ind = "  ";
60	$name = $name1{$fm};
61	}
62	if (length($ind) > 0 and ($name0{$fm} ne $cname)) {
63	next;
64	}
65	if ($fm ne $file) {
66	$_ = $fm;
67	s/.xml/.html/;
68	$tmp = $ind . "<a href=\"./" . $_ . "\">" . $name . "</a><br />\n";
69	} else {
70	$tmp = $ind . "<b>" . $name . "</b><br />\n";
71	}
72	$menu = join "", $menu, $tmp;
73	}
74	$tmp = "<a href=\"./htdig\" />Search</a><br />\n";
75	$menu = join "", $menu, $tmp;
76
77	# Create the output
78	$_ = $template;
79	s/<!--ADDTITLE-->/$title/s;
80	s/<!--ADDMENU-->/$menu/s;
81	s/<!--ADDCONTENT-->/$body/s;
82	$content = $_;
83
84	$_ = $file;
85	s/.xml/.html/;
86	$out_name = ">./html/" . $_;
87	open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n";
88	print OUT $content;
89
90	close(OUT);
91	}
92	print " done\n";
93