krb5/save.cgi

   1 #!/usr/local/bin/perl
   2 # start.cgi
   3 # Save config
   4
   5 require './krb5-lib.pl';
   6
   7 &ReadParse();
   8 &error_setup($text{'save_err', $config{'krb5_conf'}});
   9
  10 # Write the config file
  11 &lock_file($config{'krb5_conf'});
  12 open(FILE, "> $config{'krb5_conf'}");
  13 print FILE "[logging]\n";
  14 print FILE "default = FILE:$in{'default_log'}\n";
  15 print FILE "kdc = FILE:$in{'kdc_log'}\n";
  16 print FILE "admin_server = FILE:$in{'admin_log'}\n";
  17 print FILE "\n";
  18 print FILE "[libdefaults]\n";
  19 print FILE "default_realm = $in{'default_realm'}\n";
  20 if (!$in{'dns_kdc'}) {
  21     print FILE "dns_lookup_kdc = false\n";
  22 }
  23 print FILE "\n";
  24 print FILE "[realms]\n";
  25 print FILE "$in{'default_realm'} = {\n";
  26 print FILE "   default_domain = $in{'default_domain'}\n";
  27 print FILE "   kdc = $in{'default_kdc'}:$in{'default_kdc_port'}\n";
  28 print FILE "   admin_server = $in{'default_admin'}:$in{'default_admin_port'}\n";
  29 print FILE "}\n";
  30 print FILE "\n";
  31 print FILE "[domain_realm]\n";
  32 print FILE "$in{'domain'} = $in{'default_realm'}\n";
  33 print FILE "\n";
  34 close(FILE);
  35 &unlock_file($config{'krb5_conf'});
  36
  37 &redirect("");