[Fixed] Traffic accounting issues

[kilburn]

Ok, I was about to merge this patch when I realized this (and its analogous that I'm not pasting):

Code:

-                       $port = $1 if ($line =~ /dpt\:(\d+) *$/);
+                       $port = $1 if ($line =~ /[dpt,spt]\:(\d+) *$/);

Now, the regular expression that you use seems to be incorrect, because [dpt,spt] means "any of the characters inside brackets, this is, either d or p or t or s or comma", whereas you probably wanted to use (dpt|spt), that means either "dpt" or "spt". Your tests went right because, as you're not matching from the beggining of the line, any "t:xx " (xx being a number) matches your regex

Am I right?