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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
#!/usr/bin/perl -w
# Add, remove, or test a pg_hba.conf entry.
#
# (C) 2005-2009 Martin Pitt <mpitt@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
use strict;
use PgCommon;
use Getopt::Long;
use Net::CIDR;
my %valid_methods = qw/trust 1 reject 1 md5 1 crypt 1 password 1 krb5 1 ident 1 pam 1/;
# global variables
my $ip = ''; # default to local unix socket
my $force_ssl = 0;
my ($method, $ver_cluster, $db, $user);
my $mode;
my @hba;
# Print an error message to stderr and exit with status 2
sub error2 {
print STDERR 'Error: ', $_[0], "\n";
exit 2;
}
# Parse a single pg_hba.conf line.
# Arguments: <line>
# Returns: Hash reference; 'type' key (comment, local, host, hostssl,
# hostnossl) is always present, other keys depend on type.
sub parse_hba_line {
my $l = $_[0];
# comment line?
return { 'type' => 'comment', 'line' => $l } if ($l =~ /^\s*($|#)/);
# not yet supported features
return undef if $l =~ /("|\+|@)/;
my @tok = split /\s+/, $l;
return undef if $#tok < 3;
my $res = {
'type' => shift @tok,
'database' => shift @tok,
'user' => shift @tok,
'line' => $l
};
# local connection?
if ($$res{'type'} eq 'local') {
return undef if $#tok > 1;
return undef unless $valid_methods{$tok[0]};
$$res{'method'} = join (' ', @tok);
return $res;
}
# host connection?
if ($$res{'type'} =~ /^host((no)?ssl)?$/) {
my ($i, $c) = split '/', (shift @tok);
$i = Net::CIDR::cidrvalidate $i;
return undef unless $i;
# CIDR mask given?
if (defined $c) {
return undef if $c !~ /^(\d+)$/;
$$res{'ip'} = "$i/$c";
} else {
my $m = Net::CIDR::cidrvalidate (shift @tok);
return undef unless $m;
$$res{'ip'} = Net::CIDR::addrandmask2cidr ($i, $m);
return undef unless $$res{'ip'};
}
return undef if $#tok > 1;
return undef unless $valid_methods{$tok[0]};
$$res{'method'} = join (' ', @tok);
return $res;
}
print "Parse error: invalid line: $l";
return undef;
}
# Check if s1 is equal to s2 or s2 is 'all'.
# Arguments: <s1> <s2>
sub match_all {
return ($_[1] eq 'all' || $_[0] eq $_[1]);
}
# Check if given IP matches the specification in the HBA record.
# Arguments: <ip> <ref to hba hash>
sub match_ip {
my ($ip, $hba) = @_;
# Don't try to mix IPv4 and IPv6 addresses since that will make cidrlookup
# croak
return 0 if ((index $ip, ':') < 0) ^ ((index $$hba{'ip'}, ':') < 0);
return Net::CIDR::cidrlookup ($ip, $$hba{'ip'});
}
# Check if arguments match any line
# Return: 1 if match was found, 0 otherwise.
sub mode_test {
foreach my $hbarec (@hba) {
next if $$hbarec{'type'} eq 'comment';
next unless match_all ($user, $$hbarec{'user'}) &&
match_all ($db, $$hbarec{'database'}) &&
$$hbarec{'method'} eq $method;
if ($ip) {
return 1 if
(($force_ssl && $$hbarec{'type'} eq 'hostssl') ||
$$hbarec{'type'} =~ /^host/) &&
match_ip ($ip, $hbarec);
} else {
return 1 if $$hbarec{'type'} eq 'local';
}
}
return 0;
}
# Parse given pg_hba.conf file.
# Arguments: <pg_hba.conf path>
# Returns: Array with hash refs; for hash contents, see parse_hba_line().
sub read_pg_hba {
open HBA, $_[0] or return undef;
my @hba;
while (<HBA>) {
my $r = parse_hba_line $_;
return undef unless defined $r;
push @hba, $r;
}
close HBA;
return @hba;
}
# Generate a pg_hba.conf line that matches the command line args.
sub create_hba_line {
if ($ip) {
return sprintf "%-7s %-11s %-11s %-35s %s\n",
$force_ssl ? 'hostssl' : 'host', $db, $user, $ip, $method;
} else {
return sprintf "%-7s %-11s %-47s %s\n", 'local', $db, $user, $method;
}
}
# parse arguments
my $ip_arg;
exit 3 unless GetOptions (
'cluster=s' => \$ver_cluster,
'ip=s' => \$ip_arg,
'method=s' => \$method,
'force-ssl' => \$force_ssl
);
if ($#ARGV != 2) {
print STDERR "Usage: $0 mode [options] <database> <user>\n";
exit 2;
}
($mode, $db, $user) = @ARGV;
error2 '--cluster must be specified' unless $ver_cluster;
my ($version, $cluster) = split ('/', $ver_cluster);
error2 'No version specified with --cluster' unless $version;
error2 'No cluster specified with --cluster' unless $cluster;
error2 'Cluster does not exist' unless cluster_exists $version, $cluster;
if (defined $ip_arg) {
$ip = Net::CIDR::cidrvalidate $ip_arg;
error2 'Invalid --ip argument' unless defined $ip;
}
unless (defined $method) {
$method = ($ip ? 'md5' : 'ident sameuser');
}
error2 'Invalid --method argument' unless $valid_methods{(split /\s+/, $method)[0]};
# parse file
my $hbafile = "/etc/postgresql/$version/$cluster/pg_hba.conf";
@hba = read_pg_hba $hbafile;
error2 "Could not read $hbafile" unless $#hba;
if ($mode eq 'pg_test_hba') {
if (mode_test) {
exit 0;
} else {
print create_hba_line();
exit 1;
}
} else {
error2 "Unknown mode: $mode";
}
|
