proftpd/edit_aserv.cgi

   1 #!/usr/local/bin/perl
   2 # edit_aserv.cgi
   3 # Edit <Anonymous> section details
   4
   5 require './proftpd-lib.pl';
   6 &ReadParse();
   7 ($conf, $v) = &get_virtual_config($in{'virt'});
   8 $desc = $in{'virt'} eq '' ? $text{'anon_header2'} :
   9               &text('anon_header1', $v->{'value'});
  10 if (!$in{'init'}) {
  11         $anon = &find_directive_struct("Anonymous", $conf);
  12         &ui_print_header($desc, $text{'aserv_title'}, "",
  13                 undef, undef, undef, undef, &restart_button());
  14         }
  15 else {
  16         &ui_print_header($desc, $text{'aserv_create'}, "",
  17                 undef, undef, undef, undef, &restart_button());
  18         }
  19
  20 print $text{'aserv_desc'},"<br>\n" if ($in{'init'});
  21
  22 $user = &find_directive("User", $anon->{'members'});
  23 $user ||= "ftp" if ($in{'init'});
  24 $group = &find_directive("Group", $anon->{'members'});
  25 $group ||= "ftp" if ($in{'init'});
  26
  27 print "<form action=save_aserv.cgi>\n";
  28 print "<input type=hidden name=virt value='$in{'virt'}'>\n";
  29 print "<input type=hidden name=init value='$in{'init'}'>\n";
  30 print "<table border>\n";
  31 print "<tr $tb> <td><b>$text{'aserv_title'}</b></td> </tr>\n";
  32 print "<tr $cb> <td><table>\n";
  33
  34 print "<tr> <td><b>$text{'aserv_root'}</b></td>\n";
  35 printf "<td><input name=root size=40 value='%s'> %s</td> </tr>\n",
  36         $anon->{'value'}, &file_chooser_button("root", 1);
  37
  38 print "<tr> <td><b>$text{'aserv_user'}</b></td>\n";
  39 print "<td>",&opt_input($user, "User", $text{'default'}, 13),
  40       "</td> </tr>\n";
  41
  42 print "<tr> <td><b>$text{'aserv_group'}</b></td>\n";
  43 print "<td>",&opt_input($group, "Group", $text{'default'}, 13),
  44       "</td> </tr>\n";
  45
  46 print "<tr> <td colspan=2 align=right>\n";
  47 if ($in{'init'}) {
  48         print "<input type=submit value=\"$text{'create'}\">\n";
  49         }
  50 else {
  51         print "<input type=submit value=\"$text{'save'}\">\n";
  52         }
  53 print "</td> </tr>\n";
  54
  55 print "</table> </td></tr></table><p>\n";
  56 print "</form>\n";
  57
  58 if ($in{'init'}) {
  59         &ui_print_footer("virt_index.cgi?virt=$in{'virt'}", $text{'virt_return'},
  60                 "", $text{'index_return'});
  61         }
  62 else {
  63         &ui_print_footer("anon_index.cgi?virt=$in{'virt'}", $text{'anon_return'},
  64                 "virt_index.cgi?virt=$in{'virt'}", $text{'virt_return'},
  65                 "", $text{'index_return'});
  66         }
  67