view release on metacpan or search on metacpan
lib/Apache/Voodoo.pm view on Meta::CPAN
# If we got here we were sucessful
return 1;
}
# Function: validate_date
# Purpose: Check to make sure a date follows the MM/DD/YYYY format and checks the sanity of the numbers passed in
sub validate_date {
my $self = shift;
my $date = shift;
my $check_future = shift;
#Number of days in each month
view release on metacpan or search on metacpan
conf/server.xml.PL view on Meta::CPAN
SessionManager unless it is overridden. Note that the SessionManager
is not persistent and that a different session will be used for each
Application (single signon is not supported).
The maxInactiveInterval attribute specifies the number of seconds
after which an idle session is timed out (invalidated).
The cacheClass attribute specifies the name of the Cache::Cache implementation
class to use for the session cache.
-->
<SessionManager maxInactiveInterval="300"
view release on metacpan or search on metacpan
lib/HTML/FormValidator.pm view on Meta::CPAN
#
# FormValidator.pm - Object that validates form input data.
#
# This file is part of FormValidator.
#
# Author: Francis J. Lacoste <francis.lacoste@iNsu.COM>
#
lib/HTML/FormValidator.pm view on Meta::CPAN
In an HTML::Empberl page:
use HTML::FormValidator;
my $validator = new HTML::FormValidator( "/home/user/input_profiles.pl" );
my ( $valid, $missing, $invalid, $unknown ) = $validator->validate( \%fdat, "customer_infos" );
=head1 DESCRIPTION
HTML::FormValidator's main aim is to make the tedious coding of input
validation expressible in a simple format and to let the programmer focus
on more interesting task.
When you are coding web application one of the most tedious though
crucial task is to validate user's input (usually submitted by way of
an HTML form). You have to check that each required fields is present
and that some feed have valid data. (Does the phone input looks like a
phone number ? Is that a plausible email address ? Is the YY state
valid ? etc.) For simple form, this is not really a problem but as
forms get more complex and you code more of them this task became
really boring and tedious.
HTML::FormValidator lets you defines profiles which defines the
required fields and their format. When you are ready to validate the
user's input, you tell HTML::FormValidator the profile to apply to the
user data and you get the valid fields, the name of the fields which
are missing, the name of the fields that contains invalid input and
the name of the fields that are unknown to this profile.
lib/HTML/FormValidator.pm view on Meta::CPAN
will be used to check wheter or not the field contains valid data.
Constraint can be either the name of a builtin constraint function
(see below), a perl regexp or an anonymous subroutine which will check
the input and return true or false depending on the input's validity.
The constraint function takes one parameter, the input to be validated
and returns true or false. It is possible to specify the parameters
that will be passed to the subroutine. For that use an hash reference
which contains in the I<constraint> element, the anonymous subroutine
or the name of the builtin and in the I<params> element the name of
the fields to pass a parameter to the function. (Don't forget to
lib/HTML/FormValidator.pm view on Meta::CPAN
=pod
=head1 VALIDATING INPUT
my( $valids, $missings, $invalids, $unknowns ) =
$validator->validate( \%fdat, "customer_infos" );
To validate input you use the validate() method. This method takes two
parameters :
=over
=item data
Contains an hash which should correspond to the form input as
submitted by the user. This hash is not modified by the call to validate.
=item profile
Can be either a name which will be used to lookup the corresponding profile
in the input profiles specification, or it can be an hash reference to the
lib/HTML/FormValidator.pm view on Meta::CPAN
=back
=cut
sub validate {
my ( $self, $data, $name ) = @_;
my $profile;
if ( ref $name ) {
$profile = $name;
view release on metacpan or search on metacpan
lib/Apache2/API.pm view on Meta::CPAN
$resp->headers->set( 'Access-Control-Allow-Origin' => '*' );
}
# As an api, make sure there is no caching by default unless the field has already been set.
unless( $resp->headers->get( 'Cache-Control' ) )
{
$resp->headers->set( 'Cache-Control' => 'private, no-cache, no-store, must-revalidate' );
}
# If we have a locale set, we use it
my $locale;
if( $is_error )
lib/Apache2/API.pm view on Meta::CPAN
{
my $hash = $self->make( $pwd ) ||
return( $self->pass_error );
$self->hash( $hash );
}
# Existing hash path: validate by known prefixes, also extract salt into ->salt
elsif( $pwd =~ /\A$APR1_RE\z/ ||
$pwd =~ /\A$BCRYPT_RE\z/ ||
$pwd =~ /\A$SHA_RE\z/ )
{
$self->hash( $pwd );
view release on metacpan or search on metacpan
lib/Apache2/ASP/FormHandler.pm view on Meta::CPAN
use vars __PACKAGE__->VARS;
sub run {
my ($s, $context) = @_;
if( my $errors = $s->validate( $context ) ) {
$Session->{validation_errors} = $errors;
$Session->{__lastArgs} = $Form;
return $Response->Redirect( $ENV{HTTP_REFERER} );
}
lib/Apache2/ASP/FormHandler.pm view on Meta::CPAN
# Finally:
return $Response->Redirect( "/some/other/place.asp" );
}
sub validate {
my ($s, $context) = @_;
my $errors = { };
# Did they fill out the form?
view release on metacpan or search on metacpan
lib/Apache2/AuthCAS.pm view on Meta::CPAN
"PGT" => "CAS Proxy Service Error",
"PGT_RECEPTOR" => "Proxy Receptor Error",
"INVALID_RESPONSE" => "Invalid Service Response",
"INVALID_PGT" => "Invalid Proxy Granting Ticket",
"MISSING_PGT" => "Missing Proxy Granting Ticket",
"CAS_CONNECT" => "CAS couldn't validate service ticket",
);
my %DEFAULTS = (
"Host" => "localhost",
"Port" => "443",
lib/Apache2/AuthCAS.pm view on Meta::CPAN
}
# No session (or an expired one). Check for a ticket
if (my $ticket = $params{'ticket'})
{
# validate service ticket through CAS, since no valid cookie was found
my($error, $user, $pgtiou) = $self->validate_service_ticket($ticket);
if ($error)
{
return $self->redirect($self->casConfig("ErrorUrl"), $error);
}
lib/Apache2/AuthCAS.pm view on Meta::CPAN
}
}
# params
# apache request object
# ticket to be validated
# returns a hash with keys on success
# 'user', 'pgtiou'
# NULL on failure
sub validate_service_ticket($$$)
{
my($self, $ticket) = @_;
my $proxy = $self->casConfig("ProxyService") ? "1" : "0";
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
);
while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
$pattern =~ s{\s+}{\\s+}g;
if ( $license_text =~ /\b$pattern\b/i ) {
if ( $osi and $license_text =~ /All rights reserved/i ) {
print "WARNING: 'All rights reserved' in copyright may invalidate Open Source license.\n";
}
$self->license($license);
return 1;
}
}
view release on metacpan or search on metacpan
lib/Apache2/AuthCASpbh.pm view on Meta::CPAN
application directly accesses the unparsed URI it will still see the value.
=item C<AuthCAS_RequestPGT>
Whether or not to request a proxy granting ticket when a client service ticket
is validated; by default disabled.
=item C<AuthCAS_ServerURL>
The URL value to access the CAS authentication server; by default
"http://localhost/cas". For example:
view release on metacpan or search on metacpan
lib/Apache2/AuthCookieLDAP.pm view on Meta::CPAN
is generated by taking into account the provided username, authorization time
and a hash generated by including a specific logic plus the user's IP address.
Upon completion the session data is encrypted with the secret key (MyAuth_SecretKey)
and the according cookie is generated by Apache2::AuthCookie.
All the following requests to the protected resource take the cookie (if exists)
and the encrypted session key is validated (decrypted, the user is checked,
the session time is checked for expiration and the hash is regenerated
and compared with the provided one).
Upon success the user is authorized to access the protected resource.
Should you require any additional information how the cookies logic works
lib/Apache2/AuthCookieLDAP.pm view on Meta::CPAN
Please follow to Apache2::AuthCookie if you need more information about the method.
=head2 authen_ses_key($r, $session_key)
This is the overridden method of Apache::AuthCookie and is used to
validate the provided $session_key.
Returns the authenticated username in case of success or redirects to the login page otherwise.
Please follow to Apache2::AuthCookie if you need more information about the method.
view release on metacpan or search on metacpan
lib/Apache2/AuthNSympa.pm view on Meta::CPAN
Because it's difficult to have an up to date authentication backend, this module aims to authenticate against Sympa mailing lists server.
Sympa mailing lists server has got its own authentication system and can be queried over a SOAP interface.
It is based on a basic HTTP authentication (popup on client side). Once the user has authenticated, the REMOTE_USER environnement var contains the user email address. The authentication module implements a SOAP client that validates user credentials ...
Sample httpd.conf example:
<Directory "/var/www/somwehere">
AuthName SympaAuth
AuthType Basic
view release on metacpan or search on metacpan
lib/Apache2/AuthenNTLM/Cookie.pm view on Meta::CPAN
my $result;
# get the cookie
my $jar = Apache2::Cookie::Jar->new($r);
my $cookie = $jar->cookies($self->{cookie_name});
my $has_valid_cookie = $cookie && $self->validate_cookie($cookie->value);
# if cookie is present and valid
if ($has_valid_cookie) {
$result = Apache2::Const::OK;
lib/Apache2/AuthenNTLM/Cookie.pm view on Meta::CPAN
$result = Apache2::Const::HTTP_UNAUTHORIZED;
}
# else invoke Apache2::AuthenNTLM to go through the NTLM handshake
else {
my $msg = $cookie ? "cookie invalidated" : "no cookie";
$r->log->debug("AuthenNTLM::Cookie: $msg, calling Apache2::AuthenNTLM");
$result = Apache2::AuthenNTLM->handler($r); # will set $r->user
# create the cookie if NTLM succeeded
$self->set_cookie if $result == Apache2::Const::OK;
lib/Apache2/AuthenNTLM/Cookie.pm view on Meta::CPAN
return $result;
}
sub validate_cookie {
my ($self, $cookie_val) = @_;
# unpack cookie information
my ($sha, $time_created, $username) = unpack COOKIE_FORMAT, $cookie_val;
lib/Apache2/AuthenNTLM/Cookie.pm view on Meta::CPAN
secret.
The default value for the secret is the concatenation of modification
time and inode of the F<httpd.conf> file on the server; therefore if
the configuration file changes, authentication cookies are
automatically invalidated.
=back
=head1 SPECIAL NOTE ABOUT INTERNET EXPLORER
view release on metacpan or search on metacpan
t/tests/40validxml.t view on Meta::CPAN
my $validator;
if (eval { $validator = new XML::Validate(Type => 'BestAvailable'); }) {
my $url = '/test/';
my $data = GET_BODY $url;
my $error = '';
unless ($validator->validate($data)) {
my $message = $validator->last_error()->{message} || '';
my $line = $validator->last_error()->{line} || '';
my $column = $validator->last_error()->{column} || '';
$error = "Error: $message at line $line, column $column";
}
view release on metacpan or search on metacpan
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
vdie_common|||
view release on metacpan or search on metacpan
t/manip/in_append.t view on Meta::CPAN
plan tests => 6 * $times;
## try non-keepalive conn
Apache::TestRequest::user_agent(reset => 1, keep_alive => 0);
validate() for 1..$non_keep_alive_times;
## try keepalive conns
Apache::TestRequest::user_agent(reset => 1, keep_alive => 1);
validate() for 1..$keep_alive_times;
## try non-keepalive conn
Apache::TestRequest::user_agent(reset => 1, keep_alive => 0);
validate();
# 6 sub-tests
sub validate {
my $key = "Leech";
my $val = "Hungry";
{
my $res = HEAD $location;
view release on metacpan or search on metacpan
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
vdie_common|||
view release on metacpan or search on metacpan
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
vdie_common|||
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
);
while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
$pattern =~ s{\s+}{\\s+}g;
if ( $license_text =~ /\b$pattern\b/i ) {
if ( $osi and $license_text =~ /All rights reserved/i ) {
print "WARNING: 'All rights reserved' in copyright may invalidate Open Source license.\n";
}
$self->license($license);
return 1;
}
}
view release on metacpan or search on metacpan
eg/Model/MyPageKit/MyModel.pm view on Meta::CPAN
messages => {
email => "The E-mail address, <b>%%VALUE%%</b>, is invalid.",
phone => "The phone number, <b>%%VALUE%%</b>, is invalid.",
},
};
# validate user input
unless($model->pkit_validate_input($input_profile)){
$model->pkit_internal_redirect('form_validation');
return;
}
$model->pkit_redirect('index');
}
eg/Model/MyPageKit/MyModel.pm view on Meta::CPAN
email => "The E-mail address, <b>%%VALUE%%</b>, is invalid.",
phone => "The phone number you entered is invalid.",
passwd1 => "The passwords you entered do not match.",
},
};
# validate user input
unless($model->pkit_validate_input($input_profile)){
$model->pkit_internal_redirect('newacct1');
return;
}
my $login = $model->input('login');
view release on metacpan or search on metacpan
t/conf/extra.conf.in view on Meta::CPAN
AcceptPathInfo On
# Example of useful section to put given ssi are dynamic
<IfModule mod_headers.c>
Header Set Pragma "no-cache"
Header Set Expires "Thu, 1 Jan 1970 00:00:00 GMT"
Header Set Cache-Control "max-age=0, no-store, no-cache, must-revalidate"
Header Unset ETag
</IfModule>
# Alternatively, you can do also:
PerlSetVar Apache2_SSI_NO_CACHE On
PerlSetVar Apache2_SSI_Expression "legacy"
view release on metacpan or search on metacpan
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
vdie_common|||
view release on metacpan or search on metacpan
lib/Apache2/SiteControl/User.pm view on Meta::CPAN
my $r = shift;
if(!defined($this) || !defined($r)) {
croak "INVALID CALL TO LOGOUT. You forgot to use OO syntax, or you forgot to pass the request object.";
}
eval("$this->{manager}" . '->invalidate($r, $this)');
if($@) {
$r->log_error("Logout failed: $@");
}
}
view release on metacpan or search on metacpan
lib/Apache2/UploadProgress.pm view on Meta::CPAN
}
$r->headers_out->set( 'Vary' => 'Accept' );
$r->headers_out->set( 'Pragma' => 'no-cache' );
$r->headers_out->set( 'Expires' => 'Thu, 01 Jan 1970 00:00:00 GMT' );
$r->headers_out->set( 'Cache-Control' => 'no-store, no-cache, must-revalidate, post-check=0, pre-check=0' );
my $callback = $MIMES->{$content_type};
my $content = $callback->( @$progress, $r );
$r->content_type($content_type);
view release on metacpan or search on metacpan
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Print errors/exceptions and exit.
sub _error {
my ($self, $c, $title, $value)
= validate_pos(@_,
{ type => OBJECT },
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Logs the action including HTTP request parameters.
sub _log_action {
my ($self, $c, $action)
= validate_pos(@_,
{ type => OBJECT },
{ type => OBJECT },
{ type => SCALAR }
);
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Generate per-page results.
sub _gen_results {
my ($self, $total, $start, $limit, $ary_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR },
{ type => SCALAR },
{ type => ARRAYREF }
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Return a sorted multi-dimensional array.
sub _sort_data {
my ($self, $key, $order, $ary_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR },
{ type => ARRAYREF }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/CGI.pm view on Meta::CPAN
#
# Get the request paramters; return name/value parameters as a hash.
sub params {
my ( $self, $c )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF }
);
return
lib/Apache2/WebApp/Plugin/CGI.pm view on Meta::CPAN
#
# Redirect an HTTP request to a target URI/URL.
sub redirect {
my ( $self, $c, $target )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Set a new browser cookie.
sub set {
my ( $self, $c, $vars )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Return the browser cookie value.
sub get {
my ( $self, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my %cookie = Apache2::Cookie->fetch;
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Delete a browser cookie by name.
sub delete {
my ( $self, $c, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/DBI.pm view on Meta::CPAN
#
# Make a new database connection.
sub connect {
my ( $self, $config )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF }
);
my $driver = $config->{driver};
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
#
# Return the total days between dates.
sub days_between_dates {
my ( $self, $date1, $date2 )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
#
# Convert seconds-since-epoch to a human readable format.
sub format_time {
my ( $self, $unix_time, $format )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/File.pm view on Meta::CPAN
#
# Open the file in a web browser window.
sub open {
my ( $self, $c, $file, $force_download )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => SCALAR, optional => 1 }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Encode URL to ASCII.
sub encode_url {
my ( $self, $url )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$url =~ s/([\W])/"%" . uc( sprintf("%2.2x", ord($1)) )/eg;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Decode ASCII to URL.
sub decode_url {
my ( $self, $url )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$url =~ tr/+/ /;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove the subdomain (alias) from a domain name.
sub strip_domain_alias {
my ( $self, $domain )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$domain =~ /(?: |\.|\-)([\w-]+?)\.(\w+?) \z/xs;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove all HTML tags and attributes.
sub strip_html {
my ( $self, $markup )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $hs = HTML::StripScripts::Parser->new({
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove restricted HTML tags and attributes.
sub untaint_html {
my ( $self, $markup )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $hs = HTML::StripScripts::Parser->new({
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Mail.pm view on Meta::CPAN
#
# Send a template based (text) message.
sub send_text {
my ( $self, $c, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Mail.pm view on Meta::CPAN
#
# Send a template based (HTML/Text) multi-formatted message.
sub send_html {
my ( $self, $c, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);