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 all matches for this distribution
view release on metacpan or search on metacpan
lib/App/MechaCPAN.pm view on Meta::CPAN
'no-log!',
'directory|d=s',
'build-reusable-perl!',
);
# Timeout when there's no output in seconds
our $TIMEOUT = $ENV{MECHACPAN_TIMEOUT} // 60;
our $VERBOSE; # Print output from sub commands to STDERR
our $QUIET; # Do not print any progress to STDERR
our $LOGFH; # File handle to send the logs to
our $LOG_ON = 1; # Default if to log or not
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Memcached/CLI/DataSource.pm view on Meta::CPAN
my $socket = sub {
return IO::Socket::UNIX->new(Peer => $addr) if is_unixsocket($addr);
return IO::Socket::INET->new(
PeerAddr => $addr,
Proto => 'tcp',
Timeout => $opts{timeout} || 1,
);
}->();
confess "Can't connect to $addr" unless $socket;
return $class->new(socket => $socket);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Memcached/Tool/DataSource.pm view on Meta::CPAN
my $socket = sub {
return IO::Socket::UNIX->new(Peer => $addr) if is_unixsocket($addr);
return IO::Socket::INET->new(
PeerAddr => $addr,
Proto => 'tcp',
Timeout => $opts{timeout} || 5,
);
}->();
confess "Can't connect to $addr" unless $socket;
return $class->new(socket => $socket);
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
root/js/ext-3.3.1/adapter/ext/ext-base.js view on Meta::CPAN
* Ext JS Library 3.3.1
* Copyright(c) 2006-2010 Sencha Inc.
* licensing@sencha.com
* http://www.sencha.com/license
*/
window.undefined=window.undefined;Ext={version:"3.3.1",versionDetail:{major:3,minor:3,patch:1}};Ext.apply=function(d,e,b){if(b){Ext.apply(d,b)}if(d&&e&&typeof e=="object"){for(var a in e){d[a]=e[a]}}return d};(function(){var g=0,t=Object.prototype.to...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/bootstrap.min.js view on Meta::CPAN
/**
* bootstrap.js v3.0.0 by @fat and @mdo
* Copyright 2013 Twitter Inc.
* http://www.apache.org/licenses/LICENSE-2.0
*/
if(!jQuery)throw new Error("Bootstrap requires jQuery");+function(a){"use strict";function b(){var a=document.createElement("bootstrap"),b={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionen...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/MonM/Notifier/Monotifier.pm view on Meta::CPAN
Set RaiseError 0
Set PrintError 0
Set mysql_enable_utf8 1
# Expires and timeout values
Timeout 60
MaxTime 300
Expires 1M
</MoNotifier>
=head1 INTERNAL METHODS
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/MonM/Channel/Command.pm view on Meta::CPAN
# Schedule
#At Sun-Sat[00:00-23:59]
# Command Options
Content body
Timeout 20s
</Channel>
=head1 DESCRIPTION
view all matches for this distribution
view release on metacpan or search on metacpan
use POE qw( Wheel::Run );
use Term::ANSIColor qw(:constants);
use Text::Balanced;
our $VERSION = '2.0207';
our @DEFAULT_SHELL_COMMAND = (ssh => '-o', 'BatchMode yes', '-o', 'StrictHostKeyChecking no', '-o', 'ConnectTimeout 20', '[%u]-l', '[]%u', '%h');
# new {{{
sub new {
my $class = shift;
my $this = bless { hosts=>[], cmd=>[], _shell_cmd=>[@DEFAULT_SHELL_COMMAND] }, $class;
view all matches for this distribution
view release on metacpan or search on metacpan
t/integration/lwp.t view on Meta::CPAN
sub initialize_processes
{
if (@ARGV && $ARGV[0] eq 'daemon') {
my $d = $proto eq 'http' ?
HTTP::Daemon->new(Timeout => 20, LocalAddr => '127.0.0.1') :
HTTP::Daemon::SSL->new(Timeout => 20, LocalAddr => '127.0.0.1'); # need certs/ dir
$SIG{PIPE}='IGNORE';
$| = 1;
print "Please to meet you at: <URL:", $d->url, ">\n";
$!=0;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/MultiModule/Tasks/HTTPClient.pm view on Meta::CPAN
if $self->{debug} > 5;
my $url = $message->{http_url};
my $timeout = $message->{http_timeout} || 30;
POE::Component::Client::HTTP->spawn(
Alias => $url,
Timeout => $timeout,
);
my $response_handler = sub {
my ($request_packet, $response_packet) = @_[ARG0, ARG1];
my $request_object = $request_packet->[0];
my $response_object = $response_packet->[0];
view all matches for this distribution
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Async-0.10
pathname: M/MJ/MJD/Async-0.10.tar.gz
provides:
Async 0.10
AsyncData 0.10
AsyncTimeout 0.10
requirements:
ExtUtils::MakeMaker 0
B-Hooks-EndOfScope-0.15
pathname: E/ET/ETHER/B-Hooks-EndOfScope-0.15.tar.gz
provides:
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
public/javascripts/ace.js view on Meta::CPAN
(function(){function o(n){var i=e;n&&(e[n]||(e[n]={}),i=e[n]);if(!i.define||!i.define.packaged)t.original=i.define,i.define=t,i.define.packaged=!0;if(!i.require||!i.require.packaged)r.original=i.require,i.require=r,i.require.packaged=!0}var ACE_NAMES...
window.require(["ace/ace"], function(a) {
if (a) {
a.config.init(true);
a.define = window.define;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Netdisco/AnyEvent/Nbtstat.pm view on Meta::CPAN
# This default should generate ~ 50 requests per second
$interval = 0.2 unless defined $interval;
my $timeout = $args{timeout};
# Timeout should be 250ms according to RFC1002, but we're going to double
$timeout = 0.5 unless defined $timeout;
my $self = bless { interval => $interval, timeout => $timeout, %args },
$class;
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Netsync/SNMP.pm view on Meta::CPAN
$config{'Retries'} = 5;
$config{'RetryNoSuch'} = 0;
$config{'SecEngineId'} = undef;
$config{'SecLevel'} = 'noAuthNoPriv';
$config{'SecName'} = 'initial';
$config{'Timeout'} = 1000000;
$config{'Version'} = 3;
$config{'MIBdir'} = '/usr/share/'.$SCRIPT.'/mib';
SNMP::addMibDirs($config{'MIBdir'});
}
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
bin/nostray view on Meta::CPAN
Timer, Tips, Type, TypeError, Toggle, Try, "use strict", unescape, URI, URIError, URL,
VBArray, WSH, WScript, XDomainRequest, Web, Window, XMLDOM, XMLHttpRequest, XMLSerializer,
XPathEvaluator, XPathException, XPathExpression, XPathNamespace, XPathNSResolver, XPathResult,
"\\", a, addEventListener, address, alert, apply, applicationCache, arguments, arity, asi, atob,
b, basic, basicToken, bitwise, block, blur, boolOptions, boss, browser, btoa, c, call, callee,
caller, cases, charAt, charCodeAt, character, clearInterval, clearTimeout,
close, closed, closure, comment, condition, confirm, console, constructor,
content, couch, create, css, curly, d, data, datalist, dd, debug, decodeURI,
decodeURIComponent, defaultStatus, defineClass, deserialize, devel, document,
dojo, dijit, dojox, define, else, emit, encodeURI, encodeURIComponent,
entityify, eqeq, eqeqeq, eqnull, errors, es5, escape, esnext, eval, event, evidence, evil,
view all matches for this distribution
view release on metacpan or search on metacpan
eg/workflows/cpan-sample-workflow/coordinator.xml view on Meta::CPAN
jobs can lead to taking down or slowing down some systems it might be
consuming (i.e.: heavy writes on a mysql master or a job recreating
a table in every run).
-->
<!-- Timeout after 23 hours -->
<!--
<controls>
<timeout>1380</timeout>
<concurrency>1</concurrency>
<execution>FIFO</execution>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/PLab/ImageApp.pm view on Meta::CPAN
WindowRect => "@rc",
MaxState => 0,
SerType => 'Short',
extSaveDir => '',
silentExtDir => 0,
dirTimeout => 120,
statusDelay => 5,
showHint => 1,
);
}
view all matches for this distribution