-
-sub log_message {
- my ($uid, $message) = @_;
- my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
- (SELECT ftid FROM users WHERE uid = $1),$1,$2)});
- $log->execute($uid,$message) or $ND::ERROR .= p($ND::DBH->errstr);
-}
-
-sub intel_log {
- my ($uid,$planet, $message) = @_;
- my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
- (SELECT ftid FROM planets WHERE id = $3),$1,$2)});
- $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);
-}
-