blob: 851c29d3bbb6b0e4e7ca266ea369edf142c347b9 (
plain)
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
|
package Exim::Runtest;
use 5.010;
use strict;
use warnings;
use IO::Socket::INET;
use Carp;
use parent 'Exporter';
our @EXPORT_OK = qw(mailgroup dynamic_socket);
our %EXPORT_TAGS = (
all => \@EXPORT_OK,
);
use List::Util qw'shuffle';
=head1 NAME
Exim::Runtest - helper functions for the runtest script
=head1 SYNOPSIS
use Exim::Runtest;
my $foo = Exim::Runtest::foo('foo');
=head1 DESCRIPTION
The B<Exim::Runtest> module provides some simple functions
for the F<runtest> script. No functions are exported yet.
=cut
sub mailgroup {
my $group = shift // croak "Need a default group name.";
croak "Need a group *name*, not a numeric group id."
if $group =~ /^\d+$/;
return $group if getgrnam $group;
my @groups;
setgrent or die "setgrent: $!\n";
push @groups, $_ while defined($_ = getgrent);
endgrent;
return (shuffle @groups)[0];
}
sub dynamic_socket {
my $socket;
for (my $port = 1024; $port < 65000; $port++) {
$socket = IO::Socket::INET->new(
LocalHost => '127.0.0.1',
LocalPort => $port,
Listen => 10,
ReuseAddr => 1,
) and return $socket;
}
croak 'Can not allocate a free port.';
}
1;
__END__
=head1 FUNCTIONS
=over
=item B<mailgroup>(I<$default>)
Check if the mailgroup I<$default> exists. Return the checked
group name or some other random but existing group.
=item B<dynamic_socket>()
Return a dynamically allocated listener socket in the range
between 1024 and 65534;
=back
=cut
|
