majordomo/digest_form.cgi

   1 #!/usr/local/bin/perl
   2 # digest_form.cgi
   3 # Display a form for creating a new disgest list
   4
   5 require './majordomo-lib.pl';
   6 %access = &get_module_acl();
   7 $access{'create'} || &error($text{'cdigest_ecannot'});
   8 &ui_print_header(undef, $text{'cdigest_title'}, "");
   9
  10 $lists = "<select name=list>\n";
  11 foreach $l (&list_lists(&get_config())) {
  12         $lists .= "<option>$l\n";
  13         }
  14 $lists .= "</select>\n";
  15
  16 $old = &text('cdigest_old', "<input name=days size=3>");
  17 $lines = &text('cdigest_lines', "<input name=lines size=5>");
  18
  19 print <<EOF;
  20 <form action=create_digest.cgi method=post>
  21 <table border width=100%>
  22 <tr $tb> <td><b>$text{'cdigest_header'}</b></td> </tr>
  23 <tr $cb> <td><table width=100%>
  24
  25 <tr> <td><b>$text{'cdigest_name'}</b></td>
  26      <td><input name=name size=15></td> </tr>
  27 <tr> <td><b>$text{'cdigest_list'}</b></td> <td>$lists</td> </tr>
  28 <tr> <td><b>$text{'cdigest_owner'}</b></td>
  29      <td><input name=owner size=30></td> </tr>
  30 <tr> <td><b>$text{'cdigest_password'}</b></td>
  31      <td><input name=password type=password size=10></td> </tr>
  32 <tr> <td><b>$text{'cdigest_desc'}</b></td>
  33      <td><input name=desc size=50></td> </tr>
  34 <tr> <td valign=top><b>$text{'cdigest_info'}</b></td>
  35      <td><textarea name=info rows=5 cols=60></textarea></td> </tr>
  36 <tr> <td valign=top><b>$text{'cdigest_footer'}</b></td>
  37      <td><textarea name=footer rows=3 cols=60></textarea></td> </tr>
  38 <tr> <td valign=top><b>$text{'cdigest_when'}</b></td>
  39      <td><input type=radio name=mode value=0 checked> $old<br>
  40          <input type=radio name=mode value=1> $lines</td> </tr>
  41
  42 </table></td></tr></table>
  43 <input type=submit value="$text{'create'}"></form>
  44 EOF
  45 &ui_print_footer("", $text{'index_return'});
  46