diff options
-rw-r--r-- | MANIFEST.SKIP | 1 | ||||
-rw-r--r-- | README | 14 |
2 files changed, 8 insertions, 7 deletions
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP index 3429457..c1d2412 100644 --- a/MANIFEST.SKIP +++ b/MANIFEST.SKIP | |||
@@ -60,3 +60,4 @@ | |||
60 | ^\.emacs\.* | 60 | ^\.emacs\.* |
61 | \.tar$ | 61 | \.tar$ |
62 | \.tar\.gz$ | 62 | \.tar\.gz$ |
63 | Config/HAProxy/VirtualHost.pm | ||
@@ -7,16 +7,16 @@ searching, modifying and saving it to a file. | |||
7 | 7 | ||
8 | EXAMPLE | 8 | EXAMPLE |
9 | 9 | ||
10 | use Config::HAProxy; | 10 | use Config::HAProxy; |
11 | 11 | ||
12 | # Parse HAProxy configuration file | 12 | # Parse HAProxy configuration file |
13 | $cfg = Config::HAProxy->new->parse; | 13 | $cfg = Config::HAProxy->new->parse; |
14 | 14 | ||
15 | # Print IP addresses and ports of the configured backends | 15 | # Print IP addresses and ports of the configured backends |
16 | foreach my $srv (map { $_->select(name => 'server') } | 16 | foreach my $srv (map { $_->select(name => 'server') } |
17 | $cfg->tree->select(name => 'backend')) { | 17 | $cfg->tree->select(name => 'backend')) { |
18 | print $srv->arg(1),"\n"; | 18 | print $srv->arg(1),"\n"; |
19 | } | 19 | } |
20 | 20 | ||
21 | 21 | ||
22 | INSTALLATION | 22 | INSTALLATION |