\n";
print " $text{'edit_name'} | \n";
printf " | \n",
$tunnel->{'name'};
print "$text{'edit_server'} | \n";
printf " | \n",
$tunnel->{'server'};
print " $text{'edit_login'} | \n";
printf " %s\n",
$login ? "" : "checked", $text{'edit_same'};
printf "\n",
$login ? "checked" : "";
printf " | \n",
$login->{'value'};
print "$text{'edit_pass'} | \n";
printf " | \n",
$sec->{'secret'};
$remote = &find("remotename", $tunnel->{'opts'});
print " $text{'edit_remote'} | \n";
printf " %s\n",
$remote ? "" : "checked", $text{'edit_auto'};
printf "\n",
$remote ? "checked" : "";
printf " | \n",
$remote->{'value'};
print " \n";
# Show PPP include file
$file = &find("file", $tunnel->{'opts'});
$fmode = $in{'new'} ? 1 : !$file ? 0 :
$file->{'value'} eq $config{'pptp_options'} ? 1 : 2;
print " $text{'edit_file'} | \n";
printf " %s\n",
$fmode == 0 ? "checked" : "", $text{'edit_none'};
printf " %s\n",
$fmode == 1 ? "checked" : "", $text{'edit_global'};
printf " %s\n",
$fmode == 2 ? "checked" : "", $text{'edit_ofile'};
printf " %s | \n",
$fmode == 2 ? $file->{'value'} : "", &file_chooser_button("file");
print "
| \n";
# Parse all route comments
foreach $r (@{$tunnel->{'routes'}}) {
if ($r =~ /^\s*add\s+-net\s+(\S+)\s+netmask\s+(\S+)\s+gw\s+(\S+)\s*$/) {
# Net route to specific gateway
push(@kroutes, [ 1, $1, $2, $3 ]);
}
elsif ($r =~ /^\s*add\s+-net\s+(\S+)\s+gw\s+(\S+)\s+netmask\s+(\S+)\s*$/) {
# Net route to specific gateway
push(@kroutes, [ 1, $1, $3, $2 ]);
}
elsif ($r =~ /^\s*add\s+-net\s+(\S+)\s+netmask\s+(\S+)\s+dev\s+(TUNNEL_DEV)\s*$/) {
# Net route to other end
push(@kroutes, [ 1, $1, $2, 'GW' ]);
}
elsif ($r =~ /^\s*add\s+-net\s+(\S+)\s+dev\s+(TUNNEL_DEV)\s+netmask\s+(\S+)\s*$/) {
# Net route to other end
push(@kroutes, [ 1, $1, $3, 'GW' ]);
}
elsif ($r =~ /^\s*add\s+-host\s+(\S+)\s+gw\s+(\S+)\s*$/) {
# Host route to specific gateway
push(@kroutes, [ 2, $1, undef, $2 ]);
}
elsif ($r =~ /^\s*add\s+-host\s+(\S+)\s+dev\s+(TUNNEL_DEV)\s*$/) {
# Host route to specific gateway
push(@kroutes, [ 2, $1, undef, 'GW' ]);
}
elsif ($r =~ /^\s*add\s+default\s+gw\s+(\S+)\s*$/) {
# Default route to specific gateway
$adddef = $1;
}
elsif ($r =~ /^\s*add\s+default\s+dev\s+(TUNNEL_DEV)\s*$/) {
# Default route to other end
$adddef = 'GW';
}
elsif ($r =~ /^\s*delete\s+default\s*$/) {
# Deleting old default route
$deldef = 1;
}
else {
push(@uroutes, $r);
}
}
# Show default route options
print " $text{'edit_adddef'} | \n";
printf " %s\n",
$adddef eq "GW" ? "checked" : "", $text{'edit_def1'};
printf " %s\n",
$adddef && $adddef ne "GW" ? "checked" : "", $text{'edit_def2'};
printf "\n",
$adddef eq "GW" ? "" : $adddef;
printf " %s\n",
$adddef ? "" : "checked", $text{'no'};
print " | \n";
print " $text{'edit_deldef'} | \n";
printf " %s\n",
$deldef ? "checked" : "", $text{'yes'};
printf " %s | \n",
$deldef ? "" : "checked", $text{'no'};
# Show editable routes
print " $text{'edit_routes'} | \n";
print "\n";
print " $text{'edit_type'} | ",
"$text{'edit_net'} | ",
"$text{'edit_mask'} | ",
"$text{'edit_gw'} | \n";
$i = 0;
foreach $r (@kroutes, [ 0, undef, undef, 'GW' ]) {
print "\n";
print " | \n";
print " | \n";
print " | \n";
printf " %s\n",
$r->[3] eq 'GW' ? "checked" : "", $text{'edit_gw_def'};
printf "\n",
$r->[3] eq 'GW' ? "" : "checked";
printf " | \n",
$r->[3] eq 'GW' ? "" : $r->[3];
print " \n";
$i++;
}
print " | \n";
# Show other route commands
print " $text{'edit_unknown'} | \n";
print " | \n";
print "
| \n";
# Show MPPE options
print " $text{'opts_msdesc'} | \n";
&mppe_options_form($tunnel->{'opts'});
print " |