Hi Cory, Yes, the option is turned on and the error msg I get was in the first mail. The browser thinks its an xml file and complaints that it can't parse the xml style sheet. This is the case with the non IE browsers as well.
############################# ERROR MSG In the browser : ############################# The XML page cannot be displayed Cannot view XML input using XSL style sheet. Please correct the error and then click the Refresh button, or try again later. ---------------------------------------------------------------------------- ---- A declaration was not closed. Error processing resource 'http://dbainet/cgi-bin/graphpvt.cgi'. Line 1, Position 1 Thanks Bal. -----Original Message----- From: Cory Trese [mailto:[EMAIL PROTECTED]] Sent: Monday, May 13, 2002 12:54 PM To: [EMAIL PROTECTED] Subject: RE: [cgiapp] CGI Error [Solved!!] I've seen this error before. Do you have 'friendly error messages' turned on in your IE settings? What is the output with this option off or with another non-IE browser? ... > -----Original Message----- > From: Sabherwal, Balvinder (MBS) > [mailto:[EMAIL PROTECTED]] > Sent: Monday, May 13, 2002 12:43 PM > To: 'Jesse Erlbaum'; [EMAIL PROTECTED] > Subject: RE: [cgiapp] CGI Error [Solved!!] > > > Hi Jesse, > > I checked my code and couldn't find anything wrong in it. I don't know why > the browser thinks it's and xml where as I am printing HTML all across the > script. I am attaching the script herewith as well. If you or > anyone on this > list finds the bug, pls. let me know. > > Thanks > Bal. > > > ################# SCRIPT ########################## > > package perfmonpvt; > use base 'CGI::Application'; > use strict; > use Sybase::CTlib; > > sub setup { > my $self = shift; > $self->start_mode('mode1'); > $self->run_modes( > 'mode1' => 'showsrvrs', > 'mode2' => 'showdetails' > ); > } > > sub teardown { > my $self = shift; > } > > sub showsrvrs { > my $self = shift; > # Get CGI query object > my $q = $self->query(); > my $dbh = Sybase::CTlib->ct_connect('perfmon', 'perfmon_ps', > 'SYB_NJ6'); ## Connect to the server. > $dbh->ct_sql('use perfmondb'); > > my $output = ''; > > if($dbh eq undef) > { > $output .= $q->start_html(); > $output .= $q->blockquote("<h1>Connection to server failed. </h1>"); > $output .= $q->blockquote("This could be due to an invalid Login > Name,Password,Server Name."); > $output .= $q->blockquote("If you feel all of these are correct, then > pls check of the server is running and your login is not locked."); > $output .= $q->blockquote("Still if you can't connect, Pls check you > interfaces of sql.ini files."); > $output .= $q->end_html(); > return $output; > exit 0; > } > my @srvrs; > my $app= $dbh->ct_sql('select Name from Servers'); > > foreach my $row (@$app) { > foreach my $col (@$row) { > push(@srvrs,$col); > } > } > > > $output .= $q->start_html(-title => 'Sysmon Details'); > $output .= $q->blockquote($q->strong("<h1>Check Sysmon > Details</h1>")); > $output .= $q->start_form(); > { > local($") = ''; > $output .= $q->blockquote("Select Server : ", > $q->popup_menu(-name=> 'srv', -values =>\@srvrs)); > } > { > local($") = ''; > $output .= $q->blockquote("Select Item(s) : ", > $q->checkbox_group(-name=> 'opt', -values =>['CPU > Busy','TPS','Deadlocks','IUD','Switches','Locks','Spinlock'], > > -default => 'CPU Busy' > > )); > } > { > local($") = ''; > $output .= $q->blockquote("Start Date : ", > $q->textfield(-name=> 'sdt')," Format: mmm dd yyyy or mm/dd/yyyy"); > } > { > local($") = ''; > $output .= $q->blockquote("End Date : ", > $q->textfield(-name=> 'edt')," Format: mmm dd yyyy or mm/dd/yyyy"); > } > { > local($") = ''; > $output .= $q->blockquote("Show Data Values : ", > $q->radio_group(-name=> 'gv', -values =>['Yes','No'], > > -default => 'Yes' > > )); > } > { > local($") = ''; > $output .= $q->hidden(-name => 'rm', -value => 'mode2', -override=>1 > ); > } > { > local($") = ''; > $output .= $q->submit("View Report"); > } > $output .= $q->end_form(); > $output .= $q->end_html(); > return $output; > } > > > sub showdetails { > my $self = shift; > #Get CGI query object > my $q = $self->query(); > my $srv = $q->param("srv"); > my @opt = $q->param("opt"); > my $sdt = $q->param("sdt"); > my $edt = $q->param("edt"); > my $gv = $q->param("gv"); > my $block = ""; > > my $output = ''; > > foreach my $o (@opt) > { > $block = "$block"." '$o',"; > } > $block = substr($block, 0, length($block) - 1); > > my $cmde = "exec perfmondb..proc_sysmon_crosstab > '$srv','$sdt','$edt', $block " ; > > my $dbh = Sybase::CTlib->ct_connect('perfmon', 'perfmon_ps', > 'SYB_NJ6'); ## Connect to the server. > > $output .= $q->start_html(-title => 'Sysmon Details'); > > if($dbh eq undef) > { > $output .= $q->blockquote("<h1>Connection to server failed. </h1>"); > $output .= $q->blockquote("This could be due to an invalid Login > Name,Password,Server Name."); > $output .= $q->blockquote("If you feel all of these are correct, > then pls check of the server is running and your login is not locked."); > $output .= $q->blockquote("Still if you can't connect, Pls check you > interfaces of sql.ini files."); > $output .= $q->end_html(); > return $output; > exit 0; > } > $dbh->ct_sql("use perfmondb"); > > my (@dr,$ret); > > $dbh->ct_execute($cmde); > > $output .= $q->blockquote("<h1>Check Sysmon Details</h1>"); > $output .= $q->blockquote("Selected Server : $srv"); > $output .= $q->blockquote("Selected Report : $block"); > $output .= $q->start_form(); > $output .= $q->hidden(-name => 'rm', -value => 'mode1', > -override=>1); > $output .= $q->submit("Next Report"); > $output .= $q->end_form(); > > > my (@dt,@cpu,@tps); > > $output .= "<TABLE cellSpacing=0 cellPadding=0 width='100%' > border=1> <TBODY> <TR>"; > > while($dbh->ct_results($ret) == CS_SUCCEED) { > next unless $dbh->ct_fetchable($ret); > my @cols=$dbh->ct_col_names(); > > foreach my $kv (@cols) { > $output .= "<TD> <P > align=center><STRONG>$kv</STRONG></P></TD>" unless($kv eq "COL\(1\)"); > } > > $output .= "</TR>"; > while(@dr = $dbh->ct_fetch) { > push(@dt,@dr[1]); > push(@cpu,@dr[3]); > push(@tps,@dr[4]); > # push(@data,$dr) unless($dr eq "0" && $dr == 0); > foreach (@dr) { > $output .= "<TD> <P align=center> $_ </P></TD>"; > } > $output .= "</TR>"; > } > $output .= "</TR>"; > } > > > $output .= "</TR> </TBODY></TABLE>"; > > ####################### START GRAPH HERE > ################################################# > > use GD::Graph; > use CGI qw(:standard); > use GD::Graph::lines; > > my @gdata = ( > [ @dt ], > [ @cpu ], > [ @tps ] > ); > > > my $graph = GD::Graph::lines->new(900, 500); > > my @leg = split("\,",$block); > $graph->set_legend(@leg); > > $graph->set_values_font('c:\winnt\fonts\arial.ttf',12); > $graph->set_x_label_font('c:\winnt\fonts\arial.ttf',12); > $graph->set_y_label_font('c:\winnt\fonts\arial.ttf',12); > $graph->set_x_axis_font('c:\winnt\fonts\arial.ttf',12); > $graph->set_y_axis_font('c:\winnt\fonts\arial.ttf',12); > $graph->set_legend_font('c:\winnt\fonts\arial.ttf',12); > > $graph->set(show_values => @cpu) unless($gv eq "No"); > $graph->set(show_values => @tps) unless($gv eq "No"); > > $graph->set( > x_label => 'Sample Time', > y_label => 'Values', > title => '' , > x_label_position => '.5', > x_labels_vertical => '1', > values_vertical => '1' > ); > > > my $gd = $graph->plot(\@gdata); > > open(IMG, '>c:/progra~1/apache~1/apache/htdocs/pvtgraph.png') or die $!; > binmode IMG; > print IMG $gd->png; > close IMG; > #... > my $format = $graph->export_format; > $output .= $q->header_props(-type =>"image/$format"); > $output .= $q->blockquote(""); > $output .= $q->blockquote("<Center><h2>Graph</h2></Center>"); > my ($usr, $stim, $cusr, $cstim) = times; > $output .= "<Center><IMG > SRC=\"http://dbainet/pvtgraph.png?$stim?$usr?cusr?cstim\";></Center>"; > > > ###################### GRAPH END HERE > ################################################ > > $output .= $q->end_html(); > return $output; > } > > 1; > > ######################## END OF SCRIPT > #################################### > > > -----Original Message----- > From: Jesse Erlbaum [mailto:[EMAIL PROTECTED]] > Sent: Monday, May 13, 2002 10:50 AM > To: [EMAIL PROTECTED] > Subject: RE: [cgiapp] CGI Error [Solved!!] > > > Hi Bal -- > > > Commenting out the following lines in the CGI.PM resolved the > > error. I don't > > know if this is the correct way or not, if anyone has a > > different way to > > solve this, pls. let me know. > > > I would definitely NOT comment arbitrary lines from another module without > understanding WHY doing so changes the situation. I am 100% positive that > you have a bug in your code, and that there is no bug in CGI.pm which is > causing this to happen. > > Before you go and comment out lines from CGI.pm, take a close look at the > situation and figure out why commenting those lines seem to fix your > problem. I am certain that you will discover a bug in your own code. > > -Jesse- > > --------------------------------------------------------------------- > Web Archive: http://www.mail-archive.com/cgiapp@lists.vm.com/ > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > --------------------------------------------------------------------- > Web Archive: http://www.mail-archive.com/cgiapp@lists.vm.com/ > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > --------------------------------------------------------------------- Web Archive: http://www.mail-archive.com/cgiapp@lists.vm.com/ To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- Web Archive: http://www.mail-archive.com/cgiapp@lists.vm.com/ To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
![http://dbainet/pvtgraph.png?$stim?$usr?cusr?cstim\"](http://dbainet/pvtgraph.png?$stim?$usr?cusr?cstim\"){kind=link}