Correct 12m band CW segment definition

add badw_regex.es.issue for those Spanish words we don't like
changed the name of the English version to badw_regex.gb.issue
allow DELETE (0x7f) character for backspace in console.pl

Changes

@@ -1,3 +1,5 @@
+19Oct01=======================================================================
+1. Allow DELETE (0x7f) for backspace in console.pl
 14Oct01=======================================================================
 1. Add the shortform SH/ST like display to sh/user <call> to make it more
 AK1A compatible (G0RDI+G4PDQ pace).

data/badw_regex.es.issue

@@ -0,0 +1,14 @@
+#
+# ES badwords regex file
+#
+m0ro mor0 m0r0
+f0lla
+p0ya p0lla
+mierda m1erda
+jodan j0dan jode j0de jodete j0ete
+cabron cabr0n
+puta
+hijoputa h1joputa h1j0puta
+cojones c0jones coj0nes c0j0nes
+cornudo cornupeta c0rnudo cornud0 c0rnud0
+co¤o

data/bands.pl

@@ -74,7 +74,7 @@
                   }, 'Bands'),
 
   '12m' => bless( { band => [ 24890, 24990 ], 
-                    cw => [ 24890, 24990 ], 
+                    cw => [ 24890, 24930 ], 
                     ssb => [ 24931, 24990], 
                     rtty => [ 24920, 24929], 
                     data => [ 24920, 24929], 

perl/BadWords.pm

@@ -24,7 +24,7 @@ my $regex = "$main::data/badw_regex";
 my $bwfn = "$main::data/badword";
 
 # copy issue ones across
-filecopy("$regex.issue", $regex) unless -e $regex;
+filecopy("$regex.gb.issue", $regex) unless -e $regex;
 filecopy("$bwfn.issue", $bwfn) unless -e $bwfn;
 
 $badword = new DXHash "badword";

perl/console.pl

@@ -361,7 +361,7 @@ sub rec_stdin
 			$pos = 0;
 		} elsif ($r eq KEY_END || $r eq "\005") {
 			$pos = $lth;
-		} elsif ($r eq KEY_BACKSPACE || $r eq "\010") {
+		} elsif ($r eq KEY_BACKSPACE || $r eq "\010" || $r eq "\0177") {
 			if ($pos > 0) {
 				my $a = substr($inbuf, 0, $pos-1);
 				my $b = substr($inbuf, $pos) if $pos < $lth;