So
removal of an errant print statement and insertion of
print $cgi->header ( "text/html" );
instead of $cgi->header ();
fixed the problem. I think the above would have been ok once I had
reconfigured apache's default to be html/text but for a print statement I had
between my $cgi = new CGI; for debugging purposes.
Thanks everybody for the help, it isn't just practical, its also a
pyschological inspiration to know that there are folks out there who will
help. I just hope to get to the stage where I can offer something back to
this forum.
On Thursday 31 May 2001 07:18, Mark Rowlands wrote:
> On Wednesday 30 May 2001 20:54, Curtis Poe wrote:
> > > > Mark Rowlands wrote:
> > > > : ok..this is my first bash at a serious cgi script. it is using DBI
> > > > : and CGI to connect to a bunch of databases and edit various fields.
> > > > : Problem is all was fine and dandy (more or less) while testing with
> > > > : IE5.5. Then I checked with netscape 4.77 and Konqueror 2.1.1 both
> > > > : of these just display the html!
> > > >
> > > > Sounds like a server problem- not setting the right default MIME type
> > > > or something. Try explicitly giving the MIME type:
> > > >
> > > > print $cgi->header (-type => 'text/html');
> > > >
> > > > -- tdk
> > >
> > > nope :-(
> > >
> > > I even went and bought a book!.......that didn't help either.....tried
> > > it on another server :-( installed the default apache httpd.conf....
> >
> > Generally, with a situation like this, I telnet to port 80 and view the
> > headers directly. I'm not as familiar with doing this programatically,
> > but you can try the following (note where you need to insert your URL!):
> >
> > #!/usr/bin/perl -w
> > use strict;
> > use LWP::UserAgent;
> > use Data::Dumper;
> >
> > my $ua = LWP::UserAgent->new;
> >
> > # insert the URL here
> > my $request = HTTP::Request->new( HEAD => 'http://some.server.name/' );
> >
> > my $response = $ua->request($request);
> > $Data::Dumper::Indent = 1;
> > print Dumper $response;
> >
> > The output will be the data contained in the response object. If you
> > have difficulty understanding it (it can be a bit confusing), post the
> > output to this list and we can take a look at the data for you.
> >
> > If anyone else knows of a cleaner way of printing just the headers (short
> > of using IO::Socket), I'd love to see it!
> >
> > Cheers,
> > Curtis Poe
> > "Ovid" on http://www.perlmonks.org/
>
> ok here are some headers.... this is with the default type set on the
> server to content/html ...(which seems to make no difference to this
> output btw)
>
> $VAR1 = bless( {
> '_request' => bless( {
> '_method' => 'HEAD',
> '_content' => '',
> '_headers' => bless( {
> 'user-agent' => 'libwww-perl/5.53'
> }, 'HTTP::Headers' ),
> '_uri' => bless( [
> bless( do{\(my $o = 'http://localhost/cgi-bin/admin2.cgi')},
> 'URI::http' ),
> undef
> ], 'URI::URL' )
> }, 'HTTP::Request' ),
> '_protocol' => 'HTTP/1.1',
> '_content' => '',
> '_headers' => bless( {
> 'client-peer' => '127.0.0.1:80',
> 'connection' => 'close',
> 'client-date' => 'Thu, 31 May 2001 05:09:48 GMT',
> 'content-type' => 'text/plain', # interesting ? #
> 'date' => 'Thu, 31 May 2001 05:09:47 GMT',
> 'dbi' => 'mysql:uptime:hostname=pcmob.tninet.seContent-Type:
> text/html', 'server' => 'Apache/1.3.20 (Unix) PHP/4.0.5' line above
> looks odd? }, 'HTTP::Headers' ),
> '_rc' => 200,
> '_msg' => 'OK'
> }, 'HTTP::Response' );
