Changeset 1150

Show
Ignore:
Timestamp:
02/29/08 00:20:15 (9 months ago)
Author:
hachi
Message:

MultipleNetworks policy as implemented by Andy McFarland

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/server/lib/MogileFS/Config.pm

    r1147 r1150  
    302302        }; 
    303303    }; 
    304  
     304    my $valid_netmask = sub { 
     305        my $n = Net::Netmask->new2($_[0]); 
     306        die "Doesn't match an acceptable netmask" unless $n; 
     307    }; 
     308         
    305309    # let slave settings go through unmodified, for now. 
    306310    if ($key =~ /^slave_/) { return $del_if_blank }; 
    307311    if ($key eq "enable_rebalance") { return $bool }; 
    308312    if ($key eq "memcache_servers") { return $any  }; 
     313 
     314    # ReplicationPolicy::MultipleNetworks 
     315    if ($key eq 'network_zones') { return $any }; 
     316    if ($key =~ /^zone_/) { return $valid_netmask }; 
    309317 
    310318    if ($key eq "rebalance_policy") { return sub {