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	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;