sybperl-l Archive

From: Ed Barlow <sqltech at tiac dot net>
Subject: Re: no HTML after &dbuse
Date: Sep 8 1997 6:23PM

1) what is in the error log
2) what message is being generated by the code
3) what happens

Ed

Mabbett, Lane wrote:
> 
> 
> I have been grappling with the following problem for quite a while, and
> am thoroughly stuck.  Any HTML that I put in this script will not make
> it to the browser after &dbuse($dbproc, $opt_d;  This script runs fine
> from the command prompt.  I have verified the following:
>         - The WebServers Log indicates 200 when this script is accessed from
> the browser
>         - The server is NCSA HTTPd Server 1.5.2
>         - If I output it to a file, and call the file from my browser, all is
> fine, so there is not an HTML problem
>         - As far as I can tell, the Sybase environment is properly set. (my
> environment is SYBASE=/sybase)
> 
> I would think that the HTTP daemon is not setting the Sybperl
> environment when executing the script, but as our UNIX/Sybase SA has
> departed the company, I am stuck.  Please correct me if I'm wrong, but
> with the browser calling the script as user 'nobody', a successful call
> is not made to Sybase??  If I set the environment in the script,
> shouldn't that work?
> 
>  After outputting all this to a file, I could call the file and put it
> in the browser, but that's messy and I don't want to do that.  Any help
> is greatly appreciated.  Thanks in advance.
> 
> Lane Mabbett
> 
>        #!/bin/perl
>        print "Content-type: text/html\n\n";
> 
> 
>        BEGIN {
>            $ENV{SYBASE} = '/sybase';
>        }
> 
>        print "\n";
>        print "\n";
>        print "
\n";
>        print "
\n";
>        print "Results of your Search on Zip Code\n";
>        print "
\n";
>        print "
\n";
> 
>        use Sybase::DBlib
>        require 'sybperl.pl';
>        require 'getopts.pl';
>        require 'ctime.pl';
> 
>        do Getopts('u:d:t:s:p');
>        $opt_u = '******' unless $opt_u;
>        $opt_d = 'pestest' unless $opt_d;
>        $opt_t = '%' unless $opt_t;
>        $opt_s = $ENV{DSQUERY} || "KingKong";
>        $opt_p = '*****' unless $opt_p;
> 
>        $dbproc = &dblogin($opt_u, $opt_p, $opt_s);
>        &dbuse($dbproc, $opt_d);