view release on metacpan or search on metacpan
lib/DBIx/TxnPool.pm view on Meta::CPAN
The size of pool when a commit method will be called when feeding reaches the same size.
=item block_signals B<(Optional)>
An arrayref of signals (strings) which should be blocked in slippery places for
this I<pool>. Defaults are [ qw( TERM INT ) ]. You can change globaly this list
by setting: C<< $DBIx::TxnPool::BlockSignals = [ qw( TERM INT ALARM ... ) ] >>.
For details to see here L</"SIGNAL HANDLING">
=item max_repeated_deadlocks B<(Optional)>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBIx/Web.pod view on Meta::CPAN
=item varLoad (?lock) -> self object
C<Persistent Variables>.
Loads variables into C<-var>.
Default lock level is LOCK_SH.
File will be locked until C<end> call.
=item varLock (?lock) -> success
C<Persistent Variables>.
Locks variables file.
Default is LOCK_EX.
File will be locked until C<end> call.
=item varStore () -> self
C<Persistent Variables>.
Stores C<-var> into variables file.
LOCK_EX is used.
File will be locked until C<end> call.
=item w32adhi () -> Active Directory Host Info object
C<User Identification>.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBIx/Wrapper/Changes.pm view on Meta::CPAN
=over 4
=item Fixed tests using SQLite
SQLite sometimes fails with a "database locked" error if the db
file is opened more than once. This may be because File::Temp is
locking the file.
See RT 76411 (L<https://rt.cpan.org/Public/Bug/Display.html?id=76411>)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBM/Deep/Storage.pm view on Meta::CPAN
Take a lock usable for reading.
=item * unlock( $obj )
Releases the last lock taken. If this is the outermost lock, then the
object is actually unlocked.
=back
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
This module provides a wrapper for the DB_File module, adding locking.
When you need locking, simply use this module in place of DB_File and
add an extra argument onto the tie command specifying if the file should
be locked for reading or writing.
The alternative is to write code like:
open(LOCK, "<$db_filename.lock") or die;
flock(LOCK, LOCK_SH) or die;
Also realize that when acquiring two locks at the same time, a deadlock
situation can be caused.
You can enter a deadlock situation if two processes simultaneously try to
acquire locks on two separate databases. Each has locked only one of
the databases, and cannot continue without locking the second. Yet this
will never be freed because it is locked by the other process. If your
processes all ask for their DB files in the same order, this situation
cannot occur.
=head1 OTHER LOCKING MODULES
view all matches for this distribution
view release on metacpan or search on metacpan
get_av|5.006000|5.003007|p
getc|5.003007||Viu
get_c_backtrace|5.021001||Vi
get_c_backtrace_dump|5.021001||V
get_context|5.006000|5.006000|nu
getc_unlocked|5.003007||Viu
get_cv|5.006000|5.003007|p
get_cvn_flags|5.009005|5.003007|p
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
PERL_MALLOC_WRAP|5.009002|5.009002|Vn
PerlMem_calloc|5.006000||Viu
PerlMem_free|5.005000||Viu
PerlMem_free_lock|5.006000||Viu
PerlMem_get_lock|5.006000||Viu
PerlMem_is_locked|5.006000||Viu
PerlMem_malloc|5.005000||Viu
PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
PerlMemParse_calloc|5.006000||Viu
PerlMemParse_free|5.006000||Viu
PerlMemParse_free_lock|5.006000||Viu
PerlMemParse_get_lock|5.006000||Viu
PerlMemParse_is_locked|5.006000||Viu
PerlMemParse_malloc|5.006000||Viu
PerlMemParse_realloc|5.006000||Viu
PerlMem_realloc|5.005000||Viu
PerlMemShared_calloc|5.006000||Viu
PerlMemShared_free|5.006000||Viu
PerlMemShared_free_lock|5.006000||Viu
PerlMemShared_get_lock|5.006000||Viu
PerlMemShared_is_locked|5.006000||Viu
PerlMemShared_malloc|5.006000||Viu
PerlMemShared_realloc|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000|5.006000|n
PERL_MULTICONCAT_HEADER_SIZE|5.027006||Viu
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
view all matches for this distribution
view release on metacpan or search on metacpan
doc/rfc3921-notes.txt view on Meta::CPAN
Upon receiving initial presence from the user, the contact's server
MUST deliver the user's presence stanza to the full JIDs
(<contact@example.org/resource>) associated with all of the contact's
available resources, but only if the user is in the contact's roster
with a subscription state of "to" or "both" and the contact has not
blocked inbound presence notifications from the user's bare or full
JID (as defined under Blocking Inbound Presence Notifications
(Section 10.10)).
If the user's server receives a presence stanza of type "error" in
response to the initial presence that it sent to a contact on behalf
doc/rfc3921-notes.txt view on Meta::CPAN
Saint-Andre Standards Track [Page 17]
RFC 3921 XMPP IM October 2004
has not blocked outbound presence notifications, and (3) from whom
the server has not received a presence error during the user's
session (as well as to any of the user's other available resources).
If the presence stanza has a 'type' attribute set to a value of
"unavailable", the user's server MUST broadcast the full XML of that
doc/rfc3921-notes.txt view on Meta::CPAN
resource may become unavailable unexpectedly or may be timed out by
the server. If one of the user's resources becomes unavailable for
any reason (either gracefully or ungracefully), the user's server
MUST broadcast unavailable presence to all contacts (1) that are in
the user's roster with a subscription type of "from" or "both", (2)
to whom the user has not blocked outbound presence, and (3) from whom
the server has not received a presence error during the user's
session; the user's server MUST also send that unavailable presence
stanza to any of the user's other available resources, as well as to
any entities to which the user has sent directed presence during the
user's session for that resource (if the user has not yet sent
doc/rfc3921-notes.txt view on Meta::CPAN
values, the server MUST return to the client a <bad-request/> stanza
error.)
The <item/> element MAY contain one or more child elements that
enable an entity to specify more granular control over which kinds of
stanzas are to be blocked (i.e., rather than blocking all stanzas).
The allowable child elements are:
o <message/> -- blocks incoming message stanzas
o <iq/> -- blocks incoming IQ stanzas
o <presence-in/> -- blocks incoming presence notifications
doc/rfc3921-notes.txt view on Meta::CPAN
As a result of creating and applying the foregoing list, the user
will not receive any communications from, nor send any stanzas to,
any other users.
10.14. Blocked Entity Attempts to Communicate with User
If a blocked entity attempts to send message or presence stanzas to
the user, the user's server SHOULD silently drop the stanza and MUST
NOT return an error to the sending entity.
doc/rfc3921-notes.txt view on Meta::CPAN
Saint-Andre Standards Track [Page 83]
RFC 3921 XMPP IM October 2004
If a blocked entity attempts to send an IQ stanza of type "get" or
"set" to the user, the user's server MUST return to the sending
entity a <service-unavailable/> stanza error, since this is the
standard error code sent from a client that does not understand the
namespace of an IQ get or set. IQ stanzas of other types SHOULD be
silently dropped by the server.
Example: Blocked entity attempts to send IQ get:
<iq type='get'
to='romeo@example.net'
from='tybalt@example.com/pda'
id='probing1'>
<query xmlns='jabber:iq:version'/>
</iq>
Example: Server returns error to blocked entity:
<iq type='error'
from='romeo@example.net'
to='tybalt@example.com/pda'
id='probing1'>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DLM/Client.pm view on Meta::CPAN
if ( DLM::Client::lock_resource( 'LOCK_NAME', LKM_EXMODE, 0, $lock_id) == 0 ){
print "Locked\n";
}
if ( DLM::Client::unlock_resource($lock_id) == 0 ) {
print "Unlocked\n";
}
=head1 DESCRIPTION
DLM::Client is a direct binding to linux distributed lock manager (DLM is part of the Linux kernel from version 2.6.19) from RedHat.
lib/DLM/Client.pm view on Meta::CPAN
0 is returned if the call completed successfully. If not, -1 is returned and $! is set to one of the
following:
EINVAL An invalid parameter was passed to the call (eg bad lock mode or flag)
ENOMEM A (kernel) memory allocation failed
EAGAIN LKF_NOQUEUE was requested and the lock could not be granted
EBUSY The lock is currently being locked or converted
EFAULT The userland buffer could not be read/written by the kernel (this indicates a library problem)
=head2 unlock_resource($lockid);
Unlocks the resource.
lib/DLM/Client.pm view on Meta::CPAN
=head3 Return codes:
0 is returned if the call completed successfully. If not, -1 is returned and errno is set to one of the
following:
EINVAL An invalid parameter was passed to the call (eg bad lock mode or flag)
EINPROGRESS The lock is already being unlocked
EBUSY The lock is currently being locked or converted
=head2 Example
my $lockid;
my $status = lock_resource("mylock", LKM_EXMODE, 0, $lockid);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DNS/BL/cmds/connect/db.pm view on Meta::CPAN
=head1 DESCRIPTION
This module implements the connection to a DB backend where C<DNS::BL>
data will be stored. On each call to this class' methods, a hash will
be C<tie()>d and then C<untie()>d. This guarantees that the underlying
DB structure will be unlocked and available for other commands that
may, for instance, replace or manipulate the hash "from under us".
The following methods are implemented by this module:
=over
view all matches for this distribution
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
get_av|5.006000|5.003007|p
getc|5.003007||Viu
get_c_backtrace|5.021001||Vi
get_c_backtrace_dump|5.021001||V
get_context|5.006000|5.006000|nu
getc_unlocked|5.003007||Viu
get_cv|5.006000|5.003007|p
get_cvn_flags|5.009005|5.003007|p
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
easyxs/ppport.h view on Meta::CPAN
PERL_MALLOC_WRAP|5.009002|5.009002|Vn
PerlMem_calloc|5.006000||Viu
PerlMem_free|5.005000||Viu
PerlMem_free_lock|5.006000||Viu
PerlMem_get_lock|5.006000||Viu
PerlMem_is_locked|5.006000||Viu
PerlMem_malloc|5.005000||Viu
PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
PerlMemParse_calloc|5.006000||Viu
PerlMemParse_free|5.006000||Viu
PerlMemParse_free_lock|5.006000||Viu
PerlMemParse_get_lock|5.006000||Viu
PerlMemParse_is_locked|5.006000||Viu
PerlMemParse_malloc|5.006000||Viu
PerlMemParse_realloc|5.006000||Viu
PerlMem_realloc|5.005000||Viu
PerlMemShared_calloc|5.006000||Viu
PerlMemShared_free|5.006000||Viu
PerlMemShared_free_lock|5.006000||Viu
PerlMemShared_get_lock|5.006000||Viu
PerlMemShared_is_locked|5.006000||Viu
PerlMemShared_malloc|5.006000||Viu
PerlMemShared_realloc|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000|5.006000|n
PERL_MULTICONCAT_HEADER_SIZE|5.027006||Viu
easyxs/ppport.h view on Meta::CPAN
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DS/TypeSpec.pm view on Meta::CPAN
sub field_names {
my( $self, $fields ) = @_;
return keys %{$self->{fields}};
}
sub keys_locked {
my( $self, $keys_locked ) = @_;
my $result = 1;
if( $keys_locked ) {
$self->{keys_locked} = $keys_locked ? 1 : 0;
} else {
$keys_locked = $self->{keys_locked};
}
return $result;
}
sub values_readonly {
view all matches for this distribution
view release on metacpan or search on metacpan
CAB/Queue/File.pm view on Meta::CPAN
## Package DTA::CAB::Queue::File::Locked
package DTA::CAB::Queue::File::Locked;
use Fcntl qw(:flock);
our @ISA = qw(DTA::CAB::Queue::File);
sub _locked {
my $subname = shift;
my $supersub = DTA::CAB::Queue::File->can($subname);
die(__PACKAGE__, "::_locked(): no superclass subroutine for '$subname'") if (!$supersub);
return sub {
my (@rc);
flock($_[0]{queue},LOCK_EX) if ($_[0]{queue});
if (wantarray) {
@rc = $supersub->(@_);
CAB/Queue/File.pm view on Meta::CPAN
flock($_[0]{queue},LOCK_UN) if ($_[0]{queue});
return wantarray ? @rc : $rc[0];
};
}
*enq = _locked('enq');
*deq = _locked('deq');
*peek = _locked('peek');
*reset = _locked('reset');
#*close = _locked('close');
1; ##-- be happy
__END__
view all matches for this distribution
view release on metacpan or search on metacpan
timetheese/tpl/stackoverflow_homepage.html view on Meta::CPAN
</div>
</div>
<div class="question-summary narrow" id="question-summary-15327979">
<div onclick="window.location.href='/questions/15327979/ajaxcontroltoolkit-dll-constantly-getting-locked-for-checkout'" class="cp">
<div class="votes">
<div class="mini-counts">0</div>
<div>votes</div>
</div>
<div class="status unanswered">
timetheese/tpl/stackoverflow_homepage.html view on Meta::CPAN
<div>views</div>
</div>
</div>
<div class="summary">
<h3><a href="/questions/15327979/ajaxcontroltoolkit-dll-constantly-getting-locked-for-checkout" class="question-hyperlink" title="We reference the AjaxControlToolkit.dll in our ASP.net 4.0 Web Site project. Recently we started getting an erro...
<div class="tags t-aspûnet t-visual-studio-2010 t-tfs2010">
<a href="/questions/tagged/asp.net" class="post-tag" title="show questions tagged 'asp.net'" rel="tag">asp.net</a> <a href="/questions/tagged/visual-studio-2010" class="post-tag" title="show questions tagged 'visual-studio-2010'" rel="tag...
</div>
<div class="started">
<a href="/questions/15327979/ajaxcontroltoolkit-dll-constantly-getting-locked-for-checkout" class="started-link"><span title="2013-03-10 21:38:06Z" class="relativetime">14m ago</span></a>
<a href="/users/1624069/frank-thomas">Frank Thomas</a> <span class="reputation-score" title="reputation score" dir="ltr">808</span>
</div>
</div>
</div>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Daemon/Generic.pm view on Meta::CPAN
print "Configuration looks okay\n" if $do eq 'check';
my $pidfile = $self->{gd_pidfile};
my $killed = 0;
my $locked = 0;
if (-e $pidfile) {
if ($locked = lock($pidfile, undef, 'nonblocking')) {
# old process is dead
if ($do eq 'status') {
print "$self->{gd_progname} dead\n";
exit 1;
}
lib/Daemon/Generic.pm view on Meta::CPAN
my $oldpid = read_file($pidfile);
chomp($oldpid);
if ($oldpid) {
if ($do eq 'stop' or $do eq 'restart') {
$killed = $self->gd_kill($oldpid);
$locked = lock($pidfile);
if ($do eq 'stop') {
unlink($pidfile);
exit;
}
} elsif ($do eq 'reload') {
lib/Daemon/Generic.pm view on Meta::CPAN
} elsif ($do eq 'start' || $do eq 'debug') {
print "\u$self->{gd_progname} is already running (pid $oldpid)\n";
exit; # according to LSB, this is no error
}
} else {
$self->gd_error("Pid file $pidfile is invalid but locked, exiting\n");
}
}
} else {
$locked = lock($pidfile, undef, 'nonblocking')
or die "Could not lock pid file $pidfile: $!";
}
if ($do eq 'reload' || $do eq 'stop' || $do eq 'check' || ($do eq 'restart' && ! $killed)) {
print "No $self->{gd_progname} running\n";
lib/Daemon/Generic.pm view on Meta::CPAN
$self->gd_check($pidfile);
exit
}
unless ($do eq 'reload' || $do eq 'restart' || $do eq 'start' || $do eq 'debug') {
$self->gd_other_cmd($do, $locked);
}
unless ($self->{gd_foreground} || $do eq 'debug') {
$self->gd_daemonize;
}
$locked or lock($pidfile, undef, 'nonblocking')
or die "Could not lock PID file $pidfile: $!";
write_file($pidfile, "$$\n");
print STDERR "Starting up...\n";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Daemon/Shutdown/Monitor/smbstatus.pm view on Meta::CPAN
Monitor samba file locks
=head1 DESCRIPTION
Uses C<smbstatus> to look for locked files every "loop_sleep". If no files are locked,
the flag "trigger_pending" is set. If a further "trigger_time" seconds
pass and all disks are still in a spun down state, the trigger is sent back to the parent
process (return 1).
=head1 METHODS
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
lazy => 1,
default => sub { 1 },
);
has 'job_locked' => (
is => 'rw',
isa => 'Bool',
default => sub { 0 },
);
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
}
}
my $wrapper = sub {
# reset job_locked attribute to unlocked to start with
$self->job_locked(0);
# get the next message from the queue (includes locking)
my $msg = $self->dequeue;
# error if message was empty or not a hashref
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
before 'stop' => sub {
my ($self) = @_;
if (exists $self->job->{message} and $self->job_locked) {
$self->unlock_job($self->job->{message});
}
return;
};
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
$msg->{meta}->{$key} = $self->job->{message}->{meta}->{$key}
if exists $self->job->{message}->{meta}->{$key};
}
}
$self->unlock_job($msg) if $self->job_locked;
return $self->$orig($queue, $msg, $reply_queue, $exchange);
};
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
and exists $msg->{meta}->{wait_for}
and not $self->wants_reply);
# log worker and update job if we have to
my $status = delete $msg->{status};
if ($self->log_worker_enabled and $self->job_locked) {
$self->log_worker($msg);
$self->update_job($msg, $status);
}
$self->unlock_job($msg) if $self->job_locked;
# reply if needed and wanted
$self->queue($self->reply_queue, $msg) if $self->wants_reply;
}
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
my $success = $self->$mode($key, $value);
# return error to prevent any further processing in around 'start' wrapper
if ($mode eq 'lock') {
if ($success) {
$self->job_locked(1);
return 1;
}
else {
# we need to take into account that KT may be slow
# replicating so we need a way to re-try here once after
# a set timeout.
sleep($self->jobqueue_sync_delay);
if ($self->$mode($key, $value)) {
$self->job_locked(1);
return 1;
}
$msg->{error} = "job locked by different worker process";
$self->job_locked(0);
return;
}
}
else {
$self->job_locked(0);
return 1;
}
}
return 1;
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
=head2 item_key
=head2 log_worker_enabled
=head2 job_locked
=head2 jobqueue_sync_delay
=head1 SUBROUTINES/METHODS provided
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
unlock job before we get terminated
=head2 queue
pass on some meta information if needed (user, account, session).
unlock job ID before sending it off unless it's already unlocked or locking failed.
=head2 dequeue
store rabbitMQ message in job attribute after receiving.
try to lock job ID if applicable
view all matches for this distribution
view release on metacpan or search on metacpan
public/javascripts/jQuery/jquery-1.7.2.min.js view on Meta::CPAN
/*! jQuery v1.7.2 jquery.com | jquery.org/license */
(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cu(a){if(!cj[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ck||(ck=c.createElement("ifram...
a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3]....
.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(argumen...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer/Plugin/Auth/Extensible.pm view on Meta::CPAN
# WHERE password LIKE '%' instead - which would not be a Good Thing.
my ($username, $password) = @{ params() }{qw(username password)};
for ($username, $password) {
if (ref $_) {
# TODO: handle more cleanly
die "Attempt to pass a reference as username/password blocked";
}
}
if(logged_in_user()) {
redirect params->{return_url} || $userhomepage;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer/Plugin/FakeCGI.pm view on Meta::CPAN
debug("After _capture_end() ");
}
return $err if ($params->{ret_error});
# When is in CGI called system() function, there is problem with filehandle and it is a blocked, then try to reopen it
sub _reopen_file {
return unless ($_[0]);
close($_[0]) or warn "Can't close IO handler";
open(my $fh, "<:utf8", $_[0]) or die "Can't reopen for reading : $!";
return $fh;
view all matches for this distribution
view release on metacpan or search on metacpan
public/javascripts/jQuery/jquery-1.11.3.min.js view on Meta::CPAN
/*! jQuery v1.11.3 | (c) 2005, 2015 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
return!0}function Q(a,b,d,e){if(m.acceptData(a)){var f,g,h=m.expando,i=a.nodeType,j=i?m.cache:a,k=i?a[h]:a[h]&&h;if(k&&j[k]&&(e||j[k].data)||void 0!==d||"string"!=typeof b)return k||(k=i?a[h]=c.pop()||m.guid++:h),j[k]||(j[k]=i?{}:{toJSON:m.noop}),("o...
return new Za.prototype.init(a,b,c,d,e)}m.Tween=Za,Za.prototype={constructor:Za,init:function(a,b,c,d,e,f){this.elem=a,this.prop=c,this.easing=e||"swing",this.options=b,this.start=this.now=this.cur(),this.end=d,this.unit=f||(m.cssNumber[c]?"":"px")},...
//# sourceMappingURL=jquery.min.map
view all matches for this distribution
view release on metacpan or search on metacpan
}
sub jquery_minified {
return <<'EOF';
/*! jQuery v1.11.0 | (c) 2005, 2014 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
}}function S(a,b,c){if(n.acceptData(a)){var d,e,f=a.nodeType,g=f?n.cache:a,h=f?a[n.expando]:n.expando;if(g[h]){if(b&&(d=c?g[h]:g[h].data)){n.isArray(b)?b=b.concat(n.map(b,n.camelCase)):b in d?b=[b]:(b=n.camelCase(b),b=b in d?[b]:b.split(" ")),e=b.len...
},a,b,arguments.length>1)},show:function(){return Wb(this,!0)},hide:function(){return Wb(this)},toggle:function(a){return"boolean"==typeof a?a?this.show():this.hide():this.each(function(){V(this)?n(this).show():n(this).hide()})}});function $b(a,b,c,d...
EOF
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/Extensible/Provider/Database.pm view on Meta::CPAN
$self->set_user_details( $username, %update );
};
=head1 COOKBOOK
=head2 Handle locked or disabled user accounts
I<(contributed by PerlDuck, Borodin and simbabque
L<via Stack Overflow|https://stackoverflow.com/questions/46746864>)>
It's a good practice to not delete certain data, like user accounts. But what
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
my $params = $app->request->body_parameters->as_hashref;
# First check for password reset request, if applicable
if ( $plugin->reset_password_handler && $params->{submit_reset} ) {
my $username = $params->{username_reset};
croak "Attempt to pass reference to reset blocked" if ref $username;
$plugin->password_reset_send( username => $username );
return $app->forward(
$plugin->login_page,
{ reset_sent => 1 },
{ method => 'GET' }
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
for ( $username, $password ) {
if ( ref $_ ) {
# TODO: handle more cleanly
croak "Attempt to pass a reference as username/password blocked";
}
}
if ( $plugin->logged_in_user ) {
# uncoverable condition false
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/YARBAC.pm view on Meta::CPAN
=head1 CONTROLLING AUTHENTICATION ACCESS
There are three ways you can control authentication access to your app.
One is using the keyword 'hook_before_require_login' which is a global
check for all routes.
This is handy if your app is mostly locked down with only a few exceptions.
The exceptions can be specified in your apps config using the option
'no_login_required' and putting in exempt routes here as a regex.
The second option is to use the keyword 'require_login' which must be
set on each route you wish authentication to be a requirement.
This is handy when most of your app is open to the big wide
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/FormValidator/Input.pm view on Meta::CPAN
sub get {
return $_[0]->_input;
}
# Create locked copy.
sub _clone_and_lock_input {
# Copy input to work with isolated HashRef.
my $input = dclone($_[1]);
# Lock input to prevent accidental modifying.
view all matches for this distribution
view release on metacpan or search on metacpan
use Test2::V0;
use Test2::Plugin::ExitSummary;
todo 'general list of todos' => sub {
fail $_ for
'blocked_attributes';
};
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
examples/MyApp2/public/javascripts/jquery.js view on Meta::CPAN
/*! jQuery v2.1.4 | (c) 2005, 2015 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
return M.access(a,b,c)},removeData:function(a,b){M.remove(a,b)},_data:function(a,b,c){return L.access(a,b,c)},_removeData:function(a,b){L.remove(a,b)}}),n.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.leng...
void 0===c?d&&"get"in d&&null!==(e=d.get(a,b))?e:(e=n.find.attr(a,b),null==e?void 0:e):null!==c?d&&"set"in d&&void 0!==(e=d.set(a,c,b))?e:(a.setAttribute(b,c+""),c):void n.removeAttr(a,b))},removeAttr:function(a,b){var c,d,e=0,f=b&&b.match(E);if(f&&1...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/REST.pm view on Meta::CPAN
status_416 status_requested_range_not_satisfiable
status_417 status_expectation_failed
status_418 status_i_m_a_teapot
status_420 status_enhance_your_calm
status_422 status_unprocessable_entity
status_423 status_locked
status_424 status_failed_dependency
status_425 status_unordered_collection
status_426 status_upgrade_required
status_428 status_precondition_required
status_429 status_too_many_requests
status_431 status_request_header_fields_too_large
status_444 status_no_response
status_449 status_retry_with
status_450 status_blocked_by_windows_parental_controls
status_451 status_redirect
status_494 status_request_header_too_large
status_495 status_cert_error
status_496 status_no_cert
status_497 status_http_to_https
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dancer2/Core/HTTP.pm view on Meta::CPAN
428 => 'Precondition Required',
429 => 'Too Many Requests',
431 => 'Request Header Fields Too Large',
444 => 'No Response',
449 => 'Retry With',
450 => 'Blocked by Windows Parental Controls',
451 => 'Unavailable For Legal Reasons',
494 => 'Request Header Too Large',
495 => 'Cert Error',
496 => 'No Cert',
497 => 'HTTP to HTTPS',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/dansguardian.pm view on Meta::CPAN
Dansguardian Perl module is small module for administer dansguardian's content control files. It let you add, remove and get information from files control across methods.
=head1 METHODS
Dansguardian perl module provides some basic methods for administer control files, with it you can add, remove and get information about IP's blocked, sites denies, IP exception and other information.
=head2 new (constructor)
$dg = Dansguardian->new([%attributes])
view all matches for this distribution