Converted .defcall

[NDIRC.git] / Def.pm

diff --git a/Def.pm b/Def.pm
index 7dbec8b1f761906ddc9b83ab80622d596b76524e..d8115012c5c179f2975935e5ac46dc455ea62cc7 100644 (file)
--- a/Def.pm
+++ b/Def.pm
@@ -29,7 +29,7 @@ require Exporter;
 our @ISA = qw/Exporter/;
 
 our @EXPORT = qw/showCall setType takeCall covCall ignoreCall
-       defcall setDefPrio setCalc getCalc/;
+       setDefPrio setCalc getCalc/;
 
 sub showCall {
        my ($msg,$command) = @_;
@@ -176,39 +176,6 @@ sub ignoreCall {
        }
 }
 
-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");
-       }
-}
-
 sub setCalc {
        my ($msg,$command) = @_;
        my ($id, $calc);