view release on metacpan or  search on metacpan

SimpleTemplate.pm  view on Meta::CPAN

	print STDERR "-- RENDERING ($package)\n" if ($s->{debug} > 1);

	my $fun = $_cache{$_[0]};
	my $usecache = $fun ? 1 : $s->{cache};

	# check for updated template
	if ($fun && ($s->{reload} > 0)) {
		my $filetime = (stat($_[0]))[9];
		if ($_cache_time{$_[0]} < $filetime) {
			print STDERR "-- RELOADING ($package)\n" if ($s->{debug} > 1);
			$fun = undef;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - removed _delegator() from Apache::Singleton.  it causes problems under
      MP2

0.10  Sun Nov 22 2009
  *** new maintainer: Michael Schout <mschout@cpan.org>
    - updated Makefile.PL
    - added META_MERGE to Makefile.PL
    - update so mod_perl2 2.0 >= RC5 is supported
    - split out test mocks into t/lib
    - add mod_perl2 tests
    - sign the dist, add signature test

 view release on metacpan or  search on metacpan

lib/Apache/Sling/LDAPSynch.pm  view on Meta::CPAN

 --attributes or -a (attribs)          - Comma separated list of attributes.
 --auth (type)                         - Specify auth type. If ommitted, default is used.
 --download-user-list (userList)       - Download user list to file userList
 --flag-disabled or -f                 - property to denote user should be disabled.
 --help or -?                          - View the script synopsis and options.
 --ldap-attributes or -A (attribs)     - Specify ldap attributes to be updated.
 --ldap-base or -B (ldapBase)          - Specify ldap base to synchronize users from.
 --ldap-dn or -D (ldapDN)              - Specify ldap DN for authentication.
 --ldap-filter or -F (filter)          - Specify ldap attribute to search for users with.
 --ldap-host or -H (host)              - Specify ldap host to synchronize from.
 --ldap-pass or -P (pass)              - Specify ldap pass for authentication.

 view release on metacpan or  search on metacpan

lib/Apache/TestSSLCA.pm  view on Meta::CPAN

eval { require Net::SSLeay; };
if (Apache::Test::normalize_vstring($version) >= 
    Apache::Test::normalize_vstring("1.1.1")
    && !defined(&Net::SSLeay::CTX_set_post_handshake_auth)) {
    # OpenSSL 1.1.1 disables PHA by default client-side in TLSv1.3 but
    # most clients are not updated to enable it (at time of writing).
    # Many mod_ssl tests require working PHA, so disable v1.3 unless
    # using an updated Net::SSLeay. This is strictly insufficient
    # since an updated IO::Socket::SSL is also needed; to be
    # continued.  Ref: https://github.com/openssl/openssl/issues/6933
    $sslproto = "all -TLSv1.3";
}

my $ca_dn = {

 view release on metacpan or  search on metacpan

lib/Apache/UploadMeter.pm  view on Meta::CPAN

        $hook_cache->remove($hook_id."lastupdaterate");
        $hook_cache->remove($hook_id."lastupdatelen");
	$hook_cache->clear;
	$hook_cache->purge; #best I can do for now...
    } else {
    	# Set a refresh header so the meter gets updated
	my $uri = APR::URI->parse($r->pool, $r->uri);
	$uri->scheme($ENV{HTTPS}?"https":"http");
	$uri->port($r->server->port ? $r->server->port : APR::URI::port_of_scheme($uri->scheme));
	$uri->path($r->uri);
	$uri->hostname($r->server->server_hostname);

 view release on metacpan or  search on metacpan

lib/Apache/UploadSvr/User.pm  view on Meta::CPAN

C<user> corresponds to the username with which the users identify
in the authentication stage. C<email> is their email address where
the transaction tickets are delivered to. C<lastname> is their family name.
<fullname> is whatever the fullname is composed of in the local culture.
C<salut> is the salutation like C<Herr> or C<Mister>. C<lastlogin>
is the timestamp that is updated with every request. C<introduced> is
the timestamp when the user got registered (not used in this uploadserver).
C<password> is the crypted
password in the default upload server. If the authentication handler
uses a different table, then this field is not needed. C<changedon>
and C<changedby> are not used in this application, they are only used as

 view release on metacpan or  search on metacpan

lib/Apache/VMonitor.pm  view on Meta::CPAN

    my $pid = $params{pid} || 0;

    # really just a worker index (in threaded mpm)
    my $tid = $params{thread_num} || '';

    # build the updated URL (append the pid k/v pair)
    my $url = $r->uri . "?pid=$pid&" . join "&", map {"$_=$cfg{$_}"} keys %cfg;

    # if refresh is non-null, set the refresh header
    $r->headers_out->set(Refresh => "$cfg{refresh}; URL=$url") 
        if $cfg{refresh};

 view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Table.pm  view on Meta::CPAN

	unless ($params->{$self->{'pkey'}} =~ /$self->{'pkey_regexp'}/) {
		return $self->display_error("Invalid ID");
	}

	# find the record to be updated
	my $res = $dbh->selectall_arrayref("
		SELECT ".
			join(",",@{$self->{'columns'}}). "
		FROM
			$self->{'table'}

 view release on metacpan or  search on metacpan

Wyrd/SQLForm.pm  view on Meta::CPAN

=cut

sub default_update_ok {
	my ($self) = @_;
	return "<BR>The record was successfully updated";
}

=item (scalar) C<primary_delete_error> (void)

Format the log entry that occurs when the edited record cannot be

Wyrd/SQLForm.pm  view on Meta::CPAN

sub _added_hook {
	my ($self, $spec) = @_;
	$self->_logger_hook($spec, 'added');
}

=item (scalar) C<_updated_hook> (hashref)

Like the _deleted_hook above.

=cut

sub _updated_hook {
	my ($self, $spec) = @_;
	$self->_logger_hook($spec, 'updated');
}

=item C<_sets>, C<_join_sets>, C<_split_sets>

Hook methods for dealing with data which may arrive from CGI as an array, but is submitted in the form of a comma-joined set of values.  These are usually data in a SET or ENUM column within an SQL database table.

Wyrd/SQLForm.pm  view on Meta::CPAN

			$log_title = $self->default_error;
			$log .= $self->default_update_error($err);
		} else {
			$log .= $self->default_update_ok;
		}
		$self->_updated_hook({table=>$table,column=>$index,value=>$var{$index}});
	} else {#Perform an insert
		delete($var{$index}) unless ($self->_flags->check_index);
		my $sh = $self->do_query("insert into $table set " . set_clause(keys(%var)), \%var);
		my $err = $sh->errstr;
		if ($err) {

 view release on metacpan or  search on metacpan

lib/Apache/XBEL.pm  view on Meta::CPAN

nodes may be viewed and bookmarked as unique pages, so you don't
have to click through a gazillion nested leaves to find what
you're looking for.

Once individual nodes/pages have been rendered, they are cached
to reduce the load on the server. Cache files are updated
whenever any of the widgets involved in the transformation are
modified.

=head1 OPTIONS

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	  and added XPointerCGIAcceptParam config options.

	- Updated dependency for Apache::XPointer to 1.1

	- Overloaded Apache::XPointer::RDQL::Parser's "" operator
	  and updated internal (unducomented) code to reflect changes
	  in Apache::XPointer 1.1

	- Updated and fixed a bunch of errors in the POD

1.0	Mon Nov 15, 2004

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- Updated POD

1.01    Mon Nov 15, 2004

	- updated POD to include Apache::XPointer::RDQL in
	  list of supported schemes

1.0     Sat Nov 13, 2004

	- Bless as 1.0

 view release on metacpan or  search on metacpan

lib/DBIx/SearchProfiles.pm  view on Meta::CPAN

=head2 record_update ( $name, \%params );

This method will update a record in the table specified by the profile
$name. The I<params> argument is a reference to an hash which contains
the record data to be updated. The hash should contains one element
for each key specified in the I<keys> field of the profile. Each
elements in the fields that is a valid table fields (as specified by
the I<fields> element of the profile) will be updated. Any elements
specified I<defaults> and not present in the I<params> hash will also
be updated.

Return value is undefined.

=cut

lib/DBIx/SearchProfiles.pm  view on Meta::CPAN

=head2 template_update ( $name, params )

This method will update records according to the profile $name and
using standard template's placholders substitutions semantics.

Return value is the number of rows updated.

=cut

sub template_update {
    my $self = shift;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.11 - Thu Oct 25 21:31:21 2007
	* Squashing warnings from the code.

0.10 - Tue Jan  9 23:05:47 2007
	* updated copyright and license info
	* no code changes, so no need to upgrade

0.09 - Wed May 17 22:22:22 2006
	* updates to distro and kwalitee. No need to upgrade.

 view release on metacpan or  search on metacpan

lib/Apache2/API/Response.pm  view on Meta::CPAN

        }
        else
        {
            # Remove all Set-Cookie headers
            $self->err_headers->unset( 'Set-Cookie' );
            # Now, re-add our updated set
            foreach my $cookie_str ( @cookie_headers )
            {
                $self->err_headers->add( 'Set-Cookie' => $cookie_str );
            }
        }

 view release on metacpan or  search on metacpan

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

  }
  
  sub after_update {
    my ($s, $context, $Upload) = @_;
    
    warn "Just updated '$Upload->{filename_only}'";
    return $Response->Redirect( $ENV{HTTP_REFERER} );
  }
  
  sub after_delete {
    my ($s, $context, $filename) = @_;

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

=head1 UPLOAD PROGRESS INDICATORS

C<Apache2::ASP::MediaManager> makes it easy to provide upload progress indicators.

Remember that C<uploadID> parameter in the C<action> attribute of your form? While 
the upload is taking place, the C<$Session> object is getting updated with the
status of the upload.  If you were to make another handler - C</handlers/UploadProgress.pm> -
and insert the following code:

  package UploadProgress;

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

=head2 before_update( $self, $context, $Upload )

Called before allowing a new file to be uploaded to replace an existing file.

B<NOTE>: This method must return true, or the file will not be updated.

=head2 after_update( $self, $context, $Upload )

Called after a new file has been uploaded to replace an existing file.

 view release on metacpan or  search on metacpan

lib/Apache2/Ajax.pm  view on Meta::CPAN

configuration directive I<PJX_fn>, to be described below.

=item * my $html = $ajax-E<gt>build_html(%build_args);

This returns the HTML used for the web page, either the
complete html for the whole page or the updated html;
this corresponds to the I<build_html()> method of
L<CGI::Ajax>. This method also accepts optional
arguments, in the form of a hash, of two types:

=over

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.01  Wed Aug 16 09:07:59 2000
	- original version; created by h2xs 1.19

0.20  Mon Jun 10 06:33:30 2003
	- Makefile.PL updated to prompt for automatic downloading of module dependencies.
	- using ExtUtils::AutoInstall Makefile now prompts for prereqs Net::LDAP and mod_perl
	- AuthNetLDAP.pm modified to work with both mod_perl 1 and mod_perl-1.99 or greater

0.21  Tue Jun 11 06:33:30 2003
	- Move $VERSION number variable above the BEGIN block so that PAUSE will 

 view release on metacpan or  search on metacpan

aap-passwd  view on Meta::CPAN

my $passwd = prompt 'Enter new Apache2::Authen::Passphrase password: ';
my $confirm = prompt 'Retype new Apache2::Authen::Passphrase password: ';

die "Sorry, passwords do not match\n" unless $passwd eq $confirm;
pwset $username, $passwd;
say 'Password updated successfully'; ## no critic (RequireCheckedSyscalls)

__END__

=head1 NAME

aap-passwd  view on Meta::CPAN

=head1 SYNOPSIS

  user@hostname:~$ aap-passwd /path/to/rootdir marius
  Enter new Apache2::Authen::Passphrase password: ***
  Retype new Apache2::Authen::Passphrase password: ***
  Password updated successfully

=head1 DESCRIPTION

aap-passwd updates the password of an Apache2::Authen::Passphrase user.

 view release on metacpan or  search on metacpan

smb/Changes  view on Meta::CPAN

0.92 Jan 4 2002
    - Added functions for Apache::AuthenNTLM (Gerald Richter)

0.93-0.96 Seg 3 2002
    - updated smbval, fixed bugs in smbval VC count handling,
      fixed bug in nonce passing

 view release on metacpan or  search on metacpan

Auth/RCS/Auth.pm,v  view on Meta::CPAN

@


1.10
log
@Ported to mod_perl2 and updated HTML.
@
text
@# $Id: Auth.pm,v 1.9 2002/07/31 16:44:14 Administrator Exp $

package Apache2::AuthenSecurID::Auth;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.01  Thu Jun 09 14:50:00 2005
        - Moving module into Apache2 namespace.
        - loading Apache2::* instead of Apache::
        - Modified Apache::Htgroup to Apache2::Htgroup (Contacted rbowen about porting)
        - Documentation is updated.

Revision history for Perl extension Apache::AuthenSmb.

0.72  Fri Mar 26 14:50:00 2004
	- split domain\username so that one can manipulate

Changes  view on Meta::CPAN

0.60  Mon Jun  7 14:50:00 1999
        - Fixed Smb->Authen::Smb deal in Makefile.PL
        - Require Authen::Smb 0.9 or greater due to buffer overflow problem

0.50  Wed Mar 24 15:26:00 1999
	- Change Smb to Authen::Smb and updated the documentation

0.20  Wed Jul  1 13:24:00 1998
	- Fixed bug where blank username would give you access.

0.10  Fri Apr 17 10:10:10 1998

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.03. (2008-06-29) - Adam Prime <adam.prime@utoronto.ca>

	- updated to work with DirBasedHandler 0.03

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - complete API and internal rewrite
      o added DispatchExtras and DispatchPrefix directive
      o removed per-server configurations
      o added new pre_dispatch, post_dispatch, error_dispatch
        and dispatch_index method tie-ins
  - updated documentation
  - more kudos to Matt Sergeant for invaluable insight

0.02  8.1.2000
  - thanks again to Matt Sergeant for input not limited to
    the following valuable suggestions
      o add DispatchBase for dispatching on a protected,
        per-location basis
      o add DispatchMethod Prefix for protecting methods
        behind a dispatch_ prepend
  - changed behavior of directory and server merges
  - updated the documentation

0.01  7.28.2000
  - original version
  - many kudos and thanks to:
      Vivek Khera

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.02  Fri Jun 21 10:30:55 2002  Philip Collins
  - made javacript control cut / copy buffer so module user does not 
    need to call the constructor before sending the header anymore.
  - added rsync functionality
  - checked for null filenames with javascript in rename and mkdir actions
  - updated documentation

0.03  Fri Jun 21 11:00:11 2002  Philip Collins
  - added prerequisite modules to 'PREREQ_PM' in Makefile.PL.

0.04  Fri Jun 21 04:30:00 2002 Philip Collins

Changes  view on Meta::CPAN

  - display file "type" next to filename. (similar to ls -F)
  - Updated delete confirm box message.
  - added go to previous directory (..) control

0.13 Thur July 11 14:32:21 Philip Collins
  - updated the documentation

0.14 Thur July 11 17:15:10 Philip Collins
  - updated look of application
  - added the beginnings of the help section
  - used CSS tags to to hovering underline
  - enlarged the file upload path boxes to 40 (Hardy)

0.15 Friday July 12 20:50:02 Philip Collins

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - added Makefile.PL, so CPANPLUS testers stop failing tests because they
      don't have Module::Build installed

1.01    Fri Sep 21 13:39 PDT 2007
    - added explicit dependency on MP2
    - updated test requirements to "need_*" instead of "have_*"

1.00    Thu Sep 20 16:47 PDT 2007
    - initial version

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - added Makefile.PL, so CPANPLUS testers stop failing tests because they
      don't have Module::Build installed

1.01    Fri Sep 21 13:31 PDT 2007
    - added explicit dependency on MP2
    - updated test requirements to "need_*" instead of "have_*"

1.00    Thu Sep 20 12:45 PDT 2007
    - initial version

 view release on metacpan or  search on metacpan

lib/Apache2/PageKit/View.pm  view on Meta::CPAN

    die "Error loading record for page_id $page_id and view $pkit_view"
      unless $record;
  }

  if($view->{reload} ne 'no'){
    # check for updated files on disk
    unless($view->_is_record_uptodate($record, $pkit_view, $page_id)){
      # one of the included files changed on disk, reload
      $view->_load_page($page_id, $pkit_view);
      $record = $view->_fetch_from_file_cache($page_id, $pkit_view, $lang);
    }

 view release on metacpan or  search on metacpan

lib/Apache2/SSI/File/Type.pm  view on Meta::CPAN

    # 3) Iterate over each magic entry.
    my $match_found = 0;
    for( my $m = 0; $m <= $#{ $self->{magic_data} }; $m++ ) 
    {
        # Check if the m-th magic entry matches and if it does, then $desc will contain 
        # an updated description
        my $test;
        if( ( $test = $self->_magic_match( $self->{magic_data}->[$m], \$desc, $io ) ) ) 
        {
            if( defined( $desc ) && $desc ne '' ) 
            {

lib/Apache2/SSI/File/Type.pm  view on Meta::CPAN

    
    # 3) Iterate over each magic entry.
    for( my $m = 0; $m <= $#{ $self->{magic_data} }; $m++ ) 
    {
        # Check if the m-th magic entry matches and if it does, then $desc will contain 
        # an updated description
        if( $self->_magic_match_str( $self->{magic_data}->[ $m ], \$desc, $data ) ) 
        {
            if( defined( $desc ) && $desc ne '' ) 
            {
                $type = $desc;

 view release on metacpan or  search on metacpan

lib/Apache2/Translation/Admin.pm  view on Meta::CPAN

	if( ($oblock, $block, $oorder, $order, $id)=
	    $a=~/^action_(\d*)_(\d+)_(\d*)_(\d+)_(\d*)/ ) {
	  $action=$r->param($a);
	  $note=$r->param("note_${block}_${order}");
	  if( length $id ) {
	    die "ERROR: Key=$okey, Uri=$ouri, Block=$oblock, Order=$oorder, Id=$id not updated\n"
	      unless( 0<$prov->update( [$okey, $ouri, $oblock, $oorder, $id],
				       [$key, $uri, $block, $order, $action, $note] ) );
	  } else {
	    die "ERROR: Key=$key, Uri=$uri, Block=$block, Order=$order not inserted\n"
	      unless( 0<$prov->insert( [$key, $uri, $block, $order, $action, $note] ) );