X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=intel.pl;h=e538411cf8796856fe395e221e13a65fe0d18757;hb=b1e161e396d3c759403c6e3cbd8da1be7fe84715;hp=7f1ec4a71ded074fc31410ff4e686cbb44b43da6;hpb=98378b594064426cdbc06b30a58553195d8cf8ec;p=ndwebbie.git diff --git a/intel.pl b/intel.pl index 7f1ec4a..e538411 100644 --- a/intel.pl +++ b/intel.pl @@ -20,10 +20,10 @@ use strict; use warnings FATAL => 'all'; use ND::Web::Forum; +use ND::Include; our $BODY; our $DBH; -our $LOG; our $ERROR; my $error; @@ -86,6 +86,7 @@ if ($planet && defined param('cmd')){ my $value = escapeHTML(param('nick')); if ($DBH->do(q{UPDATE planets SET nick = ? WHERE id =?} ,undef,$value,$planet->{id})){ + intel_log $ND::UID,$planet->{id},"Set nick to: $value"; $planet->{nick} = $value; }else{ $error .= "

Something went wrong: ".$DBH->errstr."

"; @@ -95,6 +96,7 @@ if ($planet && defined param('cmd')){ my $value = escapeHTML(param('channel')); if ($DBH->do(q{UPDATE planets SET channel = ? WHERE id =?} ,undef,$value,$planet->{id})){ + intel_log $ND::UID,$planet->{id},"Set channel to: $value"; $planet->{channel} = $value; }else{ $error .= "

Something went wrong: ".$DBH->errstr."

"; @@ -104,6 +106,7 @@ if ($planet && defined param('cmd')){ my $value = escapeHTML(param('status')); if ($DBH->do(q{UPDATE planets SET planet_status = ? WHERE id =?} ,undef,$value,$planet->{id})){ + intel_log $ND::UID,$planet->{id},"Set planet_status to: $value"; $planet->{planet_status} = $value; }else{ $error .= "

Something went wrong: ".$DBH->errstr."

"; @@ -112,6 +115,7 @@ if ($planet && defined param('cmd')){ if (param('calliance')){ if ($DBH->do(q{UPDATE planets SET alliance_id = NULLIF(?,-1) WHERE id =?} ,undef,param('alliance'),$planet->{id})){ + intel_log $ND::UID,$planet->{id},"Set alliance_id to: ".param('alliance'); $planet->{alliance_id} = param('alliance'); }else{ $error .= "

Something went wrong: ".$DBH->errstr."

";