#!/pw/prod/svr4/perl/bin/perl -w
ARGUMENTS:    engine_figurelinks.pl xx_manual_vvv
#             where xx = manual code, vvv = version
#
use warnings;
use diagnostics;
use Env qw(SERVER_NAME);
use CGI qw(:standard :netscape);
use File::Copy; 
new CGI;

($manualdir_param) = @ARGV;
$working_dir = $manualdir_param;
$working_dir =~ s/manualdir=//i;

$data_area = "/tmp";
$html_dir = "$data_area/$working_dir";

# Loop to locate HTML files, change permissions, and make working temporary copies

opendir( HTMLSTORIES, "$html_dir") || die "HTML files do not exist: $1";
        @FigureArray = grep{/\.htm$/} readdir ( HTMLSTORIES );
        foreach $figfile (@FigureArray) {
        copy ("$html_dir/$figfile", "$html_dir/$figfile.tmp") or die "Can not make temporary copy of file: $1";
        chmod 0600, "$html_dir/$figfile";
}

closedir HTMLSTORIES;

# Loop to do pattern search, create hash and insert links

opendir( HTMLSTORIES, "$html_dir") || die "HTML files do not exist: $1";
        @TmpArray = grep{/\.htm.tmp$/} readdir ( HTMLSTORIES );
        foreach $tmpfile (@TmpArray) {

my $figures = "$html_dir/$tmpfile" =~ /^(<IMG.*BR>)/ ... /(Figure\s+\W*)/i;
                print $figures;}

closedir HTMLSTORIES;