X-Git-Url: https://git.harvie.cz/?a=blobdiff_plain;f=php%2Ftelnet;fp=php%2Ftelnet;h=3cc183d45471cfb5507a895c8f7fe591369bfde1;hb=8de513042b62d49783567965c443f9dc8d48ce94;hp=0000000000000000000000000000000000000000;hpb=57c4ea184d8ab3beea97e20e32aa775a7a3998ae;p=mirrors%2FPrograms.git

diff --git a/php/telnet b/php/telnet
new file mode 100755
index 0000000..3cc183d
--- /dev/null
+++ b/php/telnet
@@ -0,0 +1,19 @@
+#!/usr/bin/php
+<?php
+
+$usage = "telnet host [port]\n";
+if($argc > 1) $host = $argv[1]; else die($usage);
+$port = 23; if($argc > 2) $port = $argv[2];
+if($argc > 3) die($usage);
+
+echo("Connecting to $host:$port...\n");
+$sock = pfsockopen($host, $port);
+if($sock) echo("Connected!\n\n"); else die("Failed!\n");
+$stdin = fopen('php://stdin', 'r');
+stream_set_blocking($sock, 0);
+stream_set_blocking($stdin, 0);
+
+while(!feof($sock) && !feof($stdin)) {
+	echo(fgetc($sock));
+	fwrite($sock, fgetc($stdin));
+}
\ No newline at end of file