lib/PXElator/ip.pm

package ip;

use warnings;
use strict;

use Data::Dump qw/dump/;

use html;

sub lines {
        my ( $object ) = @_;

        $object ||= 'link';

        my $i = 0;
        my @objects;

        my @headers;
        my $headers;

        foreach my $line ( split(/\n/, `ip $object`) ) {
                warn "# $line\n";
                my $add_header;

                if ( $line =~ s{^(\d+):\s+(\w+):\s+}{} ) {
                        $i = $1;
                        $objects[$i] = { $object => $2 };
                        $add_header = $object;
                } elsif ( $line =~ s{^\s+}{} ) {
                        # line continues
                } else {
                        $i++;
                        $line =~ s{^(\S+)\s+}{};
                        $objects[$i] = {
                                $object => $1
                        };
                        $add_header = $object;
                }

                push @headers, $add_header if $add_header && ! $headers->{$add_header}++;

                if ( $line =~ s{<(\S+)>\s+}{} ) {
                        $add_header = 'flags';
                        $objects[$i]->{$add_header} = $1;
                        push @headers, $add_header unless $headers->{$add_header}++;
                }

                my @p = split(/\s+/, $line);
                while (@p) {
                        my ($n,$v) = splice @p, 0, 2;
                        if ( ! defined $v ) {
                                $objects[$i]->{''} = $n;
                                $n = '';
                        } elsif ( $n =~ m{^(.+)/(.+)$} ) {
                                $n = $1;
                                $objects[$i]->{$n} = $2;
                                $objects[$i]->{mac} = $v;
                        } else {
                                $objects[$i]->{$n} = $v;
                        }
                        push @headers, $n unless $headers->{$n}++;
                }

#               warn dump( $objects[$i] );
        }

        return unless @objects;

        $objects[0] = [ @headers ];

        return @objects;
}

sub html {
        my @objects = ip::lines( @_ );
        return '' unless @objects;

        my @headers = @{ shift @objects };

        my @table = ( -( $#headers + 1), @headers );
        foreach my $o ( @objects ) {
                foreach ( 0 .. $#headers ) {
                        my $h = $headers[$_];
                        push @table, $o->{$h};
                }
        }

        return html::table( @table );
}

1;
1	dpavlin	224	package ip;
2
3			use warnings;
4			use strict;
5
6			use Data::Dump qw/dump/;
7
8			use html;
9
10			sub lines {
11			my ( $object ) = @_;
12
13			$object \|\|= 'link';
14
15			my $i = 0;
16			my @objects;
17
18			my @headers;
19			my $headers;
20
21			foreach my $line ( split(/\n/, `ip $object`) ) {
22			warn "# $line\n";
23			my $add_header;
24
25			if ( $line =~ s{^(\d+):\s+(\w+):\s+}{} ) {
26			$i = $1;
27			$objects[$i] = { $object => $2 };
28			$add_header = $object;
29			} elsif ( $line =~ s{^\s+}{} ) {
30			# line continues
31			} else {
32			$i++;
33			$line =~ s{^(\S+)\s+}{};
34			$objects[$i] = {
35			$object => $1
36			};
37			$add_header = $object;
38			}
39
40			push @headers, $add_header if $add_header && ! $headers->{$add_header}++;
41
42			if ( $line =~ s{<(\S+)>\s+}{} ) {
43			$add_header = 'flags';
44			$objects[$i]->{$add_header} = $1;
45			push @headers, $add_header unless $headers->{$add_header}++;
46			}
47
48			my @p = split(/\s+/, $line);
49			while (@p) {
50			my ($n,$v) = splice @p, 0, 2;
51			if ( ! defined $v ) {
52			$objects[$i]->{''} = $n;
53			$n = '';
54			} elsif ( $n =~ m{^(.+)/(.+)$} ) {
55			$n = $1;
56			$objects[$i]->{$n} = $2;
57			$objects[$i]->{mac} = $v;
58			} else {
59			$objects[$i]->{$n} = $v;
60			}
61			push @headers, $n unless $headers->{$n}++;
62			}
63
64			# warn dump( $objects[$i] );
65			}
66
67			return unless @objects;
68
69			$objects[0] = [ @headers ];
70
71			return @objects;
72			}
73
74			sub html {
75			my @objects = ip::lines( @_ );
76			return '' unless @objects;
77
78			my @headers = @{ shift @objects };
79
80			my @table = ( -( $#headers + 1), @headers );
81			foreach my $o ( @objects ) {
82			foreach ( 0 .. $#headers ) {
83			my $h = $headers[$_];
84			push @table, $o->{$h};
85			}
86			}
87
88			return html::table( @table );
89			}
90
91			1;