Ignore PRIVMSG's if they're from an invalid source.
This commit is contained in:
1 parent
35f58bf5b7
commit
ad799a32a2
2 files changed
+4
No files matched your search
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
|
|||||||
|
|
||||||
3.0 Indev
|
3.0 Indev
|
||||||
===============================================================================
|
===============================================================================
|
||||||
|
* Ignore PRIVMSG's if they're from an invalid source.
|
||||||
* Fixed an odd bug when viewing non-existent quotes.
|
* Fixed an odd bug when viewing non-existent quotes.
|
||||||
* You can now define how many results are returned by QDB SEARCH/MORE at a
|
* You can now define how many results are returned by QDB SEARCH/MORE at a
|
||||||
time with qdb_search_resnum in the config.
|
time with qdb_search_resnum in the config.
|
||||||
|
|||||||
@@ -532,6 +532,9 @@ sub privmsg
|
|||||||
my ($svr, @ex) = @_;
|
my ($svr, @ex) = @_;
|
||||||
my %data = API::IRC::usrc(substr($ex[0], 1));
|
my %data = API::IRC::usrc(substr($ex[0], 1));
|
||||||
|
|
||||||
|
# Ensure this is coming from a user rather than a server.
|
||||||
|
if ($ex[0] !~ m/!/xsm) { return; }
|
||||||
|
|
||||||
my @argv;
|
my @argv;
|
||||||
for (my $i = 4; $i < scalar(@ex); $i++) {
|
for (my $i = 4; $i < scalar(@ex); $i++) {
|
||||||
push(@argv, $ex[$i]);
|
push(@argv, $ex[$i]);
|
||||||
|
|||||||
Reference in new issue
Block a user