ASP
view release on metacpan or search on metacpan
NAME
ASP - a Module for ASP (PerlScript) Programming
SYNOPSIS
use strict;
use ASP qw(:strict);
print "Testing, testing.<BR><BR>";
my $item = param('item');
if($item eq 'Select one...') {
die "Please select a value from the list.";
}
print "You selected $item.";
exit;
DESCRIPTION
This module is based on Matt Sergeant's excellent Win32::ASP
module, which can be found at
<http://www.fastnetltd.ndirect.co.uk/Perl>. After using Mr.
Sergeant's module, I took on the task of customizing and
optimizing it for my own purposes. Feel free to use it if you
find it useful.
NOTES
This module is designed to work with both ASP PerlScript on
IIS4, as well as mod_perl/Apache::ASP on *nix platforms.
Apache::ASP already provides some of the functionality provided
by this module; because of this (and to avoid redundancy),
ASP.pm attempts to detect its environment. Differences between
Apache and MS ASP are noted.
Both of the print() and warn() standard perl funcs are
overloaded to output to the browser. print() is also available
via the $ASP::ASPOUT->print() method call.
$Request->ServerVariables are only stuffed into %ENV on Win32
platforms, as Apache::ASP already provides this.
ASP.pm also exports the $ScriptingNamespace symbol (Win32 only).
This symbol allows PerlScript to call subs/functions written in
another script language. For example:
<%@ language=PerlScript %>
<%
use ASP qw(:strict);
print $ScriptingNamespace->SomeSub("arg1");
%>
<SCRIPT language=VBScript runat=server>
Function SomeSub (str)
SomeSub = SomethingThatReturnsSomething()
End Function
</SCRIPT>
USE
use ASP qw(:basic);
Exports basic subs: Print, Warn, die, exit, param, param_count.
Same as `use ASP;'
use ASP qw(:strict);
Allows the use of the ASP objects under `use strict;'.
NOTE: This is not the only way to accomplish this, but I think
it's the cleanest, most convenient way.
( run in 0.900 second using v1.01-cache-2.11-cpan-39bf76dae61 )