sub printAccessLog { &PrintContract; if ($totalEntries != 0) { print RSCrpt "Log Stats for $startMonth/$startDay/$longStartYe +ar to $endMonth/$endDay/$longEndYear\n"; print RSCrpt "TESTING = " . $startMonth . $startDay . longStartYea +r . "\n"; print RSCrpt "Average CGI response time by page name:\n"; print RSCrpt "\n"; # print "<TR><TD ALIGN=\"left\"><U>Page Name</U></TD><TD ALIGN= +\"center\"><U>Average Response Time<BR>in seconds</U></TD><TD ALIGN=\ +"center\"><U>Page Accesses</U></TD></TR>\n"; print RSCrpt "Page Name Page Accesses\n"; # sub avgrsp_pg_by_value {$avgRspTimePg{$b} <=> $avgRspTimePg{$ +a} } # @keypg = sort avgrsp_pg_by_value keys(%avgRspTimePg); sub avgrsp_pg_by_value {$pageCount{$b} <=> $pageCount{$a} } @keypg = sort avgrsp_pg_by_value keys(%pageCount); foreach(@keypg) { $prevValue = $contract_number; # printf "<TR><TD ALIGN=\"left\"><A HREF=\"$cgi\?contract_n +umber=$prevValue&member_id=$memberID&start_date=$startMonth$startDay$ +longStartYear&end_date=$endMonth$endDay$longEndYear&search_page=%s\"> +%s</A></TD><TD ALIGN=\"center\">%-23.3f</TD><TD ALIGN=\"center\">%s</ +TD></TR>\n", $_, $_, $avgRspTimePg{$_}, $pageCount{$_}; printf RSCrpt "<TR><TD ALIGN=\"left\"><A HREF=\"$cgi\?cont +ract_number=$prevValue&member_id=$memberID&start_date=$startMonth$sta +rtDay$longStartYear&end_date=$endMonth$endDay$longEndYear&search_page +=%s\">%s</A></TD><TD COLSPAN=\"2\" ALIGN=\"center\">%s</TD></TR>\n", +$_, $_, $pageCount{$_}; } print RSCrpt "<TR><TD COLSPAN=\"3\"> </TD></TR>\n"; # $avgRspTimeFile = $totalRspTime / $totalEntries; # printf "<TR><TD COLSPAN=\"3\" ALIGN=\"left\">Average CGI resp +onse time = %.3f</TD></TR>\n", $avgRspTimeFile; printf RSCrpt "Total Mainframe Calls = %s\n", $mfcalls; if (!$memberBoolean) { @IDs = keys(%uniqueIds); $length = @IDs; printf RSCrpt "Total Unique IDs = %s\n", $length; } # print RSCrpt "</TABLE>\n"; } else { print RSCrpt "TESTING = total_entries = " . $totalEntries . "\n"; return 0; } print RSCrpt "TESTING != total_entries = " . $totalEntries . "\n"; + return 1; }
In reply to Re: Re: Re: Use your brain before trying to use mine!
by Anonymous Monk
in thread passing parameters??
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |