changes since 2.6.4
[fwknop.git] / perl / legacy / fwknop / parse_pf.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 open F, "< pf.os" or die;
6 my @lines = <F>;
7 close F;
8
9 #16384:64:0:60:M512,N,W%2,N,N,T:         AIX:4.3:3:AIX 4.3.3-5.2
10 #S3:64:1:60:M*,S,T,N,W0:         Linux:2.4:18-21:Linux 2.4.18 and newer
11
12 my %os;
13
14 for my $line (@lines) {
15     next unless $line =~ /\S/;
16     next if $line =~ /^\s*#/;
17     chomp $line;
18
19 #    if ($line =~ /^\s*(\S+?:\S+?:\S+?:\S+?):\S+\s+(.*)/) {
20     if ($line =~ /^\s*(\S+?:\S+?:\S+?:\S+?:\S+:)\s+(.*)/) {
21         $os{$1}{$2} = '';
22     }
23 }
24
25 for my $fp (sort keys %os) {
26     print $fp, "\n";
27     for my $os (sort keys %{$os{$fp}}) {
28         print "    $os\n";
29     }
30     print "\n";
31 }
32
33 exit 0;