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
// Keep timers per slide so we can cancel them cleanly
const slideTimers = new WeakMap();
function clearTimers(slide) {
const timers = slideTimers.get(slide);
if (timers) timers.forEach(id => clearTimeout(id));
slideTimers.delete(slide);
}
function stopMedia(slide) {
slide.querySelectorAll('audio,video').forEach(m => {
const timers = [];
slide.querySelectorAll('audio[data-autoplay-after], video[data-autoplay-after]').forEach(media => {
const delay = parseInt(media.getAttribute('data-autoplay-after'), 10);
if (Number.isNaN(delay)) return;
const id = setTimeout(() => {
// Only play if this slide is still current
if (Reveal.getCurrentSlide() !== slide) return;
// Play may be blocked unless user has interacted
const p = media.play();
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() {
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
bin/client.pl view on Meta::CPAN
#!/usr/bin/perl
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10);
$t->open(Host=>"localhost",Port=>9999);
while(1) {
print "OMLsql> ";
$cmd = <STDIN>;
view release on metacpan or search on metacpan
lib/BigIP/iControl.pm view on Meta::CPAN
'{urn:iControl}Networking.Interfaces.MediaType' => 1,
'{urn:iControl}Networking.ProfileWCCPGRE.WCCPGREForwarding' => 1,
'{urn:iControl}Networking.STPInstance.PathCostType' => 1,
'{urn:iControl}Networking.SelfIPPortLockdown.AllowMode' => 1,
'{urn:iControl}Networking.Trunk.DistributionHashOption' => 1,
'{urn:iControl}Networking.Trunk.LACPTimeoutOption' => 1,
'{urn:iControl}Networking.Trunk.LinkSelectionPolicy' => 1,
'{urn:iControl}Networking.Tunnel.TunnelDirection' => 1,
'{urn:iControl}Networking.VLANGroup.VLANGroupTransparency' => 1,
'{urn:iControl}Networking.iSessionLocalInterface.NatSourceAddress' => 1,
'{urn:iControl}Networking.iSessionPeerDiscovery.DiscoveryMode' => 1,
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/Bio/CIPRES/Job.pm view on Meta::CPAN
use Bio::CIPRES;
my $ua = Bio::CIPRES->new( %args );
my $job = $ua->submit_job( %params );
$job->wait(6000) or die "Timeout waiting for job completion";
warn "Job returned non-zero status" if ($job->exit_code != 0);
print STDOUT $job->stdout;
print STDERR $job->stderr;
lib/Bio/CIPRES/Job.pm view on Meta::CPAN
Returns the minimum number of seconds that the client should wait between
status updates. Generally this is called as part of a while loop.
=item B<wait>
$job->wait($timeout) or die "Timeout waiting for job to finish";
Enters a blocking loop waiting for the job to finish. Takes a single optional
argument of the maximum number of seconds to wait before timing out (default:
no timeout). Returns true if the job finishes or false if the wait times out.
view release on metacpan or search on metacpan
lib/Bio/ConnectDots/scripts/update_connectorsets.pl view on Meta::CPAN
# determine version of local file
my $local_version = get_file_date($localfile);
# initialize the ftp server
my %netftp_cfg = (Debug => 0, Timeout => 120);
my %common_cfg = ( User => 'anonymous',
Pass => 'anonymous@here.net',
Host => $ftpsite,
RemoteDir => '/', # automatic CD on remote machine to RemoteDir
Type => 'A' # overwrite I (binary) TYPE default
view release on metacpan or search on metacpan
t/05remote.t view on Meta::CPAN
{
my $bw_file = "${url_root}/test.bw";
Bio::DB::Big->timeout(1);
my $err_regex = qr/Timeout was reached/;
stderr_like(sub {
Bio::DB::Big::File->test_big_wig($bw_file)
}, $err_regex, 'Checking a low timeout causes connection issues');
Bio::DB::Big->timeout(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
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
GMOD/Util/Mirror.pm view on Meta::CPAN
$user ||= 'anonymous';
$pass ||= "$user\@localhost.localdomain";
my %transfer_opts;
$transfer_opts{Passive} = 1 if $passive;
$transfer_opts{Timeout} = 600;
my $ftp = Net::FTP->new($host,%transfer_opts) || croak "Can't connect: $@\n";
$ftp->login($user,$pass) || croak "Can't login: ",$ftp->message;
$ftp->binary;
$ftp->hash(1) if $hash;
my %opts = (host => $host,
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
lib/Bio/Phylo/Models/Substitution/Dna.pm view on Meta::CPAN
Function: Determine DNA substitution model from alignment.
Returns : An object which is subclass of Bio::Phylo::Models::Substitution::Dna.
Args : -matrix: A Bio::Phylo::Matrices::Matrix object
Optional:
-tree: A Bio::Phylo::Forest::Tree object
-timeout: Timeout in seconds to prevent getting stuck in an R process.
Comments: Prerequisites: Statistics::R, R, and the R package phangorn.
=cut
sub modeltest {
view release on metacpan or search on metacpan
contrib/roary_plots/roary_files/MathJax.js view on Meta::CPAN
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
if(document.getElementById&&document.childNodes&&document.createElement){if(!(window.MathJax&&MathJax.Hub)){if(window.MathJax){window.MathJax={AuthorConfig:window.MathJax}}else{window.MathJax={}}MathJax.isPacked=true;MathJax.version="2.5";MathJax.fil...
view release on metacpan or search on metacpan
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
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;