#!/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;