#!/usr/bin/perl
$config_path = "./";
$url_path = "/a-flow/";
$cgi_path = "/cgi-bin/a-flow/";
$pgm_path = "";
$config_file = "${config_path}runflow.ph";
$config_html = "${config_path}runflow.html";
$config_act = "${cgi_path}runflow";
$config_loc = "${url_path}runflow.html";
require "cgi_handlers.pl";
if(-e $config_file) {
require $config_file;
}
# Create HTML page
&get_request;
$maindir = $rqpairs{"maindir"};
$blocks = $rqpairs{"blocks"};
#system "htmlflow -v /quick/ /www/a-jh/useful/v7/v1.htm \\
# -i index.html \\
# Write status document as perl include file
open(PERL, ">$config_file");
print PERL qq!
\$maindir = "$maindir";
\$blocks = "$blocks";
1;
!;
close(PERL);
system "chmod a+rw $config_file $config_html";
$b_opt = "-b $blocks" if($blocks);
system "${pgm_path}htmlflow \\
-i index.html \\
$b_opt \\
-a ${config_path}runflow.ref \\
-e ${config_path}runflow.err \\
-f ${config_path}runflow.files \\
-m ${config_path}runflow.miss \\
-rh ${config_path}runflow.rpt.html \\
-d $maindir $maindir \\
>${config_path}runflow.std";
if($?) {
&html_header("Running HTMLflow error");
print "Unable to run HTMLflow on $maindir
";
print `cat ${config_path}runflow.std`;
print "Press BACK, correct directory problem and try again
";
&html_trailer;
exit 0;
}
for $suffix ( "ref", "err", "files",
"miss", "rpt.html", "std"
) {
$file = "${config_path}runflow.$suffix";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$nblocks)
= stat($file);
$sizes{$suffix} = $size;
if($size == 0) {
system qq!echo "$file is empty" >$file!;
}
}
open(HTML, ">$config_html");
select(HTML);
#&html_header("HTMLflow configuration page");
chop($pwd = `pwd`);
print qq!
HTMLflow configuration page
After running check, review these files
You may need to force re-load if you have changed the directory and re-run
the HTMLflow program. This files can be fairly large so notice the sizes on
the listing.
HTMLflow home page
!;
&html_trailer;
close(HTML);
system "chmod a+r ${config_path}runflow.ref ${config_path}runflow.err \\
${config_path}runflow.files ${config_path}runflow.miss \\
${config_path}runflow.rpt ${config_path}runflow.std";
select(STDOUT);
print "Location: $config_loc\n\n";