Pete <[EMAIL PROTECTED]> wrote:
:
: This is what that gets me:
:
: Error Type:
: PerlScript Error (0x80004005)
: Global symbol "$Server" requires explicit package name
Sorry, that's a perl error. $Server is provided by ASP.
You need to add $Server to the 'our' statement. The whole
thing should be:
<%@ Language="PerlScript" %>
<%
use strict;
use warnings;
our( $Response, $Server );
my $file_path = $Server->MapPath ( "/ASPtoPerl/MakeFile.pl" );
my $exit_status = system_call_test( "perl $file_path" ) / 256;
sub system_call_test {
my $call = shift;
$Response->Write( "Executing this: '$call'<br><br>" );
my $status = system( $call );
$Response->Write( "'system' returned: '$!'<br>" );
return $status;
}
%>
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
