<pre>&lt;perl&gt;
###------------------------------- Vars
%DOC=(
&quot;ct&quot; =&gt; sub{outl qq(&lt;b&gt;$_&lt;/b&gt;);},
);

sub parser
{
if($_[0] eq &quot;TEST1&quot;)
{
$SS=qq(Immer &Auml;&Ouml;&Uuml;);
outl parse qq($_[0] : Das ist $SS eine DEMO von | $TT | &amp; htx $htx &lt;ct&gt;Harald M&uuml;ler&lt;/ct&gt; &lt;a href=&quot;$_link&amp;T=TEST&quot;&gt;TEST&lt;/a&gt;),\%DOC;
}
if($_[0] eq &quot;TEST2&quot;)
{
$SS=qq(Immer &szlig;&auml;&ouml;&uuml;);
outl parse &quot;&quot;,\%DOC;
}
}

# 2 Testbutton Page-Anzeige

# 2 Testbutton Window-Anzeige
$B3=qq(&lt;input onClick=(WO('A','Window1-Test',500,300,'TEST1')) type='button' value='Window1' class='' style=''&gt;);

$B4=qq(&lt;input onClick=(WO('B','Window2-Test',250,150,'TEST2')) type='button' value='Window2' class='' style=''&gt;);

$B6=qq(&lt;input onClick=(WO('B','Window2-Test',250,150,'TEST2')) type='button' value='Window4' class='' style=''&gt;);
###-------------------------------


sub RUN
{###------------------------------ AJAX-Routinen ausf&uuml;hren
if($MODUS ne &quot;&quot;)
{##------------- MODUS-Funktionen

if($MODUS eq &quot;W2&quot;)
{#

if($Win eq &quot;A&quot;)
{##############
out(qq|W2.document.getElementById(&quot;WIN&quot;).innerHTML=&quot;Nur mal Test, ob es im Window1 angezeigt wird ?&quot;;|);
}##############

if($Win eq &quot;B&quot;)
{##############
out(qq|W2.document.getElementById(&quot;WIN&quot;).innerHTML=&quot;Und m&uuml;&szlig;te &lt;b&gt;sollte was&lt;/b&gt; in Window2 angezeigt werden&quot;;|);
}##############

if($Win eq &quot;C&quot;)
{##############
#$TT=qq(Immer Seltener);
out(qq|alert(&quot;DEMO&quot;);|);
out(qq|WO(&quot;B&quot;,&quot;Window2-Test&quot;,250,150,&quot;&quot;);|);


}##############


}#
}##-------------- ENDE MODUS-Funktionen

else ##---------- KEIN MODUS
{
$output=&quot;&quot;;
$output=qq(Die ist ein $out mit $var HARALD FEHDE) if($out ne &quot;&quot;);
out(qq|document.getElementById(&quot;OUT&quot;).innerHTML=&quot;$output&quot;;|);
}##-------------- ENDE KEIN MODUS

}###------------------------------- ENDE Ajax-Routinen
&lt;/perl&gt;

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot; &quot;http://www.w3.org/TR/html4/loose.dtd&quot;&gt;&lt;html&gt;
&lt;head&gt;
&lt;title&gt;TEST - Ajax2Win&lt;/title&gt;
&lt;SCRIPT LANGUAGE=&quot;JavaScript&quot;&gt;function _RUN(t){eval(t);}&lt;/SCRIPT&gt;

&lt;script language=&quot;JavaScript&quot;&gt;
&lt;!--
/* -------------Window-Open-Funktion &quot;WO&quot; */
var W2=null;
function WO(W,Titel,Breit,Hoch,Code)
{
if(W2 != null)if(!W2.closed)W2.close();
var xsize = Breit+50;
var ysize = Hoch+50;  
var ScreenWidth = screen.width;
var ScreenHeight = screen.height;
var xpos = (ScreenWidth/2)-(xsize/2);
var ypos = (ScreenHeight/2)-(ysize/2);

PARSER = '&lt;perl&gt;&amp;parser(&quot;TEST1&quot;);&lt;/perl&gt;';

W2=window.open(&quot;&quot;,&quot;W1&quot;,&quot;height=&quot;+ysize+&quot;,width=&quot;+xsize+&quot;,status=no,location=no,statusbar=no,menubar=no,scrollbars=no,resizable=no,top=&quot;+ypos+&quot;,left=&quot;+xpos+&quot;&quot;);

W2.document.write('&lt;html&gt;&lt;head&gt;&lt;title&gt;'+Titel+'&lt;/title&gt;&lt;/head&gt;&lt;body style=&quot;overflow:hidden;margin:0&quot; bgcolor=&quot;#b0d0f0&quot; &gt;&lt;div id=&quot;WIN&quot; style=&quot;border:1px solid red&quot;&gt;'+Code+'&lt;/div&gt;'+PARSER+'&lt;hr&gt;DEMO&lt;/body&gt;');

/* return false; */
W2.focus();
}
//--&gt;
&lt;/script&gt;
&lt;/head&gt;
&lt;body&gt;
$B1 $B2 $B3 $B4 $B5 $B6
&lt;hr&gt;
&lt;DIV id=&quot;OUT&quot;&gt;Nur eine Demo&lt;/DIV&gt;
&lt;hr&gt;
&Uuml;ber die Button [Window1] und [Window2] Ajax in einem Window ausf&uuml;hren - Wieso fuktioniert nur das (nur) mit dem &lt;b&gt;FireFox&lt;/b&gt;, aber nicht mit dem &lt;b&gt;Wind.Expl.&lt;/b&gt; ?? (siehe &lt;a href=&quot;baseportal.pl?show=$htx&quot; taget=&quot;_BLANK&quot;&gt;Code&lt;/a&gt;)
&lt;/body&gt;
&lt;/html&gt;
&lt;perl script=&quot;RUN&quot;&gt;&amp;RUN();&lt;/perl&gt;</pre>