comment on

I'm a cgi newby trying to call a perl script from my cgi script that takes a list of file names and gets those files from Visual SourceSafe using an ant target. I tried to set the $ENV variable to include JAVA_HOME and SSDIR and when I print the contents of the environment I do see these set.

The problem is when I run the cgi script I get an error that No VSS database (srcsafe.ini) found. Use the SSDIR environment variable or run netsetup. I'm sure the path is correct but it doesn't work. Anyone else ever tried something like this?

Here is my code

    my $filepath = "C:\\Source\\files.log";
    open (IN, $filepath) || die "Can't open $filepath:$!";
    while ( my $line = <IN> ) {
        chomp $line;
        next if ($line =~ /^\s*$/ or    # blank lines
                 $line =~ /^\s*#/);     # comments
        push(@filesaffected, $line);
    }
    close IN;

    for (@filesaffected){
        ($dir, $fname)= $_ =~ /^(.*?)[\\\/]([^\\\/]+)$/;

        chdir $builddir;
        $ENV{'JAVA_HOME'}="C:\\j2sdk1.4.2";
        $ENV{'SSDIR'}="\\\\chinook\\Sourcesafe\\Acme";
        exec "ant tate_get_loc -DLocDirName=$dir -DFileName=$fname";
    }
[download]

In reply to cgi environment by gitarwmn

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks