- $msg =~ s`<b>(.*?)</b>`**$1**`gi;
- $msg =~ s`<c(\d+)>(.*?)</c>`*$2*`gi;
-
- $self->discord->send_message($target, $msg ); # Send the response.
-}
-
-sub command {
- my ($self,@command) = @_;
-
-}
-
-sub intel_log {
- my ($c,$planet, $message) = @_;
- my $log = $c->model->prepare_cached(q{
-INSERT INTO forum_posts (ftid,uid,message) VALUES(
- (SELECT ftid FROM planets WHERE pid = $3),$1,$2)
- });
- $log->execute($c->uid,$message,$planet);
-}
-
-sub def_log {
- my ($c,$call, $message) = @_;
- my $log = $c->model->prepare(q{
-INSERT INTO forum_posts (ftid,uid,message) VALUES(
- (SELECT ftid FROM calls WHERE call = $3),$1,$2)
- });
- $log->execute($c->uid,$message,$call);
-}
-
-sub _build_roles {
- my ($self) = @_;
-
- my $query = $self->model->prepare(q{
-SELECT role FROM group_roles
-WHERE gid IN (SELECT gid FROM groupmembers JOIN users USING (uid)
- WHERE discord_id = $1)
- });
- $query->execute($self->discord_id);
-
- my @roles;
- while (my $group = $query->fetchrow_hashref){
- push @roles,$group->{role};
- }
- return Set::Object->new(@roles);