sub manager
{
 form_head();
 menu_head();
 if($Form{'NewList'}){ $Form{'List'}="site_list_".$Form{'NewList'}.".txt"; $Form{'List'}=~ s/\s//g; check_list(); }
 print qq|
 <table cellpadding=0 border=0 width=95%>
  <tr><td colspan=2><H4 class=info>Mail Manager</H4></td></tr>
 |;
 if ($Form{'Address'} ne '' || $Form{'DEA'} ne '')  { edit_emails(); }
 print qq|
 <tr>
  <th align=right>Email List : </th>
  <td>@{[list_files()]}
  <input type='submit' class='hbut' value='View' onClick='act="View"' $mouse>
  </td>
  </tr>
 </table>
 |;

 if($Form{'List'} && $Form{'List'}!~ /AllUsers|NewsLetter/oi)
 {
  list_emails();
  print qq|
  <table cellpadding=0 border=0 width=95%>
   <tr><th align=right>Resource :    </th><td><input type='text' name='Resource' id='Resource' value='Online' size=20></td></tr>
   <tr><th align=right>First Name :  </th><td><input type='text' name='First' id='First' value='' size=20></td></tr>
   <tr><th align=right>Last Name :   </th><td><input type='text' name='Last' id='Last' value='' size=30></td></tr>
   <tr><th align=right>New Address : </th><td><input type='text' name='Address' id='Address' value='' size=50> <input type='submit' class='hbut' value=' Add ' onClick='act="Add"' $mouse></td></tr>
   <tr>
    <th colspan=2>
    <br>
    <input type='submit' class='hbut' value='Remove'    onClick='act="Remove"' $mouse>
    $clear
    </th>
   </tr>
  </table>
  </form>
  |;
  $script =qq|
    var line='';
    for(var y=0;y<form.Del.length;y++)if(form.Del[y].checked) line+=form.Del[y].value+'\|';
    if(act=='Add')
    {
     if(form.Resource.value=='')    { alert('Source of address required'); act=''; form.Resource.focus(); return false; }
     else if (form.First.value=='') { alert('First Name required'); act=''; form.First.focus(); return false; }
     else if (form.Last.value=='')  { alert('Last Name required'); act=''; form.Last.focus(); return false; }
     else if(form.Address.value==''){ alert('Address required'); act=''; form.Address.focus(); return false; }
    }
    else if(act=='Remove')
    {
     form.DEA.value=line;
     if(line==''){ alert('No addresses selected'); return false;}
     else if(!confirm('Click ok to delete selected address.')) return false;
    }
  |;
 }
 elsif($Form{'List'})
 {
  list_addresses();
  print qq|
  <H6 class=warn align=center>Editing for registered $tf is not currently available.</H6>
  |;
 }
 else
 {
  print qq|
  <H6 class=warn align=center>Editing for registered $tf is not currently available.</H6>
  |;
 }

 print qq|
 <script>
  var choice='Manager'; var act='';
  function go(ref)
  {
   if(act=='View' && form.List.value==''){ act=''; alert('File not selected to view.'); form.List.focus(); return false; }
   form.Action.value=choice;
   form.Act.value=act;
   return true;
  }
 </script>
 |;
}

sub mailer
{
 form_head();
 menu_head();
 print qq|
 <table cellpadding=5 border=0 width=100%>
  <tr>
  <tr><td colspan=2><H4 class=info>Send Emails</H4></td></tr>
  <tr><th align=right>Sender : </th><td><input type='text' name='Sender' id='Sender' size=30 value='$website' onClick='if(this.value==\"$site.\")this.value=\"\";'></td></tr>
  <tr><th align=right>Subject :</th><td><input type='text' name='Subject' id='Subject' size=30 value=''></td></tr>
 |;
 list_records();
 if($Form{'Act'} eq 'AddRejects'){ AddRejects();  }
 print qq|
   <tr><th align=right>Email List : </th><td>@{[list_files()]}</td></tr>
   <tr><th align=right>Confirmed : </th><td class=notice><script>yesno('LDate','$cookie{'confirmed'}','SetCookie("confirmed",this.value,"","/");');</script> (Yes = Confirmed Email addresses Only)</td></tr>
   <tr>
    <th colspan=2><br>
    <input type='submit' class='hbut' value='Send Emails' onclick='choice="Send"' $mouse>
    $clear
    </th>
   </tr>
  <tr><th colspan=2><hr width=75%></th></tr>
  <tr><td colspan=2><H4 class=info>Lists</H4></td></tr>
  |;
  if ($Form{'Email1'} ne '' || $Form{'Email2'} ne ''){ alter_emails();  }
  print qq|
  <tr><th align=right>Email 1. : </th><td class=notice><input type=text name='Email1' id='Email1' value='' size=40>
   <input type='submit' class='hbut' value='Remove' onClick='act="Alter1";' $mouse> Removes this addresss from ALL lists ONLY</td></tr>
  <tr><th align=right>Email 2. : </th><td class=notice><input type=text name='Email2' id='Email2' value='' size=40>
   <input type='submit' class='hbut' value='Replace' onClick='act="Alter2";' $mouse> Replace Address above in ALL lists. ONLY</td></tr>
  <tr><td colspan=2><H4 class=info>New List</H4></td></tr>
  <tr><th align=right>Name : </th><td class=notice><input type='text' name='NewList' id='NewList' size=10 value=''>
   <input type='submit' class='hbut' value='Create' onClick='act="NewList";' $mouse> Create a new list for emailing. <font color=red>(No spaces)</font></td></tr>
  <tr><th colspan=2><hr width=75%></th></tr>
  </table>
 </form>
 <script language=javascript>
  <!--
   var choice='Mailer'; var act='';
   function go(ref)
   {
    var x;
    if((act=='Delete') && form.Files.value==''){ alert('A Letter must be selected only.'); form.Files.focus(); return false;}
    else if(choice=='Delete' && !confirm('Click Ok to delete this letter.')) return false;

    if(choice=='Display')
    {
     if(form.Files.value=='')  { alert('A Letter must be selected.'); form.Files.focus();   return false; }
    }
    else if(choice=='Send')
    {
     if (form.Sender.value=='') { alert('Sender must be filled in to continue.'); form.Sender.focus(); return false;}
     else if(form.Subject.value==''){ alert('No subject line entered'); form.Subject.focus(); return false;}
     else if(form.Files.value=='')  { alert('A Letter must be selected'); form.Files.focus(); return false; }
     else if(form.List.value=='')   { alert('An Email List must be selected'); form.List.focus(); return false; }
     if(form.List.value!='NewsLetter' && form.List.value!='AllUsers')
     {
      if(form.List.value=='NewsLetter' \|\| form.List.value=='AllUsers'){ alert('A Site file must be selected to continue.');  return false; }
      else if(!confirm('Click Ok to send this letter to all on the '+form.List.value+' List.')) return false;
     }
     else if(form.List.value=='NewsLetter' && form.List.value=='AllUsers'){ alert('A Mail file must be selected to continue.'); return false; }
    }
    else if(act=='Alter1')
    {
     if(form.Email1.value==""){ alert("No email addresss entered"); form.Email1.focus(); return false; }
    }
    else if(act=='Alter2')
    {
     if(form.Email1.value==""){ alert("Old Email addresss required."); form.Email1.focus(); return false; }
     if(form.Email2.value==""){ alert("Replacement Email addresss required."); form.Email2.focus(); return false; }
    }
    else if(act=='NewList')
    {
     if(form.NewList.value==''){ alert('List title required.'); act=''; return false; }
     choice='Manager';
    }
    form.Action.value=choice;
    form.Act.value=act;
    return true;
   }
  //-->
 </script>
 |;

}

sub create_record
{
 @record=($Form{'Letter'});
 if(-e "$data_file.ltr")
 {
  print "<H3><font color=red>File $data_file already on file.</font></H3>";
 }
 else 
 {
  open(MAIN,">$data_file.ltr") || die $!;
  my $newrecord = join('|',@record);
  print MAIN "$newrecord\n";
  $recorded= "<b><font color='green'>Created $time</font></b>\n"; 
  close(MAIN);
 }
}

sub edit_document
{
 $recsaved=0;
 if(open(NUMBER,">$data_file.ltr"))
 {
  $Form{'Letter'}=~ s/\&lt\;/</g;
  $Form{'Letter'}=~ s/\&gt\;/>/g;
  $Form{'Letter'}=~ s/<P>/\n/g;
  $Form{'Letter'}=~ s/<\/P>/\n/g;

  print NUMBER "$Form{'Letter'}";
  $recsaved = 1;
  close(NUMBER);
 }
 if ($recsaved ne 0) { $recorded= "<b><font color='green'>Updated $time</font></b>\n"; }
 else { $recorded= print "<b><font color='red'> Error Updating </font></b>\n"; }
}

sub delete_document
{
 $recdeleted=0;
 if(unlink ("$data_file.ltr"))
 {
  $recdeleted = 1;
  print "<H5><font color='green'> $data_file File deleted sucessfuly </font></H5>\n";
  $data_file = "$file_dir/auz_letter"
 }
 else { print "<H5><font color='red'> $data_file Error Deleting File</font></H5>\n"; }
}

sub disp_record
{
 if (open(MAIN,"$data_file.ltr") || open(MAIN,"$data_file.html"))
 {
  @main=&check_me(<MAIN>);
  close(MAIN);
  foreach(@main)
  {
#   $_=~ s/\[home\]/$home/g;
#   $_=~ s/\[sitebase\]/$sitebase/g;
#   $_=~ s/\[bgcolor\]/$bgcolor/g;
   print $_;
  }
 }
 else{ print"$data_file not found."; }
}

sub list_records
{
 chdir "$file_dir" or die "Can't cd to $file_dir: $!\n";
 opendir THISDIR, "." or die "serious dainbramage: $!";
 @allfiles = grep !/^\.\.?$/, readdir THISDIR;
 closedir THISDIR;
 @allfiles = sort @allfiles;
 $allfiles = @allfiles;
 $x=0;
 print qq|
 <tr>
  <th align=right>Letters : </<th><td>
  <select class=select name='Files' id='Files' style='width:250;'>
  <option value=''>Select a Letter ...
 |;
 foreach $allfiles (@allfiles){ if ($allfiles =~ /ltr/g) {$x++; $efile=$allfiles; $efile=~ s/\.ltr//g; print qq" <option value='$efile'>$x. $efile\n"; } }
 print qq|</select>
  <input type='submit' class='hbut' value=' Edit ' onClick='choice="Editor"' $mouse>
  <input type='submit' class='hbut' value=' Preview ' onClick='choice="Display"' $mouse>
  </td>
 </tr>
 |;
}

sub list_files
{
 my ($form,$sel,$x)='';
 chdir "$file_dir" or die "Can't cd to $file_dir: $!\n";
 opendir THISDIR, "." or die "serious dainbramage: $!";
 @allfiles = grep !/^\.\.?$/, readdir THISDIR;
 closedir THISDIR;
 push(@allfiles,'NewsLetter','AllUsers');
 @allfiles = sort @allfiles;
 $x=0;
 $form= qq|
  <select class=select name='List' id='List' style='width:250;'>
  <option value=''>Select an Email List ...
 |;
 foreach (@allfiles)
 {
  $Form{'List'} eq $_ ?($sel=' selected'):($sel='');
  $file=$_;
  if ($_=~ /list/g)
  {
   $file=~ s/list\_//g; $file=~ s/\_/ /g; $file=~ s/\.txt//g;
   $x++; $form.=qq| <option value='$_' $sel>$x List - @{[ucfirst($file)]}<br>\n|; 
  }
  elsif($_=~ /AllUsers|NewsLetter/)
  {
   $x++; $form.=qq| <option value='$_' $sel>$x Mail - @{[ucfirst($file)]}<br>\n|; 
  }
 }
 $form.= qq|
   </select>
 |;
# chdir "$datapath/letters/rejects";
# opendir THISDIR, "." or die "serious dainbramage: $!";
# @allfiles = grep !/^\.\.?$/, readdir THISDIR;
# closedir THISDIR;
# foreach(@allfiles){ $f++;}
# if($f){ print "<p><font color=red><b>Alert....before mailing</b> </font> <input type='submit' class='hbut' value='Submit rejected Emails from file.' onClick='choice=\"AddRejects\"' $mouse>\n"; }
 return $form;
}

sub check_list
{
 if(!-e "$file_dir/$Form{'List'}")
 {
  open(FILE, ">>$file_dir/$Form{'List'}");
  print FILE "$adminemail|Website|Owner|Admin|Online|$Date\n";
  close(FILE);
 }
}


######################################################## EMAIL

sub list_emails
{
 @struct_emails=('Address','First','Last','Source','Type','Date');
 if($Form{'List'}!~ /AllUsers|NewsLetter/oi){ check_list(); }
 open(MAIN,"$file_dir/$Form{'List'}") || die print "<h4>$file_dir/'$Form{'List'}' help $!<h4>\n";
 @main = <MAIN>;
 close(MAIN);

 $found = 0;
 $efile=$Form{'List'};
 $efile=~ s/\_/ /g;
 $efile=~ s/\.txt//g;
 $Form{'Addresses'};
 print qq~
 <center>
 <H3 class=info> $Form{'List'} Emails</H3>
 <input type='hidden' name='DEA' value=''>
 <input type='hidden' name='Reindex' value=''>
 <input type='hidden' name='List' value='$Form{'List'}'>
 <input type='hidden' name='Del' value=''>
 <table width=600 cellpadding=0 cellspacing=0>
 <tr><td colspan=7></td></tr>~;
 $x=0;
 foreach (@main)
 {
  $x++;
  pageit(100);
  split_file($_,@struct_emails);
  print "<tr><td>$x</td><td><input type='checkbox' name='Del' id='Del' value='$x'></td><td>$Address </td><td>$First </td><td>$Last </td><td>$Source </td><td>$Type </td><td>$Date </td></tr>\n";
 }
 print qq~</table><p>
 ~;
}

sub list_addresses
{
 open(MAIN,"$cgi_path/$tf/$tf\.db") || open(MAIN,">$cgi_path/$tf/$tf\.db") || oops "<h4>$tf help $!<h4>";
 @Users = <MAIN>;
 close(MAIN);

 open(MAIN,"$cgi_path/$tf/$tf\.db") || open(MAIN,">$cgi_path/$tf/$tf\.db") || oops "<h4>$tf help $!<h4>";
 @Users = <MAIN>;
 close(MAIN);

 open (SENT, "$cgi_path/$tf/emailssent.txt") || open (SENT, ">$cgi_path/$tf/emailssent.txt");
 @sent = sort <SENT>;
 close(SENT);

 list_head();
 print qq~
 <table cellpadding=0 cellspacing=0 border=0 width=95%>
 <tr>
  <th width=10 align=left>No </th>
  <th width=5 align=left><input type='checkbox' name='DelA' id='DelA' onClick='if(this.checked)SA("T"); else SA("F");'></th>
  <th width=60 align=center>Created</th>
  <th width=60 align=center>Visited</th>
  <th align=left>Name </th>
  <th align=left>Email </th>
  <th align=left>Sent </th>
  <th align=left>Read </th>
  <th width=10 align=center>Returns</th>
 </tr>
 ~;

 $x=0;
 foreach(@Users)
 {
  split_file($_,@$struct);
  if(user_type($Form{'List'}))
  {
   $x++;
   pageit(100);
   $sentemails='';
   $reademails='';
   $returnedemails='';
   foreach $sent(@sent)
   {
    chomp($sent);
    split_file($sent,@sent_emails);
    if($Email eq $SEmail){ $sentemails++; if($Read){ $reademails++; } if($Returned){ $returnedemails++; } }
   }
   print qq|
   <tr>
    <td>$x</td>
    <td><input type='checkbox' name='Del' id='Del' value='$x'></td>
    <td>@{[strdate($Date)]}</td>
    <td>@{[strdate($LDate)]}</td>
    <td>$First $Last</td>
    <td>$Email </td>
    <td><a href='javascript:new1(700,400,"Read","$url_path/emailer/read.pl?tf=$tf&Email=$Email");'><u  class=uimg>$sentemails</u></a></td>
    <td>$reademails</td>
    <td>$returnedemails</td>
   </tr>
   |;
  }
 }
 print qq|
 </table>
 @{[&pagebreak($page_cnt,'pagenum')]}
 |;
 if($Form{'Action'} ne 'Manager'){ list_send(); }
}

sub byemail
{
 @x = split(/\|/,$a);
 @y = split(/\|/,$b);
  ($x[0] cmp $y[0]);
}

sub edit_emails
{
 if(open(MAIN,"$file_dir/$Form{'List'}") || open(MAIN,">$file_dir/$Form{'List'}"))
 {
  @main = <MAIN>;
  close(MAIN);
 }
 else{ die print "cant open $file_dir/$Form{'List'} file $!"; }

# @sorted = sort byemail @main;
# @main = @sorted;

 @remove = split(/\|/,$Form{'DEA'});
 $number=scalar(@remove);

 open(NUMBER,">$file_dir/$Form{'List'}");
 $x=0;
 foreach $Line (@main)
 {
  $count=0;
  $found=0;
  $x++;
  chomp($Line);
  ($Address,$First,$Last,$Resource,$Type,$Date) = split(/\|/,$Line);

  while ($count<=$number)
  {
   if($x eq @remove[$count]){ $found=1; $count=$number-1;}
   $count++;
  }
  if ($found==0){ print NUMBER "$Line\n"; }
 }
 if ($Form{'Address'} ne '')
 {
  @record=($Form{'Address'},$Form{'First'},$Form{'Last'},'Net',$Form{'Resource'});
  my $newrecord = join('|',@record,$tdate);
  print NUMBER "$newrecord\n";
 }
 close(NUMBER);
}

sub alter_emails
{
 chdir "$file_dir" or die "Can't cd to $file_dir: $!\n";
 opendir THISDIR, "." or die "serious dainbramage: $!";
 @allfiles = grep !/^\.\.?$/, readdir THISDIR;
 closedir THISDIR;

 $x=0;
 foreach $allfiles (@allfiles)
 {
  if($allfiles=~ /list\_/)
  {
   $record=0;
   open(MAIN,"$allfiles") || die print "<h4>$allfiles 1 help $!<h4>\n";
   @main = <MAIN>;
   open(MAIN2,">$allfiles") || die print "<h4>$allfiles 2 help $!<h4>\n";

   foreach $Line (@main)
   {
    $record++;
    chomp($Line);
    ($Address,@rest) = split(/\|/,$Line);
    $Address=~ s/ //g;
    if($Form{'Email1'} eq $Address)
    { $x++;
     if($Form{'Email2'} ne '')
     {
      $Line=join('|',$Form{'Email2'},@rest);
     }
    }
    print MAIN2 "$Line\n";
   }
   close(MAIN2);
   # print "Looked in $allfiles ($record)<br>\n";
  }
 }
 if ($x==0){ print"<tr><th colspan=2><font color=red> $Form{'Email1'} not found.</font></th></tr>\n"; }
 else { print"<tr><th colspan=2><font color=green>$x $Form{'Email1'} Edited.</font></th></tr>\n"; }
 return $form;
}

sub list_send
{
 print qq~ <p align=center>
 <input type='submit' class='hbut' value='Editor'  onClick='choice="Editor"' $mouse>
 <input type='submit' class='hbut' value='Mailer'  onClick='choice="Mailer"' $mouse>
 <input type='submit' class='hbut' value='Manager' onClick='choice="Manager"' $mouse>
 <input type='submit' class='hbut' value='Send $Form{'Files'} letter' onclick='choice="Send";' $mouse>
 $clear
 </form>
 <script>
  var choice=''; var act='';
  function SA(ref)
  {
   for(x=0;x<form.Del.length;x++)if(ref=='T')form.Del[x].checked=true; else form.Del[x].checked=false;
  }
  function go(ref)
  {
   if(choice=='Send')
   {
    var line='';
    for(var y=0;y<form.Del.length;y++){ if(form.Del[y].checked) line+=form.Del[y].value+'|'; }
    form.DEA.value=line;
    if(line=='') { alert('No addresses selected'); return false; }
    if (!confirm('Click OK to continue.')) return false;
   }
   else
   {
    form.List.value='';
    form.Files.value='';
   }
   form.Action.value=choice;
   form.Act.value=choice;
  }
 </script>
 ~;
}

sub list_head
{
 my($type)=@_;
 print qq~
 <input type='hidden' name='DEA' value=''>
 <input type='hidden' name='List' value=''>
 <input type='hidden' name='Del' value=''>
 <input type='hidden' name='List' value='$Form{'List'}'>
 <input type='hidden' name='Files' value='$Form{'Files'}'>
 <input type='hidden' name='Subject' value='$Form{'Subject'}'>
 <H3 class=info align=center>$tf $Form{'List'} Emails</H3>
 ~;
}

sub user_type
{
 my($Search)=@_;

 if($cookie{'confirmed'} eq 'Yes' && !$LDate){ return 0; }
 if($Search eq 'NewsLetter' && $NewsLetter ne 'N'){ return 1; }
 if($Search eq 'AllUsers'){ return 1; }
#print"$Search eq 'AllUsers'<br>\n";
 return 0;
}

sub AddRejects
{
 if(-e "$datapath/letters/rejects/rejects.db")
 {
  $found=0;
  @emails=();

# print"$htmlhead";
  chdir "$datapath/letters/rejects";
  opendir THISDIR, "." or die "serious dainbramage: $!";
  @allfiles = grep !/^\.\.?$/, readdir THISDIR;
  closedir THISDIR;

  foreach(@allfiles)
  {
   open(FILE, "$datapath/letters/rejects/$_");
   @file=<FILE>;
   close(FILE);
   $go=0; $on=0;
   foreach(@file)
   {
    $_=~ /The following address\(es\) failed/i and $go++;
    $_=~ /------ This is a copy of the message, including all the headers. ------/i and $on++;
    if($go && $on)
    {
     if($_=~ /^From: (.*)<(.*)>/i){ $from = $2; } # print"From:$from<br>\n";
     if($from=~ /$website/ && $_=~ /^To: (.*)/i){ $to = $1; $found++; $to=~ s/\r|\n|\s//g; push(@emails,$to); } # print"To:$to<br>\n";
     if($_=~ /Message-Id:/){ $go=0; $on=0; }
    }
   }
   unlink("$datapath/letters/rejects/$_");
  }

  if($found)
  {
   open(MEMBERS, "$cgi_path/$tf/$tf\.db");
   @members=<MEMBERS>;
   close(MEMBERS);

   open(MEMBERS, ">$cgi_path/$tf/$tf\.db");
   foreach(@members)
   {
    split_file($_,@$struct);
    foreach $emails (@emails){ if($emails eq $Email){ $Rejects++; $_=join_file(0,0,@$struct)."$nl"; last; } }
    $Rejects<5 and print MEMBERS $_;
   }
   close(MEMBERS);
  }
# $Form{'Action'}='Mailer';
 }
}

sub form_head
{
 my $form =qq|
 <form name=form method='post' action='emailer.pl' onsubmit='return go(1);'>
 <input TYPE='hidden' name='form_name' value='$Form{'Action'}'>
 <input TYPE='hidden' name='subject' value='Emailer $Form{'Action'}'>
 <input TYPE='hidden' name='recipient' value='$recipient'>
 <input type='hidden' name='Emailer' value='1'>
 <input type='hidden' name='Action' value=''>
 <input type='hidden' name='Act' value=''>
 <input type='hidden' name='Sender' value='$Form{'Sender'}'>
 <input type='hidden' name='Type' value='$Form{'Type'}'>
 <input type='hidden' name='page' value='$Form{'page'}'>
 |;
 print $form;
}

sub menu_head()
{
 $Form{'Action'} eq 'Manager'?($Sel='Mailer'):($Sel='Manager');
 my $form =qq|
 <table cellpadding=5 border=0 width=100%>
  <tr>
   <th colspan=2>
   <b class=info>$Form{'Action'}</b>&nbsp;&nbsp;
   <input class=hbut type=submit value='Editor' onclick='choice="Editor"; form.List.value="";' $mouse>
   <input class=hbut type=submit value=' $Sel '   onclick='choice="$Sel"; form.List.value="";' $mouse>
   </td>
  </tr>
 </table>
 |;
 print $form;
}


1;