diff options
Diffstat (limited to 'Discover.pm')
| -rw-r--r-- | Discover.pm | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/Discover.pm b/Discover.pm index 8b0e220c..e2dff77d 100644 --- a/Discover.pm +++ b/Discover.pm @@ -38,8 +38,7 @@ use Log::Agent; # use settings from main file my $VERSION = '0.01'; # -sub new -{ +sub new { my $self = {}; bless $self, "Discover"; logsay "DNS Service Discovery module $VERSION"; @@ -47,15 +46,14 @@ sub new } # -sub init -{ +sub init { my $this = shift; $this->{domainname} = ''; $this->{zone} = ''; $this->{service} = ''; $this->{nameserver} = ''; $this->{instance} = ''; -}; +} # sub commify_series { @@ -63,7 +61,7 @@ sub commify_series { (@_ == 1) ? $_[0] : (@_ == 2) ? join(" and ", @_) : join(", ", @_[0 .. ($#_-1)], "and $_[-1]"); -}; +} # sub search { @@ -73,13 +71,12 @@ sub search { my $resolv = Config::Auto::parse('/etc/resolv.conf'); my $servicetype = '_mdvonline._http._tcp.bonjour.'; - my @domains = (); - my @services = (); + my (@domains, @services); ! defined $resolv and logerr "No config found from /etc/resolv.conf.", return 0; defined $resolv->{domain} and @domains = $resolv->{domain}; - defined $resolv->{search} and push( @domains, @{$resolv->{search}} ); + defined $resolv->{search} and push @domains, @{$resolv->{search}}; @domains = uniq(@domains); for my $domain ( @domains ) { @@ -196,12 +193,12 @@ sub parse_txt_config { my ($this, @config) = @_; my $retconfig; - foreach my $line ( @config ) { + foreach my $line (@config) { # TODO match these with a regexp my @line = split('=', $line); my $key = shift(@line); my $value = join('=', @line); - switch( $key ) { + switch ($key) { case 'txtvers' { $retconfig->{txtvers} = $value; } case 'conf' { my @co = split(',', $value); @@ -220,4 +217,4 @@ sub parse_txt_config { return $retconfig; }; -1;
\ No newline at end of file +1; |