our $BODY;
our $DBH;
our $LOG;
-
-
+my $error;
die "You don't have access" unless isMember();
if (param('cmd') eq 'submit' || param('cmd') eq 'submit_message'){
- my $findscan = $DBH->prepare("SELECT scan_id FROM scans WHERE scan_id = ? AND tick >= tick() - 48");
- my $addscan = $DBH->prepare('INSERT INTO scans (scan_id,tick,"type") VALUES (?,tick(),?)');
- my $addpoint = $DBH->prepare('UPDATE users SET scan_points = scan_points + 1 WHERE uid = ? ');
+ my $findscan = $DBH->prepare("SELECT scan_id FROM scans WHERE scan_id = ? AND tick >= tick() - 48");
+ my $addscan = $DBH->prepare('INSERT INTO scans (scan_id,tick,"type") VALUES (?,tick(),?)');
+ my $addpoint = $DBH->prepare('UPDATE users SET scan_points = scan_points + 1 WHERE uid = ? ');
my $intel = param('intel');
my @scans;
while ($intel =~ m/http:\/\/game.planetarion.com\/showscan.pl\?scan_id=(\d+)/g){
my %scan;
$scan{Scan} = $1;
+ $scan{Message} = "Scan $1: ";
$findscan->execute($1);
if ($findscan->rows == 0){
if ($addscan->execute($1,$ND::UID)){
$addpoint->execute($ND::UID);
- $scan{Message} = '<i>added</i>';
+ $scan{Message} .= '<i>added</i>';
}else{
- $scan{Message} = "<b>something went wrong:</b> <i>$DBH->errstr</i>";
+ $scan{Message} .= "<b>something went wrong:</b> <i>$DBH->errstr</i>";
}
}else{
- $scan{Message} = '<b>already exists</b>';
+ $scan{Message} .= '<b>already exists</b>';
}
push @scans,\%scan;
}
$tick = param('tick') if $tick =~ /^(\d+)$/;
my $addintel = $DBH->prepare(qq{SELECT add_intel(?,?,?,?,?,?,?,?,?,?,?)});
while ($intel =~ m/(\d+):(\d+):(\d+)\*?\s+(\d+):(\d+):(\d+)\*?\s+.+(?:Ter|Cat|Xan|Zik)?\s+(\d+)\s+(Attack|Defend)\s+(\d+)/g){
- $addintel->execute($tick,$9, $1,$2,$3,$4,$5,$6,$7,$8,$ND::UID) or print $DBH->errstr;
+ $addintel->execute($tick,$9, $1,$2,$3,$4,$5,$6,$7,$8,$ND::UID) or $error .= $DBH->errstr;
}
}
if (param('cmd') eq 'submit_message'){
my $query = $DBH->prepare(q{INSERT INTO intel_messages (uid,message) VALUES(?,?)});
- $query->execute($ND::UID,escapeHTML(param('intel'))) or print $DBH->errstr;
+ if($query->execute($ND::UID,escapeHTML(param('intel')))){
+ $error .= 'Intel messaged added';
+ }else{
+ $error .= $DBH->errstr;
+ }
}
-
-
+$BODY->param(Error => $error);
1;
our $BODY;
our $DBH;
our $LOG;
+my $error;
$ND::TEMPLATE->param(TITLE => 'Defense Calls');
$call->{landing_tick} = param('tick');
$LOG->execute($ND::UID,"DC updated landing tick for call $call->{id}");
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('cinfo')){
$call->{info} = param('info');
$LOG->execute($ND::UID,"DC updated info for call $call->{id}");
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
- $DBH->commit or print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $DBH->commit or $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}elsif(param('cmd') =~ /^(Cover|Uncover|Ignore|Open|Take) call$/){
- print "test";
+ $error .= "test";
my $extra_vars = '';
if (param('cmd') eq 'Cover call'){
$extra_vars = ", covered = TRUE, open = FALSE";
$call->{open} = (param('cmd') =~ /^(Uncover|Open) call$/);
$call->{DC} = $ND::USER;
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}elsif(param('cmd') eq 'Remove'){
$DBH->begin_work;
if($query->execute($1,$call->{id})){
$LOG->execute($ND::UID,"DC deleted fleet: $1, call $call->{id}");
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
}
- $DBH->commit or print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $DBH->commit or $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}elsif(param('cmd') eq 'Change'){
$DBH->begin_work;
my $query = $DBH->prepare(q{UPDATE incomings SET shiptype = ? WHERE id = ? AND call = ?});
if($query->execute($shiptype,$1,$call->{id})){
$LOG->execute($ND::UID,"DC set fleet: $1, call $call->{id} to: $shiptype");
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
}
- $DBH->commit or print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $DBH->commit or $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
WHERE $where
GROUP BY c.id, p.x,p.y,p.z, u.username, c.landing_tick, c.info,u.defense_points
ORDER BY c.landing_tick DESC
- })or print $DBH->errstr;
- $query->execute or print $DBH->errstr;
+ })or $error .= $DBH->errstr;
+ $query->execute or $error .= $DBH->errstr;
my @calls;
my $i = 0;
while (my $call = $query->fetchrow_hashref){
}
$BODY->param(Calls => \@calls);
}
+$BODY->param(Error => $error);
1;
our $BODY;
our $DBH;
our $LOG;
-
-
+my $error;
die "You don't have access" unless isMember();
if($insert->execute($ND::UID,param('message'))){
$BODY->param(Reply => param('message'));
}else{
- print "<b>".$DBH->errstr."</b>";
+ $error .= "<b>".$DBH->errstr."</b>";
}
}
-
-
+$BODY->param(Error => $error);
1;
our $BODY;
our $DBH;
our $LOG;
+my $error;
$ND::TEMPLATE->param(TITLE => 'Create/Edit Raids');
my $query = $DBH->prepare(q{SELECT id,tick,waves,message,released_coords,open FROM raids WHERE id = ?});
$raid = $DBH->selectrow_hashref($query,undef,$raid);
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
$raid->{tick} = param('tick');
unless ($DBH->do(qq{UPDATE raids SET message = ?, tick = ?, waves = ? WHERE id = ?}
,undef,$message,param('tick'),param('waves'),$raid->{id})){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
my $sizelimit = '';
if (param('sizelimit') =~ /^(\d+)$/){
$sizelimit = "AND p.size >= $1";
unless ($DBH->do(qq{DELETE FROM raid_targets WHERE id IN (SELECT t.id FROM current_planet_stats p
JOIN raid_targets t ON p.id = t.planet WHERE p.size < ? AND t.raid = ?)},undef,$1,$raid->{id})){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
my $targets = param('targets');
SELECT ?, id FROM current_planet_stats p WHERE x = ? AND y = ? AND COALESCE(z = ?,TRUE) $sizelimit)});
while ($targets =~ m/(\d+):(\d+)(?::(\d+))?/g){
unless ($addtarget->execute($raid->{id},$1,$2,$3)){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('alliance') =~ /^(\d+)$/ && $1 != 1){
my $addtarget = $DBH->prepare(qq{INSERT INTO raid_targets(raid,planet) (
SELECT ?,id FROM current_planet_stats p WHERE alliance_id = ? $sizelimit)});
unless ($addtarget->execute($raid->{id},$1)){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
my $groups = $DBH->prepare('SELECT gid,groupname FROM groups WHERE attack');
}
if ($query){
unless ($query->execute($raid->{id},$group->{gid})){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
}
unless ($DBH->commit){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('removeTarget')){
- print "test";
+ $error .= "test";
unless($DBH->do(q{DELETE FROM raid_targets WHERE raid = ? AND id = ?}
,undef,$raid->{id},param('removeTarget'))){
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
}
FROM current_planet_stats p JOIN raid_targets r ON p.id = r.planet
WHERE r.raid = ?
ORDER BY $order});
- $targetquery->execute($raid->{id}) or print $DBH->errstr;
+ $targetquery->execute($raid->{id}) or $error .= $DBH->errstr;
my @targets;
while (my $target = $targetquery->fetchrow_hashref){
push @targets,$target;
$BODY->param(Waves => 3);
$BODY->param(LandingTick => $ND::TICK+12);
}
+$BODY->param(Error => $error);
1;
our $DBH = undef;
our $USER = $ENV{'REMOTE_USER'};
+my $error;
our $TEMPLATE = HTML::Template->new(filename => 'templates/skel.tmpl');
unless (my $return = do "${page}.pl"){
- print "<p><b>couldn't parse $page: $@</b></p>" if $@;
- print "<p><b>couldn't do $page: $!</b></p>" unless defined $return;
- print "<p><b>couldn't run $page</b></p>" unless $return;
+ $error .= "<p><b>couldn't parse $page: $@</b></p>" if $@;
+ $error .= "<p><b>couldn't do $page: $!</b></p>" unless defined $return;
+ $error .= "<p><b>couldn't run $page</b></p>" unless $return;
}
unless ($XML){
$ND::TEMPLATE->param(Targets => listTargets());
}
$TEMPLATE->param(Coords => param('coords') ? param('coords') : '1:1:1');
+ $TEMPLATE->param(Error => $error);
}
$ND::TEMPLATE->param(BODY => $ND::BODY->output);
our $BODY;
our $DBH;
our $LOG;
+my $error;
$ND::TEMPLATE->param(TITLE => 'Intel');
,undef,$value,$planet->{id})){
$planet->{nick} = $value;
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('cchannel')){
,undef,$value,$planet->{id})){
$planet->{channel} = $value;
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('cstatus')){
,undef,$value,$planet->{id})){
$planet->{planet_status} = $value;
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
if (param('calliance')){
,undef,param('alliance'),$planet->{id})){
$planet->{alliance_id} = param('alliance');
}else{
- print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
- $DBH->commit or print "<p> Something went wrong: ".$DBH->errstr."</p>";
+ $DBH->commit or $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
}
$BODY->param(Alliances => \@alliances);
my $query = $DBH->prepare(intelquery('o.alliance AS oalliance,coords(o.x,o.y,o.z) AS origin',"t.id = ? $showticks"));
- $query->execute($planet->{id}) or print $DBH->errstr;
+ $query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intellists;
my @intel;
while (my $intel = $query->fetchrow_hashref){
push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1};
my $query = $DBH->prepare(intelquery('t.alliance AS talliance,coords(t.x,t.y,t.z) AS target',"o.id = ? $showticks"));
- $query->execute($planet->{id}) or print $DBH->errstr;
+ $query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intel;
while (my $intel = $query->fetchrow_hashref){
if ($intel->{ingal}){
OR ( t.alliance_id = o.alliance_id AND i.mission = 'Attack'))
AND i.sender NOT IN (SELECT planet FROM users u NATURAL JOIN groupmembers gm WHERE gid = 8 AND planet IS NOT NULL)
$showticks}));
- $query->execute() or print $DBH->errstr;
+ $query->execute() or $error .= $DBH->errstr;
my @intellists;
my @intel;
push @messages,$message;
}
$BODY->param(IntelMessages => \@messages);
+$BODY->param(Error => $error);
1;
+<TMPL_VAR NAME=Error>
<TMPL_LOOP Scans>
<p><TMPL_VAR NAME=Scan> <TMPL_VAR NAME=Message></p>
</TMPL_LOOP>
+<TMPL_VAR NAME=Error>
<TMPL_IF Call>
<form action="/index.pl" method="post"><fieldset> <legend>Call details, call# <TMPL_VAR NAME=Call></legend>
<input type="hidden" name="page" value="calls"/>
+<TMPL_VAR NAME=Error>
<TMPL_IF Reply><p>Sent the message '<TMPL_VAR NAME=Reply>' to def
channel</p></TMPL_IF>
<form action="index.pl" method="post"><fieldset> <legend>Launch confirmation</legend>
+<TMPL_VAR NAME=Error>
<form action="/index.pl" method="post">
<fieldset> <legend><TMPL_IF Raid>Edit raid<TMPL_ELSE>New raid</TMPL_IF></legend>
<input type="hidden" name="page" value="editRaid"/>
+<TMPL_VAR NAME=Error>
<form action="index.pl" method="post"><p>
<input type="text" name="coords" value="<TMPL_VAR NAME=Coords>"/>
<input type="submit" value="Check"/>
</TMPL_IF>
<TMPL_VAR NAME=LEFTBAR>
</div>
+<TMPL_VAR NAME=Error>
<TMPL_VAR NAME=BODY>
</body>
</html>
</tr>
</table>
<TMPL_IF RemoveGroups>
- <p>User is a member of the following groups</p>
+ <p><TMPL_VAR NAME=Username> is a member of the following groups</p>
<table>
<tr><th>Group</th><th>Remove</th></tr>
<TMPL_LOOP RemoveGroups>
</table>
</TMPL_IF>
<TMPL_IF AddGroups>
- <p>These does not have access to the raid</p>
+ <p><TMPL_VAR NAME=Username> is not a member of the following groups</p>
<table>
<tr><th>Group</th><th>Add</th></tr>
<TMPL_LOOP AddGroups>