X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FController%2FForum.pm;h=d08bb6150ac9a7bdb7bb5a2c953435f13210c3a4;hb=2c934746290ce8baa0b38425e1fd74d63a2a12f5;hp=f33319aabb6379e4cfff2f5ed62a807f19366d00;hpb=c4b993d742eff701dfe3784bfaedf81f9e4cd34d;p=ndwebbie.git

diff --git a/lib/NDWeb/Controller/Forum.pm b/lib/NDWeb/Controller/Forum.pm
index f33319a..d08bb61 100644
--- a/lib/NDWeb/Controller/Forum.pm
+++ b/lib/NDWeb/Controller/Forum.pm
@@ -425,6 +425,31 @@ sub removeownthreadaccess : Local {
 	$c->res->redirect($c->uri_for('allUnread'));
 }
 
+sub privmsg : Local {
+	my ( $self, $c, $uid ) = @_;
+
+	$uid ||= 0;
+	$c->stash(uid => $uid);
+
+	$c->forward('findUsers');
+}
+
+sub postprivmsg : Local {
+	my ( $self, $c ) = @_;
+	my $dbh = $c->model;
+
+	$dbh->begin_work;
+	$c->forward('insertThread',[-1999]);
+
+	$c->req->parameters->{uid} = [$c->req->parameters->{uid}]
+		unless ref $c->req->parameters->{uid} eq 'ARRAY';
+	push @{$c->req->parameters->{uid}}, $c->user->id;
+	$c->forward('addaccess',[$c->stash->{thread}]);
+
+	$c->forward('addPost',[$c->stash->{thread}]);
+	$dbh->commit;
+}
+
 sub addaccess : Private {
 	my ( $self, $c, $thread) = @_;
 	my $dbh = $c->model;