#! /usr/local/bin/perl

#############################################################################
# 
#############################################################################
#  
#   GLOBAL VARIABLES {
#
#############################################################################
$base=$ENV{"PWD"};
#$dirname=($ARGV[0]) ? &base."/".$ARGV[0]: $base ;
$dirname= $base ;
$urlbase=($ARGV[0]) ? $ARGV[1]: "";
print "URL BASE:$urlbase\n";
#############################################################################
#  
#   MAIN FUNCTION
#
#############################################################################
# Set up the debuging flag.


&EXECUTE;

#############################################################################
#  
#   SUBROUTINES
#
#############################################################################
sub EXECUTE {
	&scanDir($dirname);
    }

##############################################################################
#  scanFile: process each file in the directory
#
##############################################################################
sub scanDir {
    local($dn)=@_;
    opendir(DIR, $dn) || die "no dir $dn";
    #print OUT "<form ACTION=$action">
    #print OUT "<INPUT type=hidden name=\"img\" value=\"\">";
    while ($fn=readdir(DIR)) {
	if (($fn =~ /html\b|htm\b/) && !( $fn =~/\bwithfigures/) ) {&processFile($fn);}
    }
    #print OUT "</form>";
    closedir(DIR);

}

sub processFile {
    local($fn)=@_;
      open(IN, $fn) || die "no ";
      open(OUT, ">withfigures_$fn");
      print "$fn ";
      print OUT  "<base href=\"$urlbase\">"; 
    while (<IN>) {
	$s=$_;
	$s =~ s/<A HREF=\"javascript\:popUp\(\'(.*)\'\)(.*)<\/A> /<img src=\"$1$2/g;
	print OUT  "$s"; 
    }
close(OUT);
close(IN);

}

#
##############################################################################
#
# Results
#
##############################################################################
