perlquestion
gitarwmn
<p>
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.
</p>
<p>
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?</P>
Here is my code<BR>
<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";
}
</code>