#!/usr/bin/perl use HTML::Template; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); my $run = param('Run'); my $group = param('Groups'); $| = 1; $data_path = "/var/www/html/cgi_data/"; $html_root = "/"; $cgi_root = "/cgi-bin"; @alpha = ('A' .. 'Z'); print "Content-type: text/html\n\n"; print ""; print ""; print ""; print ''; print '
'; print "
"; print ''; print ''; print ''; my $i = 0; while ($i < $run) { print ''; $i++; } print ''; my $i = 0; while ($i < $run) { $i++; print qq{}; } print ""; print qq{}; my $i = 0; while ($i < $run) { $i++; print ''; } print ""; print ""; $rowsp = 1 + $group*4; my $i = 0; my $j = 0; print qq{"; while ($i < $run) { $i++; print qq{"; } my $i = 0; while ($i < ($group * 4)) { $i++; print qq{"; } my $i = 0; while ($i < ($group * 4)) { $i++; print ""; } print ''; my $i = 0; while ($i < $run) { $i++; print qq{}; } print ""; print "
  Test file name: Test $i
  Vault to Stress Test
    Name
    Max memory for JVM

}; while ($j < $group) { my $temp = $alpha[$j]; $j++; print qq{}; print ""; } print qq{}; #print ""; #print ""; print "
  Virtual User Analysis Engine

    Enterprise Group $temp users
      Average requests/min
      Average number fields/request
      % read/write/update

    Excel Users
      Excel files opened/hour
       Protected cell: average number/file
      % added/changed when saved


"; print "		}; my $j = 0; while ($j <= $group) { $j++; print ""; print ""; print ''; } print "



}; my $j = 0; while ($j <= $group) { $j++; print ""; print ""; print ''; } print "



  Run TPD Stress Test For:
"; print ""; print ""; print "";