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