#!/usr/bin/perl
require 'r-mail.cfg';
require 'r-mail.common.cgi';
require 'r-mail.sub.cgi';
$use_cgi = 1;
&readform;
&confirm if ($action eq 'confirm');
&actually_send_mail if ($action eq 'moremail');
&set_mail if ($what eq 'setmail');
&set_sig if ($what eq 'setsig');
&set_add_list if ($what eq 'setaddlist');
&set_del_list if ($what eq 'setdellist');
&set_list if ($what eq 'setlist');
&set_pass if ($what eq 'setpass');
&make_mail if ($what eq 'makemail');
&change_sig if ($what eq 'changesig');
&add_list if ($what eq 'addlist');
&set_del_list2 if ($what eq 'setdellist2');
&del_list if ($what eq 'dellist');
&set_list2 if ($what eq 'setlist2');
&change_list if ($what eq 'changelist');
&change_pass if ($what eq 'changepass');
#&check_pw;
&render_admin;
exit;
sub render_admin
{
print <<"END";
Notable Web CBL: Multi-Mailer
$head $pageadmin $mid
$footer