&get_input; open(TL,"$path_to_lang/$thislang/editsource.txt"); while(){push(@LaNg,$_)} &exec_lang; sub test{for(@test){if($_ eq $_[0]){return true}}} open(F,"$file"); while(){ if(/editblock="(\w+?)"/){$x=$1; if(!test($x)){push(@test,$x);push(@EB,$x)} } if(/includeblock="(.+?)"/){$x=$1; if(!test($x)){push(@test,$x);push(@IB,$x)} } } open(F,"$file"); while(){$FILE.=$_} foreach $b (@EB){ $FILE =~ m`<.+?editblock="*$b[^>]*>(.+) $js5")~} $EDITS .= qq~

Editblock - $b

~; } foreach $b (@IB){ $INC=$path_to_domain.$b; open(INC,"$INC"); while(){$inc.=$_} if($inc=~s! $js5")~} $INCLUDES .= qq~

IncludeBlock - $b

~; } print "Content-type: text/html\n\n"; print qq~