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 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
inc/CGI/Session.pm view on Meta::CPAN
$CGI::Session::VERSION = '4.20';
$CGI::Session::NAME = 'CGISESSID';
$CGI::Session::IP_MATCH = 0;
sub STATUS_NEW () { 1 } # denotes session that's just created
sub STATUS_MODIFIED () { 2 } # denotes session that needs synchronization
sub STATUS_DELETED () { 4 } # denotes session that needs deletion
sub STATUS_EXPIRED () { 8 } # denotes session that was expired.
sub import {
my ($class, @args) = @_;
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/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";