projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
The new BadWord, all regex, system
[spider.git]
/
perl
/
Editable.pm
diff --git
a/perl/Editable.pm
b/perl/Editable.pm
index 86a951675cb94c8acb6cb7ecc278d4beaf03f2b0..d2f15eeeb144543576316a4c904f929d90b1d3e0 100644
(file)
--- a/
perl/Editable.pm
+++ b/
perl/Editable.pm
@@
-8,19
+8,13
@@
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
package Editable;
use strict;
#
package Editable;
use strict;
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
use DXChannel;
use DXDebug;
use BadWords;
use DXChannel;
use DXDebug;
use BadWords;
@@
-45,7
+39,7
@@
sub addline
my $dxchan = shift;
my $line = shift;
my $dxchan = shift;
my $line = shift;
- if (my @ans = BadWord::check($line)) {
+ if (my @ans = BadWord
s
::check($line)) {
return ($dxchan->msg('e17', @ans));
}
push @{$self->{lines}}, $line;
return ($dxchan->msg('e17', @ans));
}
push @{$self->{lines}}, $line;
@@
-59,7
+53,7
@@
sub modline
my $no = shift;
my $line = shift;
my $no = shift;
my $line = shift;
- if (my @ans = BadWord::check($line)) {
+ if (my @ans = BadWord
s
::check($line)) {
return ($dxchan->msg('e17', @ans));
}
${$self->{lines}}[$no] = $line;
return ($dxchan->msg('e17', @ans));
}
${$self->{lines}}[$no] = $line;