summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/Server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Server.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32/Server.pl48
1 files changed, 0 insertions, 48 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Server.pl b/Master/tlpkg/tlperl/lib/Win32/Server.pl
deleted file mode 100644
index ecfb91ba864..00000000000
--- a/Master/tlpkg/tlperl/lib/Win32/Server.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-use strict;
-use Win32::Pipe;
-
-my $PipeName = "TEST this long named pipe!";
-my $NewSize = 2048;
-my $iMessage;
-
-while () {
- print "Creating pipe \"$PipeName\".\n";
- if (my $Pipe = new Win32::Pipe($PipeName)) {
- my $PipeSize = $Pipe->BufferSize();
- print "This pipe's current size is $PipeSize byte" . (($PipeSize == 1)? "":"s") . ".\nWe shall change it to $NewSize ...";
- print +(($Pipe->ResizeBuffer($NewSize) == $NewSize)? "Successful":"Unsucessful") . "!\n\n";
-
- print "\n\nR e a d y f o r r e a d i n g :\n";
- print "-----------------------------------\n";
-
- print "Openning the pipe...\n";
- while ($Pipe->Connect()) {
- while () {
- ++$iMessage;
- print "Reading Message #$iMessage: ";
- my $In = $Pipe->Read();
- unless ($In) {
- print "Recieved no data, closing connection....\n";
- last;
- }
- if ($In =~ /^quit/i){
- print "\n\nQuitting this connection....\n";
- last;
- }
- elsif ($In =~ /^exit/i){
- print "\n\nExitting.....\n";
- exit;
- }
- else{
- print "\"$In\"\n";
- }
- }
- print "Disconnecting...\n";
- $Pipe->Disconnect();
- }
- print "Closing...\n";
- $Pipe->Close();
- }
-}
-
-print "You can't get here...\n";