/usr/share/perl5/Net/Server/Proto/UDP.pm is in libnet-server-perl 0.99-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | # -*- perl -*-
#
# Net::Server::Proto::UDP - Net::Server Protocol module
#
# $Id: UDP.pm,v 1.13 2007/02/03 05:56:09 rhandom Exp $
#
# Copyright (C) 2001-2007
#
# Paul Seamons
# paul@seamons.com
# http://seamons.com/
#
# Modified 2005 by Timothy Watt
# Added ability to deal with broadcast packets.
#
# This package may be distributed under the terms of either the
# GNU General Public License
# or the
# Perl Artistic License
#
# All rights reserved.
#
################################################################
package Net::Server::Proto::UDP;
use strict;
use vars qw($VERSION);
use base qw(Net::Server::Proto::TCP);
$VERSION = $Net::Server::VERSION; # done until separated
sub object {
my $type = shift;
my $class = ref($type) || $type || __PACKAGE__;
my $sock = $class->SUPER::object( @_ );
$sock->NS_proto('UDP');
### set a few more parameters
my($default_host,$port,$server) = @_;
my $prop = $server->{server};
### read any additional protocol specific arguments
$server->configure({
udp_recv_len => \$prop->{udp_recv_len},
udp_recv_flags => \$prop->{udp_recv_flags},
udp_broadcast => \$prop->{udp_broadcast},
});
$prop->{udp_recv_len} = 4096
unless defined($prop->{udp_recv_len})
&& $prop->{udp_recv_len} =~ /^\d+$/;
$prop->{udp_recv_flags} = 0
unless defined($prop->{udp_recv_flags})
&& $prop->{udp_recv_flags} =~ /^\d+$/;
$prop->{udp_broadcast} = undef
unless defined($prop->{udp_broadcast})
&& $prop->{udp_broadcast};
$sock->NS_recv_len( $prop->{udp_recv_len} );
$sock->NS_recv_flags( $prop->{udp_recv_flags} );
return $sock;
}
### connect the first time
### doesn't support the listen or the reuse option
sub connect {
my $sock = shift;
my $server = shift;
my $prop = $server->{server};
my $host = $sock->NS_host;
my $port = $sock->NS_port;
my %args = ();
$args{LocalPort} = $port; # what port to bind on
$args{Proto} = 'udp'; # what procol to use
$args{LocalAddr} = $host if $host !~ /\*/; # what local address (* is all)
$args{Reuse} = 1; # allow us to rebind the port on a restart
$args{Broadcast} = 1 if $prop->{udp_broadcast};
### connect to the sock
$sock->SUPER::configure(\%args)
or $server->fatal("Can't connect to UDP port $port on $host [$!]");
$server->fatal("Back sock [$!]!".caller())
unless $sock;
}
1;
__END__
=head1 NAME
Net::Server::Proto::UDP - Net::Server UDP protocol.
=head1 SYNOPSIS
See L<Net::Server::Proto>.
=head1 DESCRIPTION
Protocol module for Net::Server. This module implements the
SOCK_DGRAM socket type under INET (also known as UDP).
See L<Net::Server::Proto>.
=head1 PARAMETERS
The following paramaters may be specified in addition to
normal command line parameters for a Net::Server. See
L<Net::Server> for more information on reading arguments.
=over 4
=item udp_recv_len
Specifies the number of bytes to read from the UDP connection
handle. Data will be read into $self->{server}->{udp_data}.
Default is 4096. See L<IO::Socket::INET> and L<recv>.
=item udp_recv_flags
See L<recv>. Default is 0.
=back
=head1 QUICK PARAMETER LIST
Key Value Default
## UDP protocol parameters
udp_recv_len \d+ 4096
udp_recv_flags \d+ 0
udp_broadcast bool undef
=head1 LICENCE
Distributed under the same terms as Net::Server
=cut
|