#!/usr/bin/perl

# Search for BEGIN NAV and END NAV markers
# and insert the output of navbar.sh in between.

# 1. read entire index.html into variable
# 2. read new navbar from command shell
# 3. string replace pattern
# 4. overwrite index.html

# 1. read entire index.html into variable

open INDEX, "<index.html";
$index = <INDEX>;
while (!eof(INDEX))
{
	$index .= <INDEX>;
}
close INDEX;

# 2. read new navbar from command shell

open CMD, "/bin/sh ./navbar.sh<index.html|sort|";
$nav = <CMD>;
while (!eof(CMD))
{
	$nav .= <CMD>;
}
close CMD;

# remove trailing |
$nav =~ s/\|\s*$/\n/;

# 3. string replace pattern
#$index =~ s/Nav:\s\[.*?\]/Nav: [ $nav]/s;
$index =~ s/BEGIN NAV\:--\>.*?\<!--END NAV/BEGIN NAV\:--\>$nav\<!--END NAV/s;

# 4. overwrite index.html
open INDEX, ">index.html" or die "unable to open index.html for writing: $!";
print INDEX $index;
close INDEX;