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

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@333 13eb9ef6-21d5-0310-b721-a9d68796d827

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);
        }