Changeset 1294

Show
Ignore:
Timestamp:
08/28/07 12:11:21 (4 years ago)
Author:
jo
Message:

Got rid of all copy_node function.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • people/jo/multilevel-groups/server/munin-update.in

    r1293 r1294  
    448448        my @tmp = ($$, munin_get_node_loc($newconf), $name); 
    449449        if (ref $oldconf) { 
    450           copy_node ($oldconf, $newconf); 
     450          munin_copy_node_toloc ($oldnode, $newconf, []); 
    451451          nstore_fd \@tmp, \*SOCK || die "Could not nstore_fd: $!"; 
    452452          nstore_fd \%{munin_get_separated_node ($newconf)}, \*SOCK; 
    …… 
    492492        # If we can't reach the client. Using old Configuration. 
    493493        if (ref $oldconf) { 
    494           copy_node ($oldconf, $newconf); 
     494          munin_copy_node_toloc ($oldnode, $newconf, []); 
    495495          alarm (0); # Don't want to interrupt this. 
    496496          socket (SOCK, PF_UNIX, SOCK_STREAM, 0)   || die "socket: $!"; 
    …… 
    508508                my $ctx; 
    509509                if (!config_node($newconf,$oldconf,$socket)) { 
    510                     copy_node ($oldconf, $newconf); 
     510                    munin_copy_node_toloc ($oldnode, $newconf, []); 
    511511                    socket (SOCK, PF_UNIX, SOCK_STREAM, 0)   || die "socket: $!"; 
    512512                    connect (SOCK, sockaddr_un (munin_get($newconf, "rundir")."/$serversocket")) || die "connect: $!"; 
    …… 
    536536        # If we can't reach the client. Using old Configuration. 
    537537        if (ref $oldconf) { 
    538             copy_node ($oldconf, $newconf); 
     538            munin_copy_node_toloc ($oldnode, $newconf, []); 
    539539        } 
    540540      } else { 
    …… 
    915915        logger ("Error: Could not get list from $newconf->{address}: $!\nAttempting to use old configuration"); 
    916916        if (ref $oldconf) { 
    917             copy_node ($oldconf, $newconf); 
     917            munin_copy_node_toloc ($oldnode, $newconf, []); 
    918918        } 
    919919        @services = []; 
    …… 
    941941                if ($oldconf->{$servname}) { 
    942942                    logger("Attempting to use old configuration"); 
    943                     copy_node ($newconf->{$servname}, $oldconf->{$servname}); 
     943                    munin_copy_node_toloc ($oldconf->{$servname}, $newconf, [$servname]); 
    944944                } else { 
    945945                    logger("Skipping configuration of $servname"); 
    …… 
    11441144} 
    11451145 
    1146 sub copy_node 
    1147 { 
    1148     my $from = shift; 
    1149     my $to   = shift; 
    1150      
    1151     if (ref ($from) eq "HASH") { 
    1152         foreach my $key (keys %$from) { 
    1153             next if $key =~ /^#%#/; 
    1154             $to->{$key} = $from->{$key}; 
    1155         } 
    1156     } else { 
    1157         $to = $from; 
    1158     } 
    1159     return $to; 
    1160 } 
    1161  
    116211461; 
    11631147