#!/usr/bin/perl # updateCodeCoverageMasterIndex.pl {path to un-jarred documentation} # updateCodeCoverageMasterIndex.pl /var/www/html/development # This script will find all the project documentation's index.html # files, and create a top level 'master' for use with docserv. if (@ARGV != 1) { print "Usage:\n"; print "updateCodeCoverageMasterIndex.pl {path to un-jarred documentation}\n"; } else { #@indexFiles = `find $ARGV[0] -name "index.html"`; @projects = `ls $ARGV[0]`; if (@projects > 0) { # Create a file called "masterIndex.html" in the dest directory. if (open(MASTER_IDX_FILE, ">$ARGV[0]/masterCodeCoverageIndex.html")) { print MASTER_IDX_FILE < Sequence Logic Unit Test Code Coverage ENDOFHEADER print MASTER_IDX_FILE "

Projects

$project

ENDOFFOOTER close MASTER_IDX_FILE; } } }