added new satellite stuff from Steve K9AN. Fixed upper/lower problem

[spider.git] / perl / convkeps.pl

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index 4c05d05a04d2b49d6970fcd3e350d40ad85d4a96..268a7f29f7ea58a1ce3ba326a37125e4297e9bde 100755 (executable)
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -81,7 +81,7 @@ while (<$f>) {
        ++$line;
        chomp;
        s/^\s+//;
-    s/\s+$//;
+    s/[\s\r]+$//;
        next unless $_;
        last if m{^/EX}i;
        last if m{^-};
@@ -93,7 +93,7 @@ while (<$f>) {
                
                if (/^\w+/) {
                        s/\s/-/g;
-                       $name = $_;
+                       $name = uc $_;
                        $ref = $keps{$name} = {}; 
                        $state = 2;
                }