Result:
found more than 856 distributions - search limited to the first 2001 files matching your query
( run in 1.335 )
Authen-Simple-WebForm
view release on metacpan or search on metacpan
lib/Authen/Simple/WebForm.pm view on Meta::CPAN
Defaults to "Authen::Simple::WebForm/$VERSION".
=item lwp_timeout
Timeout in seconds. Set to zero to disable.
This is how long the script will wait for a response for each page fetch.
Defaults to "15" seconds.
Authen-Smb
view release on metacpan or search on metacpan
smbval/rfcnb-error.h view on Meta::CPAN
#define RFCNBE_CallRejNLFCN 11 /* Call rejected, not listening for CN */
#define RFCNBE_CallRejCNNP 12 /* Call rejected, called name not present */
#define RFCNBE_CallRejInfRes 13/* Call rejetced, name ok, no resources */
#define RFCNBE_CallRejUnSpec 14/* Call rejected, unspecified error */
#define RFCNBE_BadParam 15/* Bad parameters passed ... */
#define RFCNBE_Timeout 16/* IO Timed out */
/* Text strings for the error responses */
static char *RFCNB_Error_Strings[] = {
smbval/rfcnb-error.h view on Meta::CPAN
"RFCNBE_CallRejNLFCN: Call rejected. Not listening for called name.",
"RFCNBE_CallRejCNNP: Call rejected. Called name not present.",
"RFCNBE_CallRejInfRes: Call rejected. Name present, but insufficient resources.",
"RFCNBE_CallRejUnSpec: Call rejected. Unspecified error.",
"RFCNBE_BadParam: Bad parameters passed to a routine.",
"RFCNBE_Timeout: IO Operation timed out ..."
};
Authen-TacacsPlus
view release on metacpan or search on metacpan
TacacsPlus.pm view on Meta::CPAN
push @{ $self->{'servers'} }, @_;
} else {
%h = @_;
}
my $res=-1;
$self->{'timeout'} = $h{'Timeout'} ? $h{'Timeout'} : 15;
$self->{'port'} = $h{'Port'} ? $h{'Port'} : 'tacacs';
$self->{'host'} = $h{'Host'};
$self->{'key'} = $h{'Key'};
$res=init_tac_session($self->{'host'},$self->{'port'},
$self->{'key'},$self->{'timeout'});
TacacsPlus.pm view on Meta::CPAN
my %h = @{ $s->[0] };
shift @{ $s };
$res=init_tac_session( $h{'Host'},
$h{'Port'} ? $h{'Port'} : 'tacacs',
$h{'Key'},
$h{'Timeout'} ? $h{'Timeout'} : 15
);
last if ($res >= 0);
}
}
$self->{'open'} = 1 if ($res >= 0);
TacacsPlus.pm view on Meta::CPAN
my %h = @{ $s->[0] };
shift @{ $s };
my $ret=init_tac_session( $h{'Host'},
$h{'Port'} ? $h{'Port'} : 'tacacs',
$h{'Key'},
$h{'Timeout'} ? $h{'Timeout'} : 15
);
next if ($ret < 0);
$res=make_auth($username,$password,$authen_type);
last if $res;
}
TacacsPlus.pm view on Meta::CPAN
use Authen::TacacsPlus;
$tac = new Authen::TacacsPlus(Host=>$server,
Key=>$key,
Port=>'tacacs',
Timeout=>15);
or
$tac = new Authen::TacacsPlus(
[ Host=>$server1, Key=>$key1, Port=>'tacacs', Timeout=>15 ],
[ Host=>$server2, Key=>$key2, Port=>'tacacs', Timeout=>15 ],
[ Host=>$server3, Key=>$key3, Port=>'tacacs', Timeout=>15 ],
... );
$tac->authen($username,$passwords);
Authen::TacacsPlus::errmsg();
TacacsPlus.pm view on Meta::CPAN
Authen::TacacsPlus allows you to authenticate using tacacs+ server.
$tac = new Authen::TacacsPlus(Host=>$server,
Key=>$key,
Port=>'tacacs',
Timeout=>15);
Opens new session with tacacs+ server on host $server, encrypted
with key $key. Undefined object is returned if something wrong
(check errmsg()).
Authen-TypeKey
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;
Authen-U2F-Tester
view release on metacpan or search on metacpan
lib/Authen/U2F/Tester/Error.pm view on Meta::CPAN
my %errors = (
OTHER_ERROR => 'Other Error',
BAD_REQUEST => 'Bad Request',
CONFIGURATION_UNSUPPORTED => 'Configuration Unsupported',
DEVICE_INELIGIBLE => 'Device Ineligible',
TIMEOUT => 'Timeout');
}
__PACKAGE__->meta->make_immutable;
__END__
Authen-U2F
view release on metacpan or search on metacpan
examples/demoserver/u2f-api.js view on Meta::CPAN
* @private
*/
u2f.getChromeRuntimePort_ = function(callback) {
var port = chrome.runtime.connect(u2f.EXTENSION_ID,
{'includeTlsChannelId': true});
setTimeout(function() {
callback(new u2f.WrappedChromeRuntimePort_(port));
}, 0);
};
/**
* Return a 'port' abstraction to the Authenticator app.
* @param {function(u2f.WrappedAuthenticatorPort_)} callback
* @private
*/
u2f.getAuthenticatorPort_ = function(callback) {
setTimeout(function() {
callback(new u2f.WrappedAuthenticatorPort_());
}, 0);
};
/**
* Return a 'port' abstraction to the iOS client app.
* @param {function(u2f.WrappedIosPort_)} callback
* @private
*/
u2f.getIosPort_ = function(callback) {
setTimeout(function() {
callback(new u2f.WrappedIosPort_());
}, 0);
};
/**
Aw
view release on metacpan or search on metacpan
doc/index.html view on Meta::CPAN
<tr valign="top"><td><a href="Aw_Client.html#setAutomaticControlLabel">setAutomaticControlLabel</a></td><td>setAutomaticControlLabel</td><td>awSetAutomaticControlLabel</td></tr>
<tr valign="top"><td><a href="Aw_Client.html#setClientInfoset">setClientInfoset</a></td><td>setClientInfoset</td><td>awSetClientInfoset</td></tr>
<tr valign="top"><td><a href="Aw_Client.html#setDefaultClientTimeOut">setDefaultClientTimeOut</a></td><td>setDefaultClientTimeOut</td><td>awSetDefaultClientTimeout</td></tr>
<tr valign="top"><td><a href="Aw_Client.html#setPlatformInfo">setPlatformInfo</a></td><td>setPlatformInfo</td><td>awSetPlatformInfo</td></tr>
<tr valign="top"><td><a href="Aw_Client.html#setStateShareLimit">setStateShareLimit</a></td><td>setStateShareLimit</td><td>awSetStateShareLimit</td>
<tr valign="top"><td><a href="Aw_Client.html#stopMainLoop">stopMainLoop</a></td><td>stopMainLoop</td><td>awStopMainLoop</td>
<tr valign="top"><td><a href="Aw_Client.html#threadedCallBacks">threadedCallBacks</a></td><td>threadedCallBacks</td><td>awThreadedCallbacks</td>
<tr valign="top"><td><a href="Aw_Client.html#toString">toString</a></td><td>toString</td><td>awClientToString</td></tr>
AxKit-XSP-Currency
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;
AxKit-XSP-L10N
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;
AxKit-XSP-Minisession
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;
AxKit-XSP-Wiki
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);
AxKit2
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;
B-C
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)}}...
B-Hooks-OP-Check-EntersubForCV
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;
B-Hooks-OP-Check-StashChange
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;
B-Hooks-XSUB-CallAsOp
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;
BACnet
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
BBS-Perm
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
BBS-Universal
view release on metacpan or search on metacpan
lib/BBS/Universal.pm view on Meta::CPAN
$hdr = delete $self->{'_xmodem_first'};
} else {
$hdr = $self->_read_byte_timeout($sock, 60);
}
unless (defined $hdr) {
$self->{'debug'}->ERROR(["Timeout waiting for XMODEM block header"]);
$success = 0;
last;
}
if ($hdr eq EOT) {
# End of transmission
lib/BBS/Universal.pm view on Meta::CPAN
# read blocknum and its complement
my $blknum = $self->_read_byte_timeout($sock, 10);
my $nblk = $self->_read_byte_timeout($sock, 10);
unless (defined $blknum && defined $nblk) {
$self->{'debug'}->ERROR(["Timeout reading block number for XMODEM"]);
$success = 0;
last FILE_LOOP;
}
my $blknum_val = ord($blknum);
my $nblk_val = ord($nblk);
lib/BBS/Universal.pm view on Meta::CPAN
# read data
my $data = '';
for (1 .. $block_size) {
my $b = $self->_read_byte_timeout($sock, 10);
unless (defined $b) {
$self->{'debug'}->ERROR(["Timeout reading XMODEM data block"]);
$success = 0;
last FILE_LOOP;
}
$data .= $b;
} ## end for (1 .. $block_size)
# read CRC16 (2 bytes)
my $crc_hi = $self->_read_byte_timeout($sock, 10);
my $crc_lo = $self->_read_byte_timeout($sock, 10);
unless (defined $crc_hi && defined $crc_lo) {
$self->{'debug'}->ERROR(["Timeout reading XMODEM CRC"]);
$success = 0;
last FILE_LOOP;
}
my $recv_crc = $crc_hi . $crc_lo;
lib/BBS/Universal.pm view on Meta::CPAN
$hdr = delete $self->{'_ymodem_first'};
} else {
$hdr = $self->_read_byte_timeout($sock, 60);
}
unless (defined $hdr) {
$self->{'debug'}->ERROR(["Timeout waiting for YMODEM block header"]);
$success = 0;
last HEADER_LOOP;
}
if ($hdr eq CAN) {
$self->{'debug'}->ERROR(["Sender cancelled YMODEM transfer (CAN)"]);
lib/BBS/Universal.pm view on Meta::CPAN
} elsif ($hdr eq SOH || $hdr eq STX) {
my $block_size = ($hdr eq STX) ? 1024 : 128;
my $blknum = $self->_read_byte_timeout($sock, 10);
my $nblk = $self->_read_byte_timeout($sock, 10);
unless (defined $blknum && defined $nblk) {
$self->{'debug'}->ERROR(["Timeout reading block number for YMODEM"]);
$success = 0;
last HEADER_LOOP;
}
my $blknum_val = ord($blknum);
# read data
my $data = '';
for (1 .. $block_size) {
my $b = $self->_read_byte_timeout($sock, 10);
unless (defined $b) {
$self->{'debug'}->ERROR(["Timeout reading YMODEM data block"]);
$success = 0;
last HEADER_LOOP;
}
$data .= $b;
} ## end for (1 .. $block_size)
# read CRC16
my $crc_hi = $self->_read_byte_timeout($sock, 10);
my $crc_lo = $self->_read_byte_timeout($sock, 10);
unless (defined $crc_hi && defined $crc_lo) {
$self->{'debug'}->ERROR(["Timeout reading YMODEM CRC"]);
$success = 0;
last HEADER_LOOP;
}
my $recv_crc = $crc_hi . $crc_lo;
my $calc_crc = _crc16_bytes($data);
lib/BBS/Universal.pm view on Meta::CPAN
}
# Wait for receiver request: 'C' (CRC) or NAK (checksum)
my $init_char = _read_byte_timeout($sock, 60);
unless (defined $init_char) {
$self->{'debug'}->ERROR(["Timeout waiting for receiver to start XMODEM"]);
close $FH;
return 0;
}
my $use_crc = ($init_char eq C_CHAR);
lib/BBS/Universal.pm view on Meta::CPAN
$size = 0 unless defined $size;
# Wait for initial 'C' (CRC) from receiver
my $init_char = $self->_read_byte_timeout($sock, 60);
unless (defined $init_char) {
$self->{'debug'}->ERROR(["Timeout waiting for receiver to start YMODEM"]);
close $FH;
return 0;
}
# prepare header block (block 0)
BGPmon-core-1
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;
}
BGPmon-core-2
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;
}
BPAN
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;
BPM-Engine
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;
BSD-Process-Affinity
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;
BSD-devstat
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;
BZ-Client
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
BZFlag-Info
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
Barcode-DataMatrix
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;
Baseball-Sabermetrics
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;
Batch-Batchrun
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
{
( run in 1.335 second using v1.01-cache-2.11-cpan-39bf76dae61 )