return ($iaddr, $mask);
}
-$forbid_remote= var_global('forbid_remote');
-@forbid_remote= ();
-if ($forbid_remote ne '-') {
- foreach $r (split /[, \t]+/, $forbid_remote) {
- push @forbid_remote, [ parse_addr_mask($r) ];
- }
-}
-
sub ipif_permit ($$$$) {
my ($group,$local,$net,$why) = @_;
my ($pmask,$piaddr,$fmask,$fiaddr,@lgroup,$lgid);
}
foreach $site (@actives, @passives) {
+ $forbid_remote= var_site('forbid_remote');
+ @forbid_remote= ();
+ if ($forbid_remote ne '-') {
+ foreach $r (split /[, \t]+/, $forbid_remote) {
+ push @forbid_remote, [ parse_addr_mask($r) ];
+ }
+ }
+
$tlend= var_site('lend')."/32";
$tlgroup= var_site('lgroup');
if ($tlend ne $glend || $tlgroup ne $glgroup) {
write_file($ipifnetsfile,'ipifnetsfile','', $ipif_file);
$active_file= '';
+$knownhosts_file= '';
$inittab= '';
$ix= 0;
foreach $site (@actives) {
$active_file.= "$site\t".var_site('activesxinfo')."\n";
$inittab.= sprintf("t%d", $ix++).':'.var_site('inittab_line')."\n";
+ $hostkey= var_site('rhostkey');
+ $knownhosts_file.= var_site('sshdest').' '.$hostkey."\n"
+ if length $hostkey;
$invoke_file= var_site('invoke_file');
write_file($invoke_file, 'invoke_file',
- var_site('invoke_head'), var_site('invoke_body'));
+ var_site('invoke_head')."\n", var_site('invoke_body'));
chmod 0777&~umask, $invoke_file or die $!;
}
+write_file(var_global('knownhostsfile'),'knownhostsfile', '',$knownhosts_file);
write_file(var_global('activesfile'),'activesfile', '',$active_file);
print