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/06_timeout.t view on Meta::CPAN
use CGI ();
our %STORE;
{
package TestAppTimeout;
use base qw(CGI::Application);
use CGI::Application::Plugin::Authentication;
__PACKAGE__->authen->config(
t/06_timeout.t view on Meta::CPAN
my ($now, $query, $cgiapp, $results);
diag('The following tests have some small time delays');
$query = CGI->new( { authen_username => 'user', authen_password => '123', rm => 'two' } );
$cgiapp = TestAppTimeout->new( QUERY => $query );
$results = $cgiapp->run;
ok( $cgiapp->authen->is_authenticated,'successful login' );
is( $cgiapp->authen->username, 'user', 'username set' );
is( $STORE{username}, 'user', 'username set in store' );
t/06_timeout.t view on Meta::CPAN
# Sleep so we know if the last_access time is updated
select(undef, undef, undef, 1.1);
$query = CGI->new( { rm => 'two' } );
$cgiapp = TestAppTimeout->new( QUERY => $query );
$results = $cgiapp->run;
ok( $STORE{last_access} > $STORE{last_login}, 'last access updated on next request' );
t/06_timeout.t view on Meta::CPAN
ok( !$cgiapp->authen->is_authenticated, 'user logged out' );
ok( !$cgiapp->authen->is_login_timeout, 'logout not caused by timeout' );
{
package TestAppTimeoutIDLE_FOR;
use base qw(TestAppTimeout);
__PACKAGE__->authen->config(
DRIVER => [ 'Generic', { user => '123' } ],
STORE => [ 'Store::Dummy', \%STORE ],
LOGIN_SESSION_TIMEOUT => {
t/06_timeout.t view on Meta::CPAN
);
}
# login again
$query = CGI->new( { authen_username => 'user', authen_password => '123', rm => 'two' } );
$cgiapp = TestAppTimeout->new( QUERY => $query );
$results = $cgiapp->run;
# Sleep so we have enough idle time
select(undef, undef, undef, 1.1);
$query = CGI->new( { rm => 'two' } );
$cgiapp = TestAppTimeoutIDLE_FOR->new( QUERY => $query );
$results = $cgiapp->run;
ok( !$cgiapp->authen->is_authenticated, 'IDLE_FOR idle time exceeded so user logged out' );
ok( $cgiapp->authen->is_login_timeout, 'logout caused by timeout' );
{
package TestAppTimeoutEVERY;
use base qw(TestAppTimeout);
__PACKAGE__->authen->config(
DRIVER => [ 'Generic', { user => '123' } ],
STORE => [ 'Store::Dummy', \%STORE ],
LOGIN_SESSION_TIMEOUT => {
t/06_timeout.t view on Meta::CPAN
);
}
# login again
$query = CGI->new( { authen_username => 'user', authen_password => '123', rm => 'two' } );
$cgiapp = TestAppTimeoutEVERY->new( QUERY => $query );
$results = $cgiapp->run;
# Sleep so we have enough idle time
select(undef, undef, undef, 1.1);
$query = CGI->new( { rm => 'two' } );
$cgiapp = TestAppTimeoutEVERY->new( QUERY => $query );
$results = $cgiapp->run;
ok( !$cgiapp->authen->is_authenticated, 'EVERY idle time exceeded so user logged out' );
{
package TestAppTimeoutCUSTOM;
use base qw(TestAppTimeout);
__PACKAGE__->authen->config(
DRIVER => [ 'Generic', { user => '123' } ],
STORE => [ 'Store::Dummy', \%STORE ],
LOGIN_SESSION_TIMEOUT => {
t/06_timeout.t view on Meta::CPAN
);
}
# login again
$query = CGI->new( { authen_username => 'user', authen_password => '123', rm => 'two' } );
$cgiapp = TestAppTimeoutCUSTOM->new( QUERY => $query );
$results = $cgiapp->run;
# no need to sleep here
$query = CGI->new( { rm => 'two' } );
$cgiapp = TestAppTimeoutCUSTOM->new( QUERY => $query );
$results = $cgiapp->run;
ok( !$cgiapp->authen->is_authenticated, 'CUSTOM idle time exceeded so user logged out' );
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
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;
}