16 lines
224 B
Plaintext
16 lines
224 B
Plaintext
|
|
macallowlocal
|
|
{
|
|
my @macalloweds = split(/[;,]/, ($chilli{'macallowed'} || ''));
|
|
|
|
$OUT = '';
|
|
|
|
# TODO: check the entry with a good regex
|
|
|
|
foreach (@macalloweds){
|
|
$_ =~ s/:/-/g;
|
|
$OUT .= 'macallowed '.uc($_)."\n";
|
|
}
|
|
|
|
}
|