Mailing List Archive

Håkan Lindqvist wrote:
>
> Hello!
>
> Is there any way to get Apache::ASP to do something like "$Response->Include"
> on a scalar containing ASP code instead of a filename (something like "eval"
> but for ASP instead of plain perl)?
>

Until this functionality is released officially, I would try something like:

( untested )
sub my_execute {
my $asp_script = shift;
my $ASP = $main::Server->{asp}
my $perl_script = $ASP->Parse(\$asp_script);
my $sub = eval "sub { package $ASP->{GlobalASA}{'package'}; $perl_script }";
$@ && die("error compiling sub: $@");
eval { &$sub };
$@ && die("error executing sub: $@");
1;
}

To really support this functionality, I will need to move
all the ASP scripts being stored in a Tie::Cache kind of hash
of sub closures for the scripts, for those that try to reap
the benefits of an Apache::SizeLimit structure, where each
process might keep only 100 scripts compiled with a setting
on ScriptCacheSize ...

Otherwise the above functionality would either not receive the
benefits of caching, or would contribute to process bloat as
each dynamic script got compiled & cached at runtime.

-- Josh

_________________________________________________________________
Joshua Chamas Chamas Enterprises Inc.
NodeWorks <- Web Link Checking Huntington Beach, CA USA
http://www.nodeworks.com 1-714-625-4051

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org

On Sunday 27 May 2001 22:10, Joshua Chamas wrote:
[snip]
> Until this functionality is released officially, I would try something
> like:
>
> ( untested )
> sub my_execute {
> my $asp_script = shift;
> my $ASP = $main::Server->{asp}
> my $perl_script = $ASP->Parse(\$asp_script);
> my $sub = eval "sub { package $ASP->{GlobalASA}{'package'}; $perl_script
> }"; $@ && die("error compiling sub: $@");
> eval { &$sub };
> $@ && die("error executing sub: $@");
> 1;
> }
>
> To really support this functionality, I will need to move
> all the ASP scripts being stored in a Tie::Cache kind of hash
> of sub closures for the scripts, for those that try to reap
> the benefits of an Apache::SizeLimit structure, where each
> process might keep only 100 scripts compiled with a setting
> on ScriptCacheSize ...
>
> Otherwise the above functionality would either not receive the
> benefits of caching, or would contribute to process bloat as
> each dynamic script got compiled & cached at runtime.

Thank you very much for your helpful response... it seems however that the
code you supplied does not really work... (I know, you did say it was
untested.... and I honestly did not fully understand the code, so the
solution may be very obvious for you)...

Anyway, this is what I get:
error executing sub: Undefined subroutine
&Apache::ASP::Compiles::_var_www_tmp_sitenew_global_asa::SCALAR called at
(eval 295) line 1.


I really hope this functionality will eventually make it into Apache::ASP as
it is _so_ useful... :)

/Håkan Lindqvist

>
> -- Josh
>
> _________________________________________________________________
> Joshua Chamas Chamas Enterprises Inc.
> NodeWorks <- Web Link Checking Huntington Beach, CA USA
> http://www.nodeworks.com 1-714-625-4051
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
> For additional commands, e-mail: asp-help@perl.apache.org

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org

Håkan Lindqvist wrote:
>
> Thank you very much for your helpful response... it seems however that the
> code you supplied does not really work... (I know, you did say it was
> untested.... and I honestly did not fully understand the code, so the
> solution may be very obvious for you)...
>
> Anyway, this is what I get:
> error executing sub: Undefined subroutine
> &Apache::ASP::Compiles::_var_www_tmp_sitenew_global_asa::SCALAR called at
> (eval 295) line 1.
>

Yes, the code was a bit off, this actually seems to work for me
as an ASP script example:

<%
&my_execute("<\% print ('test print'); %\>");

sub my_execute {
my $asp_script = shift;
my $ASP = $main::Server->{asp};
my $perl_script = $ASP->Parse(\$asp_script);
my $sub = eval "sub { package $ASP->{GlobalASA}{'package'}; $$perl_script }";
$@ && die("error compiling sub: $@");
eval { &$sub };
$@ && die("error executing sub: $@");
1;
}
%>

Note the above code uses methods & members that are not
documented and may change, but hopefully the next release
I'll have this functionality for real and you can just replace
this code with the real API call.

--Josh

_________________________________________________________________
Joshua Chamas Chamas Enterprises Inc.
NodeWorks <- Web Link Checking Huntington Beach, CA USA
http://www.nodeworks.com 1-714-625-4051

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org

Joshua Chamas wrote:
>
> Håkan Lindqvist wrote:
> >
> > Thank you very much for your helpful response... it seems however that the
> > code you supplied does not really work... (I know, you did say it was
> > untested.... and I honestly did not fully understand the code, so the
> > solution may be very obvious for you)...
> >

This feature where $Response->Include() can take
a raw ASP script as a scalar ref will be in the 2.11
release. I'll send it to you separately.

So normal use would be $Response->Include($file)
but now the API will also support $Response->Include(\$script_text)

--Josh

_________________________________________________________________
Joshua Chamas Chamas Enterprises Inc.
NodeWorks <- Web Link Checking Huntington Beach, CA USA
http://www.nodeworks.com 1-714-625-4051

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org

On Sun, 27 May 2001, Joshua Chamas wrote:

> This feature where $Response->Include() can take
> a raw ASP script as a scalar ref will be in the 2.11
> release. I'll send it to you separately.

If all else fails, I suppose it would work to write the ASP script to a
temporary file (there are CPAN perl modules that handle how to find an
unused temporary file name) and $Response->Include() it. It probably
wouldn't be efficient, but would work as a temporary kludge. e.g.:

sub raw_include {
my $tmpfile = (generate a temporary filename);
open(TMP, $tmpfile);
print TMP shift;
close(TMP);
$Response->Include($tmpfile);
unlink($tmpfile);
}

-Philip Mak (pmak@aaanime.net)


---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org