#!/usr/bin/perl 



use strict;





# try this, if you can -> /usr/libdata/perl5



# WinNT users! You may want to change the first line of this script to: 



#!C:/perl/bin/perl.exe



# Note: KEEP the '#' character as the first character of that line. 



# WinNT users! If you're getting warnings in your browser, uncomment 

# this line: 



#close STDERR;



#!/usr/bin/perl





# use CGI::Carp "fatalsToBrowser"; 

# The line above, when uncommented, gets any server errors created 

# by Mojo Mail and shows them to your web browser. This facilitates 

# debugging, but it can be  annoying if you really don't want this happening. 

# You'll see something  in your browser that says 'Software Error' in big 

# old letters and then  what the error was. Having this on also makes the

#

# What is in this script that you may want to at least look over are things 

# that may have to be tweak to fit your server configuration. 

# 99% of you won't ever have to change this, but then again, you might be 

# that 1%, so I'll try to walk you through.



# First off, if you simply cannot get this script to work, and none of your 

# error logs point to something that's easy to pick out, try to change the 

# first line to something else. Its set at:

#

#                           #!/usr/bin/perl -w 

# 

# as a default. This might not be correct. Other things you can try are: 

#

#

#                           #!/usr/local/bin/perl -w 

#							#!/usr/bin/perl5 -w

# 							#!/usr/local/bin/perl5 -w 

#

# For WinNT folk, you may want to try: 

#   						#!C:/perl/bin/perl.exe

#

#

# If you don't know, this is called the 'path to Perl' This script needs to know 

# where it is, and if you don't know it, it can't figure it out by itself. You may

# also need to change this if you're attempting to run mojo on a Windows NT server, 

# ask whoever is in charge of your web hosting server. 

# Another  tid bit that I'll share is the -w at the end of that little line. That's called 

# the 'warning' flag and, well warns you of stuff that might not be correct. Its nice

# to have to figure out weird errors. It also produces a lot of

#

# Use of uninitialized value at .. blah blah blah blah 

#

# Which you may find annoying and also filling up your error logs with gobble dee gook

# take the -w flag of like this

#							#!/usr/bin/perl 

#

# and most of those warnings will stop. 



use lib qw(./ ./MOJO ./MOJO/perllib); 



# in weird server setups, you may need to change this to the absolute path 

# to the mojo folder, something like: 

#

#                /usr/home/account/www/cgi-bin/mojo

#

# If you move the MOJO directory, you'll need to change the 

# 

#                               use lib './';

#

# to where it is really located. again, if you're running this on a windows

# server, you may have to change this to the full path anyways. 



$ENV{PATH} = "/bin:/usr/bin"; 

delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

       

# If you'd like, you can set a $ENV{PATH}  for this program. This is in the ongoing 

# effort to allow Mojo Mail to run in 'Taint' mode. If you don't know what that means, 

# don't worry. Mojo Mail doesn't in the least bit need to run in taint mode. 



use MOJO::Config; 

use MOJO::App::Guts;               

use MOJO::Template::HTML;     

use MOJO::MailingList::Subscribers;           



# The three lines above load in needed modules, other modules are loaded 

# dynamically, but these three are needed almost all of the time. 

######################################################################

# After popular opinion (aka enough people decided I should do this) 

# I now allow you to set the size, shape and characteristics of the 

# "Send a List Message' Form. I don't feel like having these variables in the 

# Config.pm file, since they're just used for this script, but here goes: 



# width of the textarea 

my $cols = 70; 



# height of the textarea

my $rows = 15; 



# wrap

my $wrap  = 'NONE'; 



# style

my $text_area_style = 'font-size:11px';



# check out: 

# http://www.eskimo.com/%7Ebloo/indexdot/html/tagpages/t/textarea.htm

# for the skinny on what these really do, if you don't know

######################################################################



######################################################################

# ! The variables you need to change are located in the Config.pm 

# file that is itself located in the MOJO folder. 

######################################################################   

######################################################################  

# Mojo Mail. An Easy And Powerful List Management System

#

# By Justin Simoni <+> justin@skazat.com <+> http://skazat.com

# copyright 1999 - 2003 

#

# This program is Open Source Software and is covered under the General 

# Public License. You should have gotten a copy of the license with this script. 

# if not, you can view a copy at: http://www.gnu.org/copyleft/gpl.html

#

# Mojo Mail is free(!) software. Free as in speech,  not in as beer or price,

# please make sure you understand this.  

#

# I do ask that you also PLEASE keep the link back to the support site intact, 

# the link that says: 

#         List Management by Mojo Mail 2 <+> http://mojo.skazat.com

# throughout the script, and also keep this header intact as well

# 

# This enables people to find the program and use it themselves.

# If you want it removed, you can give a $50 donation,

# and I will allow you to take off the link, you can send check or money to: 

#

#                        Justin Simoni 

#                         PO Box  369 

#                         Boulder, CO

#                            80306 

#

# All money will go to support the program, the Mojo Mail website 

# and keeping an exceptionally bright student in college and beyond. 

# 

# Changes, Enhancements,  Modifications and Professional Installation 

# of this script can be made on a project by project basis, 

# please contact: Skazat Designs  at  design@skazat.com  

# (the developer of Mojo Mail) if you are interested.  

#####################################################################

# This is the rest of the program, feel free to tweak as needed, if you 

# find some great enhancement, share it with the community! 

######################################################################

# Use the CGI.pm module, to facilitate web page generation and get cookie functions



use CGI;     

    CGI->nph(1) if $NPH == 1;





# Use strict to make code cleaner, and more safely written 

use strict;



# Unbuffer output for faster page displaying

$|++; 



#Ok, here we go... :) 

######################################################################



my $q = new CGI;  

$q->charset($HTML_CHARSET);





my $flavor          = $q->param('flavor'); 

   $flavor          = $q->param('f') unless($flavor); 

   #$flavor = 'default' if(!$flavor);

   

my $process         = $q->param('process');



my $email           = $q->param('email') || "";

   $email           = $q->param('e')     || "" unless($email); 

   													 

my $list            = $q->param('list');

   $list            = $q->param('l') unless($list);

my $list_name       = $q->param('list_name');   

   													  

my $pin             = $q->param('pin');   													  

   $pin             = $q->param('p') unless($pin);     													  



my $admin_email     = $q->param('admin_email'); 

my $mojo_email      = $q->param('mojo_email'); 

my $info            = $q->param('info');

my $private_policy  = $q->param('private_policy'); 

my $privacy_policy  = $q->param('privacy_policy'); 

my $password        = $q->param('password'); 

my $retype_password = $q->param('retype_password'); 

my $keyword         = $q->param('keyword'); 

my @address         = $q->param('address'); 

my $done            = $q->param('done'); 

my $id              = $q->param('id'); 

my $quick           = $q->param('quick') || 'no';

my $advanced        = $q->param('advanced') || 'no';

my $help            = $q->param('help');





$list     = xss_filter($list); 

$flavor   = xss_filter($flavor); 

$email    = xss_filter($email); 

$pin      = xss_filter($pin);

$keyword  = xss_filter($keyword);





#############################################

#Retrieve the cookie. all the info is saved #

#on a seperate cookie for each list.        #

#logging out erases the password            #

#############################################



my %logincookie = $q->cookie($LOGIN_COOKIE_NAME);



my $admin_list     = $logincookie{admin_list}; 

my $admin_password = $logincookie{admin_password}; 





#external (mostly..) functions called from the web browser) 

# a few things mojo can do.... :) 

my %Mode = ( 

'default'             =>    \&default,         		#user    start page with all lists

'subscribe'           =>    \&subscribe,        		#user    sends conformation 

'subscribe_flash_xml' =>    \&subscribe_flash_xml,

'new'                 =>    \&confirm,          		#user    adds email

'unsubscribe'         =>    \&unsubscribe,      		#user    unsunbscribes 

'admin'               =>    \&admin,            		#admin   login in to the admin area 

'login'               =>    \&login,            		#admin   check the user/pass

'logout'              =>    \&logout,          		#admin   erase user/pass

'new_list'            =>    \&new_list,         		#admin   make a new list

'change_info'         =>    \&change_info,      		#admin   change the info in the .db file 

'html_code'           =>    \&html_code,        		#admin   get cut + paste code

'admin_help'          =>    \&admin_help,       		#admin   help page

'delete_list'         =>    \&delete_list,     	    #admin   delete the list

'list_stats'          =>    \&list_stats,  

'view_list'           =>    \&view_list,        		

'view_list_options'   =>    \&view_list_options,

'edit_subscriber'     =>    \&edit_subscriber,

'add'                 =>    \&add,              		#admin   add emails

'email_password'      =>    \&email_password,   		#admin   email the password to the admin

'add_email'           =>    \&add_email,        		#admin   admin add an email

'delete_email'        =>    \&delete_email,    		#admin   admin delete an email

'send_email'          =>    \&send_email,      		#admin   send the list email 

'preview_form'        =>    \&preview_form,    		#admin   preview the form  

'checker'             =>    \&checker,          		#admin   mass delte email

'edit_template'       =>    \&edit_template,   		#admin   edit the template         

'view_archive'        =>    \&view_archive,          #admin

'edit_archive'        =>    \&edit_archive, 

'delete_archive'      =>    \&delete_archive, 

'archive'             =>    \&archive,               #user     look at list the archive

'chocolate'           =>    \&chocolate,             #chocolate!

'all_list_code'       =>    \&all_list_code,         #user, shows signup code for all lists.

'manage_script'       =>    \&manage_script,         #admin get info on the script

'change_password'     =>    \&change_password,       #change your password

'text_list'           =>    \&text_list,             #admin shows email list in new window   

'send_list_to_admin'  =>    \&send_list_to_admin,    #admin sends email list to adin

'search_email'        =>    \&search_email,          #admin search through emails

'archive_options'     =>    \&archive_options,       #admin archive options

'adv_archive_options' =>    \&adv_archive_options,   #admin archive options

'back_link'           =>    \&back_link,             #create a back button

'edit_type'           =>    \&edit_type,             #customize type and stuff

'edit_html_type'      =>    \&edit_html_type,        #customize type and stuff

'list_options'        =>    \&list_options,          # customize list options

'sending_options'     =>    \&sending_options,       # customize sending options

'adv_sending_options' =>    \&adv_sending_options,  # adv sending options 

'sign_in'             =>    \&sign_in,               # sign into individual lists

'black_list'          =>    \&black_list,            #sign into black lists

'search_archive'      =>    \&search_archive,		# search through the archive (user) 

'send_archive'        =>    \&send_archive,          # send a copy of an archive message

'mojo_send_options'   =>    \&mojo_send_options,     # options for mojo_send.pl

'list_invite'         =>    \&list_invite,           # invite a whole bunch of people to your list

'pass_gen'            =>    \&pass_gen,              # password generation

'send_url_email'      =>    \&send_url_email,

'feature_set'         =>    \&feature_set,

'smtp_options'        =>    \&smtp_options,

'checkpop'            =>    \&checkpop,

'author'              =>    \&author,

'list'                =>    \&list_page,

'setup_info'          =>    \&setup_info, 

'reset_cipher_keys'   =>    \&reset_cipher_keys,

'r'                   =>    \&redirection,



# these params are the same as above, but are smaller in actual size

# this comes into play when you have to create a url usign these as parts of it.  



's'                  =>    \&subscribe,              # subscribe

'n'                  =>    \&confirm,                # confirm the subscription

'u'                  =>    \&unsubscribe,            # unsubscribes 

); 













&_chk_env_sys_blk(); 



# the BIG switcheroo. Mark doesn't like this :) 

if(exists($Mode{$flavor})) { 

	$Mode{$flavor}->();  #call the correct subroutine 

}else{

	&default;

}

                                                                    





sub default { 



	user_error(-Error => 'bad_setup') if(check_setup() == 0);

	my @available_lists    = available_lists(-In_Order => 1);

	my @available_archives = available_archives(); 



my %default_list; 

my $default_exists = check_if_list_exists(-List=>$DEFAULT_LIST,);

if($DEFAULT_LIST ne "" && $default_exists >= 1){

	%default_list = open_database(-List =>$DEFAULT_LIST); 

}



#print header(); 

print(the_html(-Part => "header",

               -Title => "Sign up for a list", 

               -List  => $DEFAULT_LIST)); 



	if ($available_lists[0]) { 

	

	print qq{

	

	<table width=100% border=0 cellpadding=5 cellspacing=0> 

	 <tr>

	  <td valign="top"> 

	   <p>Choose a <strong>list</strong>: </p>

	  </td>

	  <td width="200" valign="top" align="right">

	   <p>Enter your <strong>email</strong> address:</p>

	  </td>

	  </tr>

	  <tr> 

	   <td width="200" valign="top">





	}; 





require MOJO::Template::Widgets; 

print MOJO::Template::Widgets::list_popup_menu(); 



print qq{		 

		 </td>

		

		 <td width="200" valign="top" align="right"> 

			 <p><input type="text" name="email" size="20" value="$email" /></p>

		 </td>

		</tr>

		

		<tr> 

		 <td width="200" valign="top"> 

		   <p><input type=radio name=flavor value="subscribe" checked="checked" style="background-color:transparent" /> Subscribe | 

		      <input type=radio name=flavor value="u" style="background-color:transparent"  />Unsubscribe</p> 

		</td>

		<td>

		 <p align="right"><input type="submit" style="$STYLE{default_submit}" value="Submit" /></p>

		</td>

		</tr>		

		

		<tr>

		 <td colspan=2>

		 

		 

		  <hr />

		  <h3>Available Lists:</h3>

	};

	

	foreach my $everything(@available_lists){ 

		my %all_list_info = open_database(-List => $everything); 

		if($all_list_info{hide_list} ne "1"){                              

			print"<p><a href=\"$MOJO_URL?f=list&l=$all_list_info{list}\"><strong>$all_list_info{list_name}</strong></a><br /> ";

			$all_list_info{info} =~ s/\n\n/<p>/gio; 

			$all_list_info{info} =~ s/\n/<br>/gio; 

			print $all_list_info{info};	

		}	

	}

	

	print $q->hr();

	

	print "<div align=center><a href=$S_MOJO_URL?flavor=admin><strong>Administration</strong></a></div>" if $SHOW_ADMIN_LINK ==1;

	print "</td></tr></table>"; 



	}else{ 

	 

		require MOJO::App::Licenses; 

		my $agree = $q->param('agree'); 	

		my $no_agree; 

		   $no_agree = qq{ <p style='color:red'><strong>Please agree to the terms of the GPL License and

							the No SPAM policy by checking the checkbox below:</strong></p> } if $agree eq 'no';



		my $gpl     = MOJO::App::Licenses::gpl(); 

		my $no_spam = MOJO::App::Licenses::no_spam();  

		print qq{

		<h3>Congratulations, Welcome to $PROGRAM_NAME!</h3> 

		<p>You installed $PROGRAM_NAME correctly, the next thing to do is set up a list or two. 

		Be sure you know your root password and enter it below to begin making a new list:</p> 

		

		<p><strong>Please Read, Understand and Agree to the GNU Public License as well as agreeing not 

		to use Mojo Mail for unsolicited (SPAM) email.</strong></p> 

		

		<p align=center>

		 <textarea cols=70 rows=8 style='$text_area_style'>$gpl</textarea>

		</p>

		

		<p align=center>

		<textarea cols=70 rows=8 style='$text_area_style'>$no_spam</textarea>

		</p> 

		

		$no_agree

		

		<p><input type='checkbox' name='agree' value='yes'>I agree to the GPL license and no-spam conditions</p> 

		

		<input type=hidden name=flavor value="new_list">

		<p>Root Password:<br>

		<input type="password" name="root_password"><nobr><input type="submit" style='$STYLE{default_submit}' value="set up new list"> 

		</form>

		

		

		

		};

	}

																													print $q->a({-href=>"$MOJO_URL?"."\x61\x72\x74", -style=>'font-size:1px;color:#FFFFFF'},'*'); 

	print(the_html(-Part => "footer", 

				   -List => $DEFAULT_LIST,

				   -Site_Name => $default_list{website_name},

				   -Site_URL  => $default_list{website_url})); 

}









sub list_page { 



	if(check_if_list_exists(-List=>$list) == 0){ 

		undef($list); 

		&default;

		exit;

	}

	my %list_info = open_database(-List =>$list);

	

	if($list_info{hide_list} == 1){

		undef($list); 

		&default;

		exit;

	}

	

	  

	

	

	

	#print header();

	print(the_html(-Part  => "header",

				   -Title => $list_info{list_name}, 

				   -List  => $list));

	

	print $q->h3('Subscribe to ' . $list_info{list_name} . ':'); 

	print subscribe_form($list) . $q->hr();

	

	for('info', 'private_policy'){

		$list_info{$_}=~ s/\n\n/<p>/g;

		$list_info{$_}=~ s/\n/<br \/>/g;

	}

	

	print $q->h3('About ' . $list_info{list_name} . ':') . $q->p($list_info{info});

	print $q->hr();

	print $q->h3('Privacy Policy:') . $q->p($list_info{private_policy}) . $q->hr() if($list_info{private_policy});

	



	

	

	if ($list_info{show_archives} ne "0"){ 

		

		

		

		require MOJO::MailingList::Archives; 

		my $archive = MOJO::MailingList::Archives->new(-List => \%list_info); 

		my $entries = $archive->get_archive_entries(); 

		

		print $q->h3("Archives:") if defined($entries->[0]);

		

		my @archive_nums; 

		my @archive_links; 

		my $stopped_at;

		



		my ($begin, $stop) = $archive->create_index(0);

		my $i   = 0;

		my $num = 1;

		for($i = $begin; $i <=$stop; $i++){ 

			my $link; 

			if(defined($entries->[$i])){

			

			

			my ($subject, $message, $format) = $archive->get_archive_info($entries->[$i]); 

					my $pretty_subject = pretty($subject);

				

					$link.= "&nbsp;<a href=\"$MOJO_URL?flavor=archive&id=$entries->[$i]&list=$list\">$pretty_subject</a></strong><br>"; 

					my $date = date_this(-Packed_Date   => $entries->[$i],

										 -Write_Month   => $list_info{archive_show_month},

										 -Write_Day     => $list_info{archive_show_day},

										 -Write_Year    => $list_info{archive_show_year},

										 -Write_H_And_M => $list_info{archive_show_hour_and_minute},

										 -Write_Second  => $list_info{archive_show_second});

													

					$link .=  "<em>Sent $date </em>\n"; 

					$link .= "</p>\n"; 

					

				$stopped_at++;

				push(@archive_nums, $num); 

				push(@archive_links, $link); 

				$num++;

				

				

				}

				} 

					   

				my $ii; 

				print '<blockquote>';

				for($ii=0;$ii<=$#archive_links; $ii++){ 

				

					my $bullet = $archive_nums[$ii];

					#fix if we're doing reverse chronologic 

					$bullet = (($#{$entries}+1) - ($archive_nums[$ii]) +1) if($list_info{sort_archives_in_reverse} eq "1");

				

					print "<p>$bullet $archive_links[$ii]\n"; 

				 

				#}



			#}

		}

		print '</blockquote>';

		print $archive->create_index_nav($list_info{list}, $stopped_at);

		print $archive->make_search_form($list_info{list}) if($list_info{archive_search_form} eq "1");

		print $q->hr() if defined($entries->[0]);

	}

	

	print "<div align=center><a href=\"$S_MOJO_URL?flavor=sign_in&list=$list\"><strong>Administration</strong></a></div>" if $SHOW_ADMIN_LINK ==1;

	

	

	print(the_html(-Part => "footer",  -List  => $list));

               

}



sub admin { 



my @available_lists = available_lists();



my %default_list; 

my $default_exists = check_if_list_exists(-List=>$DEFAULT_LIST,);



if($DEFAULT_LIST ne "" && $default_exists >= 1){ 

	%default_list = open_database(-List =>$DEFAULT_LIST); 

}





#print header();

print(the_html(-Part  => "header",

               -Title => "Administration", 

               -List  => $DEFAULT_LIST));



print $q->end_form();

print $q->start_form(-action => $S_MOJO_URL, -method => 'Post'); 



print qq{



<h3>Enter Your List Control Panel</h3>

<p>You will need to know your List Password to access your control panel</p>

 <table align=center> 

  <tr> 

   <td> 

    <p><strong>Select</strong> your list:</p> 

   </td> 

  <td> 

   <p>Type in your  <strong>List Password</strong></p>

  </td> 

 </tr> 

 <tr> 

  <td> 

   <p>



}; 



require MOJO::Template::Widgets; 

print MOJO::Template::Widgets::list_popup_menu(-name        => 'admin_list', 

									 -show_hidden => 1); 



print qq{

 

 </p> 

</td> 

<td> 

 <table> 

  <tr> 

   <td> 

    <p> 

     <input type="password" name=admin_password size=8>

     <input type=hidden name=flavor value="login">

     <input type="hidden" name="process" value="true">

    </p> 

   </td> 

   <td> 

    <input type="submit" style='$STYLE{default_submit}' value="Login">

   </td> 

  </tr> 

</table> 

</td> 

</tr>

</table> 

</p>

</form> 



<hr noshade size=1 width=66% color=black align=center> 

<form action="$S_MOJO_URL" method="post"> 



<p><input type=hidden name=flavor value="new_list">



<h3>Set Up a New Mailing List</h3>

<p>You will need to know the $PROGRAM_NAME Root Password to create a new list</p>



<table align=center> 

 <tr>

  <td colspan=2> 

   <p>Type in your <strong>$PROGRAM_NAME Root Password</strong></p>

  </td> 

 </tr> 

 <tr> 

  <td>

   <p> 

   <input type="password" name="root_password">

  </td> 

  <td> 

   <input type="submit" style='$STYLE{default_submit}' value="Make a New List"> 

  </td> 

 </tr> 

</table> 



</form>



}; 



print(the_html(-Part => "footer",

               -List => $DEFAULT_LIST,

               -Site_Name => $default_list{website_name},

               -Site_URL  => $default_list{website_url}));

                              

}









sub sign_in { 



my $list_exists = check_if_list_exists(-List=>$list);



if($list_exists >= 1){ 

	#print header();

	my $pretty = pretty($list); 

	print(the_html(-Part  => "header",

	               -Title => "Sign In To $pretty", 

	               -List => $list));

}else{



#print header();

print(the_html(-Part => "header",

               -Title => "Sign In", 

               -List => $DEFAULT_LIST));



}



my @available_lists = available_lists();

my %default_list; 



my ($default_exists) = check_if_list_exists(-List=>$DEFAULT_LIST,);

if($DEFAULT_LIST ne "" && $default_exists >= 1){ 

	%default_list = open_database(-List =>$DEFAULT_LIST); 

}



print $q->end_form();

print $q->start_form(-action => $S_MOJO_URL, -method => 'Post'); 



print $q->h3('Enter Your List Control Panel');

print $q->p('You will need to know your List Password to access your control panel');





print <<EOF 



<table align=center> 

 <tr> 

  <td> 



EOF

;   

  

print "<p><strong>Select</strong> your list:</p>" if($list_exists < 1);

print <<EOF

 </td> 

 <td> 

  <p>Type in your  <strong>List Password</strong> </p>

 </td> 

</tr> 

<tr> 

 <td> 

  <p>

EOF

; 



if($list_exists < 1){

	require MOJO::Template::Widgets; 

	print MOJO::Template::Widgets::list_popup_menu(-name        => 'admin_list', 

									     -show_hidden => 1); 

}else{ 

	print "<input type=hidden name=admin_list value=$list>"; 

	print "<p>&nbsp;</p>"; 

}



print <<EOF



	</td> 

    <td> 

    <table> 

     <tr> 

      <td> 

       <p> 

        <input type="password" name=admin_password size=8>

        <input type=hidden name=flavor value="login">

        <input type="hidden" name="process" value="true">

       </td> 

       <td> 

        <input type="submit" style='$STYLE{default_submit}' value="Login">

       </td> 

      </tr> 

     </table> 

    </td> 

   </tr>

  </table> 

EOF

; 

 

 

if($list_exists >= 1){ 



	print(the_html(-Part => "footer",

               -List => $list));  

}else{



	print(the_html(-Part => "footer",

				   -List => $DEFAULT_LIST,

				   -Site_Name => $default_list{website_name},

				   -Site_URL  => $default_list{website_url}));               

}

}









sub send_email { 



# Howdy! (that's Coloradoian talk for 'hello') saying that, 

# i'm actually a transplant from Connecticut. But anyways this is 

# the 'send a list message' function (applause) which is probably the 

# most interesting function in this pile of code and one you might 

# want to tweak or something, so here goes.  





# we'll check a few things here, makes sure info saved in a cookie 

# is all good and well, 

my $root_login = check_list_security(-Admin_List      => $admin_list, 

                                     -Admin_Password  => $admin_password, 

                                     -IP_Address      => $ENV{REMOTE_ADDR},

                                     -Function        => 'send_email');



# a bit of a trick, $admin_list is fetched from a cookie, so its not 

# like you can pass the admin password here in a query string, kinda 

# makes it impossible for you to spoof the security without a browser. 

$list = $admin_list; 



# fetch the list info hash. this has all our list information 

# and related goodies. 

my %list_info =  open_database(-List => $list,-Format => "replaced"); 								



#

#

#

my $text_message_body = "";

my $html_message_body = "";

my $message_subject   = $list_info{list_name} . ' Message';



if($q->param('archive_id')){ 

	require MOJO::MailingList::Archives; 

	my $la = MOJO::MailingList::Archives->new(-List => \%list_info); 

	if($la->check_if_entry_exists($q->param('archive_id')) > 0){

		my ($asubject, $amessage, $aformat) = $la->get_archive_info($q->param('archive_id')); 

		$message_subject = $asubject;

		if($aformat =~ m/HTML/i){ 

			$html_message_body = $amessage;

		}else{ 

			$text_message_body = $amessage;

		}

	}

} 

#

#

#





# 'attachment number' tells how many file upload widgets to show. 

# pretty frickin exciting eh? 



my $at_num = $q->param('at_num') || 1;



#unless we be doing some sending...

unless( (defined($process) ) && ($process ne "") ){







#print our header



print(admin_html_header(-Title      => "Send A List Message", 

						-List       => $list_info{list}, 

						-Root_Login => $root_login)); 



# end the form that's in the template, we need a special form for 

# file uploads. 

print $q->end_form(); 



print $q->h3("Send a message to people subscribed to:  $list_info{list_name}");

print "<p class=smallred><em>Warning! No SMTP Server has been set!</em></p>" if((!$list_info{smtp_server}) && ($list_info{send_via_smtp} eq "1"));





# we give a link to the basic screen if we be in advanced 

# and vice versa.



if($advanced eq 'yes'){ 

print $q->p({-align=>'right'}, $q->a({-href=>"$S_MOJO_URL?flavor=$flavor"},'Basic...'));

}else{

print $q->p({-align=>'right'}, $q->a({-href=>"$S_MOJO_URL?flavor=$flavor&advanced=yes"},'Advanced...'));

}





# start the new form

print $q->start_multipart_form(-action=>$S_MOJO_URL, -method=>'POST', -name=>'the_form'),

      $q->hidden('list',$list_info{list}),

      $q->hidden(-name => 'flavor', -value => 'send_email', -override =>1);



# remember its advanced if we have to.

print $q->hidden('advanced', $advanced) if($advanced eq 'yes');      

      

# this basically is the widget to say 'is this text or html?'

      

my $format_options = <<EOF

  <select name="email_format"> 

   <option value="TEXT">Plain Text</option> 

   <option value="HTML">HTML</option> 

   <option value="convert_to_plain_text">Plain Text - HTML tags stripped</option> 

   <option value="HTML_and_text">HTML - plain text version will be created</option> 

  </select> 

  

EOF

; 

       

print "<table border=0>";





# this is all for the advanced form, we'll be switching from 

# basic and advanced, so pay attention! 



# print the From: field

# usually the list owner



print $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('From:')))), 

     

      ($q->p($q->textfield(-name  =>'From',

                       -value =>'"'.$list_info{list_name}.'" <'.$list_info{mojo_email}.'>',

                       -size  => 49)))

       ])),



# print the 'Reply-To:' field      

# usually the same as the From: field 

       $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Reply-To:')))), 

      ($q->p($q->textfield(-name  =>'Reply_To',

                   -value =>'"'.$list_info{list_name}.'" <'.$list_info{mojo_email}.'>',

                   -size  => 49)))

      ])),

      

 # print the 'Errors-To' field 

 # usually the List Admin

      $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Errors-To:')))), 

      ($q->p($q->textfield(-name  =>'Errors_To',

                -value =>"<$list_info{admin_email}>",

                -size  => 49)))

      ])),

       

       

# print the   Precedence, usually list          

      

      $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Precedence:')))), 

      ($q->p($q->popup_menu(-name    => 'Precedence',

                    -values  =>  \@PRECEDENCES,

                    -default =>  $list_info{precedence})))

      ])), 



#print the Priority, usually 3 or 'Normal'       



      $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Priority:')))), 

      ($q->p($q->popup_menu(-name  =>'Priority',

                -values =>[keys %PRIORITIES],

                -labels => \%PRIORITIES,

                -default =>  $list_info{priority}, 

                ))) 

       ]))if($advanced eq 'yes');       

       

# print the subject              

print $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Subject:')))), 

      ($q->p($q->textfield(-name  =>'message_subject',

                -value =>"$message_subject",

                -size  => 49)))

      ]));

                

# this is where we print out the attachments if we be in 'advanced'

 if($advanced eq 'yes'){

 

# tell us that we're using attachments

  print $q->hidden('attachment', 'true');

  

# remember how many attachment files we have  

  print $q->hidden('at_num',    $at_num);

 

# my $i  

my $i;



# foreach of the $at_num's


for($i=1; $i<=$at_num; $i++){ 

	# print a file upload form

	print $q->Tr($q->td([

		  ($q->p({-align=>'right'},$q->b("Attachment $i"))),

		  ($q->p($q->filefield(-name=>"attachment_$i",-size  => 36)))

		  ]));  

 }

 

my $next_num = $at_num+1;



# and then print a link to make another one. 

print $q->Tr($q->td([

	  $q->p('&nbsp;'),

	  $q->p({-align=>'right'}, $q->i($q->a({-href=>"$S_MOJO_URL?flavor=$flavor&advanced=yes&at_num=$next_num"}, 'more attachment fields...'))),

	  ]));

} 

       

       

# give an option to *not* archive this message (adv)             

print $q->Tr($q->td([

      ($q->p({-align=>'right'},($q->b('Options:')))), 

       ($q->p(

        $q->checkbox(-name  => 'html_with_images',

                     -value => 1,

                     -label => 'HTML Version uses attached images',   

       )))

       ])), 

       

       

      $q->Tr($q->td([ 

     ($q->p('&nbsp;')), 

      ($q->p($q->checkbox(-name  =>'archive_message',

                  -value => 1,

                   -label => 'Archive This message',

                  

                  (($list_info{archive_messages} ne "0") ? 

                  (-checked => 'ON',) :

                  (-checked => '0',)),

       )))

       

       ])),

       

       $q->Tr($q->td([

       

       ($q->p('&nbsp;')), 

       ($q->p($q->checkbox(-name  => 'apply_template',

                  -value => 1,

                  -label => 'Apply the list template to the HTML message',   

       )))

       ])) if($advanced eq 'yes');

       

       

             

# print the 'Format' select box if we're in basic.               

print $q->Tr($q->td([

      ($q->p({-align=>'right'},$q->b('Format:'))),

      ($q->p($format_options))

      ])) if($advanced ne 'yes');  

       

       

       

 print '</table>';      

 

# print textfield('archive_message', $list_info{archive_messages}) if $advanced ne 'yes'; 

  

  my $text_blurb = "";

  my $html_blurb = "";      

   $text_blurb = "<strong>Text Version</strong><br>" if($advanced eq 'yes');

   $html_blurb = "<strong>HTML Version</strong><br>" if($advanced eq 'yes');





# print one textarea... 



      print $q->p({-align=>'center'}, "$text_blurb",

            $q->textarea(-name  => 'text_message_body',

      		         -cols  => $cols, 

      		         -rows  => $rows, 

      		         -wrap  => $wrap,

      		         -style => $text_area_style,

      		         -value => $text_message_body)); 

     

# and another if we're in 'advanced'     

        print $q->p({-align=>'center'}, "$html_blurb",

              $q->textarea(-name  => 'html_message_body',

      		           -cols  => $cols, 

      		           -rows  => $rows, 

      		           -wrap  => $wrap,

      		           -style => $text_area_style,

      		           -value => $html_message_body)) if($advanced eq 'yes');

 

       		   

if(

  ($advanced eq 'yes')                && 

  ($list_info{send_via_smtp} ne "1")    

  ){ 



	print $q->hr({-width=>'66%', -size=>1, -color=>'black'}),

          $q->p({-align=>'center'}, $q->i('These two options are helpful if, for

                                   some reason, your list mailing was 

                                   dropped mid sending - you\'ll be able

                                   to pick up the mailing near where it

                                    was left off')),    

          $q->p({-align=>'center'},'start this mailing at this address:', $q->br(), 

          $q->textfield(-name=>'Start-Email'), $q->br(), 

          $q->b('-or-'), $q->br(), 

         'start this mailing at email number:', $q->br(), 

          $q->textfield(-name=>'Start-Num', -size=>6), $q->br()), 

          $q->hr({-width=>'66%', -size=>1, -color=>'black'}),

}

      		         

print <<EOF



<table align=right border=0>

 <tr>

  <td>

   <input type="submit" style='$STYLE{yellow_submit}'  name=process value="Send Test Message To Owner">  

  </td>

  <td> 

   <input type="submit" style='$STYLE{green_submit}'  name=process value="Send List Message"> 

  </td>

 </tr>

</table> 

 <p>&nbsp;</p>

EOF

;



# end that, wasn't so bad eh?



print $q->end_form(); 





print(admin_html_footer(-List => $list));

}else{



# pull in the Mime::Lite module

require MIME::Lite;

MIME::Lite->quiet(1) if $MIME_HUSH == 1;       ### I know what I'm doing



$MIME::Lite::PARANOID = $MIME_PARANOID;





my $email_format      = $q->param('email_format') || undef;



# get the message subject

my $message_subject   = $q->param('message_subject');



# get the text message 

my $text_message_body = $q->param('text_message_body') || undef; 

 

# if one was passed,  

 	if($text_message_body){

 	

 	# get rid of weird line breaks caused by textareas

 	$text_message_body    =~ s/\r\n/\n/g;

    

    # get some saved formatting stuff

    my $text_template   = $list_info{mailing_list_message};

     

    # format  

       $text_template  =~ s/\[message_body\]/$text_message_body/g; 

    # switch it back 

       $text_message_body = $text_template;

    

    # interpolate [tags] to $tags 

       $text_message_body   = interpolate_string(-String      => $text_message_body, 

    							                 -List_Db_Ref => \%list_info);

    							               

    							               							               

   }

   

# get the HTML message (if any)   

my $html_message_body; 



$html_message_body = $q->param('html_message_body') || undef; 



if(($email_format eq 'HTML') || ($email_format eq 'HTML_and_text')){ 

   $html_message_body = $q->param('text_message_body') || undef; 

}else{ 

   $html_message_body = $q->param('html_message_body') || undef; 

}





my $html_archive_message_body; 

  

	if($html_message_body){

	

	# get rid of weird line breaks

	   $html_message_body    =~ s/\r\n/\n/g;

	

	# get some saved template   

    my $html_template   = $list_info{mailing_list_message_html};

    

    # template it 

       $html_template  =~ s/\[message_body\]/$html_message_body/g; 

       

    # switch it back   

       $html_message_body = $html_template;

       

     # interpolate [pusedo tags]  

       $html_message_body    = interpolate_string(-String      => $html_message_body, 

								                  -List_Db_Ref => \%list_info);

    }

	

	

# escape the list name for query strings. 								   



# see if we gots an attachment

my $attachment = $q -> param('attachment');





my $s_link = subscribe_link(-list   => $list,

							-email  => '[email]', 

							-pin    => '[pin]');



my $us_link = unsubscribe_link(-list   => $list,

							   -email  => '[email]', 

						 	   -pin    => '[pin]');

														



my $html_unsubscribe_link =  "<a href=\"$us_link\">$us_link</a>";

my $html_subscribe_link =    "<a href=\"$s_link\">$s_link</a>";



# make sub links

my $text_unsubscribe_link =  $us_link;

my $text_subscribe_link   =  $s_link;







my $message_id = message_id();



my $content_type; 





if($advanced){ 

# do some advanced stuff.



	if(defined($text_message_body) ne ""){ 

      # interpolate the sub and unsub links



	    $text_message_body =~ s/\[list_unsubscribe_link\]/$text_unsubscribe_link/g; 

	    $text_message_body =~ s/\[list_subscribe_link\]/$text_subscribe_link/g; 

	}

	

	if(defined($html_message_body) ne ""){ 

	  # interpolate the sub and unsub links

	    $html_message_body =~ s/\[list_unsubscribe_link\]/$html_unsubscribe_link/g; 

	    $html_message_body =~ s/\[list_subscribe_link\]/$html_subscribe_link/g; 

	}

	





}



if($email_format){

# if we got here, we're using the 'basic' screen



	if($email_format eq "TEXT"){

	# if we have text, treat it as so.



		$content_type = 'text/plain';

	    $text_message_body =~ s/\[list_unsubscribe_link\]/$text_unsubscribe_link/g; 

	    $text_message_body =~ s/\[list_subscribe_link\]/$text_subscribe_link/g; 

		

		

		



	}elsif($email_format eq "convert_to_plain_text"){

    # do our best to strip HTML taghs 

    

		$content_type = 'text/plain';

		$text_message_body = convert_to_ascii($text_message_body); 

		$text_message_body =~ s/\[list_unsubscribe_link\]/$text_unsubscribe_link/g; 

	    $text_message_body =~ s/\[list_subscribe_link\]/$text_subscribe_link/g; 

		

		



	}elsif($email_format eq 'HTML'){ 

	

	# its HTML!



		$content_type = 'text/html';

		$html_message_body = $html_message_body;

		undef($text_message_body);

		$html_message_body =~ s/\[list_unsubscribe_link\]/<p>$html_unsubscribe_link/g; 

	    $html_message_body =~ s/\[list_subscribe_link\]/<p>$html_subscribe_link/g; 

		



	}elsif($email_format eq 'HTML_and_text'){

    # make two versions of the message, the other one being converted html to text

    



		$content_type = 'multipart/alternative';

		$html_message_body = $html_message_body; 

	    $html_message_body =~ s/\[list_unsubscribe_link\]/<p>$html_unsubscribe_link/g; 

	    $html_message_body =~ s/\[list_subscribe_link\]/<p>$html_subscribe_link/g; 

		

	    

	    $text_message_body =  convert_to_ascii($text_message_body); 

	    $text_message_body =~ s/\[list_unsubscribe_link\]/$text_unsubscribe_link/g; 

	    $text_message_body =~ s/\[list_subscribe_link\]/$text_subscribe_link/g; 

		

		

	}

}



if($html_message_body){ 

	if($q->param('apply_template') == 1){ 

		

		$html_archive_message_body = $html_message_body;

		$html_message_body = (the_html(-Part  => "header",

               						   -Title  => $message_subject, 

               						   -List   => $list,

               						   -Header => 0))               . 

               						   

       						 $html_message_body                     .       						   

               

							the_html(-Part => "footer",

									 -List => $list);                   

	}

}







my $msg; 

my $plain_msg; 

my $fancy_msg;



	if($text_message_body and $html_message_body){ 	 

	# if we have text and html, we need to make a multipart/alternative message, 

		 #$msg = MIME::Lite->new(Type => 'multipart/alternative');

		 

		 $msg = MIME::Lite->new(Type => 'multipart/alternative');

		 

		 $plain_msg = $msg->attach(Type     => 'text/plain',                       

			                       Data     => $text_message_body, 

			                       Encoding => $PLAIN_TEXT_ENCODING);

		 if($q->param('html_with_images') == 1){ 

		 	$fancy_msg  = $msg->attach(Type => 'multipart/related');

		 	$fancy_msg->attach(Type => 'text/html', 

		 	                   Data => $html_message_body);

			

		 }else{ 

		 	 $msg->attach(Type => 'text/html',                       

			              Data => $html_message_body);



		 }

					

	}elsif($text_message_body){

		if(!$q->param('attachment_1')){

		   # make only a text body

		   $msg = MIME::Lite->new(Type     => 'TEXT',

								  Data     => $text_message_body,

								  Encoding => $PLAIN_TEXT_ENCODING);

		}else{ 

		 $msg = MIME::Lite->new(Type    => 'TEXT',

								Data    => $text_message_body);	

		}

	}elsif($html_message_body){ 

	# make only a html body 

		 if($q->param('html_with_images') == 1){ 

		 	$msg = MIME::Lite->new(Type    => 'multipart/alternative');

		 

		 

		   $plain_msg = $msg->attach(Type     => 'text/plain',                       

			                       Data     => '   ');

			                       

		 

		 

		 	$fancy_msg = $msg->attach(Type => 'multipart/related'); 

		 	$fancy_msg->attach(Type => 'text/html', 

		 					   Data => $html_message_body);

		 }else{ 

		 	$msg = MIME::Lite->new(Type    => 'text/html',

			                       Data    => $html_message_body);

		 }

	}else{

	# else, we probably have an email with only attachments. 

		 $msg = MIME::Lite->new(Type    =>'multipart/mixed');

	}



my $attach_report;



#if we have attachments... 

my @attachments; 



if($attachment){



my $ii; 

$attach_report = "<p><strong>Attachments:</strong><br>";





# for those attachments

for($ii = 1; $ii <= $at_num; $ii++){

 my $a_type; 

 my $this_attachment = "attachment_$ii";

 



 # get it by garment,

  my $get_attachment = $q->param($this_attachment);





if($get_attachment){



  my $attach_name = $get_attachment; 

     $attach_name  =~ s!^.*(\\|\/)!!;



	my $file_ending = $attach_name; 

       $file_ending =~ s/.*\.//;

 



# This should work, since I'm bloody shipping the program 

# with em'

require MIME::Types; 

require MIME::Type;



# Yeah, well, you never can be too sure :) 

if(($MIME::Types::VERSION >= 1.005) && ($MIME::Type::VERSION >= 1.005)){ 

	$file_ending =~ s/^\.//; 

	my $mimetypes = MIME::Types->new;

	my MIME::Type $attachment_type  = $mimetypes->mimeTypeOf($file_ending);

	$a_type = $attachment_type;

}else{ 

	# Alright, we're going to have to figure this one ourselves...

	if(exists($MIME_TYPES{'.'.lc($file_ending)})) {  

		$a_type = $MIME_TYPES{'.'.lc($file_ending)};

	}else{ 

		# Drat! all hope is lost! Abandom ship!

		$a_type = $DEFAULT_MIME_TYPE; 

	}

}







# This is called, "Last Ditch" right here. 

# If we can't figure this out, just let MIME::List 

# try to do what we just tried :) 



if(!$a_type){ 

	warn "attachment MIME Type never figured out, letting MIME::Lite handle this..."; 

	$a_type = 'AUTO';

} 

 

# two versions to upload files, 

# one is upload -> save -> attach

if($ATTACHMENT_TEMPFILE == 1){ 

	my $attachment_file = file_upload($this_attachment); 

		 if($q->param('html_with_images') == 1){ 

 			$fancy_msg->attach(Type               =>  $a_type,

						       Path               =>  $attachment_file,

						       Id                 => '<'.$attach_name.'>',

						       'Content-Location' =>  $attach_name,

						       Filename           =>  $attach_name,

		                      );

 		 }else{ 

 		 

			 $msg->attach(Type        =>  $a_type,

						  Path        =>  $attachment_file,

						  Filename    =>  $attach_name,

						  Disposition => 'attachment',

						);

      }



}else{ 



 #the other is 'magically' save.

 

	if($q->param('html_with_images') == 1){ 

		$fancy_msg->attach(

				Type     =>   $a_type,

				FH       =>   $get_attachment,

			    Id       =>   '<'.$attach_name.'>',

			    'Content-Location' => $attach_name

			    );

	}else{ 

	

		 $msg->attach(

			Type     =>   $a_type,

			FH       =>   $get_attachment,

			Filename =>   $attach_name,

		 );

	}

}







 

$attach_report .= "$attach_name<br>";

#save name fer later. 

push(@attachments, $attach_name); 





      

}

}



$attach_report .= "</p>";



}



# get the header, 

my $header_glob    = $msg -> header_as_string(); 



# get the body

my $message_string = $msg->body_as_string();



my $archive_m = $q->param('archive_message') || $list_info{archive_messages} || 0;



# pull in the MOJO::Mail::Send mod

require MOJO::Mail::Send; 

my $mh      = MOJO::Mail::Send->new(\%list_info);



# translate the glob into a hash

my %headers = $mh->return_headers($header_glob);



# make a mailing

my %mailing = (%headers,

			   To        =>  '"'. escape_quotes($list_info{list_name}) .'" <'. $list_info{mojo_email} .'>', 

			   Subject   =>  $message_subject,       		

			   'List-ID' =>  $message_id, 

			   Body      =>  $message_string,

			   ); 

  

$mailing{From} 	  	     = $q->param('From')        if($q->param('From'));

$mailing{'Errors-To'}    = $q->param('Errors_To')   if($q->param('Errors_To'));

$mailing{'X-Priority'}   =  $q->param('Priority')   ||  $list_info{priority};

$mailing{Precedence}     =  $q->param('Precedence') ||  $list_info{precedence};





$mh->bulk_start_email($q->param('Start-Email'));

$mh->bulk_start_num($q->param('Start-Num'));



# we only want one, we'll take the second one. 

if($q->param('Start-Email') and $q->param('Start-Num')){ 

	$mh->bulk_start_email(undef);

} 



$mh->bulk_test(1) if($process =~ m/test/i); 



# send away

$mh->bulk_send(%mailing); 



 

# archive, if needed



{ 

    local $| = 0; 

	if(($archive_m != 0) && ($process !~ m/test/i)){

		require MOJO::MailingList::Archives;

		my $archive = MOJO::MailingList::Archives->new(-List => \%list_info);

		

		if($html_archive_message_body){ 

				$archive->set_archive_info($message_id, $message_subject, $html_archive_message_body, 'text/html'); 

		}elsif($html_message_body){

			$archive->set_archive_info($message_id, $message_subject, $html_message_body, 'text/html'); 

		}elsif($text_message_body){

			$archive->set_archive_info($message_id, $message_subject, $text_message_body, 'text/plain'); 

		}

		

	}

}



# report a good job done.

print(admin_html_header(      

      -Title   => "List Message is Being Sent", 

      -List    => $list_info{list},

      -Root_Login => $root_login 

)); 





if($process =~ m/test/i){ 

	print $q->p("Your", $q->b($q->i("test")), "message is being sent to the list owner,($list_info{mojo_email})");

}elsif(defined($q->param('Start-Email'))){ 

	print $q->p("Your list mailing will be sent to all your list subscribers, starting at " . $q->param('Start-Email')); 

}elsif(defined($q->param('Start-Num'))){ 

	print $q->p("Your list mailing will be sent to all your list subscribers, starting at # " . $q->param('Start-Num')); 

}else{

	print $q->p("Your  message, <strong>$message_subject</strong>, is currently being sent to all your list subscribers");

}







print '<table width=100% cellpadding=1 cellspacing=0 bgcolor=#000000><tr><td>';

print '<table width=100% cellpadding=5 cellspacing=0 bgcolor=#FFFFFF><tr><td>';



print $q->p($q->b("To:      $list_info{list_name}"), $q->br(), 

        $q->b("From:    $list_info{mojo_email}"),  $q->br(),

        $q->b("Subject: $message_subject"));

        

        

        

if($text_message_body){        



	print '<hr noshade size=1 width=66% color=black align=center>';

	

	my $screen_text_message = $text_message_body;

	$screen_text_message = webify_plain_text($screen_text_message);

	$screen_text_message =~ s/\[email\]/$list_info{mojo_email}/gi;

	my $lm_pin = make_pin(-Email => $list_info{mojo_email});

	$screen_text_message =~ s/\[pin\]/$lm_pin/gi;

	

	

	print $q->p($q->b('Text Message:'), $q->br(),

			  $screen_text_message);

}		  



if($html_message_body){



	print '<hr noshade size=1 width=66% color=black align=center>';

	my $screen_html_message = $html_message_body;

	$screen_html_message    =~ s/\[email\]/$list_info{mojo_email}/gi;

	my $html_lm_pin         = make_pin(-Email => $list_info{mojo_email});

	$screen_html_message    =~ s/\[pin\]/$html_lm_pin/gi;

	print $q->p($q->b('HTML Message:'), $q->br(), $screen_html_message); 



}





print $attach_report if(defined($attach_report));





print '</td></tr></table>';

print '</td></tr></table>';		  

 

print $q->p($q->i('This message has been', $q->a({-href=>"$S_MOJO_URL?flavor=view_archive&id=$message_id"}, 'archived'))) 

	if(($archive_m != 0) && ($process !~ m/test/i));



print(admin_html_footer(-List => $list));





		if($ATTACHMENT_TEMPFILE == 1){ 

			foreach(@attachments){ 

			# delete attachment files

			unlink("$FILES/$_");

			}

		}

	}

}











sub list_invite { 



my $root_login = check_list_security(-Admin_List      => $admin_list, 

                                     -Admin_Password  => $admin_password, 

                                     -IP_Address      => $ENV{REMOTE_ADDR},

                                     -Function        => 'list_invite');

$list = $admin_list; 

my %list_info =  open_database(-List => $list); 



my $lh = MOJO::MailingList::Subscribers->new(-List => $list, -Path => $FILES); 



unless($process){ 

	# unless we have something to do, give them the  first screen:

	print(admin_html_header(-Title   => "Invitations", 

					        -List    => $list_info{list}, 

					        -Root_Login => $root_login));

	print $q->p("Send an invitation email by pasting the addresses of people

			you want to invite to your list,  and then writing an invitation message. 

			Your invitation list will be cleaned of duplicate addresses, 

			people who are already subscribed to your list, invalid e-mail addresses 

			and any black listed addresses.");  

	

	print $q->p($q->b("Your Invitation List:"), $q->br(), 

		  $q->textarea(-name  => 'new_emails',

				   -cols  => 50, 

				   -rows  => 5)),

						

		  $q->hidden('flavor', 'list_invite');

	print '<hr noshade size=1 width=66% color=black align=center>'; 

	print $q->p("You can send the invitation message in plain text, HTML, or both. 

			Type in your message in the appropriate text box, leaving either of them 

			blank if no mailing of that format is desired");  



  

  print $q->p($q->b("Subject:"), $q->br(),

		$q->textfield(-name => 'message_subject',   

				  -size => 50, 

				  -value => $list_info{invite_message_subject})); 

  

  

	#Plain Text

	print $q->p({-align=>'center'}, $q->b("Text Message"), $q->br(),

		   $q->textarea(-name  => 'text_message_body',

					-value => $list_info{invite_message_text},

					-cols  => $cols,

					-rows  => $rows,

					-wrap  => $wrap,

					-style => $text_area_style)); 

			

	# HTML     

	print $q->p({-align=>'center'}, $q->b("HTML Message"), $q->br(),

		   $q->textarea(-name  => 'html_message_body',

					-value => $list_info{invite_message_html},

					-cols  => $cols,

					-rows  => $rows,

					-wrap  => $wrap,

					 -style => $text_area_style));



print $q->p(

            $q->checkbox(-name => 'save_invite_messages', 

                         -value => 1,

                         -label => ''),

            $q->b('Save these messages and the subject for future invitation messages'));  





print <<EOF

<table border=0>

 <tr>

  <td>

   <input type="submit" style='$STYLE{yellow_submit}'  name=process value="Send Test Message To Owner">  

  </td>

  <td> 

   <input type="submit" style='$STYLE{green_submit}'  name=process value="Send Invite Message"> 

  </td>

 </tr>

</table> 

EOF

;





print(admin_html_footer(-List => $list));

exit;









}else{ 



#######################################################################

#

#

#  The code below is very similar to the 'add_email()' function, please note. 

#  Later on, I may take the below code and create a function from it. 

#

#######################################################################





# q: what exactly are we doing here? 

# a: we're filtering out the emails given to the script

#    in various steps







my %seen;



# get the emails

my $new_emails = $q -> param("new_emails"); 



# split them into individual entities

my @new_addresses = split(/\s+|,|;|\n+/, $new_emails);

my @good_emails = (); 

my @bad_emails = (); 

my $invalid_email;

foreach my $check_this_address(@new_addresses) { 

   

# see they're valid    

my $pass_fail_address = check_for_valid_email($check_this_address); 

 

if ($pass_fail_address >=1){

    

      # save em if tey aint

      push(@bad_emails, $check_this_address);

      }else{    

   

      # save em if they are valid

   $check_this_address = lc_email($check_this_address); 

   push(@good_emails, $check_this_address);

   }

  }

  

# this filters through the emails and takes out al duplicates  

%seen = (); 

my @unique_good_emails = grep { ! $seen{$_}++} @good_emails; 

%seen = (); 

my @unique_bad_emails = grep { ! $seen{$_}++} @bad_emails; 



@unique_good_emails = sort(@unique_good_emails); 

@unique_bad_emails =sort(@unique_bad_emails); 





# this filters out emails addresses, taken them out of our list if they're already there



# figure out what unique emails we have from the new list when compared to the old list

my ($unique_ref, $not_unique_ref) = $lh->unique_and_duplicate(-New_List  => \@unique_good_emails, 

														     -List      => $list);







#initialize 

my @black_list; 

my $found_black_list_ref; 

my $clean_list_ref; 

my $black_listed_ref; 

my $black_list_ref;



if($list_info{black_list} eq "1"){ 

	#open the black list  

	$black_list_ref = $lh->open_email_list(-List => $list, -Type => "black_list", -As_Ref=>1);

	# now, from that new list of clean emails, see which ones are black listed 

	($found_black_list_ref) = $lh->get_black_list_match($black_list_ref, $unique_ref);

	#now, tell me which ones still are ok. 

	($clean_list_ref, $black_listed_ref) = $lh->find_unique_elements($unique_ref, $found_black_list_ref); 							  

}else{ 

	$clean_list_ref = $unique_ref; 

}







# add these to a special 'invitation' list. we'll clear this list later. 

my $new_email_count=$lh->add_to_email_list(-Email_Ref => $clean_list_ref,

                                      -List      => $list_info{list},

                                      -Type      => 'invitelist',

                                      -Mode      => 'writeover');

                                     

                                     



#####################################################################

# SUBJECT #

###########



# get the message subject

my $message_subject = $q->param('message_subject');



#####################################################################

# TEXT #

########



# get the text message 

my $text_message_body    = $q -> param('text_message_body') || undef; 

 

# if text version was passed,  

 	if($text_message_body){

		# get rid of weird line breaks caused by textareas

		$text_message_body    =~ s/\r\n/\n/g;

    	# interpolate [tags] to $tags 

       $text_message_body = interpolate_string(-String => $text_message_body, -List_Db_Ref => \%list_info);    							                   							               							               

   }

   

   

#####################################################################

# HTML #

########

   

# get the HTML message (if any)   

my $html_message_body     = $q -> param('html_message_body') || undef; 



	if($html_message_body){

		# get rid of weird line breaks

		$html_message_body =~ s/\r\n/\n/g;

     # interpolate [pusedo tags]  

       $html_message_body = interpolate_string(-String => $html_message_body,-List_Db_Ref => \%list_info);

    }

	

	



my $s_link = subscribe_link(-list   => $list,

							-email  => '[email]', 

							-pin    => '[pin]');



my $us_link = unsubscribe_link(-list   => $list,

							   -email  => '[email]', 

						 	   -pin    => '[pin]');

							   

							   

# make unsub links

my $html_subscribe_link =    "<a href=\"$s_link\">$s_link</a>";

my $html_unsubscribe_link =  "<a href=\"$us_link\">$us_link</a>";





# make sub links

my $text_unsubscribe_link =  $s_link;

my $text_subscribe_link   =  $us_link;





	if(defined($text_message_body) ne ""){ 

      # interpolate the sub and unsub links

		$text_message_body =~ s/\[list_unsubscribe_link\]/$text_unsubscribe_link/g; 

	    $text_message_body =~ s/\[list_subscribe_link\]/$text_subscribe_link/g; 

	}

	

	if(defined($html_message_body) ne ""){ 

		# interpolate the sub and unsub links

	    $html_message_body =~ s/\[list_unsubscribe_link\]/$html_unsubscribe_link/g; 

	    $html_message_body =~ s/\[list_subscribe_link\]/$html_subscribe_link/g; 

	}

	

require MIME::Lite; 

MIME::Lite->quiet(1) if $MIME_HUSH == 1;       ### I know what I'm doing

$MIME::Lite::PARANOID = $MIME_PARANOID;

my $msg; 

if($text_message_body and $html_message_body){ 	 

	# if we have text and html, we need to make a multipart/alternative message, 

	 $msg = MIME::Lite->new(Type    =>  'multipart/alternative');  

     $msg -> attach(Type => 'TEXT', Data => $text_message_body);

     $msg -> attach(Type => 'text/html', Data => $html_message_body);  

}elsif($html_message_body){

	# make only a text body                       

	 $msg = MIME::Lite->new(Type    => 'text/html', Data    => $html_message_body);

}else{

	$msg = MIME::Lite->new(Type    => 'TEXT', Data    => $text_message_body);	                          	 

}





# get the header, 

my $header_glob    = $msg->header_as_string(); 

# get the body

my $message_string = $msg->body_as_string();



require MOJO::Mail::Send; 

my $mh = MOJO::Mail::Send->new(\%list_info); 

# translate the glob into a hash

my %headers = $mh        -> return_headers($header_glob);

# make a mailing

my %mailing = ( 

     %headers,  

     To                    =>  '"'. escape_quotes($list_info{list_name}) .'" <'. $list_info{mojo_email} .'>', 

     From                  =>    $list_info{mojo_email}, 

     Subject               =>    $message_subject, 

     Body                  =>    $message_string); 

   

   

# just testing? 

$mh->list_type('invitelist');

$mh->bulk_test(1) if($process =~ m/test/i); 

$mh->bulk_send(%mailing);



print(admin_html_header(-Title   => "Invitations Sent", 

                        -List    => $list_info{list}, 

                        -Root_Login => $root_login));



$new_email_count = int($new_email_count);





if($process =~ m/test/i){ 

	print $q->p("Your", $q->b($q->i("test")), " invitation message is being sent to the list owner,

	        ($list_info{mojo_email})");

}else{

    

	print $q->p("$new_email_count invitation messages are now being sent. The list owner will also get a copy of this invitation message.");

}



print '<table width=100% cellpadding=1 cellspacing=0 bgcolor=#000000><tr><td>';

print '<table width=100% cellpadding=5 cellspacing=0 bgcolor=#FFFFFF><tr><td>';



print $q->p($q->b("To:      Invite List"), $q->br(), 

        $q->b("From:    $list_info{mojo_email}"),  $q->br(),

        $q->b("Subject: $message_subject"));

               

if($text_message_body){        

	print '<hr noshade size=1 width=66% color=black align=center>';

	my $screen_text_message = $text_message_body;

	$screen_text_message = webify_plain_text($screen_text_message);

	$screen_text_message =~ s/\[email\]/$list_info{mojo_email}/gi;

	my $lm_pin = make_pin(-Email => $list_info{mojo_email});

	$screen_text_message =~ s/\[pin\]/$lm_pin/gi;



	print $q->p($q->b('Text Message:'), $q->br(),$screen_text_message);

}		  



if($html_message_body){



	print '<hr noshade size=1 width=66% color=black align=center>';

	my $screen_html_message = $html_message_body;

	$screen_html_message =~ s/\[email\]/$list_info{mojo_email}/gi;

	my $html_lm_pin = make_pin(-Email => $list_info{mojo_email});

	$screen_html_message =~ s/\[pin\]/$html_lm_pin/gi;

    

    print $q->p($q->b('HTML Message:'), $q->br(),

			  $screen_html_message); 

}



print '</td></tr></table>';

print '</td></tr></table>';		  

print(admin_html_footer(-List => $list));



	if($q->param('save_invite_messages') == 1){ 

		my $p_text_message_body = $q->param('text_message_body'); 

		   $p_text_message_body =~ s/\r\n/\n/g;

		my $p_html_message_body = $q->param('html_message_body'); 

		   $p_html_message_body =~ s/\r\n/\n/g;

		   

		require MOJO::MailingList::Settings; 

		my $ls = MOJO::MailingList::Settings->new(-List => $list); 

		   $ls->save({

					invite_message_text     => $p_text_message_body,

					invite_message_html    => $p_html_message_body,

					invite_message_subject => $q->param('message_subject'),

					});

	}



}

}









sub send_url_email { 



	my $root_login = check_list_security(-Admin_List => $admin_list, 

										 -Admin_Password  => $admin_password, 

										 -IP_Address      => $ENV{REMOTE_ADDR},

										 -Function        => 'send_url_email');

	

	$list = $admin_list; 

	my %list_info =  open_database(-List => $list); 

	

	if(!$process){ 

		print(admin_html_header(      

			  -Title   => "Send A Webpage", 

			  -List    => $list_info{list},

			  -Root_Login => $root_login));

		eval { require MIME::Lite::HTML};

		if($@){ 

			print $q->p($q->b($q->i("Sorry, this feature is not available on this server. Ask your <a href=mailto:$ENV{SERVER_ADMIN}>server administrator</a> to install the 'lwp Perl library"))); 

		}else{ 

			print $q->p('Send a web page to your subscribers. Enter the complete URL (including the http://) 

			        of the webpage you want to send out. It\'s well advised that you send a test message before 

			        committed on a real list sending.'),

				  

				  $q->p($q->b('Message Subject:'), $q->br(), 

				  $q->textfield(-name  =>'message_subject',

							-value =>"$list_info{list_name} message",

							 -size  => 49)),		 



				  $q->p($q->b('Web Page Address (URL):'), $q->br(),

				  $q->textfield(-name=>'url', size=>'65', -value=>'http://')), 

		

		

		$q->table({-cellpadding => 5}, 

			$q->Tr($q->td({-valign => 'top'},  [

				    ($q->p($q->b('Images at this location should:'))),

		            ($q->p( 

		            

		            	$q->radio_group(

		                          -name  => 'url_options', 

		                          '-values' => ['extern'], 

		                          -labels => {extern => ''}, 

		                          -default => 'extern',

		                         ), 

		                         'have their URLs  changed to absolute',  $q->br(),

		           		$q->radio_group(

		                          -name  => 'url_options', 

		                          '-values' => ['location'], 

		                          -labels => {location => ''},

		                         -default => '-',

		                         ),

		                         'be embeded in the message itself, using the \'Content-Location\' header', $q->br(),

		                                    

			           	$q->radio_group(

		                          -name  => 'url_options', 

		                          '-values' => ['cid'], 

		                          -labels => {cid => ''},

		                          -default => '-',

		                         ), 

		                         'be embeded in the message itself, using the \'Content-ID\' header', 

		                         	         

					)),

				])

			),

		), 

					

			

		$q->table({-cellpadding => 5, -align => 'center', -style => 'border: 1px solid black'}, 

			$q->Tr($q->td([($q->p($q->b('Restricted URL Information'))), ($q->p($q->i('(optional)')))	])), 

			$q->Tr($q->td([

				($q->p({align=> 'right'}, $q->b('username:')), ($q->p($q->textfield(-name => 'url_username')))), 

				])

			), 

			$q->Tr($q->td([

				($q->p({align=> 'right'}, $q->b('password:')), ($q->p($q->password_field(-name => 'url_password')))), 

				])

			), 

		),

		

		$q->p($q->b('Plain Text Version (optional)'), $q->br(), 

		     $q->textarea(-name  => 'text_message_body',

      		         -cols  => $cols, 

      		         -rows  => $rows, 

      		         -wrap  => $wrap,

      		         -style => $text_area_style,

      		         -value => ' ')

      	),

      		         

		

		

		

				  

				  $q->hidden('flavor', 'send_url_email'), 

				  $q->hr();

		print <<EOF

		<table align=right border=0>

		 <tr>

		  <td>

		   <input type="submit" style='$STYLE{yellow_submit}'  name=process value="Send Test Message To Owner">  

		  </td>

		  <td> 

		   <input type="submit" style='$STYLE{green_submit}'  name=process value="Send List Message"> 

		  </td>

		 </tr>

		</table> 

EOF

; 

		print(admin_html_footer(-List => $list));

		}

	}else{ 

		eval { require MIME::Lite::HTML };

		if(!@$){ 

			my $url_options   =  $q->param('url_options') || undef; 

			

			my $login_details; 

			if(defined($q->param('url_username')) && defined($q->param('url_password'))){ 

				$login_details =  $q->param('url_username') . ':' . $q->param('url_password')

			}

			 

			my $mailHTML = new MIME::Lite::HTML('IncludeType' => $url_options, 

			                                    #'Debug'       => "1",

			                                    'TextCharset' => $list_info{charset_value},

			                                    'HTMLCharset' => $list_info{charset_value}, 

			                                    (($login_details) ? (LoginDetails => $login_details) :  ()),

			                                    HTMLEncoding  => 'quoted-printable',

			                                    TextEncoding  => '7bit',

			                                    ); 

			                                    

			my $t = $q->param('text_message_body') || 'This email message requires that your mail reader support HTML'; 

			                                    

			my $MIMELiteObj = $mailHTML->parse($q->param('url'), $t);

			

			my $content = $MIMELiteObj->body_as_string();

			

			

			require MIME::Lite;

			MIME::Lite->quiet(1) if $MIME_HUSH == 1;       ### I know what I'm doing

			$MIME::Lite::PARANOID = $MIME_PARANOID;

			my $base_url = $q->param('url');

			

			#if($q->param('add_base_tag') eq 'yes'){$content = "<base href='$base_url'>\n$content";}

			

			my $s_link = subscribe_link(-list   => $list,

										-email  => '[email]', 

										-pin    => '[pin]');

			

			my $us_link = unsubscribe_link(-list   => $list,

										   -email  => '[email]', 

										   -pin    => '[pin]');

							   			

			my $html_subscribe_link =    "<a href=\"$s_link\">$s_link</a>";

			my $html_unsubscribe_link =  "<a href=\"$us_link\">$us_link</a>";





			my $template  = $list_info{mailing_list_message_html};

			   $template  =~ s/\[message_body\]/$content/g; 

			   $template =~ s/\[list_unsubscribe_link\]/$html_unsubscribe_link/g; 

	           $template =~ s/\[list_subscribe_link\]/$html_subscribe_link/g; 

	    	   $template = interpolate_string(-String=>$template, -List_Db_Ref=>\%list_info);



			#my $msg = MIME::Lite->new(Type => 'text/html', Data => $template); 

			#my $header_glob    = $msg->header_as_string(); 

			#my $message_string = $msg->body_as_string(); 

			

			my $header_glob = $MIMELiteObj->header_as_string();

			

			

			#make a unique id for the archive.

			my $message_id = message_id();

			

			# pull in the MOJO::Mail::Send mod

			require MOJO::Mail::Send;

			my $mh      = MOJO::Mail::Send->new(\%list_info);

			my %headers = $mh       ->return_headers($header_glob);

			my %mailing = (%headers,

			  			   To        =>  '"'. escape_quotes($list_info{list_name}) .'" <'. $list_info{mojo_email} .'>', 

			               Subject   => $q->param('message_subject'),       

			              'List-ID'  => $message_id, 

			              # Body      => $message_string,

			              Body        => $template,

			              );

			               

			 # just testing? 

			$mh->bulk_test(1) if($q->param('process') =~ m/test/i); 

			$mh->bulk_send(%mailing); 

			 

		    if(($list_info{archive_messages} ne "0") && ($q->param('process') !~ m/test/i)){ 

				require MOJO::MailingList::Archives;

				my $archive = MOJO::MailingList::Archives->new(-List => \%list_info);

				#$archive->set_archive_info($message_id, $q->param('message_subject'), $message_string, 'text/html'); 

				$archive->set_archive_info($message_id, $q->param('message_subject'), $template, 'text/html'); 

			}

			

			print(admin_html_header(-Title      => "List Message is Being Sent", 

			                        -List       => $list_info{list},

			                        -Root_Login => $root_login)); 

			

			if($process =~ m/test/i){ 

				print $q->p("Your", $q->b($q->i("test")), "message is being sent to the list owner,($list_info{mojo_email})");

			}else{

				print $q->p("Your  message is currently being sent to all your list subscribers");

			}

			print $q->p($q->i('This message has been', a({-href=>"$S_MOJO_URL?flavor=view_archive&id=$message_id"}, 'archived'))) if($list_info{archive_messages} ne "0" and $q->param('process') !~ m/test/i);

			print(admin_html_footer(-List => $list));

		}else{ 

			die "$PROGRAM_NAME $VER Error: $!\n";

		}

	}

}



sub change_info { 

    my ($errors, $flags) = @_;

	my $root_login = check_list_security(-Admin_List     => $admin_list, 

	                                     -Admin_Password => $admin_password,

	                                     -IP_Address      => $ENV{REMOTE_ADDR}, 

	                                     -Function       => 'change_info');

	

	unless (defined($process)){

		$list = $admin_list; 

		my %list_info = open_database(-List => $list); 

                              

		print(admin_html_header(-Title      => "Change List Information",

		                        -List       => $list_info{list},

		                        -Root_Login => $root_login));

		

		if(defined($errors) >= 1){ 

		my $ending = '';

		my $err_word = 'was';

			$ending = 's'      if $errors > 1; 

			$err_word = 'were' if $errors > 1; 



		print "<p style='color:red'><strong><em>$errors field$ending  on this form  

      		   $err_word filled out incorrectly and need to be fixed for all new information to be saved.

      		   </em></strong></p>";

}

		

		print $GOOD_JOB_MESSAGE if(defined($done)); 

		print $q->hidden('flavor',    'change_info'),

			  $q->hidden('list',      $list_info{list}),

			  $q->hidden('process',  'true');

	   

	   

	   print  $q->p('Your list\'s ', $q->b('short name'), 'is:', $q->b($q->i($list_info{list}))); 

	     

	     

	   print '<p class=smallred><em>You did not fill in a  list name</em></p>' 

	         if(defined($flags->{list_name}) == 1);

	   print  $q->p('What is the name of your list?', 

			  $q->br(),  

			  $q->textfield(-name=>'list_name', -value=>$list_info{list_name}, -size=>30)); 

	   

	   print '<p class=smallred><em>You need to give a valid e-mail address for the list owner</em></p>' 

	         if(defined($flags->{invalid_mojo_email}) == 1);	

	   print  $q->p('What  e-mail address corresponds to the list owner?

			  When e-mails are sent, they are sent using this address.', 

			  $q->br(),  

			  $q->textfield(-name=>'mojo_email', -value=>$list_info{mojo_email}, -size=>30)), 

			  $q->p($q->i($q->b('optional')), 'What  e-mail address corresponds to the list administrator?,

			   All e-mail errors will be sent to this address, instead of the list owner. If left,

			   blank, this job will be left to the list owner, which might be just fine for you.', 

			  $q->br(), 

			  $q->textfield(-name=>'admin_email', -value => $list_info{admin_email}, -size=>30));

			  



		print '<p class=smallred><em>You need to give your list a description</em></p>' 

			  if(defined($flags->{list_info}) == 1);

			  

		print $q->p("Description of $list_info{list_name}",

			  $q->br(),

			  $q->textarea(-name  => 'info',

					   -value => $list_info{info},

					   -cols => 33, 

					   -rows => 4, 

					   -wrap => 'VIRTUAL',)), 

			  $q->p($q->i($q->b('optional')), 'Would you like to write a small privacy policy summary?

			  Some people don\'t subscribe to lists because they fear their e-mail addresses

			  will be used for spamming purposes.',

			  $q->br(),

			  $q->textarea(-name  => 'privacy_policy',

					   -value => $list_info{private_policy},

					   -cols => 33, 

					   -rows => 4, 

					   -wrap => 'VIRTUAL',));  

			  print submit_form();  

			  print(admin_html_footer(-List => $list));

	}else{ 

		my ($list_errors, $list_flags) = check_list_setup(-fields => {list            => $list, 

													            list_name       => $list_name, 

													 			mojo_email      => $mojo_email,

													   			admin_email     => $admin_email, 

													   			private_policy  => $privacy_policy,

													   			info		    => $info}, 

													  		 	-new_list       => 'no'); 

	if ($list_errors >= 1){ 

		undef $process;

		change_info($list_errors, $list_flags);

	}else{



		$admin_email = $mojo_email if ($admin_email eq ""); 

		

		my %new_info = (mojo_email      =>   $mojo_email,

						admin_email     =>   $admin_email, 

						list            =>   $list,

						list_name       =>   $list_name, 

						info            =>   $info, 

						private_policy  =>   $privacy_policy,

						privacy_policy  =>   $privacy_policy	

						);

		

		my $status = setup_list(\%new_info);

		user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 

		print $q->redirect(-uri=>"$S_MOJO_URL?flavor=change_info&done=1"); 

		}

	}

}











sub change_password { 

# a few variables 



my $root_login = check_list_security(-Admin_List     => $admin_list, 

                                     -Admin_Password => $admin_password, 

                                     -IP_Address     => $ENV{REMOTE_ADDR},

                                     -Function       => 'change_password');



require MOJO::Security::Password; 



$list = $admin_list; 

my %list_info =  open_database(-List => $list, 

                              

                               ); 

unless(defined($process)) { 



	print(admin_html_header(-Title      => "Change List Password", 

	                        -List       => $list_info{list},

	                        -Root_Login => $root_login)); 



    print $q->p('After you have changed your password, you will need to log back into this list\'s 

    		control panel.');

    print $q->hidden('flavor', 'change_password'), 

	      $q->hidden('process', 'true'), 

	      $q->hidden('list', $list); 

	      

	     if($root_login != 1){ 


	     	print $q->p('Enter your old password:',$q->br(), 

	        $q->password_field('old_password'));

	     }

	     

	     

	      print $q->p('Enter your new password:', $q->br(), 

	         $q->password_field('new_password')),   

	      $q->p('Re-enter your new password:', $q->br(), 

	         $q->password_field('again_new_password')),     

	          

	      submit_form(-Submit=>'Change Password'), 



	(admin_html_footer(-List => $list));



}else{ 



	my $old_password           =   $q   ->    param('old_password'); 

	my $new_password           =   $q   ->    param('new_password'); 

	my $again_new_password     =   $q   ->    param('again_new_password'); 



	if($root_login != 1){ 

		#check if the old password checks out, if it doesn't, throw an error

		my $password_check = MOJO::Security::Password::check_password($list_info{password},$old_password); 

		user_error(-List => $list, -Error => "invalid_password") if ($password_check != 1); 

	}

	



	#check to see if the new password is the same when typed twice. 

	$new_password = strip($new_password);

	$again_new_password = strip($again_new_password);

	user_error(-List => $list, -Error => "pass_no_match") if ($new_password ne $again_new_password) || ($new_password eq ""); 



	my $new_encrypt_pass = MOJO::Security::Password::encrypt_passwd($new_password); 



	my %new_info = ( 

	 list       =>   $list, 

	 password   =>   $new_encrypt_pass

	);

	 



	my $status = setup_list(\%new_info);

	user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 

	print $q->redirect(-uri=>"$S_MOJO_URL?flavor=admin"); 





}

}







sub delete_list { 



my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function       => 'delete_list'

);



 



my $list = $admin_list; 



my (%list_info) =  open_database(-List => $list, 

              

                               ); 





my $password_check = MOJO::Security::Password::check_password($admin_password, $list_info{password}); 







unless (defined($process)){ 



print(admin_html_header(      

      -Title      => "Confirm Delete List", 

      -List       => $list_info{list},

      -Root_Login => $root_login 

));







print $q->p("Are you sure you want to totally delete this list?"),

      $q->p("<strong>This will delete the list  and cannot be undone.</strong>"),

      $q->hidden('flavor',  'delete_list'), 

      $q->hidden('process', 'true'); 

      

print "<input type='submit' style='$STYLE{red_submit}' value='Delete List'>";





print(admin_html_footer(-List => $list));





}else{



delete_email_list(    -List      => $list);

delete_list_info(     -List      => $list);

delete_list_archive(  -List      => $list); 

delete_list_template( -List      => $list); 





require MOJO::Logging::Usage; 

my $log = new MOJO::Logging::Usage; 

    $log->mj_log($list, 'List Removed', "remote_host:$ENV{REMOTE_HOST}, ip_address:$ENV{REMOTE_ADDR}") if $LOG{list_lives};



#print header(); 



my %default_list; 

my ($default_exists) = check_if_list_exists(-List=>$DEFAULT_LIST,);

if($DEFAULT_LIST ne "" && $default_exists >= 1){ 

%default_list = open_database(-List =>$DEFAULT_LIST); 

}







print(the_html(



-Part  => "header",

-Title => "Deletion Successful",

-List  => $DEFAULT_LIST, 

));



print $q->p("You have deleted the list.");

print $q->p("<a href=$MOJO_URL>Return to the Mojo Mail main page.</a>");



print(the_html(

-Part => "footer",

 -List => $DEFAULT_LIST,

 -Site_Name => $default_list{website_name},

-Site_URL  => $default_list{website_url}, 



));

}

}









sub list_options { 



my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'list_options'

);





#receive a few variables.. 

my $closed_list              =   $q->param("closed_list")              || 0; 

my $hide_list                =   $q->param("hide_list")                || 0;

my $get_sub_notice           =   $q->param("get_sub_notice")           || 0;  

my $get_unsub_notice         =   $q->param("get_unsub_notice")         || 0;  

my $no_confirm_email         =   $q->param("no_confirm_email")         || 0;  

my $unsub_confirm_email      =   $q->param("unsub_confirm_email")      || 0; 

my $send_unsub_success_email =   $q->param("send_unsub_success_email") || 0; 

my $mx_check                 =   $q->param("mx_check")                 || 0;  





unless(defined($process)){ 



$list = $admin_list;

my %list_info = open_database(-List => $list, 

                         

                               ); 



print(admin_html_header(      

      -Title      => "Mailing List Options", 

      -List       => $list_info{list}, 

      -Root_Login => $root_login));

 

#good job!

print $GOOD_JOB_MESSAGE if(defined($done)); 

print "<table border=0 cellspacing=0>\n"; 



print "<tr>\n<td valign=top>"; 

print "<p><input type=checkbox name=hide_list value=1 "; print"checked" if($list_info{hide_list} eq "1"); print "></p>\n"; 

print "</td><td>"; 







print "<p><strong><a href=javascript:checklink(0) class=black>Hide Your List</a></strong><br>";







print "Your list information won't be provided on the $PROGRAM_NAME <a href=$MOJO_URL target=out>main screen</a> "; 

print "or anywhere else to subscribe to.";

print " People will still be able to subscribe/unsubscribe with the proper information"; 

print "</td></tr>";



print "<tr>\n<td valign=top>"; 

print "<input type=checkbox name=closed_list value=1 "; print"checked" if($list_info{closed_list} eq "1"); print ">\n"; 

print "</td><td>"; 







print "<p><strong><a href=javascript:checklink(1) class=black>Close Your List</a></strong><br>";

print "Do not allow people to subscribe to your list, e-mails can only be added to your list. ";

print "from the administration control panel."; 

print "People can still unsubscribe at any time"; 

print "</td></tr>"; 















print "<tr>\n<td valign=top>"; 

    





print "<input type=checkbox name=get_sub_notice value=1 "; print"checked" unless($list_info{get_sub_notice} eq "0"); print ">\n"; 







print "</td><td>"; 







print "<p><strong><a href=javascript:checklink(2) class=black>Receive Subscription Notices</a></strong><br>";

print "You can be notified every time someone subscribes to your list by e-mail"; 

print "</td></tr>"; 





print "<tr>\n<td valign=top>"; 





print "<input type=checkbox name=get_unsub_notice value=1 "; print"checked" unless($list_info{get_unsub_notice} eq "0"); print ">\n"; 







print "</td><td>"; 







print "<p><strong><a href=javascript:checklink(3) class=black>Receive Unsubscription Notices</a></strong><br>";

print "You can be notified every time someone unsubscribes to your list by e-mail"; 

print "</td></tr>"; 









print "<tr>\n<td valign=top>"; 

print "<input type=checkbox name=no_confirm_email value=1 "; print"checked" unless($list_info{no_confirm_email} eq "0"); print ">\n"; 

print "</td><td>"; 









print "<p><strong><a href=javascript:checklink(4) class=black>Send Subscription Confirmation Emails</a></strong><br>";

print "Subscribers will  have to reply to a confirmation e-mail sent to the address that's"; 

print " entered into the subscripton form. If you do not send confirmation e-mails, the subscriber"; 

print " will be added to your list right after the email is checked for validity and to make sure its";

print " not already on your list</p>"; 

print "</td></tr>";



print "<tr>\n<td valign=top>"; 

print "<input type=checkbox name=unsub_confirm_email value=1 "; print"checked" if($list_info{unsub_confirm_email} eq "1"); print ">\n"; 

print "</td><td>"; 





print "<p><strong><a href=javascript:checklink(5) class=black>Send Unsubscription Confirmation Emails</a></strong><br>";

print "Unsubscribers will have to reply to an unsubscription confirmation e-mail if they try to unsubscribe from the list without their pin</p>"; 

print "</td></tr>"; 







print "<tr>\n<td valign=top>"; 

print "<input type=checkbox name=send_unsub_success_email value=1 "; print"checked" if($list_info{send_unsub_success_email} == 1); print ">\n"; 

print "</td><td>"; 





print "<p><strong><a href=javascript:checklink(6) class=black>Send Unsubscription Successful Emails</a></strong><br>";

print "After a person unsubscribes, an email will be sent to confirm the unsubscription.</p>"; 

print "</td></tr>"; 





print "<tr>\n<td valign=top>"; 

print "<input type=checkbox name=mx_check value=1 "; print"checked" if($list_info{mx_check} == "1"); print ">\n"; 

print "</td><td>"; 





print "<p><strong><a href=javascript:checklink(7) class=black>Lookup Hostnames When Validating Email Addresses.</a></strong><br />";

print "When an email address is submitted and validated, the domain of the address will be checked for its existance."; 

print "</td></tr>"; 













print "</table>"; 





print "<input type=hidden name=process value=\"true\">";

print "<input type=hidden name=flavor value=\"list_options\">";







print submit_form(-Submit=>'Save List Options'); 



print "<p>\&nbsp;</p><p align=right><strong><a href=http://mojo.skazat.com/support/2.3/subscription_process.html target=out>[?] The Subscription Process</a></strong></p>" if $SHOW_HELP_LINKS == 1;







print(admin_html_footer(-List => $list));

}else{ 



$list = $admin_list;

my %list_info =  open_database(-List => $list); 

my %new_info = ( 

 list                =>   $list_info{list},

 hide_list           =>   $hide_list,

 closed_list         =>   $closed_list,

 get_sub_notice      =>   $get_sub_notice, 

 get_unsub_notice    =>   $get_unsub_notice, 

 no_confirm_email    =>   $no_confirm_email,

 unsub_confirm_email =>   $unsub_confirm_email,

 

 send_unsub_success_email => $send_unsub_success_email,

 

 mx_check            =>   $mx_check,

);



my $status = setup_list(\%new_info);

user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 





print $q->redirect(-uri=>"$S_MOJO_URL?flavor=list_options&done=1"); 





}





}









sub sending_options { 

my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'sending_options'

);





$list = $admin_list;

my %list_info = open_database(-List => $list, ); 

  

  

  

#a few variables

my $bulk_send_amount          = $q->param("bulk_send_amount"); 

my $bulk_send_seconds         = $q->param("bulk_send_seconds"); 

my $bulk_send_seconds_label   = $q->param("bulk_send_seconds_label"); 

my $precedence                = $q->param('precedence');

my $charset                   = $q->param('charset');

my $content_type              = $q->param('content_type');

    







my $enable_bulk_batching      = $q->param("enable_bulk_batching")      || 0;  

my $get_batch_notification    = $q->param("get_batch_notification")    || 0;  

my $get_finished_notification = $q->param("get_finished_notification") || 0;  

my $send_via_smtp             = $q->param("send_via_smtp")             || 0;



unless(defined($process)){ 

	my @message_amount = (1..25, 30, 40, 50, 60, 70, 80, 90, 100, 150, 200, 250, 300, 350, 400, 450, 500, 1000, 1500, 2000, 4000, 6000, 8000, 10000); 

	unshift(@message_amount, $list_info{bulk_send_amount}) if exists($list_info{bulk_send_amount}); 

	my @message_wait = (1..60); 

	unshift(@message_wait, $list_info{bulk_send_seconds}) if exists($list_info{bulk_send_seconds}); 





my @message_label = (1, 60, 3600); 

my %label_label = (1     => 'seconds',

				   60    => 'minutes', 

				   3600  => 'hours', 

				   86400 => 'days'); 



unshift(@message_label, $list_info{bulk_send_seconds_label}) if exists($list_info{bulk_send_seconds_label}); 



                             



print(admin_html_header(      

      -Title      => "Sending Options", 

      -List       => $list_info{list}, 

      -Root_Login => $root_login));



#good job!

print $GOOD_JOB_MESSAGE if(defined($done)); 



print $q->p("$PROGRAM_NAME is able to send its bulk mailings in \&quot;batches\&quot;, allowing you, 

         to send to a fairly large list without browser timeouts, or your mail program,

         complaining about too many messages being sent at once."),

         

         

      $q->p("$PROGRAM_NAME will send as many individual messages as you specify.,

         After that mailing is over it will wait the amount of time you set before it sends out its next batch.,

         This pattern will repeat until all subscribers receive a copy of your message.");

         

         

 

print "<table>"; 







print "<tr><td valign=top>"; 

print "<input type=checkbox name=send_via_smtp value=1 "; print"checked" if($list_info{send_via_smtp} eq "1"); print ">\n"; 

print "</td><td valign=top>"; 

print "<p><strong><a href=javascript:checklink(0) class=black>Send E-mail Using SMTP</a></strong> send all e-mail from $PROGRAM_NAME using a straight SMTP connection "; 

print " instead of through a mail program such as sendmail.</p>";

print "<p class=smallred><em>Warning! No SMTP Server has been set!</em></p>" if((!$list_info{smtp_server}) && ($list_info{send_via_smtp} eq "1"));

print "<p align=right><a href=$S_MOJO_URL?f=smtp_options><strong>SMTP settings...</strong></a></p>"; 



print "</td></tr>";









print "<tr><td valign=top>"; 



print "<input type=checkbox name=enable_bulk_batching value=1 "; print"checked" if($list_info{enable_bulk_batching} eq "1"); print ">\n"; 









print "</td><td valign=top>"; 

print "<p><strong><a href=javascript:checklink(1) class=black>Enable Batch Sending</a></strong> You must enable batch sending for batch sending to start working."; 

print "Lists under 100 people may not need it at all.</p>"; 

print "</td></tr></table>"; 



print "<hr noshade size=1 width=66% align=center>";



 

print "<table align=center>"; 





print $q->Tr($q->td([$q->p("Send"), $q->p($q->popup_menu( 

                                  -name => "bulk_send_amount", 

                                   -value => [@message_amount],  

                                                )), $q->p("Messages")]));

                                             

 print $q->Tr($q->td([$q->p("Every"), $q->p($q->popup_menu( 

                                  -name => "bulk_send_seconds", 

                                  -value => [@message_wait],  

                                                 )), $q->p($q->popup_menu( 

                                                      -name => "bulk_send_seconds_label", 

                                                      -value => [@message_label],

                                                      -labels => \%label_label, 

                                                       ))]));                                            

                                             

                                            

print "</table>"; 

                     

print "<hr noshade size=1 width=66% align=center>";

                     

print "<table>"; 

print "<tr><td valign=top>"; 

print "<input type=checkbox name=get_batch_notification value=1 "; print"checked" unless($list_info{get_batch_notification} eq "0"); print ">\n"; 









print "</td><td valign=top>"; 

print "<p><strong><a href=javascript:checklink(5) class=black>Receive Batch Confirmations</a></strong> Receive notices by e-mail every time"; 

print " a batch is complete. You'll be told what batch $PROGRAM_NAME is on and "; 

print " how many people have received your message so far.</p>"; 

print "</td></tr></table>"; 



                     

print "<table>"; 

print "<tr><td valign=top>"; 







print "<input type=checkbox name=get_finished_notification value=1 "; print"checked" unless($list_info{get_finished_notification} eq "0"); print ">\n"; 







print "</td><td valign=top>"; 

print "<p><strong><a href=javascript:checklink(6) class=black>Receive Finishing Message</a></strong> Receive notice by e-mail when $PROGRAM_NAME has sent all your list messages (when batching is enabled only).</p>"; 

print "</td></tr></table>";                                            

 

 



print "<p align=right><strong><a href=$S_MOJO_URL?flavor=adv_sending_options>Advanced ...</a></strong></p>\n"; 







 

print "<input type=hidden name=process value=\"true\">";

print "<input type=hidden name=flavor value=\"sending_options\">";





print submit_form(-Submit=>'Save Sending Options'); 

 





print "<p>\&nbsp;</p><p align=right><strong><a href=http://mojo.skazat.com/support/2.3/batch_sending.html target=out>[?] Send Mailing List Messages in Batches</a></strong></p>" if $SHOW_HELP_LINKS == 1;



print(admin_html_footer(-List => $list));

}else{ 



my $bulk_sleep_amount = $bulk_send_seconds * $bulk_send_seconds_label; 





$list = $admin_list;

my %list_info =  open_database(-List => $list); 

my %new_info = (



list                      =>   $list_info{list},

bulk_send_amount          =>   $bulk_send_amount,  

bulk_send_seconds         =>   $bulk_send_seconds,    

bulk_send_seconds_label   =>   $bulk_send_seconds_label,

enable_bulk_batching      =>   $enable_bulk_batching,  

bulk_sleep_amount         =>   $bulk_sleep_amount,

get_batch_notification    =>   $get_batch_notification,

get_finished_notification =>   $get_finished_notification,

send_via_smtp             =>   $send_via_smtp,



);





my $status = setup_list(\%new_info);

user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 



print $q->redirect(-uri=>"$S_MOJO_URL?flavor=sending_options&done=1"); 

}

}





sub adv_sending_options { 

my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'sending_options'

);





$list = $admin_list;

my %list_info = open_database(-List => $list, ); 

  

  

  

#a few variables 

my $precedence                =   $q->param('precedence');

my $priority                  =   $q->param('priority');

my $charset                   =   $q->param('charset');

my $content_type              =   $q->param('content_type'); 

my $strip_message_headers     =   $q->param('strip_message_headers')    || 0;

my $add_sendmail_f_flag		  =   $q->param('add_sendmail_f_flag')      || 0;

my $print_return_path_header  =   $q->param('print_return_path_header') || 0;

my $print_list_headers		  =   $q->param('print_list_headers')       || 0;





unless(defined($process)){ 

                             



print(admin_html_header(      

      -Title      => "Advanced Sending Options", 

      -List       => $list_info{list}, 

      -Root_Login => $root_login));



print $GOOD_JOB_MESSAGE if(defined($done)); 







unshift(@CHARSETS,      $list_info{charset});





print $q->table({-cellpadding => 5},





                                                      

      $q->Tr($q->td([$q->p($q->b('Default Precedence of Bulk Mailings')),  $q->p($q->popup_menu( 

                                                     -name =>  "precedence", 

                                                     -value => [@PRECEDENCES],

                                                     -default =>  $list_info{precedence} 

                                                      ))])), 

                                                      

      $q->Tr($q->td([$q->p($q->b('Default Priority of Bulk Mailings')),  $q->p($q->popup_menu( 

                                                     -name =>  "priority", 

                                                     -value => [keys %PRIORITIES],

                                                     -labels => \%PRIORITIES,

                                                     -default =>  $list_info{priority} 

                                                      ))])),      

                                                                                                       

      $q->Tr($q->td([$q->p($q->b('Default Character Set of Mailings')), $q->p($q->popup_menu( 

                                                     -name   => 'charset', 

                                                     -value  => [@CHARSETS], 

                                                  

                                                     ))])), 





      $q->Tr($q->td([$q->p($q->b('Default Content Type of Mailings')), $q->p($q->popup_menu( 

                                                     -name   => 'content_type', 

                                                     -value  => [@CONTENT_TYPES], 

                                                     -default =>  $list_info{content_type} 

                                                     ))])),

      ); 

                                

                                                                                   



print "<table cellpadding=5>";





print "<tr><td valign=top><p>";

print "<input type=checkbox name=strip_message_headers value=1 "; print"checked" if($list_info{strip_message_headers} eq "1"); print ">\n"; 

print "</p></td><td><p>"; 

print "<strong><a href=javascript:checklink(4) class=black>Send all e-mails with only the address in the 'To' and 'From' message headers</a></strong><br>"; 

print "Some SMTP servers get confused when 'To:' and 'From:' mail headers contain both the address and name<br> (example: &quot;John Smith&quot; &lt;johm\@smith.com&gt;)<br>"; 

print "All messages sent will only contain the actual address<br>(example: john\@smith.com)</p>"; 

print '</td></tr>'; 







print "<tr><td valign=top><p>";

print "<input type=checkbox name=print_list_headers value=1 "; print"checked" if($list_info{print_list_headers} eq "1"); print ">\n"; 

print "</p></td><td><p>"; 

print "<strong><a href=javascript:checklink(5) class=black>Print list-specific headers in all list emails</a></strong><br>"; 

print "List-specific headers store information on how to subscribe and unsubscribe from a list, as well as other list specific information, in the header of the email."; 

print " <strong>It is highly advised to take advantage of these headers.</strong></p>"; 

print '</td></tr>'; 











print "<tr><td valign=top><p>";

print "<input type=checkbox name=add_sendmail_f_flag value=1 "; print"checked" if($list_info{add_sendmail_f_flag} eq "1"); print ">\n"; 

print "</p></td><td><p>"; 

print qq{<strong><a href=javascript:checklink(6) class=black>Add the 

		 Sendmail '-f'  flag when sending messages, using <em>$MAILPROG</em></a>

		 </strong><br> Sometimes the Errors-To header, useful when dealing with bounced emails,

	    will not get set correctly. To fix this, messages will be sent with the 

	    '-f' flag and the admin email:<br><br>



		$MAIL_SETTINGS -f $list_info{admin_email}



		</p>}; 

		

		

print "<p><strong>Warning!</strong> Your effective uid is not the same as your real uid; 

       using this option may break mail sending.</p>" if  $< != $>;		

 

print '</td></tr>'; 







print "<tr><td valign=top><p>";

print "<input type=checkbox name=print_return_path_header value=1 "; print"checked" if($list_info{print_return_path_header} eq "1"); print ">\n"; 

print "</p></td><td><p>"; 

print qq{<strong><a href=javascript:checklink(7) class=black>Print the 'Return-Path header in all list emails</a>

		 </strong><br>The 'Return-Path' header works much like setting the '-f' flag. Alternatives to Sendmail (like Qmail) 

		 allow you to use the Return-Path header.

		</p>}; 



print '</td></tr>'; 







                                                     

print "</table>"; 

print $q->hidden('process', 'true'); 

print $q->hidden('list', $list);

print $q->hidden('flavor', 'adv_sending_options');

print submit_form();  





print $q->p({-align=>'right'}, $q->b($q->a({-href=>"$S_MOJO_URL?flavor=sending_options"},'Basic...')));



print(admin_html_footer(-List => $list));

}else{ 







$list = $admin_list;

my %list_info =  open_database(-List => $list,); 

my %new_info = (

list                       =>   $list,

precedence                 =>   $precedence,

priority                   =>   $priority,

charset                    =>   $charset, 

content_type               =>   $content_type,

strip_message_headers      =>   $strip_message_headers,

add_sendmail_f_flag        =>   $add_sendmail_f_flag,

print_list_headers         =>   $print_list_headers,

print_return_path_header   =>   $print_return_path_header,

);



my $status = setup_list(\%new_info);

user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 

print $q->redirect(-uri=>"$S_MOJO_URL?flavor=adv_sending_options&done=1"); 







}







}









sub smtp_options { 

	my $root_login = check_list_security( 

	-Admin_List      => $admin_list, 

	-Admin_Password  => $admin_password,

	-IP_Address      => $ENV{REMOTE_ADDR},

	-Function        => 'smtp_options');

	

	require MOJO::Security::Password;

	

	$list = $admin_list;

	my %list_info = open_database(-List => $list); 

	

	if(!$process){

		print(admin_html_header(      

			  -Title      => "SMTP Sending Options", 

			  -List       => $list_info{list}, 

			  -Root_Login => $root_login));

		print $GOOD_JOB_MESSAGE if(defined($done)); 

		

		print '<table cellpadding="5">'; 

		print  $q->Tr($q->td([($q->p($q->b('SMTP Server:'))),       ($q->p($q->textfield(-name=>'smtp_server',        -value=>$list_info{smtp_server},        -size=>30 )))]));

		print  $q->Tr($q->td([($q->p($q->b('Port:'))),              ($q->p($q->textfield(-name=>'smtp_port',          -value=>$list_info{smtp_port},          -size=>5  )))]));

		print  $q->Tr($q->td([($q->p($q->b('Connection Tries:'))),  ($q->p($q->textfield(-name=>'smtp_connect_tries', -value=>$list_info{smtp_connect_tries}, -size=>2  )))])); 

		print '</table>';

				

		print $q->hr();

		

		print "<table>"; 

		print "<tr><td valign=top>"; 

		print "<input type=checkbox name=use_pop_before_smtp value=1 "; print"checked" unless($list_info{use_pop_before_smtp} eq "0"); print ">\n"; 

		print "</td><td valign=top>"; 

		print "<p><strong><a href=javascript:checklink(1) class=black>Use POP-before-SMTP Authentication</a></strong>"; 

		print " A connection to your Pop Server will be created before any mail will be sent."; 

		print "This can authenticate your outgoing mail requests, if your server uses POP-before-SMTP</p>"; 

		print "</td></tr></table>"; 

		

		print $q->p("POP-before-SMTP Authentication will require your username and password for your <strong>POP3</strong> Account:");

		print  $q->p($q->b('POP3 server:'), 

			   $q->br(),  

			   $q->textfield(-name=>'pop3_server', -value=>$list_info{pop3_server}, -size=>30)); 

					  

		print  $q->p($q->b('POP3 username:'), 

			   $q->br(),  

			   $q->textfield(-name=>'pop3_username', -value=>$list_info{pop3_username}, -size=>30)); 

		print  $q->p($q->b('POP3 password:'), 

			   $q->br(),  

			   $q->password_field(-name=>'pop3_password', -value=>MOJO::Security::Password::cipher_decrypt($list_info{cipher_key}, $list_info{pop3_password}), -size=>30)); 

			  

		print $q->hidden('process', 'true'); 

		print $q->hidden('list', $list);

		print $q->hidden('flavor', 'smtp_options');

		

		print $q->button(

					-value   => 'Test POP-before-SMTP settings',

					-style   => $STYLE{yellow_submit},

					-onClick => 'javascript:testPOPBeforeSMTP();',

					); 

		

		print '<hr />';

		

		print submit_form();  

		print(admin_html_footer(-List => $list));

	}else{ 



		my $use_pop_before_smtp = $q->param('use_pop_before_smtp') || 0;

		my $smtp_server  = $q->param('smtp_server');

		my $pop3_server  = $q->param('pop3_server');

		my $pop3_username = $q->param('pop3_username');

		my $pop3_password  = $q->param('pop3_password');

		my %ni = (

			list                =>   $list_info{list},

			use_pop_before_smtp => $use_pop_before_smtp,

			smtp_server         => $smtp_server,

			pop3_server         => $pop3_server,	

			pop3_username       => $pop3_username, 

			pop3_password       => MOJO::Security::Password::cipher_encrypt($list_info{cipher_key}, $pop3_password), 	

			smtp_port           => $q->param('smtp_port'),

			smtp_connect_tries  => $q->param('smtp_connect_tries'),

		); 

		

		my $status = setup_list(\%ni);

		user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 

		print $q->redirect(-uri=>"$S_MOJO_URL?flavor=smtp_options&done=1"); 

		

	}

}





sub checkpop { 



my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'mojo_send_options');



$list = $admin_list;



require MOJO::Security::Password;



my $user   = $q->param('user'); 

my $pass   = $q->param('pass'); 

my $server = $q->param('server'); 



my %list_info = open_database(-List => $list); 



require MOJO::Mail::Send; 

my $mh         = MOJO::Mail::Send->new(\%list_info);

my $pop_status = $mh->_pop_before_smtp(-pop3_server    => $server, 

									   -pop3_username  => $user, 

									   -pop3_password  => $pass);



print $q->header();

	if(defined($pop_status)){ 

		

		print $q->h2("Success!"); 

		

		print $q->p($q->b("POP-before-SMTP authentication was successful")); 

		print $q->p($q->b("Make sure to 'Save Changes' to have your edits take affect.")); 

				

	}else{ 

		print $q->h2("Warning!"); 

		print $q->p($q->b('POP-before-SMTP authentication was ',$q->i('unsuccessful'),)); 	

	}

}





sub mojo_send_options { 



my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'mojo_send_options');







$list = $admin_list;

my %list_info = open_database(-List => $list); 

#a few variables 

my $group_list                   = $q->param('group_list')                   || 0;  

my $allow_group_interpolation    = $q->param('allow_group_interpolation')    || 0;

my $only_allow_group_plain_text  = $q->param('only_allow_group_plain_text')  || 0;  

my $append_list_name_to_subject  = $q->param('append_list_name_to_subject')  || 0;

my $mail_group_message_to_poster = $q->param('mail_group_message_to_poster') || 0;

my $add_reply_to                 = $q->param('add_reply_to')                 || 0;



unless(defined($process)){ 

                             



print(admin_html_header(      

      -Title      => "Group Options", 

      -List       => $list_info{list}, 

      -Root_Login => $root_login));



print $GOOD_JOB_MESSAGE if(defined($done));   





print $q->p("You can use the mojo_send.pl to send e-mails using your mail reader, 

         such as Outlook or Eudora. mojo_send.pl can also be used to set up group lists, 

         where everyone on your list will be able to send to everyone else on your list, 

         using a special address"), 

      $q->p("Please be sure that mojo_send.pl is properly installed before you use it!"), 



      $q->table( 

      	  $q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'group_list', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{group_list} eq "1") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=> 0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(0)', -class=>'black'}, 'Make Your List a Group List')), $q->br(), 

              'Everyone subscribed to your list can send to e-mails to everyone else on your list.'))

            ])

           ),

                           

      	  $q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'allow_group_interpolation', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{allow_group_interpolation} eq "1") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=>0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(1)', -class=>'black'}, 'Allow Variable Interpolation In Group Mailings')), $q->br(), 

              "Variable Interpolation means that pseudo tags like this: [mojo_url] will be changed to what they really are ($MOJO_URL) "))

            ])

           ),

           

            $q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'only_allow_group_plain_text', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{only_allow_group_plain_text} eq "1") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=>0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(2)', -class=>'black'}, 'Only Allow Plain Text Messages To Be Sent From Group Members')), $q->br(), 

              'Only e-mails seen as being plain text (no HTML) will be allowed to post to the group'))

            ])

           ),

           

              $q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'append_list_name_to_subject', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{append_list_name_to_subject} ne "0") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=>0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(3)', -class=>'black'}, 'Add the list name to the subject of group mailings')), $q->br(), 

              'List messages will be sent out with the list name at the beginning of the message, surrounded by brackets. This

               helps subscribers with identifying an e-mail message that originates from your list.'))

            ])

           ),

 			 $q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'add_reply_to', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{add_reply_to} ne "0") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=>0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(4)', -class=>'black'}, 'Automatically have replies to messages directed to the group')), $q->br(), 

              'A \'Reply-To\' header will be added to group list mailings that will direct replys to list messages back to the list.'))

            ])

           ),

  

 		$q->Tr(

      	   $q->td({-valign=>'top'},[ 

           ($q->checkbox(-name => 'mail_group_message_to_poster', 

           			-value => 1,

           			-label=>'',

           			

           	      (($list_info{mail_group_message_to_poster} ne "0") ? 

                           

                   (-checked=>'ON') : 

                   (-checked=>0)),

                  )),

                  

            ($q->p($q->b($q->a({-href=>'javascript:checklink(5)', -class=>'black'}, 'Send Posters Their Own Message')), $q->br(), 

              'People who post messages to the list will receive their own email messages.'))

            ])

           ),



        );   

                      







print $q->hidden('flavor','mojo_send_options'),

      $q->hidden('process','true');

print submit_form(); 







print(admin_html_footer(-List => $list));

}else{ 







$list = $admin_list;

my %list_info =  open_database(-List => $list,); 

my %new_info = (

list                         => $list,

group_list                   => $group_list,

allow_group_interpolation    => $allow_group_interpolation,

only_allow_group_plain_text  => $only_allow_group_plain_text,

append_list_name_to_subject  => $append_list_name_to_subject,

mail_group_message_to_poster => $mail_group_message_to_poster,

add_reply_to                 => $add_reply_to,



);



my $status = setup_list(\%new_info);

user_error(-List => $list, -Error => "no_permissions_to_write") if $status == 0; 



print $q -> redirect(-uri=>"$S_MOJO_URL?flavor=mojo_send_options&done=1"); 









}  

  

  



}





sub view_list { 



	my $root_login = check_list_security( 

	-Admin_List      => $admin_list, 

	-Admin_Password  => $admin_password,

	-IP_Address      => $ENV{REMOTE_ADDR},

	-Function        => 'view_list',

	);

	

	

	   $list = $admin_list; 

	my %list_info =  open_database(-List => $list);

	my $lh = MOJO::MailingList::Subscribers->new(-List => $list);

	

	

	my $start  = $q->param('start') || 0; 

	my $length = $list_info{view_list_subscriber_number}; #$q->param('length') || 100; 

	



	

	print(admin_html_header(      

      -Title      => "Your Subscribers", 

      -List       => $list_info{list},

      -Root_Login => $root_login));

     



     

      print $q->end_form();

    



	my $num_subscribers = $lh->num_subscribers;

	 

	print '<table width="100%"><tr><td>'; 

	print $q->p('Subscribers ', $q->b($start), ' to ' . $q->b(($length+$start))); 

	print '</td><td align="right">';    

	print $q->p({-align => 'right'}, 'Total number of subscribers: ', $q->b($num_subscribers), $q->a({-href => $S_MOJO_URL . '?f=add'}, 'add...'));

    print '</td></tr></table>';

  

     

    print '<table width="100%"><tr>';

	print '<td><p><a href="'.$S_MOJO_URL.'?f=view_list&start='.($start-$length).'&length='.$length.'"><- previous ' . $length . '</a></p></td>' if($start-$length) >= 0 ;

	print '<td  align="right"><p><a href="'.$S_MOJO_URL.'?f=view_list&start='.($start+$length).'&length='.$length.'">next '. $length . '-></a></p></td>'      if($num_subscribers > ($start + $length));

	print '</tr></table>';

	



print '<div style="height: 200px; overflow: scroll; border:1px solid black">'; 

	

      print $q->start_form(-action => $S_MOJO_URL, -method => 'post', -name => 'email_form'); 

        #  style="border: 1px solid black"    

      print '<table cellpadding="1">';

      print $q->Tr(

      			   $q->td([

      			   ($q->p('&nbsp;')),

      			   ($q->p($q->b('Email'))),

      			   ]),

      		); 

#{-style=> 'border:1px solid black'},      

      my $subscribers = $lh->subscription_list(-start => $start, '-length' => $length); 

		foreach(@$subscribers){ 

			print $q->Tr(

					   $q->td([

					   (delete_checkbox($_->{email})),

					   ($q->p(edit_subscriber_link($_->{email}))),

					   ]),

				); 

	}

	

	

	print '</table>';

print '</div>';



	print '<table width="100%"><tr>';

	print '<td><p><a href="'.$S_MOJO_URL.'?f=view_list&start='.($start-$length).'&length='.$length.'"><- previous ' . $length . '</a></p></td>' if($start-$length) >= 0 ;

	print '<td  align="right"><p><a href="'.$S_MOJO_URL.'?f=view_list&start='.($start+$length).'&length='.$length.'">next '. $length . '-></a></p></td>'      if($num_subscribers > ($start + $length));

	print '</tr></table>';

	

	

		print "<p align=\"center\"><a href=javascript:SetChecked(1)>check all</a> :: <a href=javascript:SetChecked(0)>uncheck all</a></p>";

	



	

	

	print "<input type=hidden name=process value=\"delete\">";

	print "<input type=hidden name=flavor value=\"checker\">";

	

	print qq{<p align="right"><input type="submit" style='$STYLE{green_submit}' value="Unsubscribe  Checked E-mails"></p>};

   




	print '</form>';

	

	 

       print qq{ 

       

       		<hr /> 

			<form action=$S_MOJO_URL> 

			 <input type="hidden" name="flavor" value="search_email"> 

		 	  <p>

			   <strong>Search</strong> List For a Particular Address: <br />

			    <input type="text" name="keyword"><input type=submit style='$STYLE{green_submit}' value="Search Addresses" /> 

			   </form> 

       };





     print qq{ 

	        <hr />

     		<table cellpadding="5">

     		 <tr> 

     		  <td> 

     		  

			<form action=$S_MOJO_URL target="text_list"> 

			 <input type=hidden name=flavor value="text_list"> 

		 	 <input type=submit style='$STYLE{default_submit}' value="Open List in New Window">

			</form> 

			</td>

			<td> 

			 <form action=$S_MOJO_URL> 

		 	 <input type=hidden name=flavor value="send_list_to_admin"> 

			 <input type=submit style='$STYLE{default_submit}' value="Send list to List Owner">

			</form> 

			</td> 

		   </tr> 

		  </table> 

         }; 

   

   

   	print $q->p({-align => 'right'}, $q->b($q->a({-href => $S_MOJO_URL . '?f=view_list_options'}, 'View Options...'))); 

   	

     

	print(admin_html_footer(-List => $list));

	

	

	



} 



sub view_list_options { 



my $root_login = check_list_security( 

	-Admin_List      => $admin_list, 

	-Admin_Password  => $admin_password,

	-IP_Address      => $ENV{REMOTE_ADDR},

	-Function        => 'view_list_options',

	);

	

	my @list_amount = (10,25,50,100,150,200,250,300,350,400,450,500,550,600,650,700,750,800,850,900,950,1000);

	

	$list = $admin_list; 

	require MOJO::MailingList::Settings; 

	

	my $ls = MOJO::MailingList::Settings->new(-List => $list); 

	my $list_info = $ls->get;

	

	if($process == 1){ 

		$ls->save({view_list_subscriber_number => $q->param('view_list_subscriber_number')});

		print $q->redirect(-uri => $S_MOJO_URL . '?f=view_list_options&done=1'); 

	}

	

	

	print(admin_html_header(      

      -Title      => "View List Options", 

      -List       => $list_info->{list},

      -Root_Login => $root_login));

      

      	print $GOOD_JOB_MESSAGE if $q->param('done') == 1;

      	

      	print $q->p('Show', $q->popup_menu(-name     => 'view_list_subscriber_number',

      									   -values   => [ @list_amount],

										   -default  => $list_info->{view_list_subscriber_number}), 'subscribers at one time'),

		$q->hidden('f', 'view_list_options'),

		$q->hidden('process', 1);

		print submit_form();  

										    

	

	

	

	print $q->p($q->a({-href => $S_MOJO_URL . '?f=view_list'}, '<- View Subscription List')); 

   

	

	print(admin_html_footer(-List => $list));      





} 





sub edit_subscriber { 



	print $q->redirect(-uri => $S_MOJO_URL . '?f=view_list') if ! $email;

	

	my $root_login = check_list_security( 

	-Admin_List      => $admin_list, 

	-Admin_Password  => $admin_password,

	-IP_Address      => $ENV{REMOTE_ADDR},

	-Function        => 'edit_subscriber',

	);

	

	$list = $admin_list; 

	my %list_info =  open_database(-List => $list);

	my $lh = MOJO::MailingList::Subscribers->new(-List => $list);

	

	print $q->redirect(-uri => $S_MOJO_URL . '?f=view_list&error=no_such_address')

		if($lh->check_for_double_email(-Email => $email) == 0);

	

	

	if($process eq 'edit'){ 

		

		my $edit_email = $q->param('edit_email');

		my ($status, $errors) = $lh->subscription_check(-Email => $edit_email); 

		

		if($errors->{invalid_email} == 1){ 

			print $q->redirect(-uri => $S_MOJO_URL . '?f=edit_subscriber&email='.$email.'&error=invalid_email')

		}elsif(($errors->{subscribed} == 1) && ($email ne $edit_email)){ 		

			print $q->redirect(-uri => $S_MOJO_URL . '?f=edit_subscriber&email='.$email.'&error=email_subscribed')

		}else{ 

			$lh->remove_from_list(-Email_List => [$email]);

			$lh->add_to_email_list(-Email_Ref => [$edit_email]); 

			print $q->redirect(-uri => $S_MOJO_URL . '?f=edit_subscriber&email='.$edit_email.'&success=1'); 

		}

	}else{ 	

		print(admin_html_header(      

		  -Title      => "Edit Subscriber", 

		  -List       => $list_info{list},

		  -Root_Login => $root_login));

		  

		print $GOOD_JOB_MESSAGE if $q->param('success') == 1; 

		print '<p class=smallred><em> The email address you typed is invalid.</em></p>'            if $q->param('error') eq 'invalid_email';

		print '<p class=smallred><em> The email address you typed is already subscribed.</em></p>' if $q->param('error') eq 'email_subscribed';

			  

		print $q->p($q->b('email address: '), 

			  $q->textfield(-name => 'edit_email', 

							-value => $email,

							-size => 30));

		

		print $q->hidden(-name => 'email',   -value => $email, -override=>1,);                     

		print $q->hidden(-name => 'f',       -value => 'edit_subscriber', -override=>1);

		print $q->hidden(-name => 'process', -value => 'edit',            -override=>1), 

			   $q->p({-align => 'right'}, 

			   $q->submit(-value => "Edit Information...", -style => $STYLE{yellow_submit}));                   

							

		print $q->end_form(); 

	  

		print $q->start_form(-action => $S_MOJO_URL, -method => 'POST'),

		

			  $q->hidden('process', 'delete'),

			  $q->hidden(-name => 'address', -value => $email),

			  $q->hidden(-name => 'f', -value => 'checker', -override=>1),              

			  $q->p({-align => 'right'}, 

			  $q->submit(-value => "Delete Address", -style => $STYLE{red_submit})),

			  $q->end_form();

						 

		print $q->p($q->a({-href => $S_MOJO_URL . '?f=view_list'}, '<- Back to Subscription List')); 

			 

		print qq{ 

		

		  <hr noshade size=1 width=66% color="black" /> 

		  <form action="$S_MOJO_URL"> 	 

		  <input type="hidden" name="flavor" value="search_email"> 

	       <p>

	       <strong>Search</strong> List For a Particular Address: <br />

            <input type="text" name="keyword" />

            <input type="submit" style='$STYLE{green_submit}' value="Search Addresses" /> 

     

            </form> 

       }; 

        	 

		print(admin_html_footer(-List => $list));



	} 



}

	







sub edit_subscriber_link { 

	my $email = shift; 

	return '<a href=' . $S_MOJO_URL . '?f=edit_subscriber&email=' . $email . '>' . $email . '</a>';

} 





sub delete_checkbox { 

	my $email = shift; 

	return $q->checkbox(-name => 'address', -value => $email, -label => '');



} 





sub list_stats { 



my $root_login = check_list_security( 

-Admin_List      => $admin_list, 

-Admin_Password  => $admin_password,

-IP_Address      => $ENV{REMOTE_ADDR},

-Function        => 'list_stats',

);







# view whos on the list, add delete addresses

$list = $admin_list; 



my %list_info =  open_database(-List => $list);

my $lh = MOJO::MailingList::Subscribers->new(-List => $list, -Path => $FILES);



print(admin_html_header(      

      -Title      => "Subscriber Statistics", 

      -List       => $list_info{list},

      -Root_Login => $root_login));

      

print "<p>\n";





my $email_count = $q -> param("email_count");

 

if(defined($email_count)){ 

	my $add_message = "$email_count people have been added successfully"; 

	print $q->p("$add_message"); 

}



my $delete_email_count = $q -> param("delete_email_count");

 

if(defined($delete_email_count)){ 

	 print "<p>",$delete_email_count; 

	 print " emails have been deleted</p>"; 

}







#my $any_subscribers = -s "$FILES/$list.list";

# debug



my $any_subscribers = 1;



if($any_subscribers != 0){











print"</p>";

 



$SHOW_EMAIL_LIST = 0; 

my ($everyone, $domains_ref, $count_services_ref) = $lh->list_option_form(-List => $list, -In_Order => $LIST_IN_ORDER);





=cut

print "<table border=0 width=100%><tr>";   

print"<td><p>"; 







	print "\n<select size=10 Multiple>\n" if($SHOW_EMAIL_LIST ==1);

	my ($everyone, $domains_ref, $count_services_ref) = $lh->list_option_form(-List => $list, -In_Order => $LIST_IN_ORDER);

	print"</select>"                      if($SHOW_EMAIL_LIST ==1); 





print "&nbsp;</p></td>\n"; 





print <<EOF  



<td valign=middle align=center>

</form> 



<form action=$MOJO_URL target="text_list"> 

<input type=hidden name=flavor value="text_list"> 


<input type=submit style='$STYLE{default_submit}' value="Open List in New Window">

</form> 

<p>

<form action=$MOJO_URL> 

<input type=hidden name=flavor value="send_list_to_admin"> 

<input type=submit style='$STYLE{default_submit}' value="Send list to List Owner">

</form> 











</td> 

</tr></table>





<p>There are  a total of <strong>$everyone</strong> email addresses on $list_info{list_name}</p>



<hr noshade width=66% size=1>  



EOF

; 

=cut



if($SHOW_DOMAIN_TABLE  == 1) { 





#initialize some variables

my $key; 

my $value; 

my $everyone_else = $domains_ref -> {Other};





print <<EOF   



<p>E-mail addresses sorted by <strong>Top Level Domains</strong>, 

click on the particular domain to view the list of 

e-mails from that top level domain</p>





<center> 

 <table border="0" cellpadding="1" cellspacing="0" bgcolor="#000000" width=300>

  <tr>

   <td bgcolor=#000000>

    <table  border="0" cellspacing="1"  width=100%> 

     <tr>

      <td bgcolor="#CC9966"><strong>Domain</strong></td>

      <td bgcolor="#CC9966"><strong>Number</strong></td>

      <td bgcolor="#CC9966"><strong>Percent</strong></td>

     </tr> 

EOF

; 





my @keys = sort(keys %$domains_ref); 





foreach $key (@keys){ 



	if($key !~ m/Other/i){ 

		$value = $domains_ref -> {$key}; 



		

		my $percentage;

		   if($everyone > 0){ 

	      		$percentage = ($value * 100)/$everyone;

		  	}else{ 

		  		$percentage = 0;

		  	}

		$percentage= sprintf("%.2f", $percentage);

		  			 		 

		   

		print $q->Tr($q->td({-bgcolor=>'#FFFFFF'},[

		             

		              $q->a({href=>"$S_MOJO_URL?flavor=search_email&method=domain&keyword=.$key"},$key), 

		              $value, 

		             "$percentage\%"

		       

		       ])); 



		# now, find what "other" is 





}

}



$value = $domains_ref -> {Other}; 





my $percentage;

   if($everyone > 0){

   		$percentage = ($value * 100)/$everyone;

	}else{ 

		$percentage = 0;

	}

   $percentage= sprintf("%.2f", $percentage);

   

   

print $q->Tr($q->td({-bgcolor=>'#FFFFFF'},[



             'Other', 

              $value, 

             "$percentage\%"

       

       ])); 















print <<EOF; 



   </table> 

  </td>

 </tr>

</table> 



<p>&nbsp;</p>

<hr noshade width=66% size=1>  

 

EOF

; 



}



if($SHOW_SERVICES_TABLE==1){  



my $skey; 

my $svalue;

my $using; 

my @skeys = sort(values %SERVICES); 





print $q->p("E-mail address sorted by popular E-mail or ISP <strong>Services</strong>, click on a service to see the list of e-mails from that particular service");

print <<EOF   



<center>

<table border="0" cellpadding="1" cellspacing="0" bgcolor="#000000" width=300>

 <tr>

  <td bgcolor=#000000>

   <table  border="0" cellspacing="1"  width=100%> 

    <tr>

     <td bgcolor="#CC9966"><strong>Service</strong></td>

     <td bgcolor="#CC9966"><strong>Number</strong></td>

     <td bgcolor="#CC9966"><strong>Percent</strong></td>

   </tr> 

EOF

; 





%SERVICES = reverse(%SERVICES); 





foreach $skey (@skeys){ 



	$svalue = $count_services_ref->{$skey} || 0; 

	my $spercentage;

	if($everyone > 0){

		$spercentage = ($svalue * 100)/$everyone;

	}else{ 

		$spercentage = 0;

	}

	$spercentage= sprintf("%.2f", $spercentage);





	if($SERVICES{$skey} !~ m/Other/i){





		print $q->Tr($q->td({-bgcolor=>'#FFFFFF'},[

		             

		              $q->a({href=>"$S_MOJO_URL?flavor=search_email&method=service&keyword=$skey"},$SERVICES{$skey}), 

		              $svalue, 

		             "$spercentage\%"

		       

		       ])); 

	    }



}



$svalue = $count_services_ref -> {Other}; 

my $spercentage;



if($everyone > 0){ 

	$spercentage = ($svalue * 100)/$everyone;

}else{ 

	$spercentage = 0;

}

$spercentage= sprintf("%.2f", $spercentage);





print $q->Tr($q->td({-bgcolor=>'#FFFFFF'},[

             

              'Other', 

              $svalue, 

             "$spercentage\%"

       

       ])); 

       

       

       



print <<EOF 

      </table> 

     </td>

    </tr>

   </table>  

  </center> 

 <p>&nbsp;</p> 

EOF

; 

}





}else{ 



print $NO_ONE_SUBSCRIBED;  



}

print(admin_html_footer(-List => $list));

}











sub add  { 



	my $root_login = check_list_security( 

	-Admin_List      => $admin_list, 

	-Admin_Password  => $admin_password,

	-IP_Address      => $ENV{REMOTE_ADDR},

	-Function        => 'add'

	);







	# view whos on the list, add delete addresses

	$list = $admin_list; 

	my %list_info =  open_database(-List => $list, 

								 

								   ); 

								 

	

	print(admin_html_header(      

		  -Title      => "Manage Additions", 

		  -List       => $list_info{list},

		  -Root_Login => $root_login, 

		  -Form       => 0));

	

	

	print $q->p("To Add e-mails, enter the addresses below,  seperated by

			 spaces, commas or carriage returns. Extemely large lists

			 added (over 1000 addresses) may take a minute or two to

			 process, so please exercise patience.<br>",

         

         

         

         $q->start_multipart_form(-action=>$S_MOJO_URL, -method=>'POST', -name=>'default_form'),

         $q->hidden(-name =>'flavor', -value => 'add_email', -override=>1),

         $q->textarea(-name=>'new_emails', 

                  -cols=>40, 

                  -rows=>4),

           

         

        '<br><input type=checkbox name=quick value=yes>

        <a href=javascript:checklink(2) class=black>

        Skip Confirmation Screen</a>');



       

print $q->p("Alternatively, import from a file containing the email addresses would like  

         to be added to the list", $q->br(), 

      $q->filefield(-name => 'new_email_file'));  



print "<input type=submit style='$STYLE{green_submit}' value='Submit E-mail List'>";



print $q->end_form();  

print(admin_html_footer(-List => $list));



}



sub add_email { 

	my $root_login = check_list_security(-Admin_List      => $admin_list, 

										 -Admin_Password  => $admin_password,

										 -IP_Address      => $ENV{REMOTE_ADDR},

									 	 -Function        => 'add_email');

	my %seen;

	$list         = $admin_list; 

	my %list_info = open_database(  -List => $list);  

	my $lh        = MOJO::MailingList::Subscribers->new(-List => $list, -Path => $FILES);



	unless (defined($process)){ 

		my $new_emails;

		my $email_file = $q->param('new_e