X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FController%2FMembers.pm;h=8c44e056590cb0e5832c4ab3281c1f79a79b3a71;hb=e98253f3ad7a68c70dd5382f47ac7c3691fac022;hp=9373b8f58b77b230212cf16d3c9e62704518545d;hpb=2c69d5fa71e2b4ddf7c9f5fa1880a9c69f70e43a;p=ndwebbie.git

diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index 9373b8f..8c44e05 100644
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -225,12 +225,32 @@ sub postfleetsupdates : Local {
 	$c->res->redirect($c->uri_for(''));
 }
 
+sub ircrequest : Local {
+	my ( $self, $c ) = @_;
+	my $dbh = $c->model;
+
+	$c->stash(reply => $c->flash->{reply});
+	$c->stash(channels => ['def','scan','members']);
+}
+
+sub postircrequest : Local {
+	my ( $self, $c ) = @_;
+	my $dbh = $c->model;
+
+	my $query = $dbh->prepare(q{INSERT INTO irc_requests
+		(uid,channel,message) VALUES($1,$2,$3)
+		});
+	$query->execute($c->user->id,$c->req->param('channel'),$c->req->param('message'));
+
+	$c->flash(reply => "Msg sent to: ".$c->req->param('channel'));
+	$c->res->redirect($c->uri_for('ircrequest'));
+}
 
 sub points : Local {
 	my ( $self, $c, $order ) = @_;
 	my $dbh = $c->model;
 
-	if ($order =~ /^((?:defense|attack|total|humor|scan|raid)_points)$/){
+	if ($order && $order =~ /^((?:defense|attack|total|humor|scan|raid)_points)$/){
 		$order = "$1 DESC";
 	}else{
 		$order = 'total_points DESC';
@@ -397,7 +417,7 @@ sub postconfirmation : Local {
 			});
 		my @missions;
 		$dbh->begin_work;
-		while ($missions =~ m/([^\n]+)\s+(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)
+		while ($missions && $missions =~ m/([^\n]+)\s+(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)
 			\s+\((?:(\d+)\+)?(\d+)\).*?(?:\d+hrs\s+)?\d+mins?\s+
 			(Attack|Defend|Return|Fake\ Attack|Fake\ Defend)
 			(.*?)