amt has asked for the wisdom of the Perl Monks concerning the following question:
Could not create directory '/var/www/.ssh'. Host key verification failed. lost connection
sub propagate { my $config_file = shift; my $addr; my %FR_servers = ( "XX.XX.XX.XX" => 0 ); # key: address o +f FR servs val: sucess/fail ####### Begin Dumb Propagate Function ####### foreach $addr (keys %FR_servers) { if( system("scp $config_file $addr:/usr/local/etc/radd +b/") == 0 ){ $FR_servers{$addr} = 1; # mark + for user feedback print "good<br>"; system("ssh $addr \"$reloadcmd\""); # relo +ad freeradius remotely } else { $FR_servers{$addr} = 0; print "bad<br>"; } } ####### Finish Dumb Propagate Function ####### ####### Draw Propagate Results ####### $query->header(); foreach $addr (keys %FR_servers){ print "$_ $FR_servers{$addr}<br>"; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: FreeRadius Config Propagation
by fglock (Vicar) on Oct 01, 2004 at 19:36 UTC | |
by amt (Monk) on Oct 01, 2004 at 19:41 UTC | |
by hsinclai (Deacon) on Oct 01, 2004 at 19:50 UTC | |
by amt (Monk) on Oct 01, 2004 at 20:03 UTC | |
by hsinclai (Deacon) on Oct 01, 2004 at 20:11 UTC | |
by fglock (Vicar) on Oct 01, 2004 at 19:50 UTC | |
by amt (Monk) on Oct 01, 2004 at 20:14 UTC | |
Re: FreeRadius Config Propagation
by hsinclai (Deacon) on Oct 01, 2004 at 19:39 UTC | |
by amt (Monk) on Oct 01, 2004 at 19:48 UTC | |
Re: FreeRadius Config Propagation
by Anonymous Monk on Oct 01, 2004 at 23:13 UTC |