X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Context.pm;h=39300254d1bf741e59122721a7bddc40e523a02a;hb=726b4c0ff9accf03aac73e14d6aee8742bc95c92;hp=5d0fb1c34f44d0747eb462f91747514a112b3a05;hpb=4f1948e0fe10075464732db5cc2168207c00c7aa;p=NDIRC.git

diff --git a/Context.pm b/Context.pm
index 5d0fb1c..3930025 100644
--- a/Context.pm
+++ b/Context.pm
@@ -23,21 +23,10 @@ use warnings;
 use feature ':5.10';
 
 use Moose;
+use namespace::autoclean;
 
 use Set::Object ();
 
-has host => (
-	is => 'ro',
-	isa => 'Str',
-	required => 1
-);
-
-has nick => (
-	is => 'ro',
-	isa => 'Str',
-	required => 1
-);
-
 has channel => (
 	is => 'ro',
 	isa => 'Str',
@@ -50,30 +39,24 @@ has roles => (
 	lazy_build => 1
 );
 
-has disp => (
+has uid => (
 	is => 'ro',
-	isa => 'Object',
-	required => 1
+	isa => 'Int',
+	lazy_build => 1
 );
 
-has model => (
+has disp => (
 	is => 'ro',
 	isa => 'Object',
 	required => 1
 );
 
-has server => (
+has model => (
 	is => 'ro',
 	isa => 'Object',
 	required => 1
 );
 
-has reply_string => (
-	is => 'ro',
-	isa => 'Str',
-	required => 1,
-);
-
 sub assert_user_roles {
 	my ($self,@roles) = @_;
 	return 1 unless @roles;
@@ -95,9 +78,27 @@ sub check_user_roles {
 }
 
 sub reply {
-	my ($self,$msg) = @_;
+}
+
+sub message {
+}
+
+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);
+}
 
-	$self->server->command($self->reply_string . $msg);
+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 {
@@ -106,9 +107,9 @@ sub _build_roles {
 	my $query = $self->model->prepare(q{
 SELECT role FROM group_roles
 WHERE gid IN (SELECT gid FROM groupmembers JOIN users USING (uid)
-	WHERE hostmask ILIKE $1)
+	WHERE uid = $1)
 		});
-	$query->execute($self->host);
+	$query->execute($self->uid);
 
 	my @roles;
 	while (my $group = $query->fetchrow_hashref){
@@ -117,5 +118,17 @@ WHERE gid IN (SELECT gid FROM groupmembers JOIN users USING (uid)
 	return Set::Object->new(@roles);
 }
 
+sub _build_uid {
+	my ($self) = @_;
+
+	return -4;
+}
+
+sub valuecolor {
+	shift @_;
+	my $s = $_;
+	return $s;
+}
 
+__PACKAGE__->meta->make_immutable;
 1;