view release on metacpan or search on metacpan
lib/CGI/Application/Search/Tutorial.pm view on Meta::CPAN
setup that indexing cronjob.
=head1 AJAX USAGE
L<CGI::Application::Search> provides 2 features implemented in AJAX
(Asynchronous Javascript And XML). These are:
=over
=item Non-Refresh Search
lib/CGI/Application/Search/Tutorial.pm view on Meta::CPAN
new Ajax.Updater(
'search_listing',
url,
{
parameters: query,
asynchronous: 1,
onLoading: function(request) {
$('search_listing').innerHTML = "<strong>" + msg + " ...</strong>";
}
}
);
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 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 release on metacpan or search on metacpan
lib/CGI/FileUpload.pm view on Meta::CPAN
Start the upload. A CGI::query must be passed. Other optional arguments can be of
=over 4
=item asynchronous=>(1|0) to see if the transfer must be completed before returning (0 value). default is 1;
=back
=head3 $fupload->remove()
lib/CGI/FileUpload.pm view on Meta::CPAN
sub upload{
my $self=shift;
my %params=@_;
my $query=$params{query} or Carp::confess("no query was passed");
my $asynchronous=(exists $params{asynchronous})?$params{asynchronous}:1;
my $filename=$query->param('uploadfile');
$self->file_orig($filename);
$self->pid($$);
lib/CGI/FileUpload.pm view on Meta::CPAN
$self->from_id($id->{id});
print $query->header(-type=>'text/plain',
-cookie=>$cookie,
-length=>(length($ret))+ $asynchronous?0:1,
);
print $ret;
$self->upload_status('loading');
my $fhin=CGI::upload('uploadfile')||CORE::die "cannot convert [$filename] into filehandle: $!";
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 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 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 release on metacpan or search on metacpan
lib/CGI/JSONRPC/Base.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 release on metacpan or search on metacpan
MxScreen/Config.pm view on Meta::CPAN
logs.
=item log_backlog
The amount of backlog you wish to keep after logfile rotation. Backlog
is never compressed, because it is currently performed synchronously
by C<Log::Agent::Rotate> and that could cause huge delays when C<log_maxsize>
is big, impacting your script response time.
Defaults to 7.
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 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 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 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 release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use 5.005;
use strict 'vars';
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 release on metacpan or search on metacpan
lib/CGI/Session/Driver/flexmysql.pm view on Meta::CPAN
locking gives absolutely no protection. MySQL already guranatees that
data is not corrupted when we update the same row from different
places at nearly the same time because it uses a queue for the requests.
It would be different if, once it detected that there is a lock, it
read the data again and SYNCHRONIZED it before updating. Then locking
would be helpful because no other client could synchronize at the same
time. But CGI::Session::MySQL doesn't actually do anything that requires
locking.
A real use for locking would be to actually lock the session data while
the it's being used. GET_LOCK and RELEASE_LOCK are usually not the
view release on metacpan or search on metacpan
lib/CGI/Session.pm view on Meta::CPAN
$CGI::Session::NAME = 'CGISESSID';
$CGI::Session::IP_MATCH = 0;
sub STATUS_UNSET () { 1 << 0 } # denotes session that's resetted
sub STATUS_NEW () { 1 << 1 } # denotes session that's just created
sub STATUS_MODIFIED () { 1 << 2 } # denotes session that needs synchronization
sub STATUS_DELETED () { 1 << 3 } # denotes session that needs deletion
sub STATUS_EXPIRED () { 1 << 4 } # denotes session that was expired.
sub import {
my ($class, @args) = @_;
view release on metacpan or search on metacpan
t/private/javascripts/prototype.js view on Meta::CPAN
});
Ajax.Base = Class.create({
initialize: function(options) {
this.options = {
method: 'post',
asynchronous: true,
contentType: 'application/x-www-form-urlencoded',
encoding: 'UTF-8',
parameters: '',
evalJSON: true,
evalJS: true
t/private/javascripts/prototype.js view on Meta::CPAN
var response = new Ajax.Response(this);
if (this.options.onCreate) this.options.onCreate(response);
Ajax.Responders.dispatch('onCreate', this, response);
this.transport.open(this.method.toUpperCase(), this.url,
this.options.asynchronous);
if (this.options.asynchronous) this.respondToReadyState.bind(this).defer(1);
this.transport.onreadystatechange = this.onStateChange.bind(this);
this.setRequestHeaders();
this.body = this.method == 'post' ? (this.options.postBody || params) : null;
this.transport.send(this.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 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 release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use 5.005;
use strict 'vars';
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 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 release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use 5.005;
use strict 'vars';
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 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 release on metacpan or search on metacpan
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
## print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
## print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
## print $FH " {\n";
## print $FH " if (__typeCode == null)\n";
## print $FH " {\n";
## print $FH " if (__active)\n";
## print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " {\n";
print $FH " throw new org.omg.CORBA.MARSHAL();\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " __typeCode = org.omg.CORBA.ORB.init ().get_primitive_tc (org.omg.CORBA.TCKind.tk_objref);\n";
print $FH " __typeCode = org.omg.CORBA.ORB.init ().create_alias_tc (",$node->{java_Helper},".id (), \"",$node->{java_helper},"\", __typeCode);\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
print $FH " return read (a.create_input_stream ());\n";
print $FH " }\n";
print $FH "\n";
print $FH " private static org.omg.CORBA.TypeCode __typeCode = null;\n";
print $FH " private static boolean __active = false;\n";
print $FH " synchronized public static org.omg.CORBA.TypeCode type ()\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " synchronized (org.omg.CORBA.TypeCode.class)\n";
print $FH " {\n";
print $FH " if (__typeCode == null)\n";
print $FH " {\n";
print $FH " if (__active)\n";
print $FH " {\n";
view release on metacpan or search on metacpan
omnithreads/shared/shared.pm view on Meta::CPAN
C<cond_signal> or C<cond_broadcast> for that same locked variable.
The variable that C<cond_wait> blocked on is relocked after the
C<cond_wait> is satisfied. If there are multiple threads
C<cond_wait>ing on the same variable, all but one will reblock waiting
to reacquire the lock on the variable. (So if you're only using
C<cond_wait> for synchronisation, give up the lock as soon as
possible). The two actions of unlocking the variable and entering the
blocked wait state are atomic, the two actions of exiting from the
blocked wait state and relocking the variable are not.
In its second form, C<cond_wait> takes a shared, B<unlocked> variable
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 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 release on metacpan or search on metacpan
corpus/dists/Digest-MD5.changes view on Meta::CPAN
2002-05-05 Gisle Aas <gisle@ActiveState.com>
Release 2.20
More synchronization with tweaks Jarkko have done to the
bleadperl test suite. This time various EBCDIC hacks.
Outside PERL_CORE the md5-aaa.t test loaded the wrong version of
the module (and would fail if no previous Digest::MD5 was installed).
Patch by Mike Stok <mike@stok.co.uk>
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 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 release on metacpan or search on metacpan
lib/CPAN.pm view on Meta::CPAN
=head2 Debugging
Debugging this module is more than a bit complex due to interference from
the software producing the indices on CPAN, the mirroring process on CPAN,
packaging, configuration, synchronicity, and even (gasp!) due to bugs
within the CPAN.pm module itself.
For debugging the code of CPAN.pm itself in interactive mode, some
debugging aid can be turned on for most packages within
CPAN.pm with one of