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/AxKit/XSP/Wiki.pm view on Meta::CPAN
# create diff using Text::Diff
my $prev = @history ? $history[0] : '';
my $diff = diff(\$prev, \$contents, { STYLE => 'Unified' });
my $host = $EmailHost || 'localhost';
my $smtp = Net::SMTP->new($host, Timeout => 10);
$smtp->mail('axkitwiki') || die "Wiki email alerts: MAIL FROM:<axkitwiki> failed";
$smtp->to($EmailAlerts) || die "Wiki email alerts: RCPT TO:<$EmailAlerts> failed";
$smtp->data() || die "Wiki email alerts: DATA failed";
my $date = strftime('%a, %d %b %Y %H:%M:%S %Z', localtime);
view release on metacpan or search on metacpan
lib/AxKit2/Connection.pm view on Meta::CPAN
push @to_close, $v;
}
}
}
$_->close("Timeout") foreach @to_close;
}
1;
view release on metacpan or search on metacpan
ramblings/remark.js view on Meta::CPAN
require=function(e,t,n){function i(n,s){if(!t[n]){if(!e[n]){var o=typeof require=="function"&&require;if(!s&&o)return o(n,!0);if(r)return r(n,!0);throw new Error("Cannot find module '"+n+"'")}var u=t[n]={exports:{}};e[n][0].call(u.exports,function(t)...
this.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[this.BACKSLASH_ESCAPE]};this.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such)...
SUBST.contains=EXPRESSIONS;return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,contains:EXPRESSIONS.concat([{className:"comment",begin:"###",end:"###"},hljs.HASH_COMMENT_MODE,{className:"function",begin:"("+JS_IDENT_RE+"\\s*=\\s*)?(\\(.*\\))?\\...
}()},{}],8:[function(require,module,exports){exports.addClass=function(element,className){element.className=exports.getClasses(element).concat([className]).join(" ")};exports.removeClass=function(element,className){element.className=exports.getClasse...
events.on("slideChanged",updateHash);navigateByHash()}function navigateByHash(){var slideNoOrName=(dom.getLocationHash()||"").substr(1);events.emit("gotoSlide",slideNoOrName)}function updateHash(slideNoOrName){dom.setLocationHash("#"+slideNoOrName)}}...
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
lib/BACnet/DataTypes/Enums/PropertyIdentifier.pm view on Meta::CPAN
'Acked-Transitions' => 0, # BACnetEventTransitionBits
'Ack-Required' => 1, # BACnetEventTransitionBits
'Action' => 2, # BACnetARRAY[N] of BACnetActionList
'Adjust-Value' => 176, # REAL
'All-Writes-Successful' => 9, # BOOLEAN
'APDU-Timeout' => 11, # Unsigned
'Application-Software-Version' => 12, # CharacterString
'Archive' => 13, # BOOLEAN
'Attempted-Samples' => 124, # Unsigned
'Average-Value' => 125, # REAL
'Buffer-Size' => 126, # Unsigned32
view release on metacpan or search on metacpan
lib/BBS/Perm/Term.pm view on Meta::CPAN
$term->set_mouse_autohide( $conf->{mouse_autohide} );
}
my $timeout = defined $conf->{timeout} ? $conf->{timeout} : 60;
if ($timeout) {
$term->{timer} = Glib::Timeout->add( 1000 * $timeout,
sub { $term->feed_child( chr 0 ); return TRUE; }, $term );
}
}
sub clean { # called when child exited
view release on metacpan or search on metacpan
lib/BGPmon/Fetch/Client.pm view on Meta::CPAN
$error_code{$fname} = UNKNOWN_ERROR_CODE;
$error_msg{$fname} = UNKNOWN_ERROR_MSG;
}
return $complete_xml_msg;
}
# Timeout.
$error_code{$fname} = SOCKET_TIMEOUT_CODE;
$error_msg{$fname} = SOCKET_TIMEOUT_MSG;
return undef;
}
view release on metacpan or search on metacpan
lib/BGPmon/Fetch/Client.pm view on Meta::CPAN
$error_code{$fname} = UNKNOWN_ERROR_CODE;
$error_msg{$fname} = UNKNOWN_ERROR_MSG;
}
return $complete_xml_msg;
}
# Timeout.
$error_code{$fname} = SOCKET_TIMEOUT_CODE;
$error_msg{$fname} = SOCKET_TIMEOUT_MSG;
return 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
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
eg/nagios2bugzilla/talktobugzilla.pl view on Meta::CPAN
$log->info("Unable to locate last event $lastalias, processing current event id")
}
# skip time'd out plugins if we are going from OK to UNKNOWN
if ($params{SERVICEOUTPUT} =~ m/^UNKNOWN: Plugin failed: Timeout executing plugin/) {
$log->info( 'Skipping time\'d out plugin notice' );
try { if ($delete) { $log->debug('Removing file: ' .$f->basename); $f->remove() }}
catch { $log->warn(sprintf 'Failed to delete %s because: %s', $f->basename, $_) };
next FILELOOP
view release on metacpan or search on metacpan
my $totalServers = 0;
my $totalPlayers = 0;
for my $line (split("\n",$res->content)) {
my ($serverport, $version, $flags, $ip, $description) = split(" ",$line,5);
my @fields = ('style','maxShots','shakeWins','shakeTimeout','maxPlayerScore',
'maxTeamScore','maxTime','maxPlayers','rogueSize','rogueMax','redSize',
'redMax','greenSize','greenMax','blueSize','blueMax','purpleSize',
'purpleMax','observerSize','observerMax'
);
$response->{servers}->{$serverport}->{observersize} = $info{observerSize};
$response->{servers}->{$serverport}->{serverconfig}->{style} = $self->parsestyle($info{style});
$response->{servers}->{$serverport}->{serverconfig}->{maxshots} = $info{maxShots};
$response->{servers}->{$serverport}->{serverconfig}->{shakewins} = $info{shakeWins};
$response->{servers}->{$serverport}->{serverconfig}->{shaketimeout} = $info{shakeTimeout} / 10;
$response->{servers}->{$serverport}->{serverconfig}->{maxplayerscore} = $info{maxPlayerScore};
$response->{servers}->{$serverport}->{serverconfig}->{maxteamscore} = $info{maxTeamScore};
$response->{servers}->{$serverport}->{serverconfig}->{maxtime} = $info{maxTime};
$response->{servers}->{$serverport}->{serverconfig}->{maxplayers} = $info{maxPlayers};
$response->{servers}->{$serverport}->{serverconfig}->{roguemax} = $info{rogueMax};
while (my @option = splice(@_, 0, 2)) {
$options{$option[0]} = $option[1];
}
my $hostandport = $options{Server};
my $timeout = $options{Timeout};
my @teamName = ("X", "R", "G", "B", "P", "O", "H");
# my @teamName = ("X", "R", "G", "B", "P");
my ($message, $server);
my $response;
}
my ($infolen,$infocode,$style,$maxPlayers,$maxShots,
$rogueSize,$redSize,$greenSize,$blueSize,$purpleSize,
$rogueMax,$redMax,$greenMax,$blueMax,$purpleMax,
$shakeWins,$shakeTimeout,
$maxPlayerScore,$maxTeamScore,$maxTime) = unpack("n20", $buffer);
unless ($infocode == 0x7167) {
$self->{error} = 'errBadServerData';
return undef;
$response->{serverconfig}->{redmax} = $redMax;
$response->{serverconfig}->{greenmax} = $greenMax;
$response->{serverconfig}->{bluemax} = $blueMax;
$response->{serverconfig}->{purplemax} = $purpleMax;
$response->{serverconfig}->{shakewins} = $shakeWins;
$response->{serverconfig}->{shaketimeout} = $shakeTimeout;
$response->{serverconfig}->{maxplayerscore} = $maxPlayerScore;
$response->{serverconfig}->{maxteamscore} = $maxTeamScore;
$response->{serverconfig}->{maxtime} = $maxTime;
# send players request
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/Batch/Batchrun/Mail.pm view on Meta::CPAN
if ($Mail{SMTPSERVER})
{
@smtp_array = (split(/,/,$Mail{SMTPSERVER}));
foreach $server (@smtp_array)
{
if ( MIME::Lite->send('smtp', $server, Timeout => 20) )
{
last;
}
else
{
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
share/public/js/base/jquery.form.js view on Meta::CPAN
});
}
// support timout
if (s.timeout) {
setTimeout(function() { timedOut = true; cb(); }, s.timeout);
}
// add "extra" data to form if provided in options
var extraInputs = [];
try {
share/public/js/base/jquery.form.js view on Meta::CPAN
if (s.forceSync) {
doSubmit();
}
else {
setTimeout(doSubmit, 10); // this lets dom updates render
}
var data, doc, domCheckCount = 50;
function cb() {
share/public/js/base/jquery.form.js view on Meta::CPAN
if (!isXml && window.opera && (doc.body == null || doc.body.innerHTML == '')) {
if (--domCheckCount) {
// in some browsers (Opera) the iframe DOM is not always traversable when
// the onload callback fires, so we loop a bit to accommodate
log('requeing onLoad callback, DOM not available');
setTimeout(cb, 250);
return;
}
// let this fall through because server response could be an empty document
//log('Could not access iframe DOM after mutiple tries.');
//throw 'DOMException: not available';
share/public/js/base/jquery.form.js view on Meta::CPAN
}
s.complete && s.complete.call(s.context, xhr, ok ? 'success' : 'error');
// clean up
setTimeout(function() {
$io.removeData('form-plugin-onload');
$io.remove();
xhr.responseXML = null;
}, 100);
}
share/public/js/base/jquery.form.js view on Meta::CPAN
form.clk_x = e.pageX - target.offsetLeft;
form.clk_y = e.pageY - target.offsetTop;
}
}
// clear form vars
setTimeout(function() { form.clk = form.clk_x = form.clk_y = null; }, 100);
});
};
// ajaxFormUnbind unbinds the event handlers that were bound by ajaxForm
$.fn.ajaxFormUnbind = function() {
view release on metacpan or search on metacpan
lib/Beam/Runnable.pm view on Meta::CPAN
#pod Additional roles can add common functionality to your runnable script.
#pod Some of these are included in the C<Beam::Runner> distribution:
#pod
#pod =over
#pod
#pod =item L<Beam::Runnable::Timeout::Alarm>
#pod
#pod This role will add a timeout using Perl's built-in
#pod L<alarm()|perlfunc/alarm> function. Once the timeout is reached, the
#pod program will print a warning and exit with an error code.
#pod
lib/Beam/Runnable.pm view on Meta::CPAN
Additional roles can add common functionality to your runnable script.
Some of these are included in the C<Beam::Runner> distribution:
=over
=item L<Beam::Runnable::Timeout::Alarm>
This role will add a timeout using Perl's built-in
L<alarm()|perlfunc/alarm> function. Once the timeout is reached, the
program will print a warning and exit with an error code.
view release on metacpan or search on metacpan
abc/beamer-reveal-example.html view on Meta::CPAN
{ trigger: "manual",
customClass: "code-copy-button-tooltip",
offset: [0, -8]});
tooltip.show();
}
setTimeout(function() {
if (tooltip) {
tooltip.hide();
button.removeAttribute("data-bs-title");
button.removeAttribute("data-bs-toggle");
button.removeAttribute("data-bs-placement");
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/lib/Tests/Basic.pm view on Meta::CPAN
};
is( $resp, undef );
like( $@, qr/Call to 'test.notfound' failed: -32601 Method not found at /);
# Timeout
$resp = eval {
$cli->call_remote(
method => 'test.sleep',
params => '0.1',
timeout => '0.01',
t/lib/Tests/Basic.pm view on Meta::CPAN
isa_ok( $resp, 'Beekeeper::JSONRPC::Error' );
is( $resp->success, 0 );
is( $resp->code, -32000);
is( $resp->message, "error message 821");
# Timeout
eval {
my $req = $cli->call_remote(
method => 'test.sleep',
params => '0.2',
timeout => '0.01',
view release on metacpan or search on metacpan
data/wiki1.html view on Meta::CPAN
</li>
<li id="cite_note-473"><span class="mw-cite-backlink"><b><a href="#cite_ref-473">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFAF_SMC_[@AF_SMC]...
</li>
<li id="cite_note-474"><span class="mw-cite-backlink"><b><a href="#cite_ref-474">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2018" class="citat...
</li>
<li id="cite_note-475"><span class="mw-cite-backlink"><b><a href="#cite_ref-475">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite class="citation web cs1"><a rel="n...
</li>
<li id="cite_note-476"><span class="mw-cite-backlink"><b><a href="#cite_ref-476">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2019" class="citat...
</li>
<li id="cite_note-477"><span class="mw-cite-backlink"><b><a href="#cite_ref-477">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2019" class="citat...
</li>
view release on metacpan or search on metacpan
share/P6STD/std_hilite/STD_syntax_highlight.js view on Meta::CPAN
}
if (lastSelectedNode == node || node.nodeName != "SPAN") {
return false;
}
clearTimeout(timeoutId);
timeoutId = setTimeout(function() { updateTree(node) }, 100);
return false;
});
}
function bind_clicks() {