#!/usr/bin/perl -w
 ##################################################################
# Autoresponder and Mailing List Manager                           #
# Version 4.1 Lite                                                 #
# Copyright 2005-2020                                              #
# A free script from:   http://free-software.biz/amlmlite.html     #
 ##################################################################
#                          COPYRIGHT NOTICE                        #
#                                                                  #
# Copyright 2005-2020 http://free-software.biz/amlmpro.html        #
#                                                                  #
#          Please read license.htm or license.txt file             #
#             before proceeding with installation.                 #
#                                                                  #
# You are granted permission to use this Software as long as:      #
#                                                                  #
#  - You do not modify the Software in any way                     #
#  - You do not modify this agreement in any way                   #
#  - You do not claim ownership of any ammended files              #
#  - You do not remove any copyright notices                       #
#  - You do not change/remove the 'Autoresponder and Mailing List  #
#     Manager4.1 Lite' name in any of the source files,            #
#    generated URLs and outgoing emails                            #
#                                                                  #
# Modifying, selling the code for this software over the Internet  #
# or in any other medium is forbidden.                             #
#                                                                  #
# If you really need to remove the return links, go to             #
# http://free-software.biz/amlmpro.html                            #
# and upgrade to the Pro version                                   #
#                                                                  #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,  #
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES  #
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND         #
# NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT     #
# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,     #
# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING     #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR    #
# OTHER DEALINGS IN THE SOFTWARE.                                  #
#                                                                  #
 ##################################################################

use CGI::Carp qw(fatalsToBrowser set_message);
use CGI;
$q=new CGI;
unless ($^O=~/win/i){
	my $child=fork();
	die "Can not fork: $!" unless defined $child;
	if ($child==0){
		exec("perl broadcaster");
	}
	print $q->header("image/gif");
	map{print chr($_)}qw(71 73 70 56 57 97 2 0 2 0 128 1 0 153 153 153 255 255 255 33 249 4 1 0 0 1 0 44 0 0 0 0 2 0 2 0 0 2 2 140 83 0 59);
}else{
	print $q->header("image/gif");
	map{print chr($_)}qw(71 73 70 56 57 97 2 0 2 0 128 1 0 153 153 153 255 255 255 33 249 4 1 0 0 1 0 44 0 0 0 0 2 0 2 0 0 2 2 140 83 0 59);
	exec('perl broadcaster');
}