My thought was that with Lynx or IE (perhaps without the friendly setting) would yield the section of the document that looked like XML.
-- Cory > -----Original Message----- > From: Brian Parker [mailto:[EMAIL PROTECTED]] > Sent: Monday, May 13, 2002 1:46 PM > To: [EMAIL PROTECTED] > Subject: Re: [cgiapp] CGI Error [Solved!!] > > > You should run your script from the command line to see what the > output is (or > telnet to the server). When you find out what the output is, > you might be able > to find out what about that output your browser does not like. > When you find > out exactly what the browser does not like, you might be able to > figure out how > to fix it. > > regards, > > Brian > > "Sabherwal, Balvinder (MBS)" wrote: > > > 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] > > > --------------------------------------------------------------------- > 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}