view release on metacpan or search on metacpan
lib/Apache/Session/Memorycached.pm view on Meta::CPAN
'updateOnly' => 1 ,
'principal' => uid,
};
In order to optimize the network ,you can use a local memcached server.
All read-only opération are sending fisrt at local server .If you need write ou rewrite data , the data is sending at the principal memcached sever and local cache too for synchronisation.
note : 'updateOnly' => 1 just realize up-date operation not init operation.
Init operation is use in order to book and lock the number session but it's not available in this module
'principal' => uid : this parameter is use to create reverse reference
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
->view_file( $class->{'CachePath'} . q(/) . $class->{'CacheFile'} )
or croak q(Problem viewing synch cache file);
my $synch_cache;
my $success = eval ${ $class->{'Content'} }->{'Message'};
if ( !defined $success ) {
croak q{Error parsing synchronized cache dump.};
}
return $synch_cache;
}
#}}}
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
->view_file( $class->{'CachePath'} . q(/) . $class->{'UserList'} )
or croak q(Problem viewing synch user list);
my $synch_user_list;
my $success = eval ${ $class->{'Content'} }->{'Message'};
if ( !defined $success ) {
croak q{Error parsing synchronized user list dump.};
}
return $synch_user_list;
}
#}}}
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
foreach my $user ( sort keys %{$synch_user_list} ) {
if ( open my $out, '>>', $user_list_file ) {
flock $out, LOCK_EX;
print {$out} $user . "\n"
or croak
q(Problem printing when downloading synchronized user list!);
flock $out, LOCK_UN;
close $out
or croak
q(Problem closing file handle when downloading synchronized user list!);
}
else {
croak q(Could not open file to download synchronized user list to!);
}
}
$class->{'Message'} =
"Successfully downloaded user list to $user_list_file!";
return 1;
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
else {
croak q(Unable to open synch user list file to parse for upload!);
}
$class->update_synch_user_list( \%user_list_hash );
$class->{'Message'} =
q(Successfully uploaded user list for use in subsequent synchronizations!);
return 1;
}
#}}}
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
return 0;
}
#}}}
#{{{sub perform_synchronization
sub perform_synchronization {
my ( $class, $array_of_dns, $search_result, $seen_user_ids, $synch_cache,
$ldap_attrs_array, $sling_attrs_array )
= @_;
foreach my $dn ( @{$array_of_dns} ) {
my $valref = $search_result->{$dn};
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
my %seen_user_ids;
# process each DN using it as a key
my @array_of_dns = sort keys %{$search_result};
$class->perform_synchronization(
\@array_of_dns, $search_result, \%seen_user_ids,
$synch_cache, \@ldap_attrs_array, \@sling_attrs_array
);
# Clean up records no longer in ldap:
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
$synch_cache->{$cache_entry}->{ $class->{'Disabled'} } = '1';
}
}
$class->update_synch_cache($synch_cache);
$class->{'Message'} = 'Successfully performed a full synchronization!';
return 1;
}
#}}}
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
--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.
--log or -L (log) - Log script output to specified log file.
--man or -M - View the full script documentation.
--pass or -p (password) - Password of user performing actions.
--synch-full or -s - Perform a full synchronization from ldap to sling.
--synch-full-since or -S (since) - Perform a full synchronization from ldap to sling using changes since specified time.
--synch-listed or -l - Perform a sychronization of listed users from ldap to sling.
--synch-listed-since (since) - Perform a sychronization of listed users from ldap to sling using changes since specified time.
--upload-user-list (userList) - Upload user list specified by file userList.
--url or -U (URL) - URL for system being tested against.
--user or -u (username) - Name of user to perform any actions as.
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
sub man {
my ($ldap_synch) = @_;
print <<'EOF';
LDAP synchronization perl script. Provides a means of synchronizing user
information from an LDAP server into a running sling instance from the command
line. The script also acts as a reference implementation for the LDAPSynch perl
library.
EOF
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
$ldap_synch->help();
print <<"EOF";
Example Usage
* Upload a restricted list of users (one id per line of specified file) to use in synchronizations:
perl $0 --upload-user-list user_list.txt --sling-host http://localhost:8080 --sling-user admin --sling-pass admin
* Download a previously specified list of users to be synchronized to a specified file:
perl $0 --download-user-list user_list.txt --sling-host http://localhost:8080 --sling-user admin --sling-pass admin
* Authenticate and perform a full synchronization:
perl $0 -s -h ldap://ldap.org -b "ou=people,o=ldap,dc=org" -H http://localhost:8080 -u admin -P admin -a "displayname,mail,sn" -A "name,email,surname"
EOF
return 1;
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
__END__
=head1 NAME
Apache::Sling::LDAPSynch - synchronize users from an external LDAP server into an Apache Sling instance.
=head1 ABSTRACT
Synchronize users from an external LDAP server with the internal users
in an Apache Sling instance.
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
Initialize the Apache Sling synch cache.
=head2 get_synch_cache
Fetch the synchronization cache file.
=head2 update_synch_cache
Update the synchronization cache file with the latest state.
=head2 get_synch_user_list
Fetch the synchronization user list file.
=head2 update_synch_user_list
Update the synchronization user_list file with the latest state.
=head2 download_synch_user_list
Download the current synchronization user list file.
=head2 upload_synch_user_list
Upload a list of users to be synchronized into the sling system.
=head2 parse_attributes
Read the given ldap and sling attributes into two separate specified arrays.
Check that the length of the arrays match.
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
=head2 check_for_property_modifications
Compare a new property hash with a cached version. If any changes to properties
have been made, then return true. Else return false.
=head2 perform_synchronization
Carry out the synchronization from LDAP to Sling.
=head2 synch_full
Perform a full synchronization of Sling internal users with the external LDAP
users.
=head2 synch_full_since
Perform a synchronization of Sling internal users with the external LDAP users,
using LDAP changes since a given timestamp.
=head2 synch_listed
Perform a synchronization of Sling internal users with the external LDAP users
for a set of users listed in a specified file.
=head2 synch_listed_since
Perform a synchronization of Sling internal users with the external LDAP users,
using LDAP changes since a given timestamp for a set of users listed in a
specified file.
=head2 config
Fetch hash of ldap synchronization configuration.
=head2 run
Run ldap synchronization related actions.
=head1 USAGE
use Apache::Sling::LDAPSynch;
=head1 DESCRIPTION
Perl library providing a means to synchronize users from an external
LDAP server with the internal users in an Apache Sling instance.
=head1 REQUIRED ARGUMENTS
None required.
view all matches for this distribution
view release on metacpan or search on metacpan
0.07 2017-05-13
. Fix synopsis section
+ Handle problematic/large PDFs better
+ Keep persistent HTTP connections to Apache Tika
+ Improve the error message for problematic files
! "synchronous" is now "await"
0.06 2016-03-29
. Fix versionless release
0.05 2016-03-29
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
Ajax.Base = function() {};
Ajax.Base.prototype = {
setOptions: function(options) {
this.options = {
method: 'post',
asynchronous: true,
contentType: 'application/x-www-form-urlencoded',
encoding: 'UTF-8',
parameters: ''
}
Object.extend(this.options, options || {});
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
try {
Ajax.Responders.dispatch('onCreate', this, this.transport);
this.transport.open(this.method.toUpperCase(), this.url,
this.options.asynchronous);
if (this.options.asynchronous)
setTimeout(function() { this.respondToReadyState(1) }.bind(this), 10);
this.transport.onreadystatechange = this.onStateChange.bind(this);
this.setRequestHeaders();
var body = this.method == 'post' ? (this.options.postBody || params) : null;
this.transport.send(body);
/* Force Firefox to handle ready state 4 for synchronous requests */
if (!this.options.asynchronous && this.transport.overrideMimeType)
this.onStateChange();
}
catch (e) {
this.dispatchException(e);
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use 5.004;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Ajax.pm view on Meta::CPAN
=head1 DESCRIPTION
This module is a mod_perl2 interface to L<CGI::Ajax>,
which provides a mechanism for using perl code
asynchronously from javascript-enhanced HTML pages.
As well as L<mod_perl2>,
this package requires L<CGI::Ajax>, as well as a CGI.pm-compatible
CGI module for supplying the I<param()> and I<header()> methods.
If available, L<CGI::Apache2::Wrapper> will be used,
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
AuthNetLDAP.pm view on Meta::CPAN
nicku, then the LDAP search filter will lookup a user using the search
filter:
(uid=nicku)
Normally you will use the uid attribute, but you may want (need) to use a different attribute depending on your LDAP server or to synchronize with different applications. For example some versions of Novell's LDAP servers that I've encountered stored...
=head1 INSTALLATION
It's a pretty straightforward install if you already have mod_perl and Net::LDAP already installed.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Controller.pm view on Meta::CPAN
if you set or return an http status higher than the HTTP_OK family
(HTTP_MULTIPLE_CHOICES (300) or higher.)
You should also not fiddle with the connection by causing
Apache2 to close it prematurely, else the post-response handlers
may not run or won't run synchronously before another request
is received that may have depended on their behavior.
(For example, you can't use a C<< PerlCleanupHandler >>
to do things like that because the request has already closed,
and it doesn't get processed before taking in the next request,
even when running in single-process mode.)
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
#Rsync
my $rsync = "";
if ($$o{'RSYNC_TO'}) {
push @cmds,
"<TD><A HREF=# onclick=\"
if (window.confirm('Are you sure you want to synchronize with ".
"the production server?')) {
var w=window.open('','RSYNC',
'scrollbars=yes,resizables=yes,width=400,height=500');
w.focus();
var d=w.document.open();
d.write('<HTML><BODY><BR><BR><BR>".
"<CENTER>Please wait synchronizing production server.".
"<BR>This could take several minutes.".
"</CENTER></BODY></HTML>');
d.close();
w.location.replace('".r->uri."?FILEMANAGER_cmd=rsync',
'RSYNC',
'scrollbars=yes,resizables=yes,width=400,height=500');
} return false;\"
><FONT COLOR=WHITE><B>synchronize</B></FONT></A>";
}
return "
<!-- Actions Tool bar -->
<TABLE CELLPADDING=0 CELLSPACING=0
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Filter/GoogleAnalytics.pm view on Meta::CPAN
</Location>
=head1 DESCRIPTION
This module transparently adds a Google Analytics service scriptlet to each
HTML document that Apache httpd serves. It behaves asynchronous pass-thru
filter, thus its impact on performance is minimal.
=head1 OPTIONS
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin/my.js view on Meta::CPAN
Element.update( 'a'+counter, opener[1] );
Element.show( 'progress' );
new Ajax.Updater( { success: 'div'+counter },
'index.html',
{ method: 'post',
asynchronous: 1,
parameters: {
a: 'fetch',
key: data.key,
uri: data.uri,
counter: counter
lib/Apache2/Translation/Admin/my.js view on Meta::CPAN
Element.update( 'a'+counter, opener[1] );
Element.show( 'progress' );
new Ajax.Updater( { success: 'div'+counter },
'index.html',
{ method: 'post',
asynchronous: 1,
parameters: {
a: 'fetch',
key: data.key,
uri: data.uri,
counter: counter
lib/Apache2/Translation/Admin/my.js view on Meta::CPAN
Element.update( 'a'+counter, opener[1] );
Element.show( 'progress' );
new Ajax.Updater( { success: 'div'+counter },
'index.html',
{ method: 'post',
asynchronous: 1,
parameters: params,
onComplete: function(req) {
if( 200<=req.status && req.status<300 ) {
add_resizer( counter );
$('save'+counter).style.visibility='hidden';
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
extra/progress.js view on Meta::CPAN
alert("XMLHttpRequest.send() - Java must be installed and enabled.");
return;
}
if (this._async) {
setTimeout(this._sendasync, 0, this, data);
// this is not really asynchronous and won't execute until the current
// execution context ends
} else {
this._sendsync(data);
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
End
=over 4
=item 3. Configure B<acmeman>. Use the B<pound> source and make sure
B<rootdir> is synchronized with the B<ACME> statement in F<pound.cfg>, as
described in point 1. E.g.:
[core]
source = pound
rootdir = /var/lib/pound/acme
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Asciio/Undo.pm view on Meta::CPAN
print DumpTree $diff_line ;
my (
$number_of_errors
, $number_of_match
, $synchronized_a
, $synchronized_b
, $error_string
) = CompareStrings($diff_line->{REFERENCE}, $diff_line->{NEW}) ;
my $undefined_line = '' ;
lib/App/Asciio/Undo.pm view on Meta::CPAN
print <<ERRORS ;
line = $diff_line->{LINE}
number_of_match = $number_of_match
number_of_errors = $number_of_errors
$undefined_line
$synchronized_a
$synchronized_b
$error_string
ERRORS
}
}
lib/App/Asciio/Undo.pm view on Meta::CPAN
=item 1 number_of_errors
=item 2 number_of_match
=item 3 synchronized_a
=item 4 synchronized_b
=item 5 error_string
=back
lib/App/Asciio/Undo.pm view on Meta::CPAN
$b .= $b[$match_indexes[$_]] ;
$last_match_in_B = $match_indexes[$_] ;
}
else
{
# match but extra letters in B, synchronize A
$a .= ' ' x ($match_indexes[$_] - ($previous + 1)) ;
$b .= join '', @b[$previous + 1 .. $match_indexes[$_]] ;
$last_match_in_B = $match_indexes[$_] ;
}
lib/App/Asciio/Undo.pm view on Meta::CPAN
else
{
if(defined $match_indexes[$_])
{
# match
# synchronize B
my $number_of_skipped_characters_in_B = ($match_indexes[$_] - 1) - ($last_match_in_B) ;
$b .= ' ' x (length($a) - (length($b) + $number_of_skipped_characters_in_B)) ;
$b .= join '', @b[$last_match_in_B + 1 .. $match_indexes[$_]] ;
$last_match_in_B = $match_indexes[$_] ;
# synchronize A if needed
$a .= ' ' x (length($b) - (length($a) + 1)) ; # +1 as current character will be appended to $a
}
#else
# letter in A doesn't match in B
}
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Find ();
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution
view release on metacpan or search on metacpan
bin/qpubsub view on Meta::CPAN
{ RaiseError => 1, PrintError => 0, AutoCommit => 1 } )
or die "Could not connect to DB $dsn" ;
if ( $dsn =~ /SQLite/i ) {
$dbh->do("PRAGMA journal_mode = WAL") ;
$dbh->do("PRAGMA synchronous = NORMAL") ;
}
my $queue = App::Basis::Queue->new(
dbh => $dbh,
default_queue => $qname,
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use FindBin;
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
view all matches for this distribution