From: Michael Andreen <harv@ruin.nu>
Date: Sat, 12 Jan 2008 16:14:30 +0000 (+0100)
Subject: def_log
X-Git-Url: https://ruin.nu/git/?p=ND.git;a=commitdiff_plain;h=a5a98638b819da191a4a3191f4509a172e0d1af9

def_log
---

diff --git a/Include.pm b/Include.pm
index 9a42d97..ba1768e 100644
--- a/Include.pm
+++ b/Include.pm
@@ -25,7 +25,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/min max parseValue prettyValue log_message intel_log unread_query pa_xp/;
+our @EXPORT = qw/min max parseValue prettyValue log_message intel_log def_log unread_query pa_xp/;
 
 sub min {
     my ($x,$y) = @_;
@@ -82,6 +82,13 @@ sub intel_log {
 	$log->execute($uid,$message,$planet) or $ND::ERROR .= p($ND::DBH->errstr);
 }
 
+sub def_log {
+	my ($uid,$call, $message) = @_;
+	my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
+		(SELECT ftid FROM calls WHERE id = $3),$1,$2)});
+	$log->execute($uid,$message,$call) or $ND::ERROR .= p($ND::DBH->errstr);
+}
+
 sub pa_xp {
 	my ($roids,$ascore,$avalue,$tscore,$tvalue) = @_;
 	my $bravery = (max(0,min(2,$tscore/$ascore)-0.6)) * (min(2,$tvalue/$avalue)-0.4);