#!/pw/prod/svr4/perl/bin/perl -w
# 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; 
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 and make working tmp copies

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

closedir HTMLSTORIES;

##</code><code>##

Using perl 5.8.1-RC3 unless otherwise noted.
Apache/1.3.33 (Darwin) unless otherwise noted.
Mac OS X 10.3.9 unless otherwise noted.