view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
PeerPort => $port,
$self->{local_address} ?
( LocalAddr => $self->{local_address} ) : (),
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => $self->{timeout},
KeepAlive => !!$self->{keep_alive}
) or die(qq/Could not connect to '$host:$port': $@\n/);
binmode($self->{fh})
or die(qq/Could not binmode() socket: '$!'\n/);
view release on metacpan or search on metacpan
script/cpanmodules view on Meta::CPAN
List entries of a list:
% cpanmodules ls-entries PERLANCAR::Favorites::App
App::lcpan
App::pause
App::SetScreensaverTimeout
Install all entries of a list:
% cpanmodules ls-entries PERLANCAR::Favorites::App | cpanm -n
view release on metacpan or search on metacpan
t/10-selfcheck.t view on Meta::CPAN
plan skip_all => q(no direct Internet connection)
unless IO::Socket::INET->new(
PeerHost => q(cpantesters.org),
PeerPort => 80,
Proto => q(tcp),
Timeout => 10,
);
my $reference = catfile(qw(t dists));
my $utility = catfile(qw(bin cpan-tested));
view release on metacpan or search on metacpan
$self->{fh} = 'IO::Socket::INET'->new(
PeerHost => $host,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => $self->{timeout}
) or croak(qq/Could not connect to '$host:$port': $@/);
binmode($self->{fh})
or croak(qq/Could not binmode() socket: '$!'/);
view release on metacpan or search on metacpan
script/cpanurl view on Meta::CPAN
$self->{fh} = 'IO::Socket::INET'->new(
PeerHost => $host,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => $self->{timeout}
) or die(qq/Could not connect to '$host:$port': $@\n/);
binmode($self->{fh})
or die(qq/Could not binmode() socket: '$!'\n/);
view release on metacpan or search on metacpan
lib/App/cryp/Masternode/bulwark.pm view on Meta::CPAN
$conf->{GLOBAL}{ssh_timeout} // 300;
log_trace "SSH-ing to $rec->{name} ($rec->{ip}) as $ssh_user to query masternode status (timeout=$ssh_timeout) ...";
eval {
local $SIG{ALRM} = sub { die "Timeout\n" };
# XXX doesn't cleanup ssh process when timeout triggers. same
# with IPC::Cmd, or System::Timeout (which is based on
# IPC::Cmd). IPC::Run's timeout doesn't work?
alarm $ssh_timeout;
my $ssh_cmd = $ssh_user eq $mn_user ?
"bulwark-cli listmasternodes" :
view release on metacpan or search on metacpan
lib/App/derived/Plugin/Memcached.pm view on Meta::CPAN
Host name or Address to bind
=item timeout:Int
Timeout seconds to read request. default 10.
=back
=head1 CLIENT SAMPLE
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/DNSQuery/Validator.pm view on Meta::CPAN
=cut
sub validate_timeout {
my ($timeout) = @_;
return (0, "Timeout is required")
unless defined $timeout;
return (0, "Timeout must be numeric")
unless $timeout =~ /^\d+$/;
return (0, "Timeout must be at least $MIN_TIMEOUT second(s)")
if $timeout < $MIN_TIMEOUT;
return (1, undef);
}
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
script/govproc-pericmd view on Meta::CPAN
Need to be root to be able to setuid.
=back
=head2 Timeout options
=over
=item B<--timeout>=I<s>
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
script/httpstatus view on Meta::CPAN
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required',
408 => 'Request Timeout',
409 => 'Conflict',
410 => 'Gone',
411 => 'Length Required',
412 => 'Precondition Failed',
413 => 'Request Entity Too Large',
script/httpstatus view on Meta::CPAN
],
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
507 => 'Insufficient Storage', # RFC 2518 (WebDAV)
508 => 'Loop Detected', # RFC 5842 (WebDAV)
509 => 'Bandwidth Limit Exceeded (Apache Web Server/cPanel)', # unofficial
script/httpstatus view on Meta::CPAN
511 => 'Network Authentication Required', # RFC 6585
520 => 'Unknown Error (Cloudfare)', # unofficial
521 => 'Web Server Is Down (Cloudfare)', # unofficial
522 => 'Connection Timed Out (Cloudfare)',# unofficial
523 => 'Origin Is Unreachable (Cloudfare)', # unofficial
524 => 'A Timeout Occurred (Cloudfare)', # unofficial
525 => 'SSL Handshake Failed (Cloudfare)',# unofficial
526 => 'Invalid SSL Certificate (Cloudfare)', # unofficial
527 => 'Railgun Error (Cloudfare)', # unofficial
530 => [
'Site is frozen (Pantheon)', # unofficial
script/httpstatus view on Meta::CPAN
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
410 Gone
411 Length Required
412 Precondition Failed
413 Request Entity Too Large
script/httpstatus view on Meta::CPAN
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
% httpstatus 500
Internal Server Error
view release on metacpan or search on metacpan
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required',
408 => 'Request Timeout',
409 => 'Conflict',
410 => 'Gone',
411 => 'Length Required',
412 => 'Precondition Failed',
413 => 'Request Entity Too Large',
449 => 'Retry with', # unofficial Microsoft
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
507 => 'Insufficient Storage', # RFC 2518 (WebDAV)
509 => 'Bandwidth Limit Exceeded', # unofficial
510 => 'Not Extended', # RFC 2774
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
410 Gone
411 Length Required
412 Precondition Failed
413 Request Entity Too Large
403 Forbidden
404 Not Found
405 Method Not Allowed
406 Not Acceptable
407 Proxy Authentication Required
408 Request Timeout
409 Conflict
% httpstatus 500
Internal Server Error
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/App/karr/Cmd/Edit.pm view on Meta::CPAN
# construction -- the #55 point again (ticket #123). An edit that changes
# anything else records nothing, so this adds no key.
# --release skips check_claim entirely, so an edit that breaks a claim on
# purpose records nothing and adds no key here either: it is not an override
# that went unnoticed, it is the one command whose whole job is saying so
# (App::karr::Role::ClaimTimeout/expired_claim_report, #177).
return { id => $task->id, title => $task->title,
$self->expired_claim_report( $task->id ),
$self->dependency_report( $task->id ) };
});
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/App/MadEye/Plugin/Agent/DJabberd.pm view on Meta::CPAN
my $select_timeout = $conf->{select_timeout} || 3;
my $sock = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $admin_port,
Timeout => $open_socket_timeout,
);
unless ($sock) {
return "Cannot open Socket to $host:$admin_port : $!";
}
$sock->blocking(0);
view release on metacpan or search on metacpan
scripts/mailmake view on Meta::CPAN
_die( "No SMTP host specified. Use --smtp-host (or --print to output the message instead)." );
}
my %smtp_opts = (
Host => $opts->{smtp_host},
Timeout => $opts->{smtp_timeout} // 30,
);
$smtp_opts{Port} = $opts->{smtp_port} if( defined( $opts->{smtp_port} ) );
$smtp_opts{SSL} = 1 if( $opts->{smtp_tls} );
$smtp_opts{StartTLS} = 1 if( $opts->{smtp_starttls} );
$smtp_opts{Username} = $opts->{smtp_user} if( defined( $opts->{smtp_user} ) );
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
script/mojopaste view on Meta::CPAN
["cs"]);p(v({keywords:N,cStyleComments:!0}),["java"]);p(v({keywords:y,hashComments:!0,multiLineStrings:!0}),["bash","bsh","csh","sh"]);p(v({keywords:P,hashComments:!0,multiLineStrings:!0,tripleQuotedStrings:!0}),["cv","py","python"]);p(v({keywords:...
hashComments:!0,multiLineStrings:!0,regexLiterals:!0}),["rb","ruby"]);p(v({keywords:E,cStyleComments:!0,regexLiterals:!0}),["javascript","js"]);p(v({keywords:"all,and,by,catch,class,else,extends,false,finally,for,if,in,is,isnt,loop,new,no,not,null,...
p(C([],[["str",/^[\S\s]+/]]),["regex"]);var Y=D.PR={createSimpleLexer:C,registerLangHandler:p,sourceDecorator:v,PR_ATTRIB_NAME:"atn",PR_ATTRIB_VALUE:"atv",PR_COMMENT:"com",PR_DECLARATION:"dec",PR_KEYWORD:"kwd",PR_LITERAL:"lit",PR_NOCODE:"nocode",PR...
return b.innerHTML},prettyPrint:D.prettyPrint=function(a,d){function g(){for(var b=D.PR_SHOULD_USE_CONTINUATION?c.now()+250:Infinity;i<p.length&&c.now()<b;i++){for(var d=p[i],j=h,k=d;k=k.previousSibling;){var m=k.nodeType,o=(m===7||m===8)&&k.nodeVa...
o.className&&e.test(o.className)){m=!0;break}if(!m){d.className+=" prettyprinted";m=j.lang;if(!m){var m=k.match(n),y;if(!m&&(y=U(d))&&t.test(y.tagName))m=y.className.match(n);m&&(m=m[1])}if(w.test(d.tagName))o=1;else var o=d.currentStyle,u=s.defaul...
{h:m,c:d,j:u,i:o};K(r)}}}i<p.length?setTimeout(g,250):"function"===typeof a&&a()}for(var b=d||document.body,s=b.ownerDocument||document,b=[b.getElementsByTagName("pre"),b.getElementsByTagName("code"),b.getElementsByTagName("xmp")],p=[],m=0;m<b.leng...
h={};g()}};typeof define==="function"&&define.amd&&define("google-code-prettify",[],function(){return Y})})();}()
</script>
</head>
<body class="<%= $embed =~ /nav/ ? 'has-nav' : '' %>">
script/mojopaste view on Meta::CPAN
<script>
try {
var chart = document.getElementById('chart');
var tid, resize = function() { chart.style.height = (window.innerHeight - chart.offsetTop) + 'px' };
resize();
window.onresize = function() { if (tid) clearTimeout(tid); var tid = setTimeout(resize, 10); }
new Morris.Line(<%== Mojo::JSON::encode_json(stash 'chart') %>);
} catch(e) {
document.getElementById('chart').innerHTML = 'Invalid chart data. ' + e;
}
</script>
view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
--innodb-large-prefix
Support large index prefix length of
REC_VERSION_56_MAX_INDEX_COL_LEN (3072) bytes.
(Defaults to on; use --skip-innodb-large-prefix to disable.)
--innodb-lock-wait-timeout=#
Timeout in seconds an InnoDB transaction may wait for a
lock before being rolled back. Values above 100000000
disable the timeout.
--innodb-locks-unsafe-for-binlog
DEPRECATED. This option may be removed in future
releases. Please use READ COMMITTED transaction isolation
t/samples/percona-compiled.txt view on Meta::CPAN
Set the language used for the month names and the days of
the week.
--local-infile Enable LOAD DATA LOCAL INFILE
(Defaults to on; use --skip-local-infile to disable.)
--lock-wait-timeout=#
Timeout in seconds to wait for a lock before returning an
error.
--log-bin[=name] Log update queries in binary format. Optional (but
strongly recommended to avoid replication problems if
server's hostname changes) argument should be the chosen
location for the binary log files.
t/samples/percona-compiled.txt view on Meta::CPAN
--require-secure-transport
When this option is enabled, connections attempted using
insecure transport will be rejected. Secure transports
are SSL/TLS, Unix socket or Shared Memory (on Windows).
--rpl-stop-slave-timeout=#
Timeout in seconds to wait for slave to stop before
returning a warning.
--safe-user-create Don't allow new user creation by the user who has no
write privileges to the mysql.user table.
--secure-auth Disallow authentication for accounts that have old
(pre-4.1) passwords. Deprecated. Always TRUE.
t/samples/percona-compiled.txt view on Meta::CPAN
high priority queue completely.
--thread-pool-high-prio-tickets=#
Number of tickets to enter the high priority event queue
for each transaction.
--thread-pool-idle-timeout=#
Timeout in seconds for an idle thread in the thread
pool.Worker thread will be shut down after timeout
--thread-pool-max-threads=#
Maximum allowed number of worker threads in the thread
pool
--thread-pool-oversubscribe=#
view release on metacpan or search on metacpan
lib/App/pepper.pm view on Meta::CPAN
}
}
sub handle_timeout {
$epp->{'timeout'} = int($_[0]);
note("Timeout set to %ds", $_[0]);
return 1;
}
sub handle_ssl {
if ($epp->connected) {
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
}
sub process_titan {
my ($stream, $request, $upload, $buffer, $size) = @_;
eval {
local $SIG{'ALRM'} = sub { $log->error("Timeout processing upload $request") };
alarm(10); # timeout
save_page($stream, $upload->{host}, $upload->{space}, $upload->{id},
$upload->{params}->{mime}, $buffer, $size);
alarm(0);
};
lib/App/Phoebe.pm view on Meta::CPAN
sub process_gemini {
my ($stream, $url) = @_;
eval {
local $SIG{'ALRM'} = sub {
$log->error("Timeout processing $url");
};
alarm(10); # timeout
my $hosts = host_regex();
my $port = port($stream);
my $spaces = space_regex();
view release on metacpan or search on metacpan
exit 0;
},
);
if (defined $timeout && $timeout < 0) {
usage "Timeout must be positive";
}
my $lock_file = shift
or usage "Lock file is not specified";
my $cmd = shift
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options ver...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
view release on metacpan or search on metacpan
script/proxyforurl view on Meta::CPAN
get '/v1/template' => {template => 'template'};
helper host_to_ip_p => sub ($c, $host) {
return Mojo::IOLoop->subprocess->run_p(sub (@) {
local $SIG{ALRM} = sub { die 'Timeout!' };
alarm 2;
my ($err, @info) = getaddrinfo $host;
return undef if $err;
@info = grep { $_->{family} & (AF_INET6 | AF_INET) } @info;
script/proxyforurl view on Meta::CPAN
@info = sort { $b->{pri} <=> $a->{pri} } @info;
return @info && $info[0]{ip} || undef;
})->catch(
sub ($err, @) {
return $err =~ m!Timeout! ? undef : Mojo::Promise->reject($err);
}
);
};
if (my $env_base = $ENV{PROXYFORURL_X_REQUEST_BASE}) {
script/proxyforurl view on Meta::CPAN
return true;
}
_animate(start) {
const method = start ? 'setAttribute' : 'removeAttribute';
setTimeout(() => {
this.form.querySelector('button')[method]('aria-busy', true);
}, (start ? 1 : 350));
}
async _init() {
view release on metacpan or search on metacpan
lib/App/pscan/Command/Discover.pm view on Meta::CPAN
my $self = shift;
info 'Ping for ' . $self->{'IP'}->ip();
POE::Component::Client::Ping->spawn(
Alias => 'pinger', # The component's name will be "pinger".
Timeout => 15, # The default ping timeout.
);
# Create a session that will use the pinger. Its parameters match
# event names with the functions that will handle them.
POE::Session->create(