common mann...if i would have got what i wanted, i wouldn't ask a question here?
can u tell me how i would i convert that href ..name and value query string to normal staring, since the code is now on the local machine. I am not passing the values in name and values pair.
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;
}
|