view release on metacpan or  search on metacpan

lib/OSLV/Monitor/Backends/FreeBSD.pm  view on Meta::CPAN

							warn(     'DEBUG, '
									. join( '.', gettimeofday )
									. ': backend run processing ifconfig info for jail' );
						}
						my @output_split = split( /\n/, $output );
						my $interface;
						foreach my $line (@output_split) {
							if ( $line =~ /^[a-zA-Z].*\:[\ \t]+flags\=/ ) {
								$interface = $line;
								$interface =~ s/\:[\ \t]+flags.*//;
							} elsif ( $line =~ /^[\ \t]+inet6 /
								&& defined($interface) )
							{
								$line =~ s/^[\ \t]+inet6 //;
								$line =~ s/\ .*$//;
								$line =~ s/\%.*$//;
								$found_IPv6{$line} = $interface;
							} elsif ( $line =~ /^[\ \t]+inet /
								&& defined($interface) )
							{
								$line =~ s/^[\ \t]+inet //;
								$line =~ s/ .*$//;
								$found_IPv4{$line} = $interface;
							}