- or download this
# Convert the decimal to hexadecimal and pad the result with a lea
+ding
# zero if needed.
my $hex = sprintf("%x", $dec);
$hex = length( $hex ) == 1 ? "0".$hex : $hex;
- or download this
my $hex = sprintf '%02x', $dec;
- or download this
sub basicSNTPSetup {
...
...
..
};
};
- or download this
sub basicSNTPSetup {
...
...
sub keyDifference {
..
};
- or download this
my $verify_port = sub {
my $port = shift;
...
}
return TRUE;
};
- or download this
sub verify_port {
...
};
- or download this
if ( $port >= MIN_UDP_PORT || $port <= MAX_UDP_PORT ) {
- or download this
either:
if ( ($port >= MIN_UDP_PORT) && ($port <= MAX_UDP_PORT) ) {
or:
if ( $port >= MIN_UDP_PORT and $port <= MAX_UDP_PORT ) {