22 lines
527 B
Perl
22 lines
527 B
Perl
package Bot::BasicBot::Pluggable::Module::MySeen;
|
|
|
|
use Bot::BasicBot::Pluggable::Module::Seen;
|
|
use base 'Bot::BasicBot::Pluggable::Module::Seen';
|
|
|
|
sub update_seen {
|
|
my ( $self, $who, $channel, $what ) = @_;
|
|
my $nick = lc($who);
|
|
|
|
return if ($channel =~ /-admin/i);
|
|
print "UPDATE_SEEN $who $channel $what\n";
|
|
|
|
$self->set(
|
|
"seen_$nick" => {
|
|
time => time,
|
|
channel => $channel,
|
|
what => $channel ne 'msg' ? $what : '<private message>',
|
|
}
|
|
);
|
|
}
|
|
|
|
1;
|