require fails in CGI

[heezy]

Environment (don't laugh, if I could change I would)...

• PC: (XP Pro)
• WebServer: Sun One Webserver 6.1
• Perl: ActivePerl 5.8.0.806

Overview...

A require 'fileX.pl' statement only seems to work when run from the command line. Not when run as a CGI through the SunOneWebServer. (when run as a CGI it seems to cause the termination of my CGI script?)

Details...

I have a simple procedure that just returns an array of files in a directory and displays them ($cgi is a CGI object that is visable by this proc)

sub getVcolFileNames{
    my @vcolFileArray;
    opendir DH, $vcol_dir or die "Cannot open $vcol_dir: ($!)\n";
    foreach $file (readdir DH) {
        next unless $file =~ /\.vcol$/;
        push @vcolFileArray, $file;
        print $cgi->p("$file");
    }
    closedir DH;
    return @vcolFileArray;
}

If I put this code in my main CGI file it is executed perfectly and the file names are printed to the web browser.

However, if I put the code in a separate file and then use...

require 'vcol-utils.pl'

... to suck in the subprocedure and then call it from my CGI, the CGI is not processed any further than the require statement. But... if I execute the CGI from the command line it works fine and the subprocedure (from the require file) is called and executed normally.

I have the following at the top of my CGI...

use CGI;
$cgi = new CGI;
use lib('.');
print $cgi->h1("Test1");
require 'vcol-utils.pl';
print $cgi->h1("Test2");

... the word "Test2" is never displayed when run as a CGI but the word "Test1" is??

Any pointers/views/help on this?

M

[liz]

Something bad is happening when you do:

require 'vcol-utils.pl';

If you can't check the server's error log, why not add some code to find out what went wrong?:

eval { require 'vcol-utils.pl' };
print "Loading of utils: $@\n";

I bet the error message will tell you what is wrong... ;-)

Liz

[Aristotle]

Which directory is vcol-utils.pl in and what's the value of your @INC path?

[heezy]

same directory. I was hoping that my...

use lib('.')

... would sort that out

[Aristotle]

Are you sure that your script's current working directory when called from the webserver is the directory it's in?

[sri]

Just use absolute pathes in your script!
I don't think that your webserver runs from your cgi-bin. ;]

[heezy]

you're right it doesn't use a cgi-bin

Wow! and you were right about the other thing as well. If I put the entire path to the script in the require it works a treat. Thanks!! :)

require 'c:\s1ws\WebServer6.1\docs\vcol-manager\vcol-utils.pl';

Why?

-M

[sandfly]

Because Perl looks in several directories to require or use files. The current working directory is always included in the list. When you tested your CGI script from the command line you cd'd to the directory and then ran it, so it worked. Your web server does not do this - it runs the script without changing its working directory to the CGI directory.

You could also have solved the problem with:


use lib 'c:\s1ws\WebServer6.1\docs\vcol-manager';
require 'vcol-utils.pl';

[hardburn]

You can do the same thing getVcolFileNames() does in two lines:

my @files = <"$vcol_dir/*.vcol">;
print map $cgi->p($_), @files;