Handle sections with { on next line

diff --git a/bacula-backup/bacula-backup-lib.pl b/bacula-backup/bacula-backup-lib.pl
index ab14962..b1edd7a 100644 (file)
--- a/bacula-backup/bacula-backup-lib.pl
+++ b/bacula-backup/bacula-backup-lib.pl
@@ -11,6 +11,7 @@ if (&foreign_check("node-groups")) {
        }
 
 $dir_conf_file = "$config{'bacula_dir'}/bacula-dir.conf";
+$dir_conf_file = "/tmp/wasek.conf";
 $fd_conf_file = "$config{'bacula_dir'}/bacula-fd.conf";
 $sd_conf_file = "$config{'bacula_dir'}/bacula-sd.conf";
 $bconsole_conf_file = "$config{'bacula_dir'}/bconsole.conf";
@@ -153,6 +154,24 @@ if (!defined($config_file_cache{$file})) {
                        push(@{$parent->{'members'}}, $dir);
                        $parent = $dir;
                        }
+               elsif (/^\s*(\S+)\s*$/) {
+                       # Just a word by itself .. perhaps start of a section,
+                       # if there is a { on the next line.
+                       local $name = $1;
+                       local $nextline = <CONF>;
+                       if ($nextline =~ /^\s*{\s*$/) {
+                               local $dir = { 'name' => $name,
+                                              'parent' => $parent,
+                                              'line' => $lnum,
+                                              'eline' => $lnum,
+                                              'file' => $file,
+                                              'type' => 1,
+                                              'members' => [ ] };
+                               push(@{$parent->{'members'}}, $dir);
+                               $parent = $dir;
+                               $lnum++;
+                               }
+                       }
                $lnum++;
                }
        close(CONF);