Format for ally def page changed

diff --git a/Commands/Def.pm b/Commands/Def.pm
index ae206309ceb6bc8333c4375761cc4501bf0aeb68..099d706ddc50b8ac80ee42aee2b26dd29ecef910 100644 (file)
--- a/Commands/Def.pm
+++ b/Commands/Def.pm
@@ -222,7 +222,7 @@ command report_incs => {
        use Try::Tiny;
        method execute($c,$msg) {
 
        use Try::Tiny;
        method execute($c,$msg) {
 

-               $msg =~ /(\d+):(\d+):(\d+)\*?\s+(\d+):(\d+):(\d+)\s+([^:]*\S+)\s+(?:Ter|Cat|Xan|Zik|Etd)\s+([\d,]+)\s+Attack\s+(\d+)/
+               $msg =~ /(\d+):(\d+):(\d+)\*?\s+(\d+):(\d+):(\d+)\s+([^:]*\S+)\s+(?:Ter|Cat|Xan|Zik|Etd)\s+([\d,]+)\s+(?:Attack\s+)?(\d+)/

                || $msg =~ /(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)\s+\((?:Ter|Cat|Xan|Zik|Etd)\)\s+([^,]*\S+)\s+([\d,]+)\s+(\d+)\s+\(\d+\)/
                        or return;
                my $dbh = $c->model;
                || $msg =~ /(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)\s+\((?:Ter|Cat|Xan|Zik|Etd)\)\s+([^,]*\S+)\s+([\d,]+)\s+(\d+)\s+\(\d+\)/
                        or return;
                my $dbh = $c->model;