view release on metacpan or search on metacpan
RewritingProxy.pm view on Meta::CPAN
while (my $tolkens = $p->get_token )
{
my $text = "";
# We process all of the possible token types.
# text and comments are printed unmolested to the browser.
# Javascript would have to be parsed out by editing the text
# between script tags.
if ($tolkens->[0] eq 'T')
{
if ($textHandlerSub)
{
view release on metacpan or search on metacpan
lib/Apache/SPARQL/RDFStore.pm view on Meta::CPAN
=head1 SEE ALSO
Apache::SPARQL
http://www.w3.org/TR/rdf-sparql-protocol/
http://www.w3.org/2001/sw/DataAccess/proto-wd/ (editor working draft)
http://www.w3.org/2001/sw/DataAccess/prot26
http://www.w3.org/TR/rdf-sparql-query/
http://www.w3.org/2001/sw/DataAccess/rq23/ (edit working draft)
=head1 LICENSE
see LICENSE file included into this distribution
view release on metacpan or search on metacpan
lib/Apache/SPARQL.pm view on Meta::CPAN
=head1 SEE ALSO
Apache::SPARQL::RDFStore
http://www.w3.org/TR/rdf-sparql-protocol/
http://www.w3.org/2001/sw/DataAccess/proto-wd/ (editor working draft)
http://www.w3.org/2001/sw/DataAccess/prot26
http://www.w3.org/TR/rdf-sparql-query/
http://www.w3.org/2001/sw/DataAccess/rq23/ (edit working draft)
=head1 LICENSE
see LICENSE file included into this distribution
view release on metacpan or search on metacpan
lib/Apache/SdnFw/bin/conf.pl view on Meta::CPAN
use strict;
print <<END;
### Autogenerated httpd.conf
##
## Do not edit this file. All changes will be lost the next time the server
## starts, restarts, reloads, or is configtested
##
## If you need to make a change to this, please change conf.pl
##
END
view release on metacpan or search on metacpan
Issue 1: The Caching Problem
Even if no passive or active adversary is sitting between the client
and server, an unauthorized user might still see the wrong data because
any web-caching device along the way might cough up a request such
as http://www.acme.com/creditcards.txt without ever referring it to
the server, if a previous authorized user made the same request. This
is a no-no for the web-cache to do, but it happens anyway.
Solution: There is no real solution, and RFC2964 is correct to discourage
plaintext cookie-based authentication even over secure networks (like on an
view release on metacpan or search on metacpan
!$@;
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Apache::Session::Lazy - Perl extension for opening Apache::Sessions on first read/write access.
view release on metacpan or search on metacpan
lib/Apache/Session/Memcached.pm view on Meta::CPAN
%> make
%> make test
%> make install
Note: for live tests, you must run at least a memcached daemon and you could
need to edit t/CONFIG file, in order to set correct parameters used for
testing.
=head1 SEE ALSO
L<Apache::Session::Store::Memcached|Apache::Session::Store::Memcached>,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
open FH, ">SessionX/Config.pm" or die "Cannot open SessionX/Config.pm for writing ($!)" ;
print FH qq{
#
# Apache::SessionX configuration
#
# Autogenerated by Makefile.PL, do not edit!
#
package Apache::SessionX::Config ;
\$default = '$conf[$default]' ;
view release on metacpan or search on metacpan
GETTING_STARTED view on Meta::CPAN
2) gunzip and untar this package. Obviously, you've gotten this far or
you wouldn't be reading this. :^)
3) Check out Makefile.PL. If you understand it, and you know what you're
doing, you might want to edit it. If you don't, that's ok. Perl will
probably take care of the details for you.
4) Run
perl Makefile.PL;
GETTING_STARTED view on Meta::CPAN
(/usr/lib/perl5/site_perl/5.005/Apache/SetWWWTheme.pm for example). It
must be in an Apache directory, whatever the case. If you can't get it
installed, email me and I'll help (chogan@uvastro.phys.uvic.ca)
6) Ok, we've got it in -- we just need to get it running. Edit your
httpd.conf file and add in the following (edited to suit your site)
<Location /somewhere>
SetHandler perl-script
PerlHandler Apache::SetWWWTheme
PerlSetVar CONFIG_FILE /WWW/Configuration
</Location>
You'll need to edit that to suit your particular tree. "/somewhere"
should be a subtree in your web directory. If you want the module to
affect the entire web tree, just put <Location />. You can do as many of
these <Location [subtree]> directives as you want. Apache will handle
them all. You'll also need to change the CONFIG_FILE value from
"/WWW/Configuration" to point to the name of the configuration file for
GETTING_STARTED view on Meta::CPAN
PerlSetVar CONFIG_FILE /WWW/apache/htdocs/Configuration
-copy SetWWWTheme/templates/LookAndFeelConfig to any subdirectory
in your webtree. If you like, put it in the document root.
-edit Configuration and LookAndFeelConfig until you're happy with
them. Read the pod or the manpage to figure out what all the
directives do (if you can't figure it out by playing with it)
-take a look at the SetWWWTheme/templates/example.html file to
see how you embed directives into HTML files. You could even
view release on metacpan or search on metacpan
lib/Apache/SiteControl.pm view on Meta::CPAN
For example, your mason component might look like this:
<HTML>
<HEAD> ... </HEAD>
% if($manager->can($currentUser, "edit", $table)) {
<FORM METHOD=POST ACTION="...">
<P><INPUT TYPE=TEXT NAME="x" VALUE="<% $table->{x} %>">
...
</FORM>
% } else {
view release on metacpan or search on metacpan
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
view release on metacpan or search on metacpan
t/External/Apache-Sling-User.t view on Meta::CPAN
"User Test: User \"$test_user\" exists." );
ok( ! $user->add( $test_user, $test_pass, \@test_properties ),
"User Test: Already existing User \"$test_user\" not added successfully again." );
# Check can update properties:
@test_properties = ( "user_test_editor=$super_user" );
ok( $user->update( $test_user, \@test_properties ),
"User Test: User \"$test_user\" updated successfully." );
ok( ! $user->update( "non-existent-$test_user", \@test_properties ),
"User Test: non-existent user properties not updated successfully." );
t/External/Apache-Sling-User.t view on Meta::CPAN
ok( $group_member->add( $test_group, $test_user ),
"User Test: Member \"$test_user\" added to \"$test_group\"." );
ok( $group_member->check_exists( $test_group, $test_user ),
"User Test: Member \"$test_user\" exists in \"$test_group\"." );
# Check can still update properties:
@test_properties = ( "user_test_edit_after_group_join=true" );
ok( $user->update( $test_user, \@test_properties ),
"User Test: User \"$test_user\" updated successfully." );
# Delete test user from group:
ok( $group_member->del( $test_group, $test_user ),
"User Test: Member \"$test_user\" deleted from \"$test_group\"." );
t/External/Apache-Sling-User.t view on Meta::CPAN
# Switch to test_user
ok( $authn->switch_user( $test_user, $test_pass ),
"User Test: Successfully switched to user: \"$test_user\" with basic auth" );
# Check can update properties:
@test_properties = ( "user_test_editor=$test_user" );
ok( $user->update( $test_user, \@test_properties ),
"User Test: User \"$test_user\" updated successfully." );
# switch back to admin user:
ok( $authn->switch_user( $super_user, $super_pass ),
view release on metacpan or search on metacpan
connections become unusable for any other reason.
The eg/ directory has a sample conpool.cfg file, as well as
a simple pool.cgi script that illustrates usage.
Credit where credit is due department: I initially got this
technique from Kenny MacLeod, who suggested it when I was
inquiring about connection pooling in the Sybase newsgroups
about a year ago.
Comments are as usual welcome!
view release on metacpan or search on metacpan
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
view release on metacpan or search on metacpan
lib/Apache/TestBuild.pm view on Meta::CPAN
return unless $ssldir and -d $ssldir;
my $name = $self->{current_install_name};
my $ssl_mod = "$name/modules/ssl";
info "editing $ssl_mod/modules.mk";
if (DRYRUN) {
return;
}
view release on metacpan or search on metacpan
lib/Apache/TopicMaps.pm view on Meta::CPAN
1;
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::TopicMaps - Perl extension for serving topic maps.
view release on metacpan or search on metacpan
lib/Apache/Voodoo/Install/Config.pm view on Meta::CPAN
# I had this as a print block, but it tripped up the cpan.org formatter
print OUT "################################################################################\n";
print OUT "#\n";
print OUT "# Installation specific settings for Apache Voodoo are stored here.\n";
print OUT "# Do not edit this file directly. Use the \"voodoo-control\" command instead.\n";
print OUT "#\n";
print OUT "################################################################################\n";
print OUT "package Apache::Voodoo::MyConfig;\n";
print OUT "\n";
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Apache::WAP::AutoIndex extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Apache::WAP::MailPeek extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
view release on metacpan or search on metacpan
bin/amprapmon view on Meta::CPAN
% amprapmon <start|stop|restart>
=head1 CONFIGURATION
You should edit the top of the program where the configuration
parameters are located. See the CONFIGURATION section of
Apache::Watchdog::RunAway for more info.
=head1 DESCRIPTION
view release on metacpan or search on metacpan
WinBitHack.pm view on Meta::CPAN
directive, a file will parsed by mod_include if the C<archive>
attribute is B<unset>, which you can do by
C:\> attrib -a file_name
Note that when a user's file is first created or when it is edited
the C<archive> attribute will normally be set (and all others unset),
so you must intentionally unset the C<archive> attribute to enable
server-parsing of the file.
=head2 XBitHack Full
view release on metacpan or search on metacpan
Wyrd/Input/Condenser.pm view on Meta::CPAN
=head1 DESCRIPTION
The Condenser Input is so called because it condenses the results of
several enclosed Inputs into a single value. It is meant to be an
abstract class from which Inputs can be derived which are used primarily
in editing multiple whole related records along with a reference record,
for example in relating track information to a CD on the same page/form
as the CD information.
=head2 HTML ATTRIBUTES
view release on metacpan or search on metacpan
lib/HTML/FormValidator.pm view on Meta::CPAN
=item dependencies
This is an hash reference which contains dependencies information.
This is for the case where one optional fields has other requirements.
For example, if you enter your credit card number, the field cc_exp
and cc_type should also be present. Any fields in the dependencies
list that is missing when the target is present will be reported as
missing.
=item defaults
lib/HTML/FormValidator.pm view on Meta::CPAN
=pod
=item cc_number
This is takes two parameters, the credit card number and the credit cart
type. You should take the hash reference option for using that constraint.
The number is checked only for plausibility, it checks if the number could
be valid for a type of card by checking the checksum and looking at the number
of digits and the number of digits of the number.
lib/HTML/FormValidator.pm view on Meta::CPAN
=head1 CREDITS
Some of those input validation functions have been taken from MiniVend
by Michael J. Heins <mike@heins.net>
The credit card checksum validation was taken from contribution by
Bruce Albrecht <bruce.albrecht@seag.fingerhut.com> to the MiniVend
program.
=head1 AUTHOR
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
print( STDERR "Found an Apache configuration at '$f'\n" ) if( $MY_DEBUG );
if( -e( $env ) && -r( $env ) && ( $^O eq 'darwin' || $^O eq 'linux' ) )
{
print( STDERR "Found an Apache environment variables setup at '$env'\n" ) if( $MY_DEBUG );
my $fh;
# Credits: <https://stackoverflow.com/a/3836009/4814971>
if( defined( $fh = IO::File->new( "sh -x $env 2>&1 1>/dev/null|" ) ) )
{
my $vars = {};
while( defined( $_ = $fh->getline ) )
{
view release on metacpan or search on metacpan
lib/Apache2/ASP/MediaManager.pm view on Meta::CPAN
shift(@_);
my $mode = $context->request->Form->{mode};
return unless ( ! $mode ) || ( $mode !~ m/^(create|edit)$/ );
my $filename = $s->compose_download_file_path( $context );
my $file = $s->compose_download_file_name( $context );
# Find its MIME type and set our 'ContentType' value:
lib/Apache2/ASP/MediaManager.pm view on Meta::CPAN
local $_ = $s->_args('mode');
if( /^create$/ )
{
$s->before_create($context, $Upload);
}
elsif( /^edit$/ )
{
$s->before_update($context, $Upload);
}
else
{
lib/Apache2/ASP/MediaManager.pm view on Meta::CPAN
$form = $context->request->Form;
if( $form->{mode} =~ /^create$/ )
{
$s->after_create($context, $Upload);
}
elsif( $form->{mode} =~ /^edit$/ )
{
$s->after_update($context, $Upload);
}
else
{
view release on metacpan or search on metacpan
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
view release on metacpan or search on metacpan
For more information, or to schedule a consult, visit our website at
www.CharlestonSW.com
CONTRIBUTIONS
Like the script and want to contribute?
You can send payments via credit card or bank transfer using
PayPal and sending money to our info@charlestonsw.com PayPal address.
COPYRIGHT
(c) 2006, Charleston Software Associates
This script is covered by the GNU GENERAL PUBLIC LICENSE.
view release on metacpan or search on metacpan
AuthNetLDAP.pm view on Meta::CPAN
return Apache2::Const::OK;
}
# Autoload methods go after =cut, and are processed by the autosplit program.
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
Apache2::AuthNetLDAP - mod_perl module that uses the Net::LDAP module for user authentication for Apache
view release on metacpan or search on metacpan
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
Authen::Smb - Perl extension to authenticate against an SMB server
view release on metacpan or search on metacpan
Auth/RCS/Makefile.old,v view on Meta::CPAN
text
@# This Makefile is for the Apache::AuthenSecurID::Auth extension to perl.
#
# It was generated automatically by MakeMaker version
# 5.45 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#