Subversion Repositories DevTools

Rev

Rev 1038 | Rev 2571 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1038 Rev 1040
Line 109... Line 109...
109 
        #   Validate mandatory entries
 109 
        #   Validate mandatory entries
110 
        #   Insert defaults that are not present
 110 
        #   Insert defaults that are not present
111 
        #
 111 
        #
112 
        while ( (my ($key, $entry)) = each %{$pdata} )
 112 
        while ( (my ($key, $entry)) = each %{$pdata} )
113 
        {
 113 
        {
114 
            if ( exists $entry{mandatory} && $entry{mandatory}  )
 114 
            if ( exists ($entry->{mandatory}) && $entry->{mandatory}  )
115 
            {
 115 
            {
116 
                if ( !exists $conf->{$key} )
 116 
                if ( !exists $conf->{$key} )
117 
                {
 117 
                {
118 
                    push @errors, "Mandatory config not found: $key";
 118 
                    push @errors, "Mandatory config not found: $key";
119 
                }
 119 
                }
120 
            }
 120 
            }
121 
 
 121 
 
122 
            if ( exists $entry{default} )
 122 
            if ( exists $entry->{default} )
123 
            {
 123 
            {
124 
                if ( !exists $conf->{$key} )
 124 
                if ( !exists $conf->{$key} )
125 
                {
 125 
                {
126 
                    $conf->{$key} = $entry{default};
 126 
                    $conf->{$key} = $entry->{default};
127 
                }
 127 
                }
128 
            }
 128 
            }
129 
        }
 129 
        }
130 
 
 130 
 
131 
        #
 131 
        #
Line 227... Line 227...
227 
    {
 227 
    {
228 
        $conf->{$key} = $data;
 228 
        $conf->{$key} = $data;
229 
    }
 229 
    }
230 
 
 230 
 
231 
#DebugDumpData('config', $conf );
 231 
#DebugDumpData('config', $conf );
- 
 
 232 
#DebugDumpData('errors' , \@errors);
232 
    return $conf, \@errors;
 233 
    return $conf, \@errors;
233 
}
 234 
}
234 
 
 235 
 
235 
#-------------------------------------------------------------------------------
 236 
#-------------------------------------------------------------------------------
236 
# Function        : mtime
 237 
# Function        : mtime