68a69,75
> $this_csv_file = $this_log;
> $this_csv_file =~ s/\.xml/\.csv/g;
> open(CSV_FILE, "$this_csv_file");
> @this_csv_lines = <CSV_FILE>;
> close(CSV_FILE);
> $this_csv_line = shift(@this_csv_lines);
>
89,94c96,114
< if ($this_line=~/<wireless-network number="\d\d"/) {
< $x++;
< $add_line =~ s/<wireless-network number="\d\d"/<wireless-network number="$x"/;
< } elsif ($this_line=~/<wireless-network number="\d"/) {
< $x++;
< $add_line =~ s/<wireless-network number="\d"/<wireless-network number="$x"/;
---
> if ($this_line=~/channel/) {
>       push (@new_lines, $add_line);
>       $this_csv_line = shift(@this_csv_lines);
>       @this_csv_line_values = split(";",$this_csv_line);
>       $this_csv_line_quality = splice( @this_csv_line_values,21,1);
>       $this_csv_line_signal = splice( @this_csv_line_values,21,1);
>       $this_csv_line_noise = splice( @this_csv_line_values,21,1);
>       push (@new_lines, "<quality>$this_csv_line_quality</quality>\n");
>       push (@new_lines, "<signal>$this_csv_line_signal</signal>\n");
>       push (@new_lines, "<noise>$this_csv_line_noise</noise>\n");
> } else {
>       if ($this_line=~/<wireless-network number="\d\d"/) {
>       $x++;
>       $add_line =~ s/<wireless-network number="\d\d"/<wireless-network number="$x"/;
>       } elsif ($this_line=~/<wireless-network number="\d"/) {
>       $x++;
>       $add_line =~ s/<wireless-network number="\d"/<wireless-network number="$x"/;
>       }
>       push (@new_lines, $add_line);
96c116
< push (@new_lines, $add_line);
---
>