summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/Client.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Client.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32/Client.pl63
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Client.pl b/Master/tlpkg/tlperl/lib/Win32/Client.pl
deleted file mode 100644
index 6ae585b7c91..00000000000
--- a/Master/tlpkg/tlperl/lib/Win32/Client.pl
+++ /dev/null
@@ -1,63 +0,0 @@
-use strict;
-use Win32::Pipe;
-
-####
-# You may notice that named pipe names are case INsensitive!
-####
-
-my $PipeName = "\\\\.\\pipe\\TEST this LoNG Named Pipe!";
-
-print "I am falling asleep for few seconds, so that we give time\nFor the server to get up and running.\n";
-sleep(4);
-print "\nOpening a pipe ...\n";
-
-if (my $Pipe = Win32::Pipe->new($PipeName)) {
- print "\n\nPipe has been opened, writing data to it...\n";
- print "-------------------------------------------\n";
- $Pipe->Write("\n" . Win32::Pipe::Credit() . "\n\n");
- while () {
- print "\nCommands:\n";
- print " FILE:xxxxx Dumps the file xxxxx.\n";
- print " Credit Dumps the credit screen.\n";
- print " Quit Quits this client (server remains running).\n";
- print " Exit Exits both client and server.\n";
- print " -----------------------------------------\n";
-
- my $In = <STDIN>;
- chop($In);
-
- if ((my $File = $In) =~ s/^file:(.*)/$1/i){
- if (-s $File) {
- if (open(FILE, "< $File")) {
- while ($File = <FILE>) {
- $In .= $File;
- };
- close(FILE);
- }
- }
- }
-
- if ($In =~ /^credit$/i){
- $In = "\n" . Win32::Pipe::Credit() . "\n\n";
- }
-
- unless ($Pipe->Write($In)) {
- print "Writing to pipe failed.\n";
- last;
- }
-
- if ($In =~ /^(exit|quit)$/i) {
- print "\nATTENTION: Closing due to user request.\n";
- last;
- }
- }
- print "Closing...\n";
- $Pipe->Close();
-}
-else {
- my($Error, $ErrorText) = Win32::Pipe::Error();
- print "Error:$Error \"$ErrorText\"\n";
- sleep(4);
-}
-
-print "Done...\n";