majordomo/edit_list.cgi

   1 #!/usr/local/bin/perl
   2 # edit_list.cgi
   3 # Edit an existing mailing list
   4
   5 require './majordomo-lib.pl';
   6 &ReadParse();
   7 %access = &get_module_acl();
   8 &can_edit_list(\%access, $in{'name'}) ||
   9         &error($text{'edit_ecannot'});
  10 $desc = &text('edit_for', "<tt>".&html_escape($in{'name'})."</tt>");
  11 &ui_print_header($desc, $text{'edit_title'}, "");
  12
  13 @links = ( "edit_members.cgi", "edit_info.cgi", "edit_subs.cgi",
  14            "edit_mesg.cgi", "edit_access.cgi", "edit_head.cgi",
  15            "edit_misc.cgi" );
  16 foreach $a (&foreign_call($aliases_module, "list_aliases",
  17                           &get_aliases_file())) {
  18         if ($a->{'name'} =~ /-digestify$/i &&
  19             $a->{'value'} =~ /\s$in{'name'}\s/i) {
  20                 $isdigest++;
  21                 }
  22         }
  23 if ($isdigest) {
  24         push(@links, "edit_digest.cgi");
  25         }
  26 map { s/edit_(\S+).cgi/images\/$1.gif/ } (@icons = @links);
  27 map { s/edit_(\S+).cgi/$text{"$1_title"}/ } (@titles = @links);
  28 @links = map { $_."?name=".&urlize($in{'name'}) } @links;
  29 &icons_table(\@links, \@titles, \@icons);
  30
  31 print &ui_hr();
  32 print "<table>\n";
  33 print "<form action=delete_list.cgi>\n";
  34 print "<input type=hidden name=name value=\"$in{'name'}\">\n";
  35 print "<tr> <td><input type=submit value=\"$text{'edit_delete'}\"></td>\n";
  36 print "<td>$text{'edit_deletemsg'}</td> </tr>\n";
  37 print "</form>\n";
  38 print "</table>\n";
  39
  40 &ui_print_footer("", $text{'index_return'});
  41