#!/usr/bin/perl
######################################################################
# Follow Up Mailing List Processor                                   #
# Version 5.01                                                       #
# Copyright 2006 SellWide Corporation                                #
# Last modified 08/29/2006                                           #
# Author: Konstantin Ursaloff                                        #
# Available at http://www.sellwide.com                               #
######################################################################
#                          COPYRIGHT NOTICE                          #
#                                                                    #
#     Copyright 2006 SellWide Corporation. All Rights Reserved.      #
#                                                                    #
# This script can be used as  long  as you don't change  this header #
# or  any  of  the  parts  that  give  me  credit  for writing this. #
#                                                                    #
# By using this script you agree to indemnify me from any  liability #
# that might arise from its use.                                     #
#                                                                    #
# Redistributing\selling  the  code  for  this program without prior #
# written consent is expressly forbidden.                            #
#                                                                    #
# Use for any  unauthorized  purpose is expressly prohibited by law, #
# and  may  result  in  severe  civil  and  criminal  penalties.     #
# Violators  will  be  prosecuted  to  the  maximum extent possible. #
#                                                                    #
#        YOU MAY NOT RESELL OR RELEASE THIS PROGRAM TO OTHERS        #
#                                                                    #
######################################################################
use lib('lib');
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$q=new CGI;
unless ($^O=~/win/i){
	my $child=fork();
	die "Can not fork: $!" unless defined $child;
	if ($child==0){
		exec("$^X 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("$^X broadcaster");
}