this is the server hta
<script language="PerlScript">
use Win32:
ipe;
$Pipe = new Win32:
ipe("My_Pipe"
;
$Pipe->Connect();
$Pipe->Write("<textarea>$0</textarea></html>"
;
$Pipe->Close();
</script>
This is the client.
<html><head><title>The Client Side</title><body><div id="Response"></div><script language="PerlScript">
open(CLIENT, "< \\\\.\\Pipe\\My_Pipe"
|| die;
$Data = <CLIENT>;
$window->document->getElementById(Response)->insertAdjacentText("$Data"
;
close(CLIENT);
</script></body></html>
Now the Client only Connect if the Server is running obviosly and dies otherwise.
now it does't give any error message like Died a line 3 when i start the client after the server, but doesn't output like it should. any help, appreciated.
<script language="PerlScript">
use Win32:
$Pipe = new Win32:
$Pipe->Connect();
$Pipe->Write("<textarea>$0</textarea></html>"
$Pipe->Close();
</script>
This is the client.
<html><head><title>The Client Side</title><body><div id="Response"></div><script language="PerlScript">
open(CLIENT, "< \\\\.\\Pipe\\My_Pipe"
$Data = <CLIENT>;
$window->document->getElementById(Response)->insertAdjacentText("$Data"
close(CLIENT);
</script></body></html>
Now the Client only Connect if the Server is running obviosly and dies otherwise.
now it does't give any error message like Died a line 3 when i start the client after the server, but doesn't output like it should. any help, appreciated.