- $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|Etd)?\s+(\d+)\s+(Attack|Defend)\s+(\d+)/g){
- $addintel->execute($tick,$9, $1,$2,$3,$4,$5,$6,$7,$8,$ND::UID) or $error .= $DBH->errstr;
+ $tick = param('tick') if defined param('tick')
+ && param('tick') =~ /^(\d+)$/;
+ my $addintel = $DBH->prepare(q{INSERT INTO fleets
+ (name,mission,tick,target,sender,eta,amount,ingal,back,uid)
+ VALUES($1,$2,$3,planetid($4,$5,$6,$10),planetid($7,$8,$9,$10)
+ ,$11,$12,$13,$14,$15)
+ });
+ my $findplanet = $DBH->prepare(q{SELECT planetid(?,?,?,?)});
+ while ($intel =~ m/(\d+):(\d+):(\d+)\*?\s+(\d+):(\d+):(\d+)
+ \*?\s+(.+)(?:Ter|Cat|Xan|Zik|Etd)?
+ \s+(\d+)\s+(Attack|Defend)\s+(\d+)/gx){
+ my $ingal = ($1 == $4 && $2 == $5) || 0;
+ my $lt = $tick + $10;
+ my $back = ($ingal ? $lt + 4 : undef);
+ warn "Added: $&\n";
+ $addintel->execute($7,$9,$lt,$1,$2,$3,$4,$5,$6,$tick,$10,$8
+ ,$ingal,$back, $ND::UID) or warn $DBH->errstr;