X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=Bot.pm;h=0a65f8fbafc11c7f84f7774579bb36e9818f1dd2;hp=1f5ff2102e50db0c18139449920b2bd969f884be;hb=14fe324122bee271d8153f3db81491240a87895c;hpb=bd6624a4e56ad6968b57b76786ebd8787433ead4

diff --git a/Bot.pm b/Bot.pm
index 1f5ff21..0a65f8f 100644
--- a/Bot.pm
+++ b/Bot.pm
@@ -134,6 +134,7 @@ sub _start {
 					'READY'          => sub { $self->discord_ready(@_) },
 					'MESSAGE_CREATE' => sub { $self->discord_message_create(@_) },
 					'GUILD_CREATE' => sub { $self->discord_guild_create(@_) },
+					'CHANNEL_CREATE' => sub { $self->discord_channel_create(@_) },
 				},
 				'reconnect' => 1,
 				'verbose'   => 1,
@@ -339,11 +340,21 @@ sub discord_guild_create {
 	my $hash = shift;
 
 	for my $chan (@{$hash->{channels}}) {
-		say localtime(time) . "$chan->{id} - $chan->{name}";
-		$self->discord_channels->{$chan->{id}} = $chan->{name};
+		say localtime(time) . " - $chan->{id} - $chan->{name}";
+		$self->discord_channels->{$chan->{id}} = $chan;
 	}
 }
 
+sub discord_channel_create {
+	my $self = shift;
+	my $chan = shift;
+
+	for my $key (keys %{$chan}) {
+		say localtime(time) . " - $key - $chan->{$key}";
+	}
+	$self->discord_channels->{$chan->{id}} = $chan;
+}
+
 sub parseCommand {
 	my ($self, $msg, $server, $nick, $address, $channel, $model) = @_;