-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 $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>';
+if (defined param('cmd')){
+ 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 $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>';
+ }else{
+ $scan{Message} .= "<b>something went wrong:</b> <i>$DBH->errstr</i>";
+ }