ipsec/edit.cgi

   1 #!/usr/local/bin/perl
   2 # edit.cgi
   3 # Show a form for editing or creating a connection
   4
   5 require './ipsec-lib.pl';
   6 &ReadParse();
   7 if ($in{'new'}) {
   8         &ui_print_header(undef, $text{'edit_title1'}, "", "edit");
   9         }
  10 else {
  11         &ui_print_header(undef, $text{'edit_title2'}, "", "edit");
  12         @conf = &get_config();
  13         $conn = $conf[$in{'idx'}];
  14         }
  15
  16 print "<form action=save.cgi method=post>\n";
  17 print "<input type=hidden name=new value='$in{'new'}'>\n";
  18 print "<input type=hidden name=idx value='$in{'idx'}'>\n";
  19
  20 print "<table border width=100%>\n";
  21 print "<tr $tb> <td><b>$text{'edit_header'}</b></td> </tr>\n";
  22 print "<tr $cb> <td><table width=100%>\n";
  23
  24 # Connection name
  25 print "<tr> <td><b>$text{'edit_name'}</b></td>\n";
  26 if ($conn->{'value'} eq '%default' || $in{'new'} == 2) {
  27         print "<td><i>$text{'edit_default'}</i></td>\n";
  28         }
  29 else {
  30         printf "<td><input name=name size=20 value='%s'></td>\n",
  31                 $conn->{'value'};
  32         }
  33
  34 # ipsec startup option
  35 $a = $conn->{'values'}->{'auto'};
  36 print "<td><b>$text{'edit_auto'}</b></td>\n";
  37 print "<td>",&ui_select("auto", $a,
  38                 [ [ "", $text{'edit_amode'} ],
  39                   [ "ignore", $text{'edit_amodeignore'} ],
  40                   [ "add", $text{'edit_amodeadd'} ],
  41                   [ "start", $text{'edit_amodestart'} ] ]),"</td> </tr>\n";
  42
  43 # compression option
  44 $c = $conn->{'values'}->{'compress'};
  45 print "<tr> <td><b>$text{'edit_comp'}</b></td> <td>\n";
  46 print &ui_radio("comp", $c,
  47                 [ [ "", $text{'edit_cmode'} ],
  48                   [ "yes", $text{'edit_cmodeyes'} ],
  49                   [ "no", $text{'edit_cmodeno'} ] ]),"</td>\n";
  50
  51 # connection type option
  52 $t = $conn->{'values'}->{'type'};
  53 print "<td><b>$text{'edit_type'}</b></td>\n";
  54 print "<td>",&ui_select("type", $t,
  55                 [ [ "", $text{'edit_tmode'} ],
  56                   [ "tunnel", $text{'edit_tmodetunnel'} ],
  57                   [ "transport", $text{'edit_tmodetransport'} ],
  58                   [ "passthrough", $text{'edit_tmodepassthrough'} ] ]),
  59        "</td> </tr>\n";
  60
  61 # authentication type option
  62 $b = $conn->{'values'}->{'authby'};
  63 print "<td><b>$text{'edit_authby'}</b></td>\n";
  64 print "<td>",&ui_select("authby", $b,
  65                         [ [ "", $text{'edit_authbydef'} ],
  66                           [ "rsasig", $text{'edit_rsasig'} ],
  67                           [ "secret", $text{'edit_secret'} ],
  68                           [ "rsasig|secret", $text{'edit_rsasigsecret'} ],
  69                           [ "never", $text{'edit_never'} ] ], 0,0, 1),"</td>\n";
  70
  71 # pfs option
  72 $c = $conn->{'values'}->{'pfs'};
  73 print "<td><b>$text{'edit_pfs'}</b></td> <td>\n";
  74 print &ui_radio("pfs", $c, [ [ "yes", $text{'edit_pmodeyes'} ],
  75                              [ "no", $text{'edit_pmodeno'} ],
  76                              [ "", $text{'edit_pmode'} ] ]);
  77 print "</td> </tr>\n";
  78
  79 # auth type option
  80 $a = $conn->{'values'}->{'auth'};
  81 print "<tr> <td><b>$text{'edit_auth'}</b></td>\n";
  82 print "<td>",&ui_select("auth", $a,
  83                 [ [ "", $text{'edit_authdef'} ],
  84                   [ "esp", $text{'edit_authesp'} ],
  85                   [ "ah", $text{'edit_authah'} ] ], 0, 0, 1),
  86       "</td>\n";
  87
  88 # keying tries option
  89 $k = $conn->{'values'}->{'keyingtries'};
  90 print "<td><b>$text{'edit_keying'}</b></td>\n";
  91 print "<td>",&ui_opt_textbox("keying", $k, 10, $text{'default'}),
  92       "</td> </tr>\n";
  93
  94 # esp type option
  95 $e = $conn->{'values'}->{'esp'};
  96 $eonly = ($e =~ s/\!//g ? "!" : "");
  97 print "<tr> <td><b>$text{'edit_esp'}</b></td>\n";
  98 print "<td>",&ui_select("esp", $e,
  99                 [ [ "", $text{'edit_espdef'} ],
 100                   [ "3des-md5", $text{'edit_espmd5'} ],
 101                   [ "3des-sha", $text{'edit_espsha'} ],
 102                   [ "aes-128-md5", $text{'edit_esp128'} ] ], 0, 0, 1),
 103       "</td>\n";
 104
 105 print "<td><b>$text{'edit_esponly'}</b></td>\n";
 106 print "<td>",&ui_radio("esp_only", $eonly,
 107         [ [ "!", $text{'yes'} ], [ "", $text{'no'} ] ]),"</td> </tr>\n";
 108
 109 # key lifetime option
 110 $l = $conn->{'values'}->{'keylife'};
 111 $lu = $l =~ s/([^0-9])$// ? $1 : "s";
 112 print "<tr> <td><b>$text{'edit_keylife'}</b></td>\n";
 113 print "<td>",&ui_opt_textbox("keylife", $l, 5, $text{'default'})," ",
 114              &ui_select("keylife_units", $lu,
 115                         [ [ "s", $text{'edit_unit_s'} ],
 116                           [ "m", $text{'edit_unit_m'} ],
 117                           [ "h", $text{'edit_unit_h'} ],
 118                           [ "d", $text{'edit_unit_d'} ] ]),"</td>\n";
 119
 120 # keying channel lifetime option
 121 $l = $conn->{'values'}->{'ikelifetime'};
 122 $lu = $l =~ s/([^0-9])$// ? $1 : "s";
 123 print "<td><b>$text{'edit_ikelifetime'}</b></td>\n";
 124 print "<td>",&ui_opt_textbox("ikelifetime", $l, 5, $text{'default'})," ",
 125              &ui_select("ikelifetime_units", $lu,
 126                         [ [ "s", $text{'edit_unit_s'} ],
 127                           [ "m", $text{'edit_unit_m'} ],
 128                           [ "h", $text{'edit_unit_h'} ],
 129                           [ "d", $text{'edit_unit_d'} ] ]),"</td>\n";
 130
 131 foreach $d ('left', 'right') {
 132         print "</table></td></tr></table><br>\n";
 133         print "<table border width=100%>\n";
 134         print "<tr $tb> <td><b>",$text{'edit_'.$d},"</b></td> </tr>\n";
 135         print "<tr $cb> <td><table width=100%>\n";
 136
 137         # left/right
 138         $a = $conn->{'values'}->{$d};
 139         $amode = $a eq '%defaultroute' ? 0 :
 140                  $a eq '%any' ? 1 :
 141                  $a eq '%opportunistic' ? 2 : 3;
 142         if ($a eq '' && $conn->{'value'} eq '%default' || $in{'new'} == 2) {
 143                 $amode = -1;
 144                 }
 145         print "<tr> <td><b>$text{'edit_addr'}</b></td> <td colspan=3>\n";
 146         foreach $m ($amode == -1 ? (-1 .. 3) : (0 .. 3)) {
 147                 printf "<input type=radio name=${d}_mode value=%s %s>%s\n",
 148                      $m, $m == $amode ? "checked" : "", $text{'edit_addr'.$m};
 149                 }
 150         printf "<input name=$d size=15 value='%s'></td> </tr>\n",
 151                 $amode == 3 ? $a : undef;
 152
 153         # leftid/rightid
 154         $i = $conn->{'values'}->{$d."id"};
 155         $imode = $i =~ /^\@/ ? 2 : $i eq '' ? 0 : 1;
 156         print "<tr> <td><b>$text{'edit_id'}</b></td> <td colspan=3>\n";
 157         printf "<input type=radio name=${d}_id_mode value=0 %s> %s\n",
 158                 $imode == 0 ? "checked" : "", $text{'default'};
 159         printf "<input type=radio name=${d}_id_mode value=1 %s> %s\n",
 160                 $imode == 1 ? "checked" : "", $text{'edit_id1'};
 161         printf "<input type=radio name=${d}_id_mode value=2 %s> %s\n",
 162                 $imode == 2 ? "checked" : "", $text{'edit_id2'};
 163         printf "<input name=${d}_id size=20 value='%s'>\n",
 164                 $imode == 2 ? substr($i, 1) : $i;
 165
 166         # leftsubnet/rightsubnet
 167         $s = $conn->{'values'}->{$d.'subnet'};
 168         print "<tr> <td><b>$text{'edit_subnet'}</b></td> <td colspan=3>\n";
 169         printf "<input type=radio name=${d}_subnet_def value=1 %s> %s\n",
 170                 $s ? "" : "checked", $text{'edit_none'};
 171         printf "<input type=radio name=${d}_subnet_def value=0 %s> %s\n",
 172                 $s ? "checked" : "";
 173         print "<input name=${d}_subnet size=20 value='$s'></td> </tr>\n";
 174
 175         # leftrsasigkey/rightrsasigkey
 176         $k = $conn->{'values'}->{$d.'rsasigkey'};
 177         if ($in{'new'} == 1 && $d eq 'left') {
 178                 $k = &get_public_key();
 179                 }
 180         $kmode = $k eq '%dns' ? 1 : $k ? 2 : 0;
 181         print "<tr> <td valign=top><b>$text{'edit_key'}</b></td> ",
 182               "<td colspan=3>\n";
 183         foreach $m (0 .. 2) {
 184                 printf "<input type=radio name=${d}_key_mode value=%s %s> %s\n",
 185                         $m, $kmode == $m ? "checked" : "", $text{'edit_key'.$m};
 186                 }
 187         print "<textarea name=${d}_key rows=4 cols=81 wrap=hard>",
 188                 $kmode == 2 ? join("\n", &wrap_lines($k, 80)) : "",
 189                 "</textarea></td> </tr>\n";
 190
 191         # leftnexthop/rightnexthop
 192         $h = $conn->{'values'}->{$d.'nexthop'};
 193         $hmode = $h eq '%direct' ? 1 :
 194                  $h eq '%defaultroute' ? 3 :
 195                  $h ? 2 : 0;
 196         print "<tr> <td><b>$text{'edit_hop'}</b></td> <td colspan=3>\n";
 197         printf "<input type=radio name=${d}_hop_mode value=0 %s> %s\n",
 198                 $hmode == 0 ? "checked" : "", $text{'default'};
 199         printf "<input type=radio name=${d}_hop_mode value=1 %s> %s\n",
 200                 $hmode == 1 ? "checked" : "", $text{'edit_hopdir'};
 201         printf "<input type=radio name=${d}_hop_mode value=3 %s> %s\n",
 202                 $hmode == 3 ? "checked" : "", $text{'edit_hoproute'};
 203         printf "<input type=radio name=${d}_hop_mode value=2 %s> %s\n",
 204                 $hmode == 2 ? "checked" : "", $text{'edit_hopip'};
 205         printf "<input name=${d}_hop size=15 value='%s'></td> </tr>\n",
 206                 $hmode == 2 ? $h : undef;
 207
 208         # leftcert/rightcert
 209         $s = $conn->{'values'}->{$d.'cert'};
 210         print "<tr> <td><b>$text{'edit_cert'}</b></td> <td colspan=3>\n";
 211         printf "<input type=radio name=${d}_cert_def value=1 %s> %s\n",
 212                 $s ? "" : "checked", $text{'edit_none'};
 213         printf "<input type=radio name=${d}_cert_def value=0 %s> %s\n",
 214                 $s ? "checked" : "";
 215         print "<input name=${d}_cert size=40 value='$s'></td> </tr>\n";
 216         }
 217
 218 print "</table></td></tr></table>\n";
 219
 220 print "<table width=100%><tr>\n";
 221 if ($in{'new'}) {
 222         print "<td><input type=submit value='$text{'create'}'></td>\n";
 223         }
 224 else {
 225         print "<td><input type=submit value='$text{'save'}'></td>\n";
 226         if ($conn->{'value'} ne '%default') {
 227                 print "<td align=center><input type=submit name=export ",
 228                       "value='$text{'edit_export'}'></td>\n";
 229                 }
 230         print "<td align=right><input type=submit name=delete ",
 231               "value='$text{'delete'}'></td>\n";
 232         }
 233 print "</tr></table></form>\n";
 234
 235 &ui_print_footer("", $text{'index_return'});
 236
 237