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;&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	edhill	1.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	edhill	1.2	$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	edhill	1.1
15			open(TEMPL,"<template.xml") or die "ERROR: can't open \"template.xml\"\n";
16			$template = join "", <TEMPL>;
17
18	edhill	1.2	system("rm -rf html");
19			system("mkdir html");
20	edhill	1.1
21	edhill	1.2	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	edhill	1.1
36	edhill	1.2	print "Generating XHTML ...";
37			foreach $file (@flist) {
38
39			$fname = "<" . $topdir . "/" . $file;
40	edhill	1.1	open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
41			$f_all = join "", <INF>;
42	edhill	1.2	close(INF);
43	edhill	1.1
44	edhill	1.2	# Get the body
45	edhill	1.1	$_ = $f_all;
46			/<body>(.*)<\/body>/s and $body = $1;
47
48	edhill	1.2	# Get the title
49	edhill	1.1	$_ = $f_all;
50			/<meta name="add_title" content="(.*)"/ and $title = $1;
51
52	edhill	1.2	# Create the menu
53			$cname = $name0{$file};
54	edhill	1.1	$menu = "";
55	edhill	1.2	foreach $fm (@flist) {
56			$ind = "";
57			$name = $name0{$fm};
58			if (length($name1{$fm}) > 0) {
59	edhill	1.3	$ind = "   ";
60	edhill	1.2	$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	edhill	1.1	} else {
70	edhill	1.2	$tmp = $ind . "<b>" . $name . "</b><br />\n";
71	edhill	1.1	}
72			$menu = join "", $menu, $tmp;
73			}
74	edhill	1.2	$tmp = "<a href=\"./htdig\" />Search</a><br />\n";
75			$menu = join "", $menu, $tmp;
76	edhill	1.1
77	edhill	1.2	# Create the output
78	edhill	1.1	$_ = $template;
79			s/<!--ADDTITLE-->/$title/s;
80			s/<!--ADDMENU-->/$menu/s;
81			s/<!--ADDCONTENT-->/$body/s;
82	edhill	1.2	$content = $_;
83	edhill	1.1
84	edhill	1.2	$_ = $file;
85			s/.xml/.html/;
86			$out_name = ">./html/" . $_;
87	edhill	1.1	open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n";
88	edhill	1.2	print OUT $content;
89	edhill	1.1
90			close(OUT);
91			}
92	edhill	1.2	print " done\n";
93	edhill	1.1