#!/usr/bin/perl --

$incs_folder_PATH='incs'; #relative or absolute path to incs folder
$txts_folder_PATH='txts'; #relative or absolute path to txts folder
$imgs_folder_URL='/editor/imgs'; #virtual or full URL to imgs folder
$flash_folder_URL='/editor/flash'; #virtual or full URL to flash folder

#On Windows servers the $incs_folder_PATH & $txts_folder_PATH must be ABSOULTE paths

########################################################
#BEGIN{$ENV{'DOCUMENT_ROOT'}='../'}

$http="http://";
push(@INC,$incs_folder_PATH);
require 'routines.htm';

$background_color="#D9D9D6";
$host=$http.$ENV{'HTTP_HOST'};
$host_=$ENV{'HTTP_HOST'};
$pi=$ENV{'PATH_INFO'} || $ENV{'SCRIPT_NAME'};
$pt=$ENV{'PATH_TRANSLATED'} || $ENV{'SCRIPT_FILENAME'};
$pt=~s`(.+)$pi`$1`;
$0 = $^X unless ($^X =~ m%(^|[/\\])(perl)|(perl.exe)$%i);
my ($program_dir) = $0 =~ m%^(.*)[/\\]%;
$program_dir ||= ".";
$program_dir =~ s`/[^/]+$``;$program_dir =~ s`\\`/`g;$program_dir =~ s`^\w:``g;
if($ENV{'DOCUMENT_ROOT'}){$root=$ENV{'DOCUMENT_ROOT'}}
elsif(-d $pt){$root = $pt}
elsif(-d $program_dir){
	$root = $program_dir;
	if(!-d $incs_folder_PATH){
		$incs_folder_PATH=$program_dir."/".$incs_folder_PATH
	}
	if(!-d $txts_folder_PATH){
		$txts_folder_PATH=$program_dir."/".$txts_folder_PATH
	}
}


if(!$root){&noRoot}
$uttf=$host.$ENV{'SCRIPT_NAME'};
$utif=$imgs_folder_URL;
$close_img="modal_close";
&browser;
&config;

$qs=$ENV{'QUERY_STRING'};
if($qs=~/^flashRegex=/){&flashRegex}
$qs=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

($action,$params)=split(/=/,$qs,2);
if($qs eq ''){$action="getToolbar"}
&$action;