view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
templates/prototype_javascript.tmpl view on Meta::CPAN
this.transport.open(this.options.method, url,
this.options.asynchronous);
if (this.options.asynchronous) {
this.transport.onreadystatechange = this.onStateChange.bind(this);
setTimeout((function() {this.respondToReadyState(1)}).bind(this), 10);
}
this.setRequestHeaders();
var body = this.options.postBody ? this.options.postBody : parameters;
templates/prototype_javascript.tmpl view on Meta::CPAN
}
}
if (this.responseIsSuccess()) {
if (this.onComplete)
setTimeout((function() {this.onComplete(
this.transport)}).bind(this), 10);
}
if (this.options.evalScripts && scripts) {
match = new RegExp(Ajax.Updater.ScriptFragment, 'im');
setTimeout((function() {
for (var i = 0; i < scripts.length; i++)
eval(scripts[i].match(match)[1]);
}).bind(this), 10);
}
}
templates/prototype_javascript.tmpl view on Meta::CPAN
this.onTimerEvent();
},
stop: function() {
this.updater.onComplete = undefined;
clearTimeout(this.timer);
(this.onComplete || Ajax.emptyFunction).apply(this, arguments);
},
updateComplete: function(request) {
if (this.options.decay) {
this.decay = (request.responseText == this.lastText ?
this.decay * this.options.decay : 1);
this.lastText = request.responseText;
}
this.timer = setTimeout(this.onTimerEvent.bind(this),
this.decay * this.frequency * 1000);
},
onTimerEvent: function() {
this.updater = new Ajax.Updater(this.container, this.url, this.options);
templates/prototype_javascript.tmpl view on Meta::CPAN
return;
this.changed = true;
this.has_focus = true;
if(this.observer) clearTimeout(this.observer);
this.observer =
setTimeout(this.onObserverEvent.bind(this), this.options.frequency*1000);
},
onHover: function(event) {
var element = Event.findElement(event, 'LI');
if(this.index != element.autocompleteIndex)
templates/prototype_javascript.tmpl view on Meta::CPAN
Event.stop(event);
},
onBlur: function(event) {
// needed to make click events working
setTimeout(this.hide.bind(this), 250);
this.has_focus = false;
this.active = false;
},
render: function() {
templates/prototype_javascript.tmpl view on Meta::CPAN
var frame = Math.round(pos * this.options.fps * this.options.duration);
if(frame > this.currentFrame) {
this.render(pos);
this.currentFrame = frame;
}
this.timeout = setTimeout(this.loop.bind(this), 10);
},
render: function(pos) {
if(this.options.transition) pos = this.options.transition(pos);
pos *= (this.options.to-this.options.from);
pos += this.options.from;
if(this.options.beforeUpdate) this.options.beforeUpdate(this);
if(this.update) this.update(pos);
if(this.options.afterUpdate) this.options.afterUpdate(this);
},
cancel: function() {
if(this.timeout) clearTimeout(this.timeout);
}
}
Effect.Parallel = Class.create();
Object.extend(Object.extend(Effect.Parallel.prototype, Effect.Base.prototype), {
view release on metacpan or search on metacpan
t/noopentickets.t view on Meta::CPAN
skip('IO::Socket::INET required to check for open tickets', 1);
} else {
my $s = IO::Socket::INET->new(
PeerAddr => SITE,
PeerPort => 'http(80)',
Timeout => 5
);
if($s) {
eval 'use LWP::Simple';
if($@) {
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/CGI/ContactForm.pm view on Meta::CPAN
or die "Couldn't open timestamp file: $!";
chomp( my @timestamps = <FH> );
close FH or die $!;
if ( $cookie + 7200 < $time or ! grep $cookie eq $_, @timestamps ) {
settimestamp($tempdir, $time);
CFdie("Timeout due to more than an hour of inactivity.\n"
. '<p><a href="javascript:history.back(1)">Go back one page</a> and try again.');
}
}
sub settimestamp {
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
examples/htdocs/examples.js view on Meta::CPAN
// t.dom.value = theme;
// Ext.getBody().addClass('x-'+theme);
// }
// t.on('change', function(){
// Cookies.set('exttheme', t.getValue());
// setTimeout(function(){
// window.location.reload();
// }, 250);
// });
//
// var lb = Ext.get('lib-bar');
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
GuruMeditation.pm view on Meta::CPAN
var obj = document.getElementById('error');
if (count++ % 2 == 0)
obj.className = 'error1';
else
obj.className = 'error2';
setTimeout('blinker()', 680);
}
</script>
<title>Guru Meditation</title>
</head>
<body onLoad="setTimeout('blinker()', 1);">
<div class="canvas">
<div id="error" class="error1">
<div class="title">$title</div>
</div>
<p/>
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
this .fdgsdfgsdfgdsfgdsfg
this .fdgsdfgsdfgdsfgdsfg
this .fdgsdfgsdfgdsfgdsfg
aaaaaaaaaaaaaaaa :-(alert||foo)(1)||foo",
32 => "(this)[new Array+('eva')+new Array+ 'l'](/foo.bar/+name+/foo.bar/)",
33 => '<video/title=.10000/alert(1) onload=.1/setTimeout(title)>',
34 => "const urchinTracker = open",
35 => "-setTimeout(
1E1+
',aler\
t ( /Mario dont go, its fun phpids rocks/ ) + 1E100000 ' )",
36 => '<b/alt="1"onmouseover=InputBox+1 language=vbs>test</b>',
37 => '$$=\'e\'
2 => 'd=0||\'une\'+\'scape\'||0;a=0||\'ev\'+\'al\'||0;b=0||\'locatio\';b+=0||\'n\'||0;c=b[a];d=c(d);c(d(c(b)))',
3 => '_=eval,__=unescape,___=document.URL,_(__(___))',
4 => '$=document,$=$.URL,$$=unescape,$$$=eval,$$$($$($))',
5 => '$_=document,$__=$_.URL,$___=unescape,$_=$_.body,$_.innerHTML = $___(http=$__)',
6 => 'ev\al.call(this,unescape.call(this,location))',
7 => 'setTimeout//
(name//
,0)//',
8 => 'a=/ev/
.source
a+=/al/
view release on metacpan or search on metacpan
t/noopentickets.t view on Meta::CPAN
skip('IO::Socket::INET required to check for open tickets', 1);
} else {
my $s = IO::Socket::INET->new(
PeerAddr => SITE,
PeerPort => 'http(80)',
Timeout => 5
);
if($s) {
eval 'use LWP::Simple';
if($@) {
view release on metacpan or search on metacpan
lib/CGI/Inspect/htdocs/js/jquery.js view on Meta::CPAN
* Sizzle CSS Selector Engine - v0.9.3
* Copyright 2009, The Dojo Foundation
* Released under the MIT, BSD, and GPL Licenses.
* More information: http://sizzlejs.com/
*/
(function(){var R=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==...
view release on metacpan or search on metacpan
lib/CGI/JSONRPC/Base.js view on Meta::CPAN
if (!navigator.javaEnabled()) {
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
Makefile.PL view on Meta::CPAN
return 0 if($ENV{'NO_NETWORK_TESTING'} || $ENV{'CIRCLECI'} || $ENV{'TRAVIS_PERL_VERSION'} || $ENV{'AUTOMATED_TESTING'} || $ENV{'NONINTERACTIVE_TESTING'} || (!-t STDIN));
if(my $s = IO::Socket::INET->new(
# PeerAddr => 'www.ripe.net:43',
PeerAddr => 'whois.apnic.net:43',
Timeout => 5
)) {
if($ENV{'PERL_MM_USE_DEFAULT'}) {
close($s);
return 1;
}
Makefile.PL view on Meta::CPAN
EOF
}
close($s);
# Timeout inspired by Mail::IMAPClient
my $rc;
eval {
local $SIG{ALRM} = sub { die 'alarm' };
alarm(60);
$rc = prompt('Do you want to enable these tests?', 'y') =~ /^y/i ? 1 : 0;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/CGI/OptimalQuery/InteractiveQuery.pm view on Meta::CPAN
if ($$o{rows_page} ne 'All') {
$doc .= " <br /> <input type='checkbox' name='exportAll' />export all results"
}
$doc .= "
<br />
<button type='button' onclick=\" hideCmdOptions(); var f = this.form; if (f.exportModule[0].checked) { f.module.value = 'PrinterFriendly'; f.target = '_blank'; } else if (f.exportModule[1].checked) f.module.value = 'CSV'; else if (f.exportModule[2]...
</div>
<div id='savedSearchesOptions'>
";
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/DemoGuestBook.pm view on Meta::CPAN
if( $@ ) {
$error_msg = "can't open program module 'Net::SMTP'";
last TRY;
}
unless( $smtp = Net::SMTP->new( $host, Timeout => $timeout ) ) {
$error_msg = "can't connect to smtp host: $host";
last TRY;
}
unless( $smtp->verify( $from_email ) ) {
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
t/g4_memcached.t view on Meta::CPAN
}
for my $s (@servers) {
my $sock = IO::Socket::INET->new(
PeerAddr => $s,
Timeout => 2,
);
if (!$sock) {
plan(skip_all => "No memcached instance running at $s\n");
exit 0;
}
view release on metacpan or search on metacpan
t/g4_redis.t view on Meta::CPAN
use lib "$Bin/../lib";
my $server = '127.0.0.1:6379';
my $sock = IO::Socket::INET->new( PeerAddr => $server,
Timeout => 2, );
if ( !$sock )
{
plan( skip_all => "No redis server running upon localhost\n" );
exit 0;
}
view release on metacpan or search on metacpan
lib/CGI/SpeedyCGI.pm view on Meta::CPAN
#!/usr/bin/speedy -w -- -t300
at the top of your script will set the perl option
"C<-w>" and will pass the "C<-t>" option to SpeedyCGI, setting the
Timeout value to 300 seconds.
=back
=over
=item Environment
Environment variables can be used to pass in options. This can only be
done before the initial execution, not from within the script itself.
The name of the environment variable is always SPEEDY_ followed by the
option name in upper-case. For example to set the speedy Timeout option, use
the environment variable named SPEEDY_TIMEOUT.
=back
=over
lib/CGI/SpeedyCGI.pm view on Meta::CPAN
=item Apache
If you are using the optional Apache module, SpeedyCGI options can be
set in the F<httpd.conf> file. The name of the apache directive will always
be Speedy followed by the option name. For example to set the
Timeout option, use the apache directive SpeedyTimeout.
=back
=head2 Context
lib/CGI/SpeedyCGI.pm view on Meta::CPAN
Description:
Command-line options to pass to the perl interpreter.
=item Timeout
Command Line : -t<number>
Default Value : 3600 (one hour)
Context : mod_speedycgi, module, speedy
lib/CGI/SpeedyCGI.pm view on Meta::CPAN
=item add_shutdown_handler($function_ref)
Add a function to the list of functions that will be called right before
the perl interpreter exits. This is B<not> at the end of each request,
it is when the perl interpreter decides to exit completely due to a
Timeout or reaching MaxRuns.
$sp->add_shutdown_handler(sub {$dbh->logout});
=item set_shutdown_handler($function_ref)
view release on metacpan or search on metacpan
lib/CGI/Tiny.pm view on Meta::CPAN
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required', # RFC 7235: Authentication
408 => 'Request Timeout',
409 => 'Conflict',
410 => 'Gone',
411 => 'Length Required',
412 => 'Precondition Failed', # RFC 7232: Conditional Request
413 => 'Content Too Large', # RFC 9110: HTTP Semantics
lib/CGI/Tiny.pm view on Meta::CPAN
451 => 'Unavailable For Legal Reasons', # RFC 7725: Legal Obstacles
500 => 'Internal Server Error',
501 => 'Not Implemented',
502 => 'Bad Gateway',
503 => 'Service Unavailable',
504 => 'Gateway Timeout',
505 => 'HTTP Version Not Supported',
506 => 'Variant Also Negotiates', # RFC 2295: Transparant Ngttn
507 => 'Insufficient Storage', # RFC 4918: WebDAV
508 => 'Loop Detected', # RFC 5842: WebDAV bindings
509 => 'Bandwidth Limit Exceeded', # Apache / cPanel
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
use IO::Socket::INET;
my $s = IO::Socket::INET->new(
PeerAddr => 'www.facebook.com:443',
Timeout => 10
);
unless($s) {
die 'CGI::Untaint::Facebook needs a permanent connexion to the Internet';
}
view release on metacpan or search on metacpan
t/private/javascripts/datepicker.js view on Meta::CPAN
// Lazy load to avoid excessive CPU usage with lots of controls on one page
this.datepicker = null;
this.originalValue = null;
this.hideTimeout = null;
if (this.options.icon) {
var cont = new Element('div', {'style': 'position: relative;'});
this.element.parentNode.replaceChild(cont, this.element);
cont.appendChild(this.element);
t/private/javascripts/datepicker.js view on Meta::CPAN
},
tr: function(str) {
return this.i18n.tr(str);
},
delayedHide: function(e) {
this.hideTimeout = setTimeout(this.hide.bind(this), 100);
},
pickerClicked: function() {
if (this.hideTimeout) {
clearTimeout(this.hideTimeout);
this.hideTimeout = null;
}
if (this.handlers.onClick)
this.handlers.onClick();
},
datePicked: function(date) {
t/private/javascripts/datepicker.js view on Meta::CPAN
this.handlers.onSelect(date);
if (this.element.onchange)
this.element.onchange();
},
dateHover: function(date) {
if (this.hideTimeout) {
clearTimeout(this.hideTimeout);
this.hideTimeout = null;
}
if (this.pickerActive) {
this.element.value = DateFormat.format(date, this.options.currentFormat);
if (this.handlers.onHover)
this.handlers.onHover(date);
t/private/javascripts/datepicker.js view on Meta::CPAN
cell.className = 'otherminute';
var otherInput = document.createElement('input');
otherInput.type = 'text';
otherInput.maxLength = 2;
otherInput.style.width = '2em';
var inputTimeout = null;
otherInput.onkeyup = function(e) {
if (!isNaN(otherInput.value)) {
this.currentDate.setMinutes(otherInput.value);
this.dateChanged(this.currentDate);
}