view release on metacpan or  search on metacpan

ASP.pm  view on Meta::CPAN

87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
                %ENV = ();
                for (Win32::OLE::in $Request->ServerVariables) {
                        $ENV{$_} = $Request->ServerVariables($_)->Item;
                }
        }
}
 
$VERSION='1.07';
 
$ASPOUT = tie *RESPONSE_FH, 'ASP::IO';
select RESPONSE_FH unless $APACHE;
$SIG{__WARN__} = sub { ASP::Print(@_) };
 
sub _END { &$_() for  @DeathHooks; @DeathHooks = (); 1; }
 
=head1 NAME
 
ASP - a Module for ASP (PerlScript) Programming
 
=head1 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;
 
=head1 DESCRIPTION
 
This module is based on Matt Sergeant's excellent
Win32::ASP module, which can be found at
E<lt>F<http://www.fastnetltd.ndirect.co.uk/Perl>E<gt>.
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.

README  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    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.