11 |
sub lines { |
sub lines { |
12 |
my ( $object ) = @_; |
my ( $object ) = @_; |
13 |
|
|
14 |
my $debug = server::debug; |
my $debug = server::debug(); |
15 |
|
|
16 |
$object ||= 'link'; |
$object ||= 'link'; |
17 |
|
|
100 |
return @devs; |
return @devs; |
101 |
} |
} |
102 |
|
|
103 |
|
sub default_route_dev { |
104 |
|
my @routes = ip::lines 'route'; |
105 |
|
|
106 |
|
return |
107 |
|
map { $_->{dev} } |
108 |
|
grep { $_->{route} eq 'default' } |
109 |
|
splice @routes, 1 # FIXME ship header |
110 |
|
; |
111 |
|
} |
112 |
|
|
113 |
|
sub to_int { |
114 |
|
unpack( 'N', pack( 'C*', split(/\./, shift) ) ) |
115 |
|
} |
116 |
|
|
117 |
|
sub from_int { |
118 |
|
join( '.', unpack('C4', pack('N',shift)) ) |
119 |
|
} |
120 |
|
|
121 |
1; |
1; |