dhcpd/acl_security.pl

   1
   2 require 'dhcpd-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the dhcpd module
   6 sub acl_security_form
   7 {
   8 print "<tr>\n<td><b>$text{'acl_apply'}</b></td> <td>\n";
   9 printf "<input type=radio name=apply value=1 %s> $text{'yes'}\n",
  10                 $_[0]->{'apply'} ? "checked" : "";
  11 printf "<input type=radio name=apply value=0 %s> $text{'no'}</td>\n",
  12                 $_[0]->{'apply'} ? "" : "checked";
  13 print "</tr>\n";
  14
  15 print "<tr>\n<td><b>$text{'acl_global'}</b></td> <td>\n";
  16 printf "<input type=radio name=global value=1 %s> $text{'yes'}\n",
  17                 $_[0]->{'global'} ? "checked" : "";
  18 printf "<input type=radio name=global value=0 %s> $text{'no'}</td>\n",
  19                 $_[0]->{'global'} ? "" : "checked";
  20 print "</tr>\n";
  21
  22 print "<tr>\n<td><b>$text{'acl_r_leases'}</b></td> <td>\n";
  23 printf "<input type=radio name=r_leases value=1 %s> $text{'yes'}\n",
  24                 $_[0]->{'r_leases'} ? "checked" : "";
  25 printf "<input type=radio name=r_leases value=0 %s> $text{'no'}</td>\n",
  26                 $_[0]->{'r_leases'} ? "" : "checked";
  27 print "</tr>\n";
  28
  29 print "<tr>\n<td><b>$text{'acl_w_leases'}</b></td> <td>\n";
  30 printf "<input type=radio name=w_leases value=1 %s> $text{'yes'}\n",
  31                 $_[0]->{'w_leases'} ? "checked" : "";
  32 printf "<input type=radio name=w_leases value=0 %s> $text{'no'}</td>\n",
  33                 $_[0]->{'w_leases'} ? "" : "checked";
  34 print "</tr>\n";
  35
  36 print "<tr> <td colspan=4><hr></td> </tr>\n";
  37
  38 # uniqs
  39 print "<tr>\n<td><b>$text{'acl_uniq_hst'}</b></td> <td>\n";
  40 printf "<input type=radio name=uniq_hst value=1 %s> $text{'yes'}\n",
  41                 $_[0]->{'uniq_hst'} ? "checked" : "";
  42 printf "<input type=radio name=uniq_hst value=0 %s> $text{'no'}</td>\n",
  43                 $_[0]->{'uniq_hst'} ? "" : "checked";
  44 print "</tr>\n";
  45
  46 print "<tr>\n<td><b>$text{'acl_uniq_sub'}</b></td> <td>\n";
  47 printf "<input type=radio name=uniq_sub value=1 %s> $text{'yes'}\n",
  48                 $_[0]->{'uniq_sub'} ? "checked" : "";
  49 printf "<input type=radio name=uniq_sub value=0 %s> $text{'no'}</td>\n",
  50                 $_[0]->{'uniq_sub'} ? "" : "checked";
  51 print "</tr>\n";
  52
  53 print "<tr>\n<td><b>$text{'acl_uniq_sha'}</b></td> <td>\n";
  54 printf "<input type=radio name=uniq_sha value=1 %s> $text{'yes'}\n",
  55                 $_[0]->{'uniq_sha'} ? "checked" : "";
  56 printf "<input type=radio name=uniq_sha value=0 %s> $text{'no'}</td>\n",
  57                 $_[0]->{'uniq_sha'} ? "" : "checked";
  58 print "</tr>\n";
  59
  60 print "<tr> <td colspan=4><hr></td> </tr>\n";
  61
  62 # security mode settings
  63 print "<tr>\n<td><b>$text{'acl_seclevel'}</b></td> <td colspan=3>\n";
  64 printf "<input type=radio name=smode value=0 %s> 0\n",
  65                 $_[0]->{'smode'} == 0 ? "checked" : "";
  66 printf "<input type=radio name=smode value=1 %s> 1\n",
  67                 $_[0]->{'smode'} == 1 ? "checked" : "";
  68 printf "<input type=radio name=smode value=2 %s> 2\n",
  69                 $_[0]->{'smode'} == 2 ? "checked" : "";
  70 printf "<input type=radio name=smode value=3 %s> 3\n",
  71                 $_[0]->{'smode'} == 3 ? "checked" : "";
  72 print "</td>\n</tr>\n";
  73
  74 print "<tr>\n<td><b>$text{'acl_hide'}</b></td> <td>\n";
  75 printf "<input type=radio name=hide value=1 %s> $text{'yes'}\n",
  76                 $_[0]->{'hide'} == 1 ? "checked" : "";
  77 printf "<input type=radio name=hide value=0 %s> $text{'no'}</td>\n",
  78                 $_[0]->{'hide'} == 0 ? "checked" : "";
  79 print "</tr>\n";
  80
  81 print "<tr> <td colspan=4><hr></td> </tr>\n";
  82
  83 # global acls
  84 print "<tr>\n<td><b>$text{'acl_ahst'}</b></td>\n";
  85 print "<td colspan=3>\n";
  86 printf "<input type=checkbox name=c_hst value=1 %s> %s\n",
  87                 $_[0]->{'c_hst'} ? "checked" : "", $text{"acl_c"};
  88 printf "<input type=checkbox name=r_hst value=1 %s> %s\n",
  89                 $_[0]->{'r_hst'} ? "checked" : "", $text{"acl_r"};
  90 printf "<input type=checkbox name=w_hst value=1 %s> %s\n",
  91                 $_[0]->{'w_hst'} ? "checked" : "", $text{"acl_w"};
  92 print "</td> </tr>\n";
  93
  94 print "<tr>\n<td><b>$text{'acl_agrp'}</b></td>\n";
  95 print "<td colspan=3>\n";
  96 printf "<input type=checkbox name=c_grp value=1 %s> %s\n",
  97                 $_[0]->{'c_grp'} ? "checked" : "", $text{"acl_c"};
  98 printf "<input type=checkbox name=r_grp value=1 %s> %s\n",
  99                 $_[0]->{'r_grp'} ? "checked" : "", $text{"acl_r"};
 100 printf "<input type=checkbox name=w_grp value=1 %s> %s\n",
 101                 $_[0]->{'w_grp'} ? "checked" : "", $text{"acl_w"};
 102 print "</td> </tr>\n";
 103
 104 print "<tr>\n<td><b>$text{'acl_asub'}</b></td>\n";
 105 print "<td colspan=3>\n";
 106 printf "<input type=checkbox name=c_sub value=1 %s> %s\n",
 107                 $_[0]->{'c_sub'} ? "checked" : "", $text{"acl_c"};
 108 printf "<input type=checkbox name=r_sub value=1 %s> %s\n",
 109                 $_[0]->{'r_sub'} ? "checked" : "", $text{"acl_r"};
 110 printf "<input type=checkbox name=w_sub value=1 %s> %s\n",
 111                 $_[0]->{'w_sub'} ? "checked" : "", $text{"acl_w"};
 112 print "</td> </tr>\n";
 113
 114 print "<tr>\n<td><b>$text{'acl_asha'}</b></td>\n";
 115 print "<td colspan=3>\n";
 116 printf "<input type=checkbox name=c_sha value=1 %s> %s\n",
 117                 $_[0]->{'c_sha'} ? "checked" : "", $text{"acl_c"};
 118 printf "<input type=checkbox name=r_sha value=1 %s> %s\n",
 119                 $_[0]->{'r_sha'} ? "checked" : "", $text{"acl_r"};
 120 printf "<input type=checkbox name=w_sha value=1 %s> %s\n",
 121                 $_[0]->{'w_sha'} ? "checked" : "", $text{"acl_w"};
 122 print "</td> </tr>\n";
 123
 124 print "<tr> <td colspan=4><hr></td> </tr>\n";
 125
 126 # per-subnet and per-host acls
 127 print "<tr><td><b>$text{'acl_per_sub_acls'}</b></td> <td>\n";
 128 printf "<input type=radio name=per_sub_acls value=1 %s> $text{'yes'}\n",
 129                 $_[0]->{'per_sub_acls'} ? "checked" : "";
 130 printf "<input type=radio name=per_sub_acls value=0 %s> $text{'no'}\n",
 131                 $_[0]->{'per_sub_acls'} ? "" : "checked";
 132 print "</td></tr>\n";
 133
 134 print "<tr><td><b>$text{'acl_per_sha_acls'}</b></td> <td>\n";
 135 printf "<input type=radio name=per_sha_acls value=1 %s> $text{'yes'}\n",
 136                 $_[0]->{'per_sha_acls'} ? "checked" : "";
 137 printf "<input type=radio name=per_sha_acls value=0 %s> $text{'no'}\n",
 138                 $_[0]->{'per_sha_acls'} ? "" : "checked";
 139 print "</td></tr>\n";
 140
 141 print "<tr><td><b>$text{'acl_per_hst_acls'}</b></td> <td>\n";
 142 printf "<input type=radio name=per_hst_acls value=1 %s> $text{'yes'}\n",
 143                 $_[0]->{'per_hst_acls'} ? "checked" : "";
 144 printf "<input type=radio name=per_hst_acls value=0 %s> $text{'no'}\n",
 145                 $_[0]->{'per_hst_acls'} ? "" : "checked";
 146 print "</td></tr>\n";
 147
 148 print "<tr><td><b>$text{'acl_per_grp_acls'}</b></td> <td>\n";
 149 printf "<input type=radio name=per_grp_acls value=1 %s> $text{'yes'}\n",
 150                 $_[0]->{'per_grp_acls'} ? "checked" : "";
 151 printf "<input type=radio name=per_grp_acls value=0 %s> $text{'no'}\n",
 152                 $_[0]->{'per_grp_acls'} ? "" : "checked";
 153 print "</td></tr>\n";
 154
 155 print "<tr> <td colspan=4><hr></td> </tr>\n";
 156
 157 print "<tr>\n<td $tb><b>$text{'acl_per_obj_acls'}</b></td></tr> \n";
 158 &display_tree($_[0],&get_parent_config(),-2);
 159 }
 160
 161 # acl_security_save(&options)
 162 # Parse the form for security options for the sendmail module
 163 sub acl_security_save
 164 {
 165 if ($in{'r_sub'} < $in{'w_sub'} || $in{'r_sha'} < $in{'w_sha'} ||
 166     $in{'r_hst'} < $in{'w_hst'} || $in{'r_grp'} < $in{'w_grp'}) {
 167         &error($text{'acl_ernow'});
 168         }
 169 $_[0]->{'apply'}=$in{'apply'};
 170 $_[0]->{'global'}=$in{'global'};
 171 $_[0]->{'r_leases'}=$in{'r_leases'};
 172 $_[0]->{'w_leases'}=$in{'w_leases'};
 173 $_[0]->{'uniq_hst'}=$in{'uniq_hst'};
 174 $_[0]->{'uniq_sub'}=$in{'uniq_sub'};
 175 $_[0]->{'uniq_sha'}=$in{'uniq_sha'};
 176 $_[0]->{'smode'}=$in{'smode'};
 177 $_[0]->{'hide'}=$in{'hide'};
 178 $_[0]->{'per_hst_acls'}=$in{'per_hst_acls'};
 179 $_[0]->{'per_sub_acls'}=$in{'per_sub_acls'};
 180 $_[0]->{'per_grp_acls'}=$in{'per_grp_acls'};
 181 $_[0]->{'per_sha_acls'}=$in{'per_sha_acls'};
 182 $_[0]->{'c_sub'}=$in{'c_sub'};
 183 $_[0]->{'r_sub'}=$in{'r_sub'};
 184 $_[0]->{'w_sub'}=$in{'w_sub'};
 185 $_[0]->{'c_sha'}=$in{'c_sha'};
 186 $_[0]->{'r_sha'}=$in{'r_sha'};
 187 $_[0]->{'w_sha'}=$in{'w_sha'};
 188 $_[0]->{'c_hst'}=$in{'c_hst'};
 189 $_[0]->{'r_hst'}=$in{'r_hst'};
 190 $_[0]->{'w_hst'}=$in{'w_hst'};
 191 $_[0]->{'c_grp'}=$in{'c_grp'};
 192 $_[0]->{'r_grp'}=$in{'r_grp'};
 193 $_[0]->{'w_grp'}=$in{'w_grp'};
 194
 195 foreach (keys %in) {
 196           $_[0]->{$_}=$in{$_} if /^ACL\w\w\w_/;
 197           }
 198 }
 199
 200 # perm_to(permissions_string,obj_type,\%access,obj_name)
 201 # check per-object permissions:
 202 # permissions_string= 'rw' 'r' 'w' or you perm_to extend this system
 203 # obj_type= 'sub' for subnets, or  'hst' for hosts.
 204 sub perm_to
 205 {
 206 local $acl=$_[2]->{'ACL'.$_[1].'_'.$_[3]};
 207 foreach (split //,$_[0]) {
 208     return 0 if index($acl,$_) == -1;
 209     }
 210 return 1;
 211 }
 212
 213 # link config node names and acl categories
 214 %onames=qw(shared-network sha subnet sub group grp host hst);
 215
 216 # display_tree(\%access,\%config_node,display_padding)
 217 sub display_tree
 218 {
 219 local ($acc, $node, $pad)=@_;
 220 if (defined($node->{'name'})) {
 221         &display_node($acc,$node,$pad) if exists $onames{$node->{'name'}} ;
 222         }
 223 $pad+=2;
 224 if($node->{'members'}) {
 225     # recursevly process this subtree
 226         foreach (@{$node->{'members'}}) { &display_tree($acc, $_, $pad); }
 227         }
 228 return 1;
 229 }
 230
 231 # display_node(\%access, \%node, padding)
 232 sub display_node
 233 {
 234 local($acc,$node,$padding)=@_;
 235 local $name=$node->{'values'}->[0];
 236 if (!$name && $node->{'name'} eq 'group') {
 237         # Name comes from option domain-name
 238         local @opts = &find("option", $node->{'members'});
 239         local ($dn) = grep { $_->{'values'}->[0] eq 'domain-name' } @opts;
 240         if ($dn) {
 241                 $name = $dn->{'values'}->[1];
 242                 }
 243         else {
 244                 $name = $node->{'index'};
 245                 }
 246         }
 247 local $nodetype=$onames{$node->{'name'}};
 248 local $aclname='ACL'.$nodetype.'_'.$name;
 249
 250 print "<tr>\n<td>","&nbsp"x$padding,
 251           " $node->{'name'}: <b>$name</b></td>\n";
 252
 253 if (($nodetype eq 'hst')||($nodetype eq 'sub')||
 254     ($nodetype eq 'grp')||($nodetype eq 'sha')) {
 255         print "<td colspan=3>\n";
 256         if($acc->{$aclname}) {
 257                 printf "<input type=radio name=$aclname value='' %s> %s\n",
 258                                 !&perm_to('r',$nodetype,$acc,$name) ?
 259                                         "checked" : "", $text{"acl_na"};
 260                 printf "<input type=radio name=$aclname value='r' %s> %s\n",
 261                                 &perm_to('r',$nodetype,$acc,$name) &&
 262                                 !&perm_to('rw',$nodetype,$acc,$name) ?
 263                                         "checked" : "",$text{"acl_r1"};
 264                 printf "<input type=radio name=$aclname value='rw' %s> %s\n",
 265                                 &perm_to('rw',$nodetype,$acc,$name) ?
 266                                         "checked" : "", $text{"acl_rw"};
 267                 }
 268         else {
 269                 printf "<input type=radio name=$aclname value='' checked> %s\n",
 270                                 $text{"acl_na"};
 271                 printf "<input type=radio name=$aclname value='r'> %s\n",
 272                                 $text{"acl_r1"};
 273                 printf "<input type=radio name=$aclname value='rw'> %s\n",
 274                                 $text{"acl_rw"};
 275                 }
 276         print "</td>\n";
 277         }
 278 print "</tr>\n";
 279 }
 280
 281 1;