Context Navigation

Changeset 19333

Timestamp:

09/15/08 20:35:36 (5 years ago)

Author:

daisuke

Message:

とりあえずログ取ったりできるようになった

Location:

lang/perl/Morris/trunk

Files:

r19289	r19333
20	20
21	21	# Takes logs for a channel, and puts it in a file
22		~~# Unimplemented yet.~~
23	22	<Plugin Channel::Log::File>
24		Channel \#~~endeworks~~
	23	Channel \#channelname
25	24	Directory /path/to/directory
26	25	</Plugin>

r19289	r19333
38	38	sub join_channels {
39	39	my $self = shift;
40		$self->connection->irc_join( { channels => ~~$self->channels~~ } );
	40	$self->connection->irc_join( { channels => [ $self->channels ] } );
41	41	}
42	42

r19289	r19333
2	2
3	3	package Morris::Plugin::Channel::Log;
4		use Moose;
	4	use Moose::Role;
5	5
6	6	with 'Morris::Plugin';
…	…
12	12	);
13	13
14		~~__PACKAGE__->meta->make_immutable~~;
	14	requires 'log_message';
15	15
16		no Moose;
	16	no Moose::Role;
17	17
18	18	sub register {
19	19	my ($self, $conn) = @_;
20		$conn->register_hook( 'channel.public', sub { $self->~~log~~_message(@_) } );
	20	$conn->register_hook( 'channel.public', sub { $self->handle_message(@_) } );
21	21	}
22	22
23		sub ~~log~~_message {
	23	sub handle_message {
24	24	my ($self, $args) = @_;
25	25
26	26	my $message = $args->{message};
	27
27	28	# make sure this is from the correct channel
28
29	29	if ($message->channel eq $self->channel) {
30		~~print "incoming ", $message->message, "\n"~~;
	30	$self->log_message($args);
31	31	}
32	32	}