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.

open(TOP,"<top_list.txt") or die "ERROR: can't open \"top_list.txt\"\n";
while($line = <TOP>)  {
    chomp($line);
    length($line) > 0 and @top_list[$top_list++] = $line;
}

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

mkdir html;

foreach $file (@top_list)  {

    $fname = "<./" . $file . ".xml";
    open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
    $f_all = join "", <INF>;

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

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

    $_ = $f_all;
    /<meta *name="add_name_0" *content="(.*)"/ and $name = $1;

    $menu = "";
    foreach $f (@top_list)  {
        if ($f ne $file) {
            $tmp = "<a href=\"./" . $f . ".html\">" . $f . "</a><br />\n";
        } else {
            $tmp = "<b>" . $name . "</b>\n";
        }
        $menu = join "", $menu, $tmp;
    }

    $_ = $template;
    s/<!--ADDTITLE-->/$title/s;
    s/<!--ADDMENU-->/$menu/s;
    s/<!--ADDCONTENT-->/$body/s;

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

    close(OUT);
    close(INF);
}

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			open(TOP,"<top_list.txt") or die "ERROR: can't open \"top_list.txt\"\n";
9			while($line = <TOP>) {
10			chomp($line);
11			length($line) > 0 and @top_list[$top_list++] = $line;
12			}
13
14			open(TEMPL,"<template.xml") or die "ERROR: can't open \"template.xml\"\n";
15			$template = join "", <TEMPL>;
16
17			mkdir html;
18
19			foreach $file (@top_list) {
20
21			$fname = "<./" . $file . ".xml";
22			open(INF,$fname) or die "ERROR: can't open \"$fname\"\n";
23			$f_all = join "", <INF>;
24
25			$_ = $f_all;
26			/<body>(.*)<\/body>/s and $body = $1;
27
28			$_ = $f_all;
29			/<meta name="add_title" content="(.*)"/ and $title = $1;
30
31			$_ = $f_all;
32			/<meta name="add_name_0" content="(.*)"/ and $name = $1;
33
34			$menu = "";
35			foreach $f (@top_list) {
36			if ($f ne $file) {
37			$tmp = "<a href=\"./" . $f . ".html\">" . $f . "</a><br />\n";
38			} else {
39			$tmp = "<b>" . $name . "</b>\n";
40			}
41			$menu = join "", $menu, $tmp;
42			}
43
44			$_ = $template;
45			s/<!--ADDTITLE-->/$title/s;
46			s/<!--ADDMENU-->/$menu/s;
47			s/<!--ADDCONTENT-->/$body/s;
48
49			$out_name = ">./html/" . $file . ".html";
50			open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n";
51			print OUT $_;
52
53			close(OUT);
54			close(INF);
55			}
56