]> ruin.nu Git - NDIRC.git/blobdiff - Commands/Def.pm
Basic conversion to POE::Component::IRC
[NDIRC.git] / Commands / Def.pm
index 89ceeee3f7ce30b34ec41e6d2e8df654e2a09466..e13758d4797964e6bdd0d8293c8f101c1a0717b8 100644 (file)
@@ -37,8 +37,8 @@ sub anon
 
        my ($target,$mess) = $msg =~ /^(\S+) (.*)$/ or die 'ARGS';
 
-       $c->message("msg $target", "<b>$mess</b>");
-       $c->message("msg ".$c->channel, "<c03>$target << $mess</c>");
+       $c->message(privmsg => $target, "<b>$mess</b>");
+       $c->message(privmsg => $c->channel, "<c03>$target << $mess</c>");
 }
 
 sub defcall
@@ -53,31 +53,29 @@ sub defcall
        my $callinfo = "";
        if ($callnr){
                my $st = $dbh->prepare(q{
-SELECT covered
+SELECT status
        ,c.landing_tick - (SELECT value::integer FROM misc WHERE id = 'TICK') AS eta
-       ,concat(i.shiptype||'/') AS shiptype
+       ,array_to_string(array_agg(i.shiptype),'/') AS shiptype
 FROM calls c
-       JOIN incomings i ON i.call = c.id
+       JOIN incomings i USING (call)
        LEFT OUTER JOIN users dc ON dc.uid = c.dc
-       JOIN users u ON u.uid = c.member
-WHERE c.id = ?
-GROUP BY c.id,c.landing_tick,c.covered
+WHERE c.call = ?
+GROUP BY c.call,c.landing_tick,c.status
 ORDER BY c.landing_tick;
                });
                my $call = $dbh->selectrow_hashref($st,undef,$callnr);
-               unless (defined $call->{covered}){
+               unless (defined $call->{status}){
                        $c->reply("No call with id: $callnr");
                        return;
                }
-               chop($call->{shiptype});
                $callinfo = "(Anti $call->{shiptype} ETA: $call->{eta})";
-               if($call->{covered}){
+               if($call->{status} eq 'Covered'){
                        $c->reply("Call <b>$callnr</b> $callinfo is covered.");
                        return;
                }
        }
-       $c->message("notice $ND::memchan", "DEFENSE REQUIRED!! WAKE UP!!");
-       $c->message("msg $ND::memchan", "DEFENSE REQUIRED $mess $callinfo MSG "
+       $c->message(notice => $ND::memchan, "DEFENSE REQUIRED!! WAKE UP!!");
+       $c->message(privmsg => $ND::memchan, "DEFENSE REQUIRED $mess $callinfo MSG "
                .$c->nick." TO RESPOND");
 }
 
@@ -91,10 +89,10 @@ sub settype
        my $dbh = $c->model;
 
        my $query = q{
-SELECT i.id,call,shiptype, coords(x,y,z),c.landing_tick - tick() AS eta
+SELECT inc,call,shiptype, coords(x,y,z),c.landing_tick - tick() AS eta
 FROM incomings i
-       JOIN current_planet_stats p ON i.sender = p.id
-       JOIN calls c ON i.call = c.id
+       JOIN current_planet_stats p USING (pid)
+       JOIN calls c USING (call)
        };
        my $fleets;
        my $type;
@@ -104,20 +102,20 @@ FROM incomings i
                ($call,$type) = $msg =~ /^(\d+) (.*)$/ or die 'ARGS';
 
                $fleets = $dbh->prepare($query . q{
-WHERE i.call = ?
+WHERE call = ?
                });
                $fleets->execute($call);
        }else{
                my ($id,$x,$y,$z,$t) = $msg =~ /^(\d+) (\d+):(\d+):(\d+) (.*)$/;
                if (defined $id){
                        $fleets = $dbh->prepare($query . q{
-WHERE i.call = ? AND p.id = planetid(?,?,?,tick())
+WHERE call = ? AND pid = planetid(?,?,?,tick())
                        });
                        $fleets->execute($id,$x,$y,$z);
                }else{
                        ($id,$t) = $msg =~ /^(\d+) (.*)$/ or die 'ARGS';
                        $fleets = $dbh->prepare($query . q{
-WHERE i.id = ?
+WHERE inc = ?
                        });
                        $fleets->execute($id);
                }
@@ -127,7 +125,7 @@ WHERE i.id = ?
        $type = CGI::escapeHTML($type);
        $dbh->begin_work;
        my $deflog = '';
-       my $settype = $dbh->prepare(q{UPDATE incomings SET shiptype = ? WHERE id = ?});
+       my $settype = $dbh->prepare(q{UPDATE incomings SET shiptype = ? WHERE inc = ?});
        while (my $inc = $fleets->fetchrow_hashref){
                $call //= $inc->{call};
                if ($inc->{eta} < 0){
@@ -137,9 +135,9 @@ WHERE i.id = ?
                        $dbh->rollback;
                        return;
                }
-               $settype->execute($type,$inc->{id});
-               $deflog .= "Set fleet: [B]$inc->{id} [/B] to: [B]$type [/B]\n";
-               $c->reply("Set fleet $inc->{id} from $inc->{coords} on call $call to $type (previously $inc->{shiptype})");
+               $settype->execute($type,$inc->{inc});
+               $deflog .= "Set fleet: [B]$inc->{inc} [/B] to: [B]$type [/B]\n";
+               $c->reply("Set fleet $inc->{inc} from $inc->{coords} on call $call to $type (previously $inc->{shiptype})");
        }
        if ($fleets->rows == 0){
                $c->reply("No matching fleets");
@@ -160,26 +158,26 @@ sub calltake
        my ($id) = $msg =~ /^(\d+)$/ or die 'ARGS';
        my $dbh = $c->model;
 
-       my $extra = '';
+       my $status = 'Open';
 
        given ($self->{name}){
                when('callignore'){
-                       $extra = ',covered = FALSE, open = FALSE'
+                       $status = 'Ignored';
                }
                when('callcov'){
-                       $extra = ',covered = TRUE, open = FALSE'
+                       $status = 'Covered';
                }
        }
 
        $dbh->begin_work;
        my $rows = $dbh->do(q{
 UPDATE calls SET dc = (SELECT uid FROM users WHERE hostmask ILIKE $1)
-       }. $extra .q{
-WHERE id = $2
-               },undef,$c->host,$id);
+       ,status = $3
+WHERE call = $2
+               },undef,$c->host,$id,$status);
        if ($rows == 1){
-               $c->reply("Marked call $id with ".$self->name);
-               $c->def_log($id , "Used: [B]".$self->name."[/B]");
+               $c->reply("Setting status on call $id to $status");
+               $c->def_log($id , "Changed status: [B]$status [/B]");
                $dbh->commit;
        }else{
                $c->reply("$id is not a valid call");
@@ -187,5 +185,45 @@ WHERE id = $2
        }
 }
 
+sub setcalc
+       : Help(Usage: .setcalc callId calc | sets the calc for the given call.)
+       : Type(def)
+       : ACL(irc_setcalc)
+{
+       my ($self,$c,$msg) = @_;
+       my ($id,$calc) = $msg =~ /^(\d+) (.+)$/ or die 'ARGS';
+       my $dbh = $c->model;
+
+       $dbh->begin_work;
+       my $rows = $dbh->do(q{UPDATE calls SET calc = $2 WHERE id = $1}
+               ,undef,$id, $calc);
+       if ($rows == 1){
+               $c->reply("Updated calc call <b>$id</b>");
+               $calc = CGI::escapeHTML($calc);
+               $c->def_log($id , 'Updated calc to: [URL]'.$calc.'[/URL]');
+               $dbh->commit;
+       }else{
+               $c->reply("$id is not a valid call");
+               $dbh->rollback;
+       }
+}
+
+sub getcalc
+       : Help(Usage: .getcalc callId | receives the calc for the given call)
+       : Type(def)
+       : ACL(irc_getcalc)
+{
+       my ($self,$c,$msg) = @_;
+       my ($id) = $msg =~ /^(\d+)$/ or die 'ARGS';
+       my $dbh = $c->model;
+
+       my $calc = $dbh->selectrow_array(q{
+SELECT calc FROM calls WHERE id = $1}
+               ,undef,$id);
+       $calc //= "Bad call id, there is no such call.";
+       $c->reply("Calc for call <b>$id</b>: $calc");
+}
+
+
 1;