#!/usr/bin/perl
#
# apf_config.cgi
#
# Version 4.091210 - 10th December 2009
#
# This version created by Labbs (http://www.labbs.com) from an original
# script by MrRat (http://www.mrrat.com), with collaborative help from
# users of the APF Forum (http://www.absolutefreebies.com/phpBB2/)
#
# You can support this script by making a donation at
# http://s1.amazon.com/exec/varzea/pay/T3M26803DZOCMK
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
use strict vars;
our (%AWS_variables,%MY_variables,%Internal_variables,%mod_use);
use vars qw(%associate_ids %MY_variables %Internal_variables %mod_use);
use vars qw(@associate_ids_us @associate_ids_uk @associate_ids_de @associate_ids_jp @associate_ids_fr @associate_ids_ca @mod_files);
use vars qw(%time_zones %adult_browsenodes);
use vars qw(@time_zones_us @time_zones_uk @time_zones_de @time_zones_jp @time_zones_fr @time_zones_ca);
use vars qw($std_tzname_us $dst_tzname_us $date1_us $date2_us $date3_us);
use vars qw($std_tzname_uk $dst_tzname_uk $date1_uk $date2_uk $date3_uk);
use vars qw($std_tzname_de $dst_tzname_de $date1_de $date2_de $date3_de);
use vars qw($std_tzname_jp $dst_tzname_jp $date1_jp $date2_jp $date3_jp);
use vars qw($std_tzname_fr $dst_tzname_fr $date1_fr $date2_fr $date3_fr);
use vars qw($std_tzname_ca $dst_tzname_ca $date1_ca $date2_ca $date3_ca);
my (%FORM);
my ($html, $temp_list, $password_flag, $mods_html, $input_password, $flag);
my %ass_defaults = ( us => "httprockbotto-20", uk => "mrratcom-21", de => "absolutefreeb-21", jp => "mrratcom0f-22", fr => "mrratcom0d-21", ca => "mrratcom08-20" );
my %ass_locales = ( us => "associate_ids_us", uk => "associate_ids_uk", de => "associate_ids_de", jp => "associate_ids_jp", fr => "associate_ids_fr", ca => "associate_ids_ca" );
# begin find current directory
my $temp_path;
if($ENV{'PATH_TRANSLATED'}) {
$temp_path = $ENV{'PATH_TRANSLATED'};
} else {
$temp_path = $ENV{'SCRIPT_FILENAME'};
}
$temp_path =~ s|\\|/|g;
$Internal_variables{cwd} = substr($temp_path,0,rindex($temp_path,"/"));
# end find current directory
my $config_file = $Internal_variables{cwd} . "/apf_config.ini";
my $default_config_file = $Internal_variables{cwd} . "/apf_default_config.ini";
my $dont_generate = "no";
$Internal_variables{stored_password} = "";
$ENV{'HTTP_COOKIE'} =~ s/apfconfig=([^;]+)/$Internal_variables{stored_password} = $1/e;
$html = qq[