sybperl-l Archive

From: "Sabherwal, Balvinder (MBS)" <Balvinder dot Sabherwal at mortgagefamily dot com>
Subject: problem with the script
Date: Jan 8 2002 2:39PM

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_";





Test

 
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_";
   $val 
_END_
;
}
print<<"_END_";



_END_
;

When this is called from the web server it only sends back part of the html
code to the web server as 






Test

 
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):  
main::(sysmon.cgi:25):  
main::(sysmon.cgi:26):  
main::(sysmon.cgi:27):  
main::(sysmon.cgi:28):  
main::(sysmon.cgi:29):  
$title
main::(sysmon.cgi:30):  _END_
  DB<1>






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):   
main::(sysmon.cgi:40):   
 
main::(sysmon.cgi:41):   
Directory :     

main::(sysmon.cgi:42):  _END_
  DB<1>
 
 
 
 
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):     $val 
main::(sysmon.cgi:49):  _END_
  DB<1>
   Landscape 
main::(sysmon.cgi:46):     $val = @apps[$i];
  DB<1>
main::(sysmon.cgi:47):     print<<"_END_";
main::(sysmon.cgi:48):     $val 
main::(sysmon.cgi:49):  _END_
  DB<1>
   Phhorce 
main::(sysmon.cgi:52):   print<<"_END_";
main::(sysmon.cgi:53):   
main::(sysmon.cgi:54):   

main::(sysmon.cgi:55):   
main::(sysmon.cgi:56):  _END_
  DB<1>
 

 

 
DB::fake::(C:\Perl\lib/perl5db.pl:2084):
2084:     "Debugged program terminated.  Use `q' to quit or `R' to
restart.";