#   ARGUMENTS:          engine_figurelinks.pl xx_manual_vvv
#                       where xx = manual code, vvv = version
#
#   MODIFICATIONS:
#
#----------------------------------------------------------------------

use warnings;
use diagnostics;
use Env qw(SERVER_NAME);
use CGI qw(:standard :netscape);
use File::Copy; # Perl supplied module for making copies
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 dirs do not exist: $1";
        @FigureArray = grep{/^(09)(\w{1,5})(00)$/} readdir ( HTMLSTORIES );
        foreach $FigFile (@FigureArray) {
                opendir( HTMSTORY, "$html_dir/$FigFile" ) || die "Files do not exist: $1";
                        @FileArray = grep{/a.htm$/} readdir ( HTMSTORY );
                        foreach $DirFile (@FileArray) {
                                copy ("$html_dir/$FigFile/$DirFile", "$html_dir/$FigFile/$DirFile.bak") or die "Can not make backup copy of file: $1";
                                chmod 0600, "$html_dir/$FigFile/$DirFile";
 
                while (< "$html_dir/$FigFile/$DirFile" >) {
                                $Figures = "$html_dir/$FigFile/$DirFile" =~ /(<IMG.*?BR>)...(Figure\d*)/i;
                                        print $Figures;
}
}
}
closedir HTMSTORY;
closedir HTMLSTORIES;