-sub defcall {
- my ($msg,$command) = @_;
- my ($mess,$nick,$callnr) = @_;
- if (defined $msg && $msg =~ /^(\d+)?(.*)$/){
- $callnr = $1;
- $mess = $2;
- }else{
- $ND::server->command("notice $ND::nick Usage: $command [callid] message | if a call id is given, then shiptypes and eta will be fetched from the database and added to the message");
- return;
- }
- if (dc()){
- my $call = "";
- if ($callnr){
- my $st = $ND::DBH->prepare(q{
- SELECT c.landing_tick - (SELECT value::integer FROM misc WHERE id = 'TICK'), concat(i.shiptype||'/') AS shiptype
- FROM calls c
- JOIN incomings i ON i.call = c.id
- LEFT OUTER JOIN users dc ON dc.uid = c.dc
- JOIN users u ON u.uid = c.member
- WHERE not covered AND c.id = ?
- GROUP BY c.id,c.landing_tick
- ORDER BY c.landing_tick;
- });
- if (my @row = $ND::DBH->selectrow_array($st,undef,$callnr)){
- chop($row[1]);
- $call = "(Anti $row[1] ETA: $row[0])"
- }
- }
- $ND::server->command("notice $ND::memchan DEFENSE REQUIRED!! WAKE UP!!");
- $ND::server->command("msg $ND::memchan DEFENSE REQUIRED $mess $call MSG $ND::nick TO RESPOND");
- }
-}
-