#!/usr/bin/perl -s
use mp;
our($ind);
use strict;


my $dir = pop(@ARGV);

die ("$dir is not a directory\nUsage $0 dir files\n") unless(-d $dir);

if($ind){
  open(C,$ind) or die ("cant find Index $ind\n");
  open(F1,">$dir/_index.html") or die;
  while(<C>){ 
    if (/(.+):([^_].+):[12]/){
       print F1 "<li><a href='$1.bi.html'>$1.bi.html</a>\n";
       if( !(-f "$dir/$1.bi.html") || (-M $2) <= (-M "$dir/$1.bi.html")) {
           mp::hv2html($2,$dir,$1);}
       else { print "no changes in $1\n"; }}
  }
  close(F1)}
else { 
  for(@ARGV){mp::hv2html($_,$dir);}
}