Просмотр исходного кода

Add some parsing to the config file

Morten Brix Pedersen 24 лет назад
Родитель
Сommit
a966096f67
1 измененных файлов с 4 добавлено и 0 удалено
  1. 4 0
      modules/Pisg.pm

+ 4 - 0
modules/Pisg.pm

@@ -375,6 +375,10 @@ sub init_config
                         $self->{debug}->("Conf $channel: $var = $2");
                     }
                 }
+            } elsif ($line =~ /<set/) {
+                print STDERR "Warning: Malformed <set ..> line in $self->{cfg}->{configfile} on line $lineno\n";
+            } elsif ($line =~ /<channel/) {
+                print STDERR "Warning: Malformed <channel ..> line in $self->{cfg}->{configfile} on line $lineno\n";
             }
         }