From 21ee7b1845f8fc5ab10c6a33a058cfbd11d7a705 Mon Sep 17 00:00:00 2001 From: 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 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