contract_number =397011
member_id =000000003
start_date =10/01/2000
end_date =10/01/2000
Content-type: text/html


Error Summary Report:

No Errors in period
</TABLE>
<TABLE WIDTH=605 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD COLSPAN="3">&nbsp;</TD></TR>
<TR><TD COLSPAN="3" ALIGN=center><FORM NAME="Contract Query" METHOD="p
+ost" ACTION="D:/rsc/rscdetail2"><INPUT TYPE=HIDDEN NAME="prev_contrac
+t" VALUE="">
<INPUT TYPE=HIDDEN NAME="prev_start" VALUE="08/21/2001">
<INPUT TYPE=HIDDEN NAME="prev_end" VALUE="08/21/2001">
<INPUT TYPE=SUBMIT VALUE=Back></FORM></TD></TR>


runtime=0 second(s)
[download]

I suppose the next obvious question is "Did you get what you were expecting?" If you did, then there's no issue here. If you didn't, then I suppose you should try to isolate where in your code it's breaking (either through more prints or using the debugger) and then figure out why it's happening. If you cannot figure out the why, then post specific situations and ask for specific help. :)

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

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\">&nbsp;</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;
}
[download]