open TAGFILE, '<', $self->{conf}{file};
while (<TAGFILE>) {
+ next if m/^#/;
+ next if m/^\s*\n$/;
+
$self->{conf}{lastwasrange} = 0;
$self->{conf}{range}{high} = 0;
$self->{conf}{range}{low} = 0;
my @chunks = split /\s+/;
while (my $chunk = shift @chunks) {
+ last if ($chunk =~ /^#/);
# single values
if ($chunk =~ /^\d{1,3}$/) {
my ($self, $tag) = @_;
$tag =~ s/^0+//;
+ die "Values must be numeric\n" if ($tag =~ /[^\d\-]/);
+
die "Values must be valid tags (0-999)\n"
unless ($tag >= 0 and $tag <= 999);