print warning if type is not handled (probably a typo)

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index 11e49d6..7cb8f52 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -168,6 +168,8 @@ sub data2xml {
                        ($s,$se,$d,$i) = (0,1,0,0);
                } elsif (lc($type) =~ /^lookup/) {
                        ($s,$se,$d,$i,$il) = (0,1,0,0,1);
+               } elsif ($type) {
+                       print STDERR "WARNING: unknown type: $type\n";
                }
                return ($s,$se,$d,$i,$il);
        }