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');
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
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/>
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
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\'
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!==...
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);
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
return 0 if(!-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;
}
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'>
";
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/DemoGuestBook.pm view on Meta::CPAN
if( $@ ) {
$error_msg = "can't open program module 'Net::SMTP'";
last TRY;
}
unless( $smtp = Net::SMTP->new( $host, Timeout => $timeout ) ) {
$error_msg = "can't connect to smtp host: $host";
last TRY;
}
unless( $smtp->verify( $from_email ) ) {
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
t/g4_memcached.t view on Meta::CPAN
}
for my $s (@servers) {
my $sock = IO::Socket::INET->new(
PeerAddr => $s,
Timeout => 2,
);
if (!$sock) {
plan(skip_all => "No memcached instance running at $s\n");
exit 0;
}
view release on metacpan or search on metacpan
t/g4_redis.t view on Meta::CPAN
use lib "$Bin/../lib";
my $server = '127.0.0.1:6379';
my $sock = IO::Socket::INET->new( PeerAddr => $server,
Timeout => 2, );
if ( !$sock )
{
plan( skip_all => "No redis server running upon localhost\n" );
exit 0;
}
view release on metacpan or search on metacpan
lib/CGI/SpeedyCGI.pm view on Meta::CPAN
#!/usr/bin/speedy -w -- -t300
at the top of your script will set the perl option
"C<-w>" and will pass the "C<-t>" option to SpeedyCGI, setting the
Timeout value to 300 seconds.
=back
=over
=item Environment
Environment variables can be used to pass in options. This can only be
done before the initial execution, not from within the script itself.
The name of the environment variable is always SPEEDY_ followed by the
option name in upper-case. For example to set the speedy Timeout option, use
the environment variable named SPEEDY_TIMEOUT.
=back
=over
view release on metacpan or search on metacpan
t/private/javascripts/datepicker.js view on Meta::CPAN
// Lazy load to avoid excessive CPU usage with lots of controls on one page
this.datepicker = null;
this.originalValue = null;
this.hideTimeout = null;
if (this.options.icon) {
var cont = new Element('div', {'style': 'position: relative;'});
this.element.parentNode.replaceChild(cont, this.element);
cont.appendChild(this.element);
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/CHI/Driver/Memcached/t/CHIDriverTests/Base.pm view on Meta::CPAN
sub connect_to_memcached : Test(startup) {
my $self = shift;
require IO::Socket::INET;
my $msock = IO::Socket::INET->new(
PeerAddr => $testaddr,
Timeout => 3
);
if ( !$msock ) {
$self->SKIP_ALL("No memcached instance running at $testaddr");
}
}
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;