АН
Size: a a a
АН
АН
W
АН
W
VT
С
АН
sub _permission {
my ( $self, $type ) = @_;
# From a binary number in a string, make a number
my $logging_lvl = unpack("N", pack("B32", substr("0" x 32 . $config->{LOGGING_LVL}, -32)));
# Perform a byte shift, and find out what number is in that position
# If the value is not 0, then this level is enabled in the config
my $result = sprintf( "%b", ( $logging_lvl & ( 1 << $shift_parameter->{$type} )));
return $result;
}
AB
SZ
SZ
SZ
a
a
VG
SL
AB
W