X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Def.pm;fp=Def.pm;h=d8115012c5c179f2975935e5ac46dc455ea62cc7;hb=d40ac61049a226782476938747ce50f2da3d2d89;hp=7dbec8b1f761906ddc9b83ab80622d596b76524e;hpb=565ece6e27fa54253934518cc8c69ecfac9487e4;p=NDIRC.git

diff --git a/Def.pm b/Def.pm
index 7dbec8b..d811501 100644
--- 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);