$fixed=1;
if($EditorLogin eq ''){&scram}
$bar_wid="4px";
if($ENV{'QUERY_STRING'} eq ""){
$URL=qq~$url_to_editor?get_login~;
}else{
open(TL,"$path_to_lang/$thislang/toolbar.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
if($param1){
$param1=~m!([^/:\\]*)$!; $file=$1;
	unless($file =~ m!\..+$!){
		$param1=~s!/$!!;$param1.="/";$path_to_domain=~s!/$!!;
		$default_file_name=~s/\s//g;
		@file_names=split(/,/,$default_file_name);
		$pth=$param1;$pth=~s!http://.+?/!$path_to_domain/!;$pth=~s!/$!!;$param1=~s!/$!!;
			foreach $f (@file_names){
				$fl=$pth."/".$f;
				if(-e $fl){$default_file=$param1."/".$f;last}
			}	
		if(!$default_file){
			$URL=qq~alert("$ini_alert1")~;
		}else{
			$URL=qq~IFcanvas.location="$default_file"~;
		}
	}else{
	$URL=qq~IFcanvas.location="$param1"~;
	} 
}
$INIT=qq~document.getElementById("toolbar").style.display="";
if(document.cookie.indexOf("EditorLogin")==-1){alert("$ini_alert2");document.getElementById("toolbar").style.display="none"}
$URL
~;
}

&check_login;
$user_root=~s!/$!!;
$url_to_ikons=~s!/$!!;

&seed;
@order=qw(grid save saveas text fonts fonts_adjust fonts_fixed fgcolor bgcolor bold italics underline strikethrough left center justify right undo redo cut copy paste pasteword find keys help exit updates supsubscript hr para move_left move_right ol ul link unlink upload photo table forms style script tagediton tageditoff page edit_src edit_blk code thebuttons chars auth pub unformat remove add_user inline_link edit_file edit_file_plus basicauth speller restore);

@buttonz=split(/\|/,$buttons);

$buttons=~s`\|`=`g;
$update=1;
if($buttons=~/\binline_link\b/){$il=1}
if($buttons =~ /\bupdates\b/){&check_updates}
if(!$updates){$buttons=~s`updates``}
$buttons=~s`link`link|unlink`;
$buttons=~s`classes|inline|freehand`style`;
if($buttons =~ /save_backup/){$save_backup=1}
$buttons=~s`classes|inline|freehand|save_backup|properties|create_popup|help|exit``g;
$buttons=~s`==`=`g;

@buttons=split(/=/,$buttons);
if($il){$buttons.="|inline_link"}
$bnum=$#buttons-5;
$ord=int($bnum /2);
foreach $b (@order){
	if($o<$ord){
		if($buttons =~ /\b$b\b/){
			push(@buttons_top,$b);
			++$o;
		}
	}else{
		if($buttons =~ /\b$b\b/){
			push(@buttons_bottom,$b);
			++$o;
		}
	}
	;
}

for (@buttons_top){
	$icon = $_."_";$$_=$$icon;
	$BUTTONS_TOP.=$$icon;
	}

for (@buttons_bottom){
	$icon = $_."_";$$_=$$icon;
	$BUTTONS_BOTTOM.=$$icon;
	}
if($super eq "super"){$su=1;$BUTTONS_BOTTOM.=$superuser_}else{$su=0}	
$openfile=$openfile_;
$on_off=$on_off_;

if($FULL){$exit=qq~<img id=XX $mouse class="button" onclick='if(confirm("$ini_confirm1")){window.close()}' src="$url_to_ikons/exit.gif" $whb alt="$ini_alt1">~;}


if($auth){$DAV="auth"}
if($pub){$DAV="pub"}
$path_to_library=~s!/$!!;
open(J,"$path_to_library/ini/toolbar_js.txt");
while(<J>){
s/\$(\w+)/${$1}/eg;
$TOOLBAR_JS.=$_;
}
if($tagediton){$TAG1="Editor";$TAG2="inline";$TAG3="inline"}
if($tageditoff){$TAG1="Viewer";$TAG2="none";$TAG3="none"}
($D,$L,$sid)=split(/\:/,$DOMAIN_LICENSE);
$url_to_base=$url_to_library;$url_to_base =~ s`/library``;
if($sid =~ /\w+/ && $^O ne 'MSWin32'){
	$url_to_editor =~ m`/\w+\.(\w+)$`;$ext=$1;
	$control_url=$url_to_base."/control.".$ext;
}elsif($sid =~ /\w+/ && $^O eq 'MSWin32'){
	$control_url=$url_to_base."/control.exe";
}else{
	$control_url=$url_to_editor."?control";
}

&exec_lang;

if($buttons =~ /\bfonts\b/){
	@font_faces=split(/:/,$font_faces);
	@font_faces=sort(@font_faces);
	for(@font_faces){
		($n,$v)=split(/&/);chomp($v);$v=~tr/ /_/;
		$FONT_FACES.=qq~<div onclick='parent.chng_family("$v")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" 			onmouseout=this.style.backgroundColor="window";this.style.color="windowText"><font face="$v">$n</font></div>
	~;
	}
}
if($buttons =~ /\bfonts_adjust\b/){
	@font_sizes=split(/:/,$font_sizes);
	for(@font_sizes){
	$FONT_SIZES.=qq~<div onclick='parent.chng_size("$_")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" onmouseout=this.style.backgroundColor="window";this.style.color="windowText"><font size="$_">$_</font></div>
	~;
	}
}

if($buttons =~ /\bfonts_fixed\b/){
	@font_pixels=split(/:/,$font_pixels);
	for(@font_pixels){
	$px=$_."px";
	$FONT_PIXELS.=qq~<div onclick='parent.set_pixel("$px")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" onmouseout=this.style.backgroundColor="window";this.style.color="windowText"><font style="font-size:$px">$px</font></div>
	~;
	}
}

if($buttons =~ /\bpara\b/){
	for($i=1;$i<7;++$i){
$HEADINGS.=qq~<div onclick='parent.set_h("H$i")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" onmouseout=this.style.backgroundColor="window";this.style.color="windowText" style="margin:0px"><h$i style="font-size:6px">Heading $i</h$i></div>
~;
}
$HEADINGS.=qq~<div onclick='parent.set_h("PRE")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" onmouseout=this.style.backgroundColor="window";this.style.color="windowText" style="margin:0px">Pre Formatted Text</div><br>
~;
$HEADINGS.=qq~<div onclick='parent.set_h("BLOCKQUOTE")' onmouseover=this.style.backgroundColor="buttonshadow";this.style.color="buttonhighlight" onmouseout=this.style.backgroundColor="window";this.style.color="windowText" style="margin:0px">Block Quote</div>
~;
}
if($demo_mode){$demomode=1}else{$demomode=0}
if($child==1){$updates=""}
print "Content-type: text/html\n\n";
open(T,"$htm/toolbar.txt");
while(<T>){
s/\$(\w+)/${$1}/eg;
print}

sub scram{
print "Location: $url_to_editor\n\n";
exit
}#scram
1;