majordomo/create_form.cgi

   1 #!/usr/local/bin/perl
   2 # create_form.cgi
   3 # Display a form for creating a new mailing list
   4
   5 require './majordomo-lib.pl';
   6 %access = &get_module_acl();
   7 $access{'create'} || &error($text{'create_ecannot'});
   8 &ui_print_header(undef, $text{'create_title'}, "");
   9
  10 print <<EOF;
  11 <form action=create_list.cgi method=post>
  12 <table border width=100%>
  13 <tr $tb> <td><b>$text{'create_header'}</b></td> </tr>
  14 <tr $cb> <td><table width=100%>
  15
  16 <tr> <td><b>$text{'create_name'}</b></td>
  17      <td><input name=name size=15></td> </tr>
  18 <tr> <td><b>$text{'create_owner'}</b></td>
  19      <td><input name=owner size=30></td> </tr>
  20 <tr> <td><b>$text{'create_password'}</b></td>
  21      <td><input name=password type=password size=10></td> </tr>
  22 <tr> <td><b>$text{'create_desc'}</b></td>
  23      <td><input name=desc size=50></td> </tr>
  24 <tr> <td valign=top><b>$text{'create_info'}</b></td>
  25      <td><textarea name=info rows=5 cols=60></textarea></td> </tr>
  26 <tr> <td valign=top><b>$text{'create_footer'}</b></td>
  27      <td><textarea name=footer rows=3 cols=60></textarea></td> </tr>
  28
  29 <tr> <td><b>$text{'create_moderate'}</b></td>
  30      <td><input type=radio name=moderate value=yes> $text{'yes'}
  31          <input type=radio name=moderate value=no checked> $text{'no'}
  32      </td> </tr>
  33 <tr> <td><b>$text{'create_moderator'}</b></td>
  34      <td><input type=radio name=moderator_def value=1 checked>
  35          $text{'create_same'}
  36          <input type=radio name=moderator_def value=0>
  37          <input name=moderator size=20></td> </tr>
  38
  39 <tr> <td><b>$text{'create_archive'}</b></td>
  40      <td><select name=archive>
  41          <option value='' selected>$text{'no'}
  42          <option value=Y>$text{'create_archiveyear'}
  43          <option value=M>$text{'create_archivemonth'}
  44          <option value=D>$text{'create_archiveday'}
  45          </select></td> </tr>
  46
  47 </table></td></tr></table>
  48 <input type=submit value="$text{'create'}"></form>
  49 EOF
  50 &ui_print_footer("", $text{'index_return'});
  51