diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2008-12-22 01:42:37 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2008-12-22 01:42:37 +0000 |
| commit | 48694a2b7f728acb01e9dc0d6d3ca28c7f09ede9 (patch) | |
| tree | a3d5c9bc0f92bb09bfc9e8bfb8e683bc375d9903 /modules | |
| parent | ba55c0675df20a89a452162216af4b6a8e06ce5c (diff) | |
Committing stuff because it's been way too long.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/classes.pl | 5 | ||||
| -rw-r--r-- | modules/command.pl | 5 | ||||
| -rw-r--r-- | modules/services.pl | 4 |
3 files changed, 11 insertions, 3 deletions
diff --git a/modules/classes.pl b/modules/classes.pl index f2372f2..bdde77f 100644 --- a/modules/classes.pl +++ b/modules/classes.pl @@ -86,6 +86,11 @@ sub dnsbl } if ((@dnsbl) && (defined($::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}))) { $::lastlookup=$::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content}; + print "chk->content: $chk->{content}\n"; + print "strip: $strip\n"; + print "result: " . $::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content} . "\n"; + print "just part of that: "; + print Dumper( $::dnsbl->{query}->{$chk->{content}} ); # lol really icky hax return 1; } diff --git a/modules/command.pl b/modules/command.pl index 27cc5a9..07ef31e 100644 --- a/modules/command.pl +++ b/modules/command.pl @@ -19,9 +19,12 @@ sub command my $cmd = $args; my $d1; my $nick = lc $event->{nick}; - return 0 unless (ASM::Util->speak($event->{to}->[0])); +# return 0 unless (ASM::Util->speak($event->{to}->[0])); foreach my $command ( @{$::commands->{command}} ) { + unless (ASM::Util->speak($event->{to}->[0])) { + next unless (defined($command->{nohush}) && ($command->{nohush} eq "nohush")); + } if (defined($command->{flag})) { next unless defined($::users->{person}->{$nick}); next unless defined($::users->{person}->{$nick}->{flags}); diff --git a/modules/services.pl b/modules/services.pl index e80923a..3ec9436 100644 --- a/modules/services.pl +++ b/modules/services.pl @@ -14,11 +14,11 @@ sub doServices { if ($event->{from} eq 'NickServ!NickServ@services.') { print "NickServ: $event->{args}->[0]\n"; - if ( $event->{args}->[0] eq 'This nickname is owned by someone else' ) + if ( $event->{args}->[0] eq 'This nickname is registered' ) { $conn->privmsg( 'NickServ', "identify $::settings->{pass}" ); } - elsif ( $event->{args}->[0] eq 'Password accepted - you are now recognized' ) + elsif ( $event->{args}->[0] =~ /^You are now identified/ ) { $conn->join($_) foreach ( @{$::settings->{autojoins}} ); } |