# Set up the relevant stuff in /etc/userv/vpn, and then run
# this. It should tell you what to do to inittab and ipif-networks.
# Set up the relevant stuff in /etc/userv/vpn, and then run
# this. It should tell you what to do to inittab and ipif-networks.
# This is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# This is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
write_file($ipifnetsfile,'ipifnetsfile','', $ipif_file);
$active_file= '';
write_file($ipifnetsfile,'ipifnetsfile','', $ipif_file);
$active_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";
$inittab= '';
$ix= 0;
foreach $site (@actives) {
$active_file.= "$site\t".var_site('activesxinfo')."\n";
$inittab.= sprintf("t%d", $ix++).':'.var_site('inittab_line')."\n";
$invoke_file= var_site('invoke_file');
write_file($invoke_file, 'invoke_file',
$invoke_file= var_site('invoke_file');
write_file($invoke_file, 'invoke_file',
write_file(var_global('activesfile'),'activesfile', '',$active_file);
print
write_file(var_global('activesfile'),'activesfile', '',$active_file);
print