$c->stash(error => $c->flash->{error});
- $c->stash(comma => \&comma_value);
$c->stash(u => $dbh->selectrow_hashref(q{SELECT planet,defense_points
,attack_points,scan_points,humor_points
, (attack_points+defense_points+scan_points/20)::NUMERIC(5,1) as total_points
if ($c->req->param('cmd') eq 'Recall Fleets'){
my $updatefleets = $dbh->prepare(q{UPDATE launch_confirmations
SET back = tick() + (tick() - (landing_tick - eta))
- WHERE uid = ? AND fid = ? AND back > tick()+eta
+ WHERE uid = ? AND fid = ? AND back >= tick()+eta
});
for my $param ($c->req->param()){
my $dbh = $c->model;
$c->stash(reply => $c->flash->{reply});
- $c->stash(channels => ['def','scan','members']);
+ $c->stash(channels => ['scan','members','def']);
}
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)
+ if ($c->req->param('channel')){
+ 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'));
- system 'killall','-USR1', 'irssi';
+ $query->execute($c->user->id,$c->req->param('channel'),$c->req->param('message'));
+ system 'killall','-USR1', 'irssi';
- $c->flash(reply => "Msg sent to: ".$c->req->param('channel'));
- $c->res->redirect($c->uri_for('ircrequest'));
+ $c->flash(reply => "Msg sent to: ".$c->req->param('channel'));
+ $c->res->redirect($c->uri_for('ircrequest'));
+ }else{
+ $c->stash(ircmessage => $c->req->param('message'));
+ $c->go('ircrequest');
+ }
}
sub points : Local {
});
$defenders->execute;
+ my $available = $dbh->prepare(q{
+SELECT ship,amount FROM available_ships WHERE planet = $1
+ });
+
my @members;
while (my $member = $defenders->fetchrow_hashref){
$member->{fleets} = member_fleets($dbh, $member->{uid}, $member->{planet});
+ $available->execute($member->{planet});
+ my $fleet = {fid => $member->{username}, mission => 'Available', name => 'At home'
+ , ships => $available->fetchall_arrayref({})
+ };
+ push @{$member->{fleets}}, $fleet;
push @members,$member;
}
$c->stash(members => \@members);