Result:
found more than 885 distributions - search limited to the first 2001 files matching your query
( run in 2.317 )
CDDB
view release on metacpan or search on metacpan
lib/CDDB.pm view on Meta::CPAN
);
$self->{handle} = new IO::Socket::INET(
PeerAddr => $self->{host},
PeerPort => $self->{port},
Proto => 'tcp',
Timeout => 30,
);
# The host did not answer. Clean up after the failed attempt
# and cycle to the next host.
unless (defined $self->{handle}) {
CDP
view release on metacpan or search on metacpan
getHostname
getHostType
getLastFinishedBackupTaskInfo
getQuota
getRemotePort
getTimeout
isCdpForMySqlAddonEnabled
isControlPanelModuleEnabled
isEnabled
isHostDiscoveryFinished
removeUser
setLinuxHostType
setQuota
setRemotePort
setsCdpForMySqlAddonEnabled
setsControlPanelModuleEnabled
setTimeout
setWindowsHostType
addLocalMySQLInstance
addRemoteMySQLInstance
deleteMySQLInstance
CDS
view release on metacpan or search on metacpan
sub collectWatch {
my $o = shift;
my $label = shift;
my $value = shift;
$o->{watchTimeout} = 60000;
}
sub new {
my $class = shift;
my $actor = shift;
$o->{store} = $o->{actor}->preferredStore if ! $o->{store};
$o->{actorHash} = $o->{actor}->preferredActorHash if ! $o->{actorHash};
my $boxToken = CDS::BoxToken->new(CDS::AccountToken->new($o->{store}, $o->{actorHash}), $o->{boxLabel});
my $args = ['--output', '.cds-curl-list'];
push @$args, '-H', 'Condensation-Watch: '.$o->{watchTimeout}.' ms' if $o->{watchTimeout};
$o->curlRequest('GET', $boxToken->url, $args);
}
sub curlModify {
my $o = shift;
sub collectWatch {
my $o = shift;
my $label = shift;
my $value = shift;
$o->{watchTimeout} = 60000;
}
sub new {
my $class = shift;
my $actor = shift;
$o->{ui}->space;
$o->{ui}->title($o->{actor}->blueBoxReference($boxToken));
# Query the store
my $store = $boxToken->accountToken->cliStore;
my ($hashes, $storeError) = $store->list($boxToken->accountToken->actorHash, $boxToken->boxLabel, $o->{watchTimeout} // 0, $o->{keyPairToken}->keyPair);
return if defined $storeError;
# Print the result
my $count = scalar @$hashes;
return if ! $count;
root => $root,
store => $store,
checkPutHash => $checkPutHash,
checkEnvelopeHash => $checkPutHash,
checkSignatures => $checkSignatures,
maximumWatchTimeout => 0,
};
}
sub process {
my $o = shift;
return $request->reply403 if ! $o->verifyList($actorHash, $accountHash, $boxLabel);
}
my $watch = $request->headers->{'condensation-watch'} // '';
my $timeout = $watch =~ /^(\d+)\s*ms$/ ? $1 + 0 : 0;
$timeout = $o->{maximumWatchTimeout} if $timeout > $o->{maximumWatchTimeout};
my ($hashes, $error) = $o->{store}->list($accountHash, $boxLabel, $timeout);
return $request->replyFatalError($error) if defined $error;
return $request->reply200Bytes(join('', map { $_->bytes } @$hashes));
}
sub new {
my $class = shift;
my $pool = shift;
my $actorOnStore = shift; die 'wrong type '.ref($actorOnStore).' for $actorOnStore' if defined $actorOnStore && ref $actorOnStore ne 'CDS::ActorOnStore';
my $streamTimeout = shift;
return bless {
pool => $pool,
actorOnStore => $actorOnStore,
streamCache => CDS::StreamCache->new($pool, $actorOnStore, $streamTimeout // CDS->MINUTE),
entries => {},
};
}
sub pool { shift->{pool} }
CDent
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;
CEFACT-Unit
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;
CGI-Application-Emulate-PSGI
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;
CGI-Application-PSGI
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;
CGI-Application-PhotoGallery
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;
CGI-Application-Plugin-Authentication
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' );
CGI-Application-Plugin-Cache-Adaptive
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;
CGI-Application-Plugin-DebugScreen
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;
CGI-Application-Plugin-Header
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;
CGI-Application-Search
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), {
CGI-Buffer
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($@) {
CGI-Cache
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;
CGI-ContactForm
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 {
CGI-Cookie-XS
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;
CGI-ExtDirect
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');
CGI-FormBuilderX-More
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;
CGI-GuruMeditation
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/>
CGI-Header-PSGI
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;
CGI-Header
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;
CGI-IDS
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/
CGI-Info
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($@) {
CGI-Inspect
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!==...
CGI-JSONRPC
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);
}
CGI-Lingua
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;
CGI-Lite-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;
CGI-OptimalQuery
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'>
";
CGI-PSGI
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;
( run in 2.317 seconds using v1.01-cache-2.11-cpan-bbdf54b448f )