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
|
# Check PgCommon library functions.
use strict;
use File::Temp qw/tempdir/;
use lib '/usr/share/postgresql-common';
use PgCommon;
use lib 't';
use TestLib;
use Test::More tests => 20;
my $tdir = tempdir (CLEANUP => 1);
# test read_pg_hba with valid file
open P, ">$tdir/pg_hba.conf" or die "Could not create $tdir/pg_hba.conf: $!";
print P <<EOF;
# comment
local all postgres ident sameuser
# TYPE DATABASE USER CIDR-ADDRESS METHOD
local foo nobody trust
local foo nobody crypt
local foo nobody,joe krb5
local foo,bar nobody ident
local all +foogrp password
host \@inc all 127.0.0.1/32 md5
hostssl all \@inc 192.168.0.0 255.255.0.0 pam
hostnossl all all 192.168.0.0 255.255.0.0 reject
EOF
close P;
my @expected_records = (
{ 'type' => 'local', 'db' => 'all', 'user' => 'postgres', 'method' => 'ident sameuser' },
{ 'type' => 'local', 'db' => 'foo', 'user' => 'nobody', 'method' => 'trust' },
{ 'type' => 'local', 'db' => 'foo', 'user' => 'nobody', 'method' => 'crypt' },
{ 'type' => 'local', 'db' => 'foo', 'user' => 'nobody,joe', 'method' => 'krb5' },
{ 'type' => 'local', 'db' => 'foo,bar', 'user' => 'nobody', 'method' => 'ident' },
{ 'type' => 'local', 'db' => 'all', 'user' => '+foogrp', 'method' => 'password' },
{ 'type' => 'host', 'db' => '@inc', 'user' => 'all', 'method' => 'md5', 'ip' => '127.0.0.1', 'mask' => '32'},
{ 'type' => 'hostssl', 'db' => 'all', 'user' => '@inc', 'method' => 'pam', 'ip' => '192.168.0.0', 'mask' => '255.255.0.0'},
{ 'type' => 'hostnossl', 'db' => 'all', 'user' => 'all', 'method' => 'reject', 'ip' => '192.168.0.0', 'mask' => '255.255.0.0'},
);
my @hba = read_pg_hba "$tdir/pg_hba.conf";
foreach my $entry (@hba) {
next if $$entry{'type'} eq 'comment';
if ($#expected_records < 0) {
fail '@expected_records is already empty';
next;
}
my $expected = shift @expected_records;
my $parsedstr = '';
my $expectedstr = '';
foreach my $k (keys %$expected) {
$parsedstr .= $k . ':\'' . $$entry{$k} . '\' ';
$expectedstr .= $k . ':\'' . $$expected{$k} . '\' ';
if ($$expected{$k} ne $$entry{$k}) {
fail "mismatch: $expectedstr ne $parsedstr";
last;
}
}
pass 'correctly parsed line \'' . $$entry{'line'} . "'";
}
ok (($#expected_records == -1), '@expected_records has correct number of entries');
# test read_pg_hba with invalid file
my $invalid_hba = <<EOF;
foo all all md5
local all all foo
host all all foo
host all all 127.0.0.1/32 foo
host all all md5
host all all 127.0.0.1/32 0.0.0.0 md5
host all all 127.0.0.1 md5
EOF
open P, ">$tdir/pg_hba.conf" or die "Could not create $tdir/pg_hba_invalid.conf: $!";
print P $invalid_hba;
close P;
@hba = read_pg_hba "$tdir/pg_hba.conf";
is (scalar (split "\n", $invalid_hba), $#hba+1, 'returned read_pg_hba array has correct number of records');
foreach my $entry (@hba) {
is $$entry{'type'}, undef, 'line \'' . $$entry{'line'} . '\' parsed as invalid';
}
# test read_conf_file()
my %conf = PgCommon::read_conf_file '/nonexisting';
is_deeply \%conf, {}, 'read_conf_file returns empty dict for nonexisting file';
open F, ">$tdir/foo.conf" or die "Could not create $tdir/foo.conf: $!";
print F <<EOF;
# test configuration file
# commented_int = 12
# commented_str = 'foobar'
intval = 42
cintval = 1 # blabla
strval = 'hello'
cstrval = 'bye' # comment
emptystr = ''
cemptystr = '' # moo!
testpath = '/bin/test'
quotestr = 'test ! -f \\'/tmp/%f\\' && echo \\'yes\\''
EOF
close F;
%conf = PgCommon::read_conf_file "$tdir/foo.conf";
is_deeply (\%conf, {
'intval' => 42,
'cintval' => 1,
'strval' => 'hello',
'cstrval' => 'bye',
'testpath' => '/bin/test',
'emptystr' => '',
'cemptystr' => '',
'quotestr' => "test ! -f '/tmp/%f' && echo 'yes'"
}, 'read_conf_file() parsing');
# vim: filetype=perl
|
