From 21ee7b1845f8fc5ab10c6a33a058cfbd11d7a705 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 19 Oct 2001 13:22:36 +0000
Subject: [PATCH] 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                                        |  2 ++
 data/badw_regex.es.issue                       | 14 ++++++++++++++
 data/{badw_regex.issue => badw_regex.gb.issue} |  0
 data/bands.pl                                  |  2 +-
 perl/BadWords.pm                               |  2 +-
 perl/console.pl                                |  2 +-
 6 files changed, 19 insertions(+), 3 deletions(-)
 create mode 100644 data/badw_regex.es.issue
 rename data/{badw_regex.issue => badw_regex.gb.issue} (100%)

diff --git a/Changes b/Changes
index 39905708..e3bb3a99 100644
--- a/Changes
+++ b/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).
diff --git a/data/badw_regex.es.issue b/data/badw_regex.es.issue
new file mode 100644
index 00000000..02f5c0ea
--- /dev/null
+++ b/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
diff --git a/data/badw_regex.issue b/data/badw_regex.gb.issue
similarity index 100%
rename from data/badw_regex.issue
rename to data/badw_regex.gb.issue
diff --git a/data/bands.pl b/data/bands.pl
index 10689282..dbac0c5d 100644
--- a/data/bands.pl
+++ b/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], 
diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index 05e764fc..7ae0373f 100644
--- a/perl/BadWords.pm
+++ b/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";
diff --git a/perl/console.pl b/perl/console.pl
index 0642e4b9..4dba480b 100755
--- a/perl/console.pl
+++ b/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;
-- 
2.43.0