acl/maketables.cgi

   1 #!/usr/local/bin/perl
   2 # Create all needed tables
   3
   4 require './acl-lib.pl';
   5 $access{'pass'} || &error($text{'sql_ecannot'});
   6 &get_miniserv_config(\%miniserv);
   7 &ReadParse();
   8 &error_setup($text{'make_err'});
   9
  10 $dbh = &connect_userdb($in{'userdb'});
  11 ref($dbh) || &error($dbh);
  12
  13 &ui_print_unbuffered_header(undef, $text{'make_title'}, "");
  14
  15 # Create the tables
  16 foreach $sql (&userdb_table_sql($in{'userdb'})) {
  17         print &text('make_exec', "<tt>".&html_escape($sql)."</tt>"),"<br>\n";
  18         $cmd = $dbh->prepare($sql);
  19         if (!$cmd || !$cmd->execute()) {
  20                 print &text('make_failed', &html_escape($dbh->errstr)),"<p>\n";
  21                 }
  22         else {
  23                 $cmd->finish();
  24                 print $text{'make_done'},"<p>\n";
  25                 }
  26         }
  27 &disconnect_userdb($in{'userdb'}, $dbh);
  28
  29 # Check again if OK
  30 $err = &validate_userdb($in{'userdb'}, 0);
  31 if ($err) {
  32         print "<b>",&text('make_still', $err),"</b><p>\n";
  33         }
  34 else {
  35         &lock_file($ENV{'MINISERV_CONFIG'});
  36         $miniserv{'userdb'} = $in{'userdb'};
  37         $miniserv{'userdb_addto'} = $in{'addto'};
  38         &put_miniserv_config(\%miniserv);
  39         &unlock_file($ENV{'MINISERV_CONFIG'});
  40         &reload_miniserv();
  41         }
  42
  43 &ui_print_footer("", $text{'index_return'});
  44