sendmail/edit_virtuser.cgi

   1 #!/usr/local/bin/perl
   2 # edit_virtuser.cgi
   3 # Edit an existing virtuser
   4
   5 require './sendmail-lib.pl';
   6 require './virtusers-lib.pl';
   7 &ReadParse();
   8 $conf = &get_sendmailcf();
   9 @virts = &list_virtusers(&virtusers_file($conf));
  10 &can_edit_virtuser($virts[$in{'num'}]) ||
  11         &error($text{'vform_ecannot'});
  12
  13 &ui_print_header(undef, $text{'vform_edit'}, "");
  14 &virtuser_form($virts[$in{'num'}]);
  15 &ui_print_footer("list_virtusers.cgi", $text{'virtusers_return'},
  16         "", $text{'index_return'});
  17