1  #!/pw/prod/svr4/perl/bin/perl -w
 27  #   ARGUMENTS:  engine_figurelinks.pl xx_manual_vvv
 28  #               where xx = manual code, vvv = version
 29  #
 30  #   MODIFICATIONS:
 31  #
 32  #------------------------------------------------------
 33
 34  use warnings;
 35  use diagnostics;
 36  use Env qw(SERVER_NAME);
 37  use CGI qw(:standard :netscape);
 38  use File::Copy;     
 39  new CGI;
 40  #------------------------------------------------------
 41
 42  ($manualdir_param) = @ARGV;
 43  $working_dir = $manualdir_param;
 44  $working_dir =~ s/manualdir=//i;
 45
 46  $data_area = "/tmp";
 47  $html_dir = "$data_area/$working_dir";
 48
 49  #------------------------------------------------------
 50
 51  # Loop to locate HTML files and make working tmp copies
 52
 53  opendir( HTMLSTORIES, "$html_dir") || die "HTML files do not exist: $1";
 54          @FigureArray = grep{/\.htm$/} readdir ( HTMLSTORIES );
 55          foreach $figfile (@FigureArray) {
 56          copy ($figfile, "$1.tmp") or die "Can not make temporary copy of file: $1";
 57  }
 58           
 59  closedir HTMLSTORIES;
 60  #------------------------------------------------------