Guru's
I am having a problem with one of my script. It is printing only part of the
html statements and not all of them. Can anyone point out the problem here.
Thanks
Bal.
The script is as
#!c:/perl/bin/perl.exe
require('cgi-lib.pl');
push (@INC,'/cgi-bin');
&ReadParse;
print "Content-type: text/html\n\n";
## Initializations Steps
use Getopt::Std;
use Sybase::CTlib;
use CGI ':all';
$startloc="e:/it support services/db architecture/sybase/sysmon-webdb";
$app = $in{"app"}; ## App Name
$yr = $in{"yr"}; ## Data Year
$dtdy = $in{"dtdy"}; ## Data Day
print<<"_END_";
<html>
<head>
<title>Test</title>
</head>
<body>
<h1>Test</h1>
<FORM title=Application action=sysmon.cgi method=post>
<P> </P>
<P>Directory : <SELECT size=1 name=Directory>
_END_
;
opendir(sysmondb,"$startloc") || die "Failed to open Sysmon DB";
$c=0;
while ($dir = readdir(sysmondb))
{
@apps[$c] = $dir;
$c++;
#print "\t $dir \n";
}
closedir(sysmondb);
for ($i = 2; $i < $c; $i++ ) {
$val = @apps[$i];
print<<"_END_";
<OPTION value="$startloc/$val" >$val </OPTION>
_END_
;
}
print<<"_END_";
</SELECT></P>
<P><INPUT type=submit value="List Contents" name=dir></P>
</FORM></html>
_END_
;
When this is called from the web server it only sends back part of the html
code to the web server as
<html>
<head>
<title>Test</title>
</head>
<body>
<h1>Test</h1>
<FORM title=Application action=sysmon.cgi method=post>
<P> </P>
<P>Directory : <SELECT size=1 name=Directory>
If I run the script in the dbug mode, It works correctly and the display's
the complete html as
C:\Program Files\Apache Group\APACHE\cgi-bin>perl -d sysmon.cgi
Loading DB routines from perl5db.pl version 1
Emacs support available.
Enter h or `h h' for help.
main::(sysmon.cgi:3): require('cgi-lib.pl');
DB<1> n
main::(cgi-lib.pl:16): $cgi_lib'version = sprintf("%d.%02d", q$Revision:
2.17 $ =~ /(\d+)\.(\d+)/);
DB<1>
main::(cgi-lib.pl:21): $cgi_lib'maxdata = 131072; # maximum bytes to
accept via POST - 2^17
DB<1>
main::(cgi-lib.pl:22): $cgi_lib'writefiles = 0; # directory to
which to write files, or
DB<1>
main::(cgi-lib.pl:24): $cgi_lib'filepre = "cgi-lib"; # Prefix of file
names, in directory above
DB<1>
main::(cgi-lib.pl:27): $cgi_lib'bufsize = 8192; # default buffer size
when reading multipart
DB<1>
main::(cgi-lib.pl:28): $cgi_lib'maxbound = 100; # maximum boundary
length to be encounterd
DB<1>
main::(cgi-lib.pl:29): $cgi_lib'headerout = 0; # indicates whether
the header has been printed
DB<1>
main::(cgi-lib.pl:464): $cgi_lib'writefiles = $cgi_lib'writefiles;
DB<1>
main::(cgi-lib.pl:465): $cgi_lib'bufsize = $cgi_lib'bufsize ;
DB<1>
main::(cgi-lib.pl:466): $cgi_lib'maxbound = $cgi_lib'maxbound;
DB<1>
main::(cgi-lib.pl:467): $cgi_lib'version = $cgi_lib'version;
DB<1>
main::(cgi-lib.pl:468): $cgi_lib'filepre = $cgi_lib'filepre;
DB<1>
main::(cgi-lib.pl:470): 1; #return true
DB<1>
main::(sysmon.cgi:4): push (@INC,'/cgi-bin');
DB<1>
main::(sysmon.cgi:6): &ReadParse;
DB<1>
main::(sysmon.cgi:8): print "Content-type: text/html\n\n";
DB<1>
Content-type: text/html
main::(sysmon.cgi:17): $startloc="e:/it support services/db
architecture/sybase/sysmon-webdb";
DB<1>
main::(sysmon.cgi:19): $app = $in{"app"}; ## App Name
DB<1>
main::(sysmon.cgi:20): $yr = $in{"yr"}; ## Data Year
DB<1>
main::(sysmon.cgi:21): $dtdy = $in{"dtdy"}; ## Data Day
DB<1>
main::(sysmon.cgi:23): print<<"_END_";
main::(sysmon.cgi:24): <html>
main::(sysmon.cgi:25): <head>
main::(sysmon.cgi:26): <title>$title</title>
main::(sysmon.cgi:27): </head>
main::(sysmon.cgi:28): <body>
main::(sysmon.cgi:29): <h1>$title</h1>
main::(sysmon.cgi:30): _END_
DB<1>
<html>
<head>
<title></title>
</head>
<body>
<h1></h1>
main::(sysmon.cgi:33): if ($app eq "")
main::(sysmon.cgi:34): {
DB<1>
main::(sysmon.cgi:36): genappnames();
DB<1>
main::(sysmon.cgi:38): print<<"_END_";
main::(sysmon.cgi:39): <FORM title=Application action=sysmon.cgi
method=post>
main::(sysmon.cgi:40): <P> </P>
main::(sysmon.cgi:41): <P>Directory :
<SELECT size=1 name=Directory>
main::(sysmon.cgi:42): _END_
DB<1>
<FORM title=Application action=sysmon.cgi method=post>
<P> </P>
<P>Directory : <SELECT size=1 name=Directory>
main::(sysmon.cgi:45): for ($i = 2; $i < $c; $i++ ) {
DB<1>
main::(sysmon.cgi:46): $val = @apps[$i];
DB<1>
main::(sysmon.cgi:47): print<<"_END_";
main::(sysmon.cgi:48): <OPTION value="$startloc/$val" \>$val </OPTION>
main::(sysmon.cgi:49): _END_
DB<1>
<OPTION value="e:/it support services/db
architecture/sybase/sysmon-webdb/Landscape" >Landscape </OPTION>
main::(sysmon.cgi:46): $val = @apps[$i];
DB<1>
main::(sysmon.cgi:47): print<<"_END_";
main::(sysmon.cgi:48): <OPTION value="$startloc/$val" \>$val </OPTION>
main::(sysmon.cgi:49): _END_
DB<1>
<OPTION value="e:/it support services/db
architecture/sybase/sysmon-webdb/Phhorce" >Phhorce </OPTION>
main::(sysmon.cgi:52): print<<"_END_";
main::(sysmon.cgi:53): </SELECT></P>
main::(sysmon.cgi:54): <P><INPUT type=submit value="List Contents"
name=dir></P>
main::(sysmon.cgi:55): </FORM></html>
main::(sysmon.cgi:56): _END_
DB<1>
</SELECT></P>
<P><INPUT type=submit value="List Contents" name=dir></P>
</FORM></html>
DB::fake::(C:\Perl\lib/perl5db.pl:2084):
2084: "Debugged program terminated. Use `q' to quit or `R' to
restart.";
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
