Zane C. Bowers-Hadley

NAME

Net::DNS::RR::SRV::Helper - Orders SRV records by priority and weight for Net::DNS.

VERSION

Version 0.0.0

SYNOPSIS

    use Net::DNS;
    use Net::DNS::RR::SRV::Helper;
    use Data::Dumper;
    
    my $query=$res->search("_ldap._tcp.foo.bar", SRV);
    my @answers=$query->answer;

    my @ordered=SRVorder(\@answers);
    if(!defined( $ordered[0] )){
        print "No usable records were found.\n";
    }else{
        print Dumper(\@ordered);
    }

EXPORT

SRVorder

FUNCTIONS

SRVorder

This takes the returned answer array containing Net::DNS::RR::SRV objects and processes them into a new easy to use array of hashes ordered by priority and weight.

One item is taken and that is the array returned from the answers method.

Upon a error or no records being present, undef is returned.

RETURN VALUE

The returned value is a array.

Each item of the array is a hash.

The keys listed below are used for the hash.

server

This is the server to use.

port

This is the port to use for this server.

priority

This is the priority of this server.

weight

This is the weight of this server.

AUTHOR

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-net-dns-rr-srv-helper at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-DNS-RR-SRV-Helper. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Net::DNS::RR::SRV::Helper

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2010 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.