/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / chat2.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 63 68 61 74 32 2e | 70 6c 00 00 00 00 00 00 |..chat2.|pl......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 21 f4 00 | 00 01 ac a6 eb de ad a6 |.....!..|........|
|00000060| eb de ad 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ee 7d 00 00 |........|.....}..|
|00000080| 23 23 20 63 68 61 74 2e | 70 6c 3a 20 63 68 61 74 |## chat.|pl: chat|
|00000090| 20 77 69 74 68 20 61 20 | 73 65 72 76 65 72 0d 23 | with a |server.#|
|000000a0| 23 20 56 32 2e 30 31 2e | 61 6c 70 68 61 2e 37 20 |# V2.01.|alpha.7 |
|000000b0| 39 31 2f 30 36 2f 31 36 | 0d 23 23 20 52 61 6e 64 |91/06/16|.## Rand|
|000000c0| 61 6c 20 4c 2e 20 53 63 | 68 77 61 72 74 7a 0d 0d |al L. Sc|hwartz..|
|000000d0| 70 61 63 6b 61 67 65 20 | 63 68 61 74 3b 0d 0d 24 |package |chat;..$|
|000000e0| 73 6f 63 6b 61 64 64 72 | 20 3d 20 27 53 20 6e 20 |sockaddr| = 'S n |
|000000f0| 61 34 20 78 38 27 3b 0d | 63 68 6f 70 28 24 74 68 |a4 x8';.|chop($th|
|00000100| 69 73 68 6f 73 74 20 3d | 20 60 68 6f 73 74 6e 61 |ishost =| `hostna|
|00000110| 6d 65 60 29 3b 20 24 74 | 68 69 73 61 64 64 72 20 |me`); $t|hisaddr |
|00000120| 3d 20 28 67 65 74 68 6f | 73 74 62 79 6e 61 6d 65 |= (getho|stbyname|
|00000130| 28 24 74 68 69 73 68 6f | 73 74 29 29 5b 34 5d 3b |($thisho|st))[4];|
|00000140| 0d 24 74 68 69 73 70 72 | 6f 63 20 3d 20 70 61 63 |.$thispr|oc = pac|
|00000150| 6b 28 24 73 6f 63 6b 61 | 64 64 72 2c 20 32 2c 20 |k($socka|ddr, 2, |
|00000160| 30 2c 20 24 74 68 69 73 | 61 64 64 72 29 3b 0d 0d |0, $this|addr);..|
|00000170| 23 20 2a 53 20 3d 20 73 | 79 6d 62 6f 6c 20 66 6f |# *S = s|ymbol fo|
|00000180| 72 20 63 75 72 72 65 6e | 74 20 49 2f 4f 2c 20 67 |r curren|t I/O, g|
|00000190| 65 74 73 20 61 73 73 69 | 67 6e 65 64 20 2a 63 68 |ets assi|gned *ch|
|000001a0| 61 74 73 79 6d 62 6f 6c | 2e 2e 2e 2e 0d 24 6e 65 |atsymbol|.....$ne|
|000001b0| 78 74 20 3d 20 22 63 68 | 61 74 73 79 6d 62 6f 6c |xt = "ch|atsymbol|
|000001c0| 30 30 30 30 30 30 22 3b | 20 23 20 6e 65 78 74 20 |000000";| # next |
|000001d0| 6f 6e 65 0d 24 6e 65 78 | 74 70 61 74 20 3d 20 22 |one.$nex|tpat = "|
|000001e0| 5e 63 68 61 74 73 79 6d | 62 6f 6c 22 3b 20 23 20 |^chatsym|bol"; # |
|000001f0| 70 61 74 74 65 72 6e 73 | 20 74 68 61 74 20 6d 61 |patterns| that ma|
|00000200| 74 63 68 20 6e 65 78 74 | 2b 2b 2c 20 2b 2b 2c 20 |tch next|++, ++, |
|00000210| 2b 2b 2c 20 2b 2b 0d 0d | 0d 23 23 20 24 68 61 6e |++, ++..|.## $han|
|00000220| 64 6c 65 20 3d 20 26 63 | 68 61 74 27 6f 70 65 6e |dle = &c|hat'open|
|00000230| 5f 70 6f 72 74 28 22 73 | 65 72 76 65 72 2e 61 64 |_port("s|erver.ad|
|00000240| 64 72 65 73 73 22 2c 24 | 70 6f 72 74 5f 6e 75 6d |dress",$|port_num|
|00000250| 62 65 72 29 3b 0d 23 23 | 20 6f 70 65 6e 73 20 61 |ber);.##| opens a|
|00000260| 20 6e 61 6d 65 64 20 6f | 72 20 6e 75 6d 62 65 72 | named o|r number|
|00000270| 65 64 20 54 43 50 20 73 | 65 72 76 65 72 0d 0d 73 |ed TCP s|erver..s|
|00000280| 75 62 20 6f 70 65 6e 5f | 70 6f 72 74 20 7b 20 23 |ub open_|port { #|
|00000290| 23 20 70 75 62 6c 69 63 | 0d 09 6c 6f 63 61 6c 28 |# public|..local(|
|000002a0| 24 73 65 72 76 65 72 2c | 20 24 70 6f 72 74 29 20 |$server,| $port) |
|000002b0| 3d 20 40 5f 3b 0d 0d 09 | 6c 6f 63 61 6c 28 24 73 |= @_;...|local($s|
|000002c0| 65 72 76 65 72 61 64 64 | 72 2c 24 73 65 72 76 65 |erveradd|r,$serve|
|000002d0| 72 70 72 6f 63 29 3b 0d | 0d 09 2a 53 20 3d 20 2b |rproc);.|..*S = +|
|000002e0| 2b 24 6e 65 78 74 3b 0d | 09 69 66 20 28 24 73 65 |+$next;.|.if ($se|
|000002f0| 72 76 65 72 20 3d 7e 20 | 2f 5e 28 5c 64 2b 29 2b |rver =~ |/^(\d+)+|
|00000300| 5c 2e 28 5c 64 2b 29 5c | 2e 28 5c 64 2b 29 5c 2e |\.(\d+)\|.(\d+)\.|
|00000310| 28 5c 64 2b 29 24 2f 29 | 20 7b 0d 09 09 24 73 65 |(\d+)$/)| {...$se|
|00000320| 72 76 65 72 61 64 64 72 | 20 3d 20 70 61 63 6b 28 |rveraddr| = pack(|
|00000330| 27 43 34 27 2c 20 24 31 | 2c 20 24 32 2c 20 24 33 |'C4', $1|, $2, $3|
|00000340| 2c 20 24 34 29 3b 0d 09 | 7d 20 65 6c 73 65 20 7b |, $4);..|} else {|
|00000350| 0d 09 09 6c 6f 63 61 6c | 28 40 78 29 20 3d 20 67 |...local|(@x) = g|
|00000360| 65 74 68 6f 73 74 62 79 | 6e 61 6d 65 28 24 73 65 |ethostby|name($se|
|00000370| 72 76 65 72 29 3b 0d 09 | 09 72 65 74 75 72 6e 20 |rver);..|.return |
|00000380| 75 6e 64 65 66 20 75 6e | 6c 65 73 73 20 40 78 3b |undef un|less @x;|
|00000390| 0d 09 09 24 73 65 72 76 | 65 72 61 64 64 72 20 3d |...$serv|eraddr =|
|000003a0| 20 24 78 5b 34 5d 3b 0d | 09 7d 0d 09 24 73 65 72 | $x[4];.|.}..$ser|
|000003b0| 76 65 72 70 72 6f 63 20 | 3d 20 70 61 63 6b 28 24 |verproc |= pack($|
|000003c0| 73 6f 63 6b 61 64 64 72 | 2c 20 32 2c 20 24 70 6f |sockaddr|, 2, $po|
|000003d0| 72 74 2c 20 24 73 65 72 | 76 65 72 61 64 64 72 29 |rt, $ser|veraddr)|
|000003e0| 3b 0d 09 75 6e 6c 65 73 | 73 20 28 73 6f 63 6b 65 |;..unles|s (socke|
|000003f0| 74 28 53 2c 20 32 2c 20 | 31 2c 20 36 29 29 20 7b |t(S, 2, |1, 6)) {|
|00000400| 0d 09 09 23 20 58 58 58 | 20 68 61 72 64 77 69 72 |...# XXX| hardwir|
|00000410| 65 64 20 24 41 46 5f 53 | 4f 43 4b 45 54 2c 20 24 |ed $AF_S|OCKET, $|
|00000420| 53 4f 43 4b 5f 53 54 52 | 45 41 4d 2c 20 27 74 63 |SOCK_STR|EAM, 'tc|
|00000430| 70 27 0d 09 09 23 20 62 | 75 74 20 77 68 6f 20 74 |p'...# b|ut who t|
|00000440| 68 65 20 68 65 63 6b 20 | 77 6f 75 6c 64 20 63 68 |he heck |would ch|
|00000450| 61 6e 67 65 20 74 68 65 | 73 65 20 61 6e 79 77 61 |ange the|se anywa|
|00000460| 79 3f 20 28 3a 2d 29 0d | 09 09 28 24 21 29 20 3d |y? (:-).|..($!) =|
|00000470| 20 28 24 21 2c 20 63 6c | 6f 73 65 28 53 29 29 3b | ($!, cl|ose(S));|
|00000480| 20 23 20 63 6c 6f 73 65 | 20 53 20 77 68 69 6c 65 | # close| S while|
|00000490| 20 73 61 76 69 6e 67 20 | 24 21 0d 09 09 72 65 74 | saving |$!...ret|
|000004a0| 75 72 6e 20 75 6e 64 65 | 66 3b 0d 09 7d 0d 09 75 |urn unde|f;..}..u|
|000004b0| 6e 6c 65 73 73 20 28 62 | 69 6e 64 28 53 2c 20 24 |nless (b|ind(S, $|
|000004c0| 74 68 69 73 70 72 6f 63 | 29 29 20 7b 0d 09 09 28 |thisproc|)) {...(|
|000004d0| 24 21 29 20 3d 20 28 24 | 21 2c 20 63 6c 6f 73 65 |$!) = ($|!, close|
|000004e0| 28 53 29 29 3b 20 23 20 | 63 6c 6f 73 65 20 53 20 |(S)); # |close S |
|000004f0| 77 68 69 6c 65 20 73 61 | 76 69 6e 67 20 24 21 0d |while sa|ving $!.|
|00000500| 09 09 72 65 74 75 72 6e | 20 75 6e 64 65 66 3b 0d |..return| undef;.|
|00000510| 09 7d 0d 09 75 6e 6c 65 | 73 73 20 28 63 6f 6e 6e |.}..unle|ss (conn|
|00000520| 65 63 74 28 53 2c 20 24 | 73 65 72 76 65 72 70 72 |ect(S, $|serverpr|
|00000530| 6f 63 29 29 20 7b 0d 09 | 09 28 24 21 29 20 3d 20 |oc)) {..|.($!) = |
|00000540| 28 24 21 2c 20 63 6c 6f | 73 65 28 53 29 29 3b 20 |($!, clo|se(S)); |
|00000550| 23 20 63 6c 6f 73 65 20 | 53 20 77 68 69 6c 65 20 |# close |S while |
|00000560| 73 61 76 69 6e 67 20 24 | 21 0d 09 09 72 65 74 75 |saving $|!...retu|
|00000570| 72 6e 20 75 6e 64 65 66 | 3b 0d 09 7d 0d 09 73 65 |rn undef|;..}..se|
|00000580| 6c 65 63 74 28 28 73 65 | 6c 65 63 74 28 53 29 2c |lect((se|lect(S),|
|00000590| 20 24 7c 20 3d 20 31 29 | 5b 30 5d 29 3b 0d 09 24 | $| = 1)|[0]);..$|
|000005a0| 6e 65 78 74 3b 20 23 20 | 72 65 74 75 72 6e 20 73 |next; # |return s|
|000005b0| 79 6d 62 6f 6c 20 66 6f | 72 20 73 77 69 74 63 68 |ymbol fo|r switch|
|000005c0| 61 72 6f 75 6e 64 0d 7d | 0d 0d 23 23 20 28 24 68 |around.}|..## ($h|
|000005d0| 6f 73 74 2c 20 24 70 6f | 72 74 2c 20 24 68 61 6e |ost, $po|rt, $han|
|000005e0| 64 6c 65 29 20 3d 20 26 | 63 68 61 74 27 6f 70 65 |dle) = &|chat'ope|
|000005f0| 6e 5f 6c 69 73 74 65 6e | 28 5b 24 70 6f 72 74 5f |n_listen|([$port_|
|00000600| 6e 75 6d 62 65 72 5d 29 | 3b 0d 23 23 20 6f 70 65 |number])|;.## ope|
|00000610| 6e 73 20 61 20 54 43 50 | 20 70 6f 72 74 20 6f 6e |ns a TCP| port on|
|00000620| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6d 61 63 | the cur|rent mac|
|00000630| 68 69 6e 65 2c 20 72 65 | 61 64 79 20 74 6f 20 62 |hine, re|ady to b|
|00000640| 65 20 6c 69 73 74 65 6e | 65 64 20 74 6f 0d 23 23 |e listen|ed to.##|
|00000650| 20 69 66 20 24 70 6f 72 | 74 5f 6e 75 6d 62 65 72 | if $por|t_number|
|00000660| 20 69 73 20 61 62 73 65 | 6e 74 20 6f 72 20 7a 65 | is abse|nt or ze|
|00000670| 72 6f 2c 20 70 69 63 6b | 20 61 20 64 65 66 61 75 |ro, pick| a defau|
|00000680| 6c 74 20 70 6f 72 74 20 | 6e 75 6d 62 65 72 0d 23 |lt port |number.#|
|00000690| 23 20 70 72 6f 63 65 73 | 73 20 6d 75 73 74 20 62 |# proces|s must b|
|000006a0| 65 20 75 69 64 20 30 20 | 74 6f 20 6c 69 73 74 65 |e uid 0 |to liste|
|000006b0| 6e 20 74 6f 20 61 20 6c | 6f 77 20 70 6f 72 74 20 |n to a l|ow port |
|000006c0| 6e 75 6d 62 65 72 0d 0d | 73 75 62 20 6f 70 65 6e |number..|sub open|
|000006d0| 5f 6c 69 73 74 65 6e 20 | 7b 20 23 23 20 70 75 62 |_listen |{ ## pub|
|000006e0| 6c 69 63 0d 0d 09 2a 53 | 20 3d 20 2b 2b 24 6e 65 |lic...*S| = ++$ne|
|000006f0| 78 74 3b 0d 09 6c 6f 63 | 61 6c 28 24 74 68 69 73 |xt;..loc|al($this|
|00000700| 70 6f 72 74 29 20 3d 20 | 73 68 69 66 74 20 7c 7c |port) = |shift |||
|00000710| 20 30 3b 0d 09 6c 6f 63 | 61 6c 28 24 74 68 69 73 | 0;..loc|al($this|
|00000720| 70 72 6f 63 5f 6c 6f 63 | 61 6c 29 20 3d 20 70 61 |proc_loc|al) = pa|
|00000730| 63 6b 28 24 73 6f 63 6b | 61 64 64 72 2c 20 32 2c |ck($sock|addr, 2,|
|00000740| 20 24 74 68 69 73 70 6f | 72 74 2c 20 24 74 68 69 | $thispo|rt, $thi|
|00000750| 73 61 64 64 72 29 3b 0d | 09 6c 6f 63 61 6c 28 2a |saddr);.|.local(*|
|00000760| 4e 53 29 20 3d 20 22 5f | 5f 22 20 2e 20 74 69 6d |NS) = "_|_" . tim|
|00000770| 65 3b 0d 09 75 6e 6c 65 | 73 73 20 28 73 6f 63 6b |e;..unle|ss (sock|
|00000780| 65 74 28 4e 53 2c 20 32 | 2c 20 31 2c 20 36 29 29 |et(NS, 2|, 1, 6))|
|00000790| 20 7b 0d 09 09 23 20 58 | 58 58 20 68 61 72 64 77 | {...# X|XX hardw|
|000007a0| 69 72 65 64 20 24 41 46 | 5f 53 4f 43 4b 45 54 2c |ired $AF|_SOCKET,|
|000007b0| 20 24 53 4f 43 4b 5f 53 | 54 52 45 41 4d 2c 20 27 | $SOCK_S|TREAM, '|
|000007c0| 74 63 70 27 0d 09 09 23 | 20 62 75 74 20 77 68 6f |tcp'...#| but who|
|000007d0| 20 74 68 65 20 68 65 63 | 6b 20 77 6f 75 6c 64 20 | the hec|k would |
|000007e0| 63 68 61 6e 67 65 20 74 | 68 65 73 65 20 61 6e 79 |change t|hese any|
|000007f0| 77 61 79 3f 20 28 3a 2d | 29 0d 09 09 28 24 21 29 |way? (:-|)...($!)|
|00000800| 20 3d 20 28 24 21 2c 20 | 63 6c 6f 73 65 28 4e 53 | = ($!, |close(NS|
|00000810| 29 29 3b 0d 09 09 72 65 | 74 75 72 6e 20 75 6e 64 |));...re|turn und|
|00000820| 65 66 3b 0d 09 7d 0d 09 | 75 6e 6c 65 73 73 20 28 |ef;..}..|unless (|
|00000830| 62 69 6e 64 28 4e 53 2c | 20 24 74 68 69 73 70 72 |bind(NS,| $thispr|
|00000840| 6f 63 5f 6c 6f 63 61 6c | 29 29 20 7b 0d 09 09 28 |oc_local|)) {...(|
|00000850| 24 21 29 20 3d 20 28 24 | 21 2c 20 63 6c 6f 73 65 |$!) = ($|!, close|
|00000860| 28 4e 53 29 29 3b 0d 09 | 09 72 65 74 75 72 6e 20 |(NS));..|.return |
|00000870| 75 6e 64 65 66 3b 0d 09 | 7d 0d 09 75 6e 6c 65 73 |undef;..|}..unles|
|00000880| 73 20 28 6c 69 73 74 65 | 6e 28 4e 53 2c 20 31 29 |s (liste|n(NS, 1)|
|00000890| 29 20 7b 0d 09 09 28 24 | 21 29 20 3d 20 28 24 21 |) {...($|!) = ($!|
|000008a0| 2c 20 63 6c 6f 73 65 28 | 4e 53 29 29 3b 0d 09 09 |, close(|NS));...|
|000008b0| 72 65 74 75 72 6e 20 75 | 6e 64 65 66 3b 0d 09 7d |return u|ndef;..}|
|000008c0| 0d 09 73 65 6c 65 63 74 | 28 28 73 65 6c 65 63 74 |..select|((select|
|000008d0| 28 4e 53 29 2c 20 24 7c | 20 3d 20 31 29 5b 30 5d |(NS), $|| = 1)[0]|
|000008e0| 29 3b 0d 09 6c 6f 63 61 | 6c 28 24 66 61 6d 69 6c |);..loca|l($famil|
|000008f0| 79 2c 20 24 70 6f 72 74 | 2c 20 40 6d 79 61 64 64 |y, $port|, @myadd|
|00000900| 72 29 20 3d 0d 09 09 75 | 6e 70 61 63 6b 28 22 53 |r) =...u|npack("S|
|00000910| 20 6e 20 43 20 43 20 43 | 20 43 20 78 38 22 2c 20 | n C C C| C x8", |
|00000920| 67 65 74 73 6f 63 6b 6e | 61 6d 65 28 4e 53 29 29 |getsockn|ame(NS))|
|00000930| 3b 0d 09 24 53 7b 22 6e | 65 65 64 73 5f 61 63 63 |;..$S{"n|eeds_acc|
|00000940| 65 70 74 22 7d 20 3d 20 | 2a 4e 53 3b 20 23 20 73 |ept"} = |*NS; # s|
|00000950| 6f 20 65 78 70 65 63 74 | 20 77 69 6c 6c 20 6f 70 |o expect| will op|
|00000960| 65 6e 20 69 74 0d 09 28 | 40 6d 79 61 64 64 72 2c |en it..(|@myaddr,|
|00000970| 20 24 70 6f 72 74 2c 20 | 24 6e 65 78 74 29 3b 20 | $port, |$next); |
|00000980| 23 20 72 65 74 75 72 6e | 69 6e 67 20 74 68 69 73 |# return|ing this|
|00000990| 0d 7d 0d 0d 23 23 20 24 | 68 61 6e 64 6c 65 20 3d |.}..## $|handle =|
|000009a0| 20 26 63 68 61 74 27 6f | 70 65 6e 5f 70 72 6f 63 | &chat'o|pen_proc|
|000009b0| 28 22 63 6f 6d 6d 61 6e | 64 22 2c 22 61 72 67 31 |("comman|d","arg1|
|000009c0| 22 2c 22 61 72 67 32 22 | 2c 2e 2e 2e 29 3b 0d 23 |","arg2"|,...);.#|
|000009d0| 23 20 6f 70 65 6e 73 20 | 61 20 2f 62 69 6e 2f 73 |# opens |a /bin/s|
|000009e0| 68 20 6f 6e 20 61 20 70 | 73 65 75 64 6f 2d 74 74 |h on a p|seudo-tt|
|000009f0| 79 0d 0d 73 75 62 20 6f | 70 65 6e 5f 70 72 6f 63 |y..sub o|pen_proc|
|00000a00| 20 7b 20 23 23 20 70 75 | 62 6c 69 63 0d 09 6c 6f | { ## pu|blic..lo|
|00000a10| 63 61 6c 28 40 63 6d 64 | 29 20 3d 20 40 5f 3b 0d |cal(@cmd|) = @_;.|
|00000a20| 0d 09 2a 53 20 3d 20 2b | 2b 24 6e 65 78 74 3b 0d |..*S = +|+$next;.|
|00000a30| 09 6c 6f 63 61 6c 28 2a | 54 54 59 29 20 3d 20 22 |.local(*|TTY) = "|
|00000a40| 5f 5f 54 54 59 22 20 2e | 20 74 69 6d 65 3b 0d 09 |__TTY" .| time;..|
|00000a50| 6c 6f 63 61 6c 28 24 70 | 74 79 2c 24 74 74 79 29 |local($p|ty,$tty)|
|00000a60| 20 3d 20 26 5f 67 65 74 | 70 74 79 28 53 2c 54 54 | = &_get|pty(S,TT|
|00000a70| 59 29 3b 0d 09 64 69 65 | 20 22 43 61 6e 6e 6f 74 |Y);..die| "Cannot|
|00000a80| 20 66 69 6e 64 20 61 20 | 6e 65 77 20 70 74 79 22 | find a |new pty"|
|00000a90| 20 75 6e 6c 65 73 73 20 | 64 65 66 69 6e 65 64 20 | unless |defined |
|00000aa0| 24 70 74 79 3b 0d 09 6c | 6f 63 61 6c 28 24 70 69 |$pty;..l|ocal($pi|
|00000ab0| 64 29 20 3d 20 66 6f 72 | 6b 3b 0d 09 64 69 65 20 |d) = for|k;..die |
|00000ac0| 22 43 61 6e 6e 6f 74 20 | 66 6f 72 6b 3a 20 24 21 |"Cannot |fork: $!|
|00000ad0| 22 20 75 6e 6c 65 73 73 | 20 64 65 66 69 6e 65 64 |" unless| defined|
|00000ae0| 20 24 70 69 64 3b 0d 09 | 75 6e 6c 65 73 73 20 28 | $pid;..|unless (|
|00000af0| 24 70 69 64 29 20 7b 0d | 09 09 63 6c 6f 73 65 20 |$pid) {.|..close |
|00000b00| 53 54 44 49 4e 3b 20 63 | 6c 6f 73 65 20 53 54 44 |STDIN; c|lose STD|
|00000b10| 4f 55 54 3b 20 63 6c 6f | 73 65 20 53 54 44 45 52 |OUT; clo|se STDER|
|00000b20| 52 3b 0d 09 09 73 65 74 | 70 67 72 70 28 30 2c 24 |R;...set|pgrp(0,$|
|00000b30| 24 29 3b 0d 09 09 69 66 | 20 28 6f 70 65 6e 28 44 |$);...if| (open(D|
|00000b40| 45 56 54 54 59 2c 20 22 | 2f 64 65 76 2f 74 74 79 |EVTTY, "|/dev/tty|
|00000b50| 22 29 29 20 7b 0d 09 09 | 20 20 20 20 69 6f 63 74 |")) {...|    ioct|
|00000b60| 6c 28 44 45 56 54 54 59 | 2c 30 78 32 30 30 30 37 |l(DEVTTY|,0x20007|
|00000b70| 34 37 31 2c 30 29 3b 09 | 09 23 20 58 58 58 20 73 |471,0);.|.# XXX s|
|00000b80| 2f 62 20 26 54 49 4f 43 | 4e 4f 54 54 59 0d 09 09 |/b &TIOC|NOTTY...|
|00000b90| 20 20 20 20 63 6c 6f 73 | 65 20 44 45 56 54 54 59 |    clos|e DEVTTY|
|00000ba0| 3b 0d 09 09 7d 0d 09 09 | 6f 70 65 6e 28 53 54 44 |;...}...|open(STD|
|00000bb0| 49 4e 2c 22 3c 26 54 54 | 59 22 29 3b 0d 09 09 6f |IN,"<&TT|Y");...o|
|00000bc0| 70 65 6e 28 53 54 44 4f | 55 54 2c 22 3e 26 54 54 |pen(STDO|UT,">&TT|
|00000bd0| 59 22 29 3b 0d 09 09 6f | 70 65 6e 28 53 54 44 45 |Y");...o|pen(STDE|
|00000be0| 52 52 2c 22 3e 26 53 54 | 44 4f 55 54 22 29 3b 0d |RR,">&ST|DOUT");.|
|00000bf0| 09 09 64 69 65 20 22 4f | 6f 70 73 22 20 75 6e 6c |..die "O|ops" unl|
|00000c00| 65 73 73 20 66 69 6c 65 | 6e 6f 28 53 54 44 45 52 |ess file|no(STDER|
|00000c10| 52 29 20 3d 3d 20 32 3b | 09 23 20 73 61 6e 69 74 |R) == 2;|.# sanit|
|00000c20| 79 0d 09 09 63 6c 6f 73 | 65 28 53 29 3b 0d 09 09 |y...clos|e(S);...|
|00000c30| 65 78 65 63 20 40 63 6d | 64 3b 0d 09 09 64 69 65 |exec @cm|d;...die|
|00000c40| 20 22 43 61 6e 6e 6f 74 | 20 65 78 65 63 20 40 63 | "Cannot| exec @c|
|00000c50| 6d 64 3a 20 24 21 22 3b | 0d 09 7d 0d 09 63 6c 6f |md: $!";|..}..clo|
|00000c60| 73 65 28 54 54 59 29 3b | 0d 09 24 50 49 44 7b 24 |se(TTY);|..$PID{$|
|00000c70| 6e 65 78 74 7d 20 3d 20 | 24 70 69 64 3b 0d 09 24 |next} = |$pid;..$|
|00000c80| 6e 65 78 74 3b 20 23 20 | 72 65 74 75 72 6e 20 73 |next; # |return s|
|00000c90| 79 6d 62 6f 6c 20 66 6f | 72 20 73 77 69 74 63 68 |ymbol fo|r switch|
|00000ca0| 61 72 6f 75 6e 64 0d 7d | 0d 0d 23 20 24 53 20 69 |around.}|..# $S i|
|00000cb0| 73 20 74 68 65 20 72 65 | 61 64 2d 61 68 65 61 64 |s the re|ad-ahead|
|00000cc0| 20 62 75 66 66 65 72 0d | 0d 23 23 20 24 72 65 74 | buffer.|.## $ret|
|00000cd0| 75 72 6e 20 3d 20 26 63 | 68 61 74 27 65 78 70 65 |urn = &c|hat'expe|
|00000ce0| 63 74 28 5b 24 68 61 6e | 64 6c 65 2c 5d 20 24 74 |ct([$han|dle,] $t|
|00000cf0| 69 6d 65 6f 75 74 5f 74 | 69 6d 65 2c 0d 23 23 20 |imeout_t|ime,.## |
|00000d00| 09 24 70 61 74 31 2c 20 | 24 62 6f 64 79 31 2c 20 |.$pat1, |$body1, |
|00000d10| 24 70 61 74 32 2c 20 24 | 62 6f 64 79 32 2c 20 2e |$pat2, $|body2, .|
|00000d20| 2e 2e 20 29 0d 23 23 20 | 24 68 61 6e 64 6c 65 20 |.. ).## |$handle |
|00000d30| 69 73 20 66 72 6f 6d 20 | 70 72 65 76 69 6f 75 73 |is from |previous|
|00000d40| 20 26 63 68 61 74 27 6f | 70 65 6e 5f 2a 28 29 2e | &chat'o|pen_*().|
|00000d50| 0d 23 23 20 24 74 69 6d | 65 6f 75 74 5f 74 69 6d |.## $tim|eout_tim|
|00000d60| 65 20 69 73 20 74 68 65 | 20 74 69 6d 65 20 28 65 |e is the| time (e|
|00000d70| 69 74 68 65 72 20 72 65 | 6c 61 74 69 76 65 20 74 |ither re|lative t|
|00000d80| 6f 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 74 69 |o the cu|rrent ti|
|00000d90| 6d 65 2c 20 6f 72 0d 23 | 23 20 61 62 73 6f 6c 75 |me, or.#|# absolu|
|00000da0| 74 65 2c 20 61 6c 61 20 | 74 69 6d 65 28 32 29 29 |te, ala |time(2))|
|00000db0| 20 61 74 20 77 68 69 63 | 68 20 61 20 74 69 6d 65 | at whic|h a time|
|00000dc0| 6f 75 74 20 65 76 65 6e | 74 20 6f 63 63 75 72 73 |out even|t occurs|
|00000dd0| 2e 0d 23 23 20 24 70 61 | 74 31 2c 20 24 70 61 74 |..## $pa|t1, $pat|
|00000de0| 32 2c 20 61 6e 64 20 73 | 6f 20 6f 6e 20 61 72 65 |2, and s|o on are|
|00000df0| 20 72 65 67 65 78 73 20 | 77 68 69 63 68 20 61 72 | regexs |which ar|
|00000e00| 65 20 6d 61 74 63 68 65 | 64 20 61 67 61 69 6e 73 |e matche|d agains|
|00000e10| 74 20 74 68 65 20 69 6e | 70 75 74 0d 23 23 20 73 |t the in|put.## s|
|00000e20| 74 72 65 61 6d 2e 20 20 | 49 66 20 61 20 6d 61 74 |tream.  |If a mat|
|00000e30| 63 68 20 69 73 20 66 6f | 75 6e 64 2c 20 74 68 65 |ch is fo|und, the|
|00000e40| 20 65 6e 74 69 72 65 20 | 6d 61 74 63 68 65 64 20 | entire |matched |
|00000e50| 73 74 72 69 6e 67 20 69 | 73 20 63 6f 6e 73 75 6d |string i|s consum|
|00000e60| 65 64 2c 0d 23 23 20 61 | 6e 64 20 74 68 65 20 63 |ed,.## a|nd the c|
|00000e70| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 62 6f 64 |orrespon|ding bod|
|00000e80| 79 20 65 76 61 6c 20 73 | 74 72 69 6e 67 20 69 73 |y eval s|tring is|
|00000e90| 20 65 76 61 6c 65 64 2e | 0d 23 23 0d 23 23 20 45 | evaled.|.##.## E|
|00000ea0| 61 63 68 20 70 61 74 20 | 69 73 20 61 20 72 65 67 |ach pat |is a reg|
|00000eb0| 75 6c 61 72 2d 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular-exp|ression |
|00000ec0| 28 70 72 6f 62 61 62 6c | 79 20 65 6e 63 6c 6f 73 |(probabl|y enclos|
|00000ed0| 65 64 20 69 6e 20 73 69 | 6e 67 6c 65 2d 71 75 6f |ed in si|ngle-quo|
|00000ee0| 74 65 73 0d 23 23 20 69 | 6e 20 74 68 65 20 69 6e |tes.## i|n the in|
|00000ef0| 76 6f 63 61 74 69 6f 6e | 29 2e 20 20 5e 20 61 6e |vocation|).  ^ an|
|00000f00| 64 20 24 20 77 69 6c 6c | 20 77 6f 72 6b 2c 20 72 |d $ will| work, r|
|00000f10| 65 73 70 65 63 74 69 6e | 67 20 74 68 65 20 63 75 |espectin|g the cu|
|00000f20| 72 72 65 6e 74 20 76 61 | 6c 75 65 20 6f 66 20 24 |rrent va|lue of $|
|00000f30| 2a 2e 0d 23 23 20 49 66 | 20 70 61 74 20 69 73 20 |*..## If| pat is |
|00000f40| 27 54 49 4d 45 4f 55 54 | 27 2c 20 74 68 65 20 62 |'TIMEOUT|', the b|
|00000f50| 6f 64 79 20 69 73 20 65 | 78 65 63 75 74 65 64 20 |ody is e|xecuted |
|00000f60| 69 66 20 74 68 65 20 74 | 69 6d 65 6f 75 74 20 69 |if the t|imeout i|
|00000f70| 73 20 65 78 63 65 65 64 | 65 64 2e 0d 23 23 20 49 |s exceed|ed..## I|
|00000f80| 66 20 70 61 74 20 69 73 | 20 27 45 4f 46 27 2c 20 |f pat is| 'EOF', |
|00000f90| 74 68 65 20 62 6f 64 79 | 20 69 73 20 65 78 65 63 |the body| is exec|
|00000fa0| 75 74 65 64 20 69 66 20 | 74 68 65 20 70 72 6f 63 |uted if |the proc|
|00000fb0| 65 73 73 20 65 78 69 74 | 73 20 62 65 66 6f 72 65 |ess exit|s before|
|00000fc0| 0d 23 23 20 74 68 65 20 | 6f 74 68 65 72 20 70 61 |.## the |other pa|
|00000fd0| 74 74 65 72 6e 73 20 61 | 72 65 20 73 65 65 6e 2e |tterns a|re seen.|
|00000fe0| 0d 23 23 0d 23 23 20 50 | 61 74 73 20 61 72 65 20 |.##.## P|ats are |
|00000ff0| 73 63 61 6e 6e 65 64 20 | 69 6e 20 74 68 65 20 6f |scanned |in the o|
|00001000| 72 64 65 72 20 67 69 76 | 65 6e 2c 20 73 6f 20 6c |rder giv|en, so l|
|00001010| 61 74 65 72 20 70 61 74 | 73 20 63 61 6e 20 63 6f |ater pat|s can co|
|00001020| 6e 74 61 69 6e 0d 23 23 | 20 67 65 6e 65 72 61 6c |ntain.##| general|
|00001030| 20 64 65 66 61 75 6c 74 | 73 20 74 68 61 74 20 77 | default|s that w|
|00001040| 6f 6e 27 74 20 62 65 20 | 65 78 61 6d 69 6e 65 64 |on't be |examined|
|00001050| 20 75 6e 6c 65 73 73 20 | 74 68 65 20 65 61 72 6c | unless |the earl|
|00001060| 69 65 72 20 70 61 74 73 | 0d 23 23 20 68 61 76 65 |ier pats|.## have|
|00001070| 20 66 61 69 6c 65 64 2e | 0d 23 23 0d 23 23 20 54 | failed.|.##.## T|
|00001080| 68 65 20 72 65 73 75 6c | 74 20 6f 66 20 65 76 61 |he resul|t of eva|
|00001090| 6c 27 69 6e 67 20 62 6f | 64 79 20 69 73 20 72 65 |l'ing bo|dy is re|
|000010a0| 74 75 72 6e 65 64 20 61 | 73 20 74 68 65 20 72 65 |turned a|s the re|
|000010b0| 73 75 6c 74 20 6f 66 0d | 23 23 20 74 68 65 20 69 |sult of.|## the i|
|000010c0| 6e 76 6f 63 61 74 69 6f | 6e 2e 20 20 52 65 63 75 |nvocatio|n.  Recu|
|000010d0| 72 73 69 76 65 20 69 6e | 76 6f 63 61 74 69 6f 6e |rsive in|vocation|
|000010e0| 73 20 61 72 65 20 6e 6f | 74 20 74 68 6f 75 67 68 |s are no|t though|
|000010f0| 74 0d 23 23 20 74 68 72 | 6f 75 67 68 2c 20 61 6e |t.## thr|ough, an|
|00001100| 64 20 6d 61 79 20 77 6f | 72 6b 20 6f 6e 6c 79 20 |d may wo|rk only |
|00001110| 61 63 63 69 64 65 6e 74 | 61 6c 6c 79 2e 20 3a 2d |accident|ally. :-|
|00001120| 29 0d 23 23 0d 23 23 20 | 75 6e 64 65 66 20 69 73 |).##.## |undef is|
|00001130| 20 72 65 74 75 72 6e 65 | 64 20 69 66 20 65 69 74 | returne|d if eit|
|00001140| 68 65 72 20 61 20 74 69 | 6d 65 6f 75 74 20 6f 72 |her a ti|meout or|
|00001150| 20 61 6e 20 65 6f 66 20 | 6f 63 63 75 72 73 20 61 | an eof |occurs a|
|00001160| 6e 64 20 6e 6f 0d 23 23 | 20 63 6f 72 72 65 73 70 |nd no.##| corresp|
|00001170| 6f 6e 64 69 6e 67 20 62 | 6f 64 79 20 68 61 73 20 |onding b|ody has |
|00001180| 62 65 65 6e 20 64 65 66 | 69 6e 65 64 2e 0d 23 23 |been def|ined..##|
|00001190| 20 49 2f 4f 20 65 72 72 | 6f 72 73 20 6f 66 20 61 | I/O err|ors of a|
|000011a0| 6e 79 20 73 6f 72 74 20 | 61 72 65 20 74 72 65 61 |ny sort |are trea|
|000011b0| 74 65 64 20 61 73 20 65 | 6f 66 2e 0d 0d 24 6e 65 |ted as e|of...$ne|
|000011c0| 78 74 73 75 62 6e 61 6d | 65 20 3d 20 22 65 78 70 |xtsubnam|e = "exp|
|000011d0| 65 63 74 6c 6f 6f 70 30 | 30 30 30 30 30 22 3b 20 |ectloop0|00000"; |
|000011e0| 23 20 75 73 65 64 20 66 | 6f 72 20 73 75 62 72 6f |# used f|or subro|
|000011f0| 75 74 69 6e 65 73 0d 0d | 73 75 62 20 65 78 70 65 |utines..|sub expe|
|00001200| 63 74 20 7b 20 23 23 20 | 70 75 62 6c 69 63 0d 09 |ct { ## |public..|
|00001210| 69 66 20 28 24 5f 5b 30 | 5d 20 3d 7e 20 2f 24 6e |if ($_[0|] =~ /$n|
|00001220| 65 78 74 70 61 74 2f 29 | 20 7b 0d 09 09 2a 53 20 |extpat/)| {...*S |
|00001230| 3d 20 73 68 69 66 74 3b | 0d 09 7d 0d 09 6c 6f 63 |= shift;|..}..loc|
|00001240| 61 6c 28 24 65 6e 64 74 | 69 6d 65 29 20 3d 20 73 |al($endt|ime) = s|
|00001250| 68 69 66 74 3b 0d 0d 09 | 6c 6f 63 61 6c 28 24 74 |hift;...|local($t|
|00001260| 69 6d 65 6f 75 74 2c 24 | 65 6f 66 29 20 3d 20 28 |imeout,$|eof) = (|
|00001270| 31 2c 31 29 3b 0d 09 6c | 6f 63 61 6c 28 24 63 61 |1,1);..l|ocal($ca|
|00001280| 6c 6c 65 72 29 20 3d 20 | 63 61 6c 6c 65 72 3b 0d |ller) = |caller;.|
|00001290| 09 6c 6f 63 61 6c 28 24 | 72 6d 61 73 6b 2c 20 24 |.local($|rmask, $|
|000012a0| 6e 66 6f 75 6e 64 2c 20 | 24 74 69 6d 65 6c 65 66 |nfound, |$timelef|
|000012b0| 74 2c 20 24 74 68 69 73 | 62 75 66 29 3b 0d 09 6c |t, $this|buf);..l|
|000012c0| 6f 63 61 6c 28 24 63 61 | 73 65 73 2c 20 24 70 61 |ocal($ca|ses, $pa|
|000012d0| 74 74 65 72 6e 2c 20 24 | 61 63 74 69 6f 6e 2c 20 |ttern, $|action, |
|000012e0| 24 73 75 62 6e 61 6d 65 | 29 3b 0d 09 24 65 6e 64 |$subname|);..$end|
|000012f0| 74 69 6d 65 20 2b 3d 20 | 74 69 6d 65 20 69 66 20 |time += |time if |
|00001300| 24 65 6e 64 74 69 6d 65 | 20 3c 20 36 30 30 5f 30 |$endtime| < 600_0|
|00001310| 30 30 5f 30 30 30 3b 0d | 0d 09 69 66 20 28 64 65 |00_000;.|..if (de|
|00001320| 66 69 6e 65 64 20 24 53 | 7b 22 6e 65 65 64 73 5f |fined $S|{"needs_|
|00001330| 61 63 63 65 70 74 22 7d | 29 20 7b 20 23 20 69 73 |accept"}|) { # is|
|00001340| 20 69 74 20 61 20 6c 69 | 73 74 65 6e 20 73 6f 63 | it a li|sten soc|
|00001350| 6b 65 74 3f 0d 09 09 6c | 6f 63 61 6c 28 2a 4e 53 |ket?...l|ocal(*NS|
|00001360| 29 20 3d 20 24 53 7b 22 | 6e 65 65 64 73 5f 61 63 |) = $S{"|needs_ac|
|00001370| 63 65 70 74 22 7d 3b 0d | 09 09 64 65 6c 65 74 65 |cept"};.|..delete|
|00001380| 20 24 53 7b 22 6e 65 65 | 64 73 5f 61 63 63 65 70 | $S{"nee|ds_accep|
|00001390| 74 22 7d 3b 0d 09 09 24 | 53 7b 22 6e 65 65 64 73 |t"};...$|S{"needs|
|000013a0| 5f 63 6c 6f 73 65 22 7d | 20 3d 20 2a 4e 53 3b 0d |_close"}| = *NS;.|
|000013b0| 09 09 75 6e 6c 65 73 73 | 28 61 63 63 65 70 74 28 |..unless|(accept(|
|000013c0| 53 2c 4e 53 29 29 20 7b | 0d 09 09 09 28 24 21 29 |S,NS)) {|....($!)|
|000013d0| 20 3d 20 28 24 21 2c 20 | 63 6c 6f 73 65 28 53 29 | = ($!, |close(S)|
|000013e0| 2c 20 63 6c 6f 73 65 28 | 4e 53 29 29 3b 0d 09 09 |, close(|NS));...|
|000013f0| 09 72 65 74 75 72 6e 20 | 75 6e 64 65 66 3b 0d 09 |.return |undef;..|
|00001400| 09 7d 0d 09 09 73 65 6c | 65 63 74 28 28 73 65 6c |.}...sel|ect((sel|
|00001410| 65 63 74 28 53 29 2c 20 | 24 7c 20 3d 20 31 29 5b |ect(S), |$| = 1)[|
|00001420| 30 5d 29 3b 0d 09 7d 0d | 0d 09 23 20 6e 6f 77 20 |0]);..}.|..# now |
|00001430| 73 65 65 20 77 68 65 74 | 68 65 72 20 77 65 20 6e |see whet|her we n|
|00001440| 65 65 64 20 74 6f 20 63 | 72 65 61 74 65 20 61 20 |eed to c|reate a |
|00001450| 6e 65 77 20 73 75 62 3a | 0d 0d 09 75 6e 6c 65 73 |new sub:|...unles|
|00001460| 73 20 28 24 73 75 62 6e | 61 6d 65 20 3d 20 24 65 |s ($subn|ame = $e|
|00001470| 78 70 65 63 74 5f 73 75 | 62 6e 61 6d 65 7b 24 63 |xpect_su|bname{$c|
|00001480| 61 6c 6c 65 72 2c 40 5f | 7d 29 20 7b 0d 09 09 23 |aller,@_|}) {...#|
|00001490| 20 6e 6f 70 65 2e 20 20 | 6d 61 6b 65 20 61 20 6e | nope.  |make a n|
|000014a0| 65 77 20 6f 6e 65 3a 0d | 09 09 24 65 78 70 65 63 |ew one:.|..$expec|
|000014b0| 74 5f 73 75 62 6e 61 6d | 65 7b 24 63 61 6c 6c 65 |t_subnam|e{$calle|
|000014c0| 72 2c 40 5f 7d 20 3d 20 | 24 73 75 62 6e 61 6d 65 |r,@_} = |$subname|
|000014d0| 20 3d 20 24 6e 65 78 74 | 73 75 62 6e 61 6d 65 2b | = $next|subname+|
|000014e0| 2b 3b 0d 0d 09 09 24 63 | 61 73 65 73 20 2e 3d 20 |+;....$c|ases .= |
|000014f0| 3c 3c 22 45 44 51 22 3b | 20 23 20 68 65 61 64 65 |<<"EDQ";| # heade|
|00001500| 72 20 69 73 20 66 75 6e | 6e 79 20 74 6f 20 6d 61 |r is fun|ny to ma|
|00001510| 6b 65 20 65 76 65 72 79 | 74 68 69 6e 67 20 65 6c |ke every|thing el|
|00001520| 73 69 66 27 73 0d 73 75 | 62 20 24 73 75 62 6e 61 |sif's.su|b $subna|
|00001530| 6d 65 20 7b 0d 09 4c 4f | 4f 50 3a 20 7b 0d 09 09 |me {..LO|OP: {...|
|00001540| 69 66 20 28 30 29 20 7b | 20 3b 20 7d 0d 45 44 51 |if (0) {| ; }.EDQ|
|00001550| 0d 09 09 77 68 69 6c 65 | 20 28 40 5f 29 20 7b 0d |...while| (@_) {.|
|00001560| 09 09 09 28 24 70 61 74 | 74 65 72 6e 2c 24 61 63 |...($pat|tern,$ac|
|00001570| 74 69 6f 6e 29 20 3d 20 | 73 70 6c 69 63 65 28 40 |tion) = |splice(@|
|00001580| 5f 2c 30 2c 32 29 3b 0d | 09 09 09 69 66 20 28 24 |_,0,2);.|...if ($|
|00001590| 70 61 74 74 65 72 6e 20 | 3d 7e 20 2f 5e 65 6f 66 |pattern |=~ /^eof|
|000015a0| 24 2f 69 29 20 7b 0d 09 | 09 09 09 24 63 61 73 65 |$/i) {..|...$case|
|000015b0| 73 20 2e 3d 20 3c 3c 22 | 45 44 51 22 3b 0d 09 09 |s .= <<"|EDQ";...|
|000015c0| 65 6c 73 69 66 20 28 5c | 24 65 6f 66 29 20 7b 0d |elsif (\|$eof) {.|
|000015d0| 09 20 09 09 70 61 63 6b | 61 67 65 20 24 63 61 6c |. ..pack|age $cal|
|000015e0| 6c 65 72 3b 0d 09 09 09 | 24 61 63 74 69 6f 6e 3b |ler;....|$action;|
|000015f0| 0d 09 09 7d 0d 45 44 51 | 0d 09 09 09 09 24 65 6f |...}.EDQ|.....$eo|
|00001600| 66 20 3d 20 30 3b 0d 09 | 09 09 7d 20 65 6c 73 69 |f = 0;..|..} elsi|
|00001610| 66 20 28 24 70 61 74 74 | 65 72 6e 20 3d 7e 20 2f |f ($patt|ern =~ /|
|00001620| 5e 74 69 6d 65 6f 75 74 | 24 2f 69 29 20 7b 0d 09 |^timeout|$/i) {..|
|00001630| 09 09 24 63 61 73 65 73 | 20 2e 3d 20 3c 3c 22 45 |..$cases| .= <<"E|
|00001640| 44 51 22 3b 0d 09 09 65 | 6c 73 69 66 20 28 5c 24 |DQ";...e|lsif (\$|
|00001650| 74 69 6d 65 6f 75 74 29 | 20 7b 0d 09 09 20 09 70 |timeout)| {... .p|
|00001660| 61 63 6b 61 67 65 20 24 | 63 61 6c 6c 65 72 3b 0d |ackage $|caller;.|
|00001670| 09 09 09 24 61 63 74 69 | 6f 6e 3b 0d 09 09 7d 0d |...$acti|on;...}.|
|00001680| 45 44 51 0d 09 09 09 09 | 24 74 69 6d 65 6f 75 74 |EDQ.....|$timeout|
|00001690| 20 3d 20 30 3b 0d 09 09 | 09 7d 20 65 6c 73 65 20 | = 0;...|.} else |
|000016a0| 7b 0d 09 09 09 09 24 70 | 61 74 74 65 72 6e 20 3d |{.....$p|attern =|
|000016b0| 7e 20 73 23 2f 23 5c 5c | 2f 23 67 3b 0d 09 09 09 |~ s#/#\\|/#g;....|
|000016c0| 24 63 61 73 65 73 20 2e | 3d 20 3c 3c 22 45 44 51 |$cases .|= <<"EDQ|
|000016d0| 22 3b 0d 09 09 65 6c 73 | 69 66 20 28 5c 24 53 20 |";...els|if (\$S |
|000016e0| 3d 7e 20 2f 24 70 61 74 | 74 65 72 6e 2f 29 20 7b |=~ /$pat|tern/) {|
|000016f0| 0d 09 09 09 5c 24 53 20 | 3d 20 5c 24 27 3b 0d 09 |....\$S |= \$';..|
|00001700| 09 20 09 70 61 63 6b 61 | 67 65 20 24 63 61 6c 6c |. .packa|ge $call|
|00001710| 65 72 3b 0d 09 09 09 24 | 61 63 74 69 6f 6e 3b 0d |er;....$|action;.|
|00001720| 09 09 7d 0d 45 44 51 0d | 09 09 09 7d 0d 09 09 7d |..}.EDQ.|...}...}|
|00001730| 0d 09 09 24 63 61 73 65 | 73 20 2e 3d 20 3c 3c 22 |...$case|s .= <<"|
|00001740| 45 44 51 22 20 69 66 20 | 24 65 6f 66 3b 0d 09 09 |EDQ" if |$eof;...|
|00001750| 65 6c 73 69 66 20 28 5c | 24 65 6f 66 29 20 7b 0d |elsif (\|$eof) {.|
|00001760| 09 09 09 75 6e 64 65 66 | 3b 0d 09 09 7d 0d 45 44 |...undef|;...}.ED|
|00001770| 51 0d 09 09 24 63 61 73 | 65 73 20 2e 3d 20 3c 3c |Q...$cas|es .= <<|
|00001780| 22 45 44 51 22 20 69 66 | 20 24 74 69 6d 65 6f 75 |"EDQ" if| $timeou|
|00001790| 74 3b 0d 09 09 65 6c 73 | 69 66 20 28 5c 24 74 69 |t;...els|if (\$ti|
|000017a0| 6d 65 6f 75 74 29 20 7b | 0d 09 09 09 75 6e 64 65 |meout) {|....unde|
|000017b0| 66 3b 0d 09 09 7d 0d 45 | 44 51 0d 09 09 24 63 61 |f;...}.E|DQ...$ca|
|000017c0| 73 65 73 20 2e 3d 20 3c | 3c 27 45 53 51 27 3b 0d |ses .= <|<'ESQ';.|
|000017d0| 09 09 65 6c 73 65 20 7b | 0d 09 09 09 24 72 6d 61 |..else {|....$rma|
|000017e0| 73 6b 20 3d 20 22 22 3b | 0d 09 09 09 76 65 63 28 |sk = "";|....vec(|
|000017f0| 24 72 6d 61 73 6b 2c 66 | 69 6c 65 6e 6f 28 53 29 |$rmask,f|ileno(S)|
|00001800| 2c 31 29 20 3d 20 31 3b | 0d 09 09 09 28 24 6e 66 |,1) = 1;|....($nf|
|00001810| 6f 75 6e 64 2c 20 24 72 | 6d 61 73 6b 29 20 3d 0d |ound, $r|mask) =.|
|00001820| 09 09 20 09 09 73 65 6c | 65 63 74 28 24 72 6d 61 |.. ..sel|ect($rma|
|00001830| 73 6b 2c 20 75 6e 64 65 | 66 2c 20 75 6e 64 65 66 |sk, unde|f, undef|
|00001840| 2c 20 24 65 6e 64 74 69 | 6d 65 20 2d 20 74 69 6d |, $endti|me - tim|
|00001850| 65 29 3b 0d 09 09 09 69 | 66 20 28 24 6e 66 6f 75 |e);....i|f ($nfou|
|00001860| 6e 64 29 20 7b 0d 09 09 | 09 09 24 6e 72 65 61 64 |nd) {...|..$nread|
|00001870| 20 3d 20 73 79 73 72 65 | 61 64 28 53 2c 20 24 74 | = sysre|ad(S, $t|
|00001880| 68 69 73 62 75 66 2c 20 | 31 30 32 34 29 3b 0d 09 |hisbuf, |1024);..|
|00001890| 09 09 09 69 66 20 28 24 | 6e 72 65 61 64 20 3e 20 |...if ($|nread > |
|000018a0| 30 29 20 7b 0d 09 09 09 | 09 09 24 53 20 2e 3d 20 |0) {....|..$S .= |
|000018b0| 24 74 68 69 73 62 75 66 | 3b 0d 09 09 09 09 7d 20 |$thisbuf|;.....} |
|000018c0| 65 6c 73 65 20 7b 0d 09 | 09 09 09 09 24 65 6f 66 |else {..|....$eof|
|000018d0| 2b 2b 2c 20 72 65 64 6f | 20 4c 4f 4f 50 3b 20 23 |++, redo| LOOP; #|
|000018e0| 20 61 6e 79 20 65 72 72 | 6f 72 20 69 73 20 61 6c | any err|or is al|
|000018f0| 73 6f 20 65 6f 66 0d 09 | 09 09 09 7d 0d 09 09 09 |so eof..|...}....|
|00001900| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 09 24 74 69 |} else {|.....$ti|
|00001910| 6d 65 6f 75 74 2b 2b 2c | 20 72 65 64 6f 20 4c 4f |meout++,| redo LO|
|00001920| 4f 50 3b 20 23 20 74 69 | 6d 65 6f 75 74 0d 09 09 |OP; # ti|meout...|
|00001930| 09 7d 0d 09 09 09 72 65 | 64 6f 20 4c 4f 4f 50 3b |.}....re|do LOOP;|
|00001940| 0d 09 09 7d 0d 09 7d 0d | 7d 0d 45 53 51 0d 09 09 |...}..}.|}.ESQ...|
|00001950| 65 76 61 6c 20 24 63 61 | 73 65 73 3b 20 64 69 65 |eval $ca|ses; die|
|00001960| 20 22 24 63 61 73 65 73 | 3a 5c 6e 24 40 22 20 69 | "$cases|:\n$@" i|
|00001970| 66 20 24 40 3b 0d 09 7d | 0d 09 24 65 6f 66 20 3d |f $@;..}|..$eof =|
|00001980| 20 24 74 69 6d 65 6f 75 | 74 20 3d 20 30 3b 0d 09 | $timeou|t = 0;..|
|00001990| 64 6f 20 24 73 75 62 6e | 61 6d 65 28 29 3b 0d 7d |do $subn|ame();.}|
|000019a0| 0d 0d 23 23 20 26 63 68 | 61 74 27 70 72 69 6e 74 |..## &ch|at'print|
|000019b0| 28 5b 24 68 61 6e 64 6c | 65 2c 5d 20 40 64 61 74 |([$handl|e,] @dat|
|000019c0| 61 29 0d 23 23 20 24 68 | 61 6e 64 6c 65 20 69 73 |a).## $h|andle is|
|000019d0| 20 66 72 6f 6d 20 70 72 | 65 76 69 6f 75 73 20 26 | from pr|evious &|
|000019e0| 63 68 61 74 27 6f 70 65 | 6e 28 29 2e 0d 23 23 20 |chat'ope|n()..## |
|000019f0| 6c 69 6b 65 20 70 72 69 | 6e 74 20 24 68 61 6e 64 |like pri|nt $hand|
|00001a00| 6c 65 20 40 64 61 74 61 | 0d 0d 73 75 62 20 70 72 |le @data|..sub pr|
|00001a10| 69 6e 74 20 7b 20 23 23 | 20 70 75 62 6c 69 63 0d |int { ##| public.|
|00001a20| 09 69 66 20 28 24 5f 5b | 30 5d 20 3d 7e 20 2f 24 |.if ($_[|0] =~ /$|
|00001a30| 6e 65 78 74 70 61 74 2f | 29 20 7b 0d 09 09 2a 53 |nextpat/|) {...*S|
|00001a40| 20 3d 20 73 68 69 66 74 | 3b 0d 09 7d 0d 09 70 72 | = shift|;..}..pr|
|00001a50| 69 6e 74 20 53 20 40 5f | 3b 0d 7d 0d 0d 23 23 20 |int S @_|;.}..## |
|00001a60| 26 63 68 61 74 27 63 6c | 6f 73 65 28 5b 24 68 61 |&chat'cl|ose([$ha|
|00001a70| 6e 64 6c 65 2c 5d 29 0d | 23 23 20 24 68 61 6e 64 |ndle,]).|## $hand|
|00001a80| 6c 65 20 69 73 20 66 72 | 6f 6d 20 70 72 65 76 69 |le is fr|om previ|
|00001a90| 6f 75 73 20 26 63 68 61 | 74 27 6f 70 65 6e 28 29 |ous &cha|t'open()|
|00001aa0| 2e 0d 23 23 20 6c 69 6b | 65 20 63 6c 6f 73 65 20 |..## lik|e close |
|00001ab0| 24 68 61 6e 64 6c 65 0d | 0d 73 75 62 20 63 6c 6f |$handle.|.sub clo|
|00001ac0| 73 65 20 7b 20 23 23 20 | 70 75 62 6c 69 63 0d 09 |se { ## |public..|
|00001ad0| 6c 6f 63 61 6c 28 24 70 | 69 64 29 3b 0d 09 69 66 |local($p|id);..if|
|00001ae0| 20 28 24 5f 5b 30 5d 20 | 3d 7e 20 2f 24 6e 65 78 | ($_[0] |=~ /$nex|
|00001af0| 74 70 61 74 2f 29 20 7b | 0d 09 09 24 70 69 64 20 |tpat/) {|...$pid |
|00001b00| 3d 20 24 50 49 44 7b 24 | 5f 5b 30 5d 7d 3b 0d 09 |= $PID{$|_[0]};..|
|00001b10| 20 09 2a 53 20 3d 20 73 | 68 69 66 74 3b 0d 09 7d | .*S = s|hift;..}|
|00001b20| 20 65 6c 73 65 20 7b 0d | 09 09 24 70 69 64 20 3d | else {.|..$pid =|
|00001b30| 20 24 50 49 44 7b 24 6e | 65 78 74 7d 3b 0d 09 7d | $PID{$n|ext};..}|
|00001b40| 0d 09 63 6c 6f 73 65 28 | 53 29 3b 0d 09 77 61 69 |..close(|S);..wai|
|00001b50| 74 70 69 64 28 24 70 69 | 64 2c 30 29 3b 0d 09 69 |tpid($pi|d,0);..i|
|00001b60| 66 20 28 64 65 66 69 6e | 65 64 20 24 53 7b 22 6e |f (defin|ed $S{"n|
|00001b70| 65 65 64 73 5f 63 6c 6f | 73 65 22 7d 29 20 7b 20 |eeds_clo|se"}) { |
|00001b80| 23 20 69 73 20 69 74 20 | 61 20 6c 69 73 74 65 6e |# is it |a listen|
|00001b90| 20 73 6f 63 6b 65 74 3f | 0d 09 09 6c 6f 63 61 6c | socket?|...local|
|00001ba0| 28 2a 4e 53 29 20 3d 20 | 24 53 7b 22 6e 65 65 64 |(*NS) = |$S{"need|
|00001bb0| 73 5f 63 6c 6f 73 65 22 | 7d 3b 0d 09 09 64 65 6c |s_close"|};...del|
|00001bc0| 65 74 65 20 24 53 7b 22 | 6e 65 65 64 73 5f 63 6c |ete $S{"|needs_cl|
|00001bd0| 6f 73 65 22 7d 3b 0d 09 | 09 63 6c 6f 73 65 28 4e |ose"};..|.close(N|
|00001be0| 53 29 3b 0d 09 7d 0d 7d | 0d 0d 23 23 20 40 72 65 |S);..}.}|..## @re|
|00001bf0| 61 64 79 5f 68 61 6e 64 | 6c 65 73 20 3d 20 26 63 |ady_hand|les = &c|
|00001c00| 68 61 74 27 73 65 6c 65 | 63 74 28 24 74 69 6d 65 |hat'sele|ct($time|
|00001c10| 6f 75 74 2c 20 40 68 61 | 6e 64 6c 65 73 29 0d 23 |out, @ha|ndles).#|
|00001c20| 23 20 73 65 6c 65 63 74 | 28 29 27 73 20 74 68 65 |# select|()'s the|
|00001c30| 20 68 61 6e 64 6c 65 73 | 20 77 69 74 68 20 61 20 | handles| with a |
|00001c40| 74 69 6d 65 6f 75 74 20 | 76 61 6c 75 65 20 6f 66 |timeout |value of|
|00001c50| 20 24 74 69 6d 65 6f 75 | 74 20 73 65 63 6f 6e 64 | $timeou|t second|
|00001c60| 73 2e 0d 23 23 20 52 65 | 74 75 72 6e 73 20 61 6e |s..## Re|turns an|
|00001c70| 20 61 72 72 61 79 20 6f | 66 20 68 61 6e 64 6c 65 | array o|f handle|
|00001c80| 73 20 74 68 61 74 20 61 | 72 65 20 72 65 61 64 79 |s that a|re ready|
|00001c90| 20 66 6f 72 20 49 2f 4f | 2e 0d 23 23 20 42 6f 74 | for I/O|..## Bot|
|00001ca0| 68 20 75 73 65 72 20 68 | 61 6e 64 6c 65 73 20 61 |h user h|andles a|
|00001cb0| 6e 64 20 63 68 61 74 20 | 68 61 6e 64 6c 65 73 20 |nd chat |handles |
|00001cc0| 61 72 65 20 73 75 70 70 | 6f 72 74 65 64 20 28 62 |are supp|orted (b|
|00001cd0| 75 74 20 62 65 77 61 72 | 65 20 6f 66 0d 23 23 20 |ut bewar|e of.## |
|00001ce0| 73 74 64 69 6f 27 73 20 | 62 75 66 66 65 72 69 6e |stdio's |bufferin|
|00001cf0| 67 20 66 6f 72 20 75 73 | 65 72 20 68 61 6e 64 6c |g for us|er handl|
|00001d00| 65 73 29 2e 0d 0d 73 75 | 62 20 73 65 6c 65 63 74 |es)...su|b select|
|00001d10| 20 7b 20 23 23 20 70 75 | 62 6c 69 63 0d 09 6c 6f | { ## pu|blic..lo|
|00001d20| 63 61 6c 28 24 74 69 6d | 65 6f 75 74 29 20 3d 20 |cal($tim|eout) = |
|00001d30| 73 68 69 66 74 3b 0d 09 | 6c 6f 63 61 6c 28 40 68 |shift;..|local(@h|
|00001d40| 61 6e 64 6c 65 73 29 20 | 3d 20 40 5f 3b 0d 09 6c |andles) |= @_;..l|
|00001d50| 6f 63 61 6c 28 25 68 61 | 6e 64 6c 65 6e 61 6d 65 |ocal(%ha|ndlename|
|00001d60| 29 20 3d 20 28 29 3b 0d | 09 6c 6f 63 61 6c 28 25 |) = ();.|.local(%|
|00001d70| 72 65 61 64 79 29 20 3d | 20 28 29 3b 0d 09 6c 6f |ready) =| ();..lo|
|00001d80| 63 61 6c 28 24 63 61 6c | 6c 65 72 29 20 3d 20 63 |cal($cal|ler) = c|
|00001d90| 61 6c 6c 65 72 3b 0d 09 | 6c 6f 63 61 6c 28 24 72 |aller;..|local($r|
|00001da0| 6d 61 73 6b 29 20 3d 20 | 22 22 3b 0d 09 66 6f 72 |mask) = |"";..for|
|00001db0| 20 28 40 68 61 6e 64 6c | 65 73 29 20 7b 0d 09 09 | (@handl|es) {...|
|00001dc0| 69 66 20 28 2f 24 6e 65 | 78 74 70 61 74 2f 6f 29 |if (/$ne|xtpat/o)|
|00001dd0| 20 7b 20 23 20 6f 6e 65 | 20 6f 66 20 6f 75 72 73 | { # one| of ours|
|00001de0| 2e 2e 2e 20 73 65 65 20 | 69 66 20 72 65 61 64 79 |... see |if ready|
|00001df0| 0d 09 09 09 6c 6f 63 61 | 6c 28 2a 53 59 4d 29 20 |....loca|l(*SYM) |
|00001e00| 3d 20 24 5f 3b 0d 09 09 | 09 69 66 20 28 6c 65 6e |= $_;...|.if (len|
|00001e10| 67 74 68 28 24 53 59 4d | 29 29 20 7b 0d 09 09 09 |gth($SYM|)) {....|
|00001e20| 09 24 74 69 6d 65 6f 75 | 74 20 3d 20 30 3b 20 23 |.$timeou|t = 0; #|
|00001e30| 20 77 65 20 68 61 76 65 | 20 61 20 77 69 6e 6e 65 | we have| a winne|
|00001e40| 72 0d 09 09 09 09 24 72 | 65 61 64 79 7b 24 5f 7d |r.....$r|eady{$_}|
|00001e50| 2b 2b 3b 0d 09 09 09 7d | 0d 09 09 09 24 68 61 6e |++;....}|....$han|
|00001e60| 64 6c 65 6e 61 6d 65 7b | 66 69 6c 65 6e 6f 28 24 |dlename{|fileno($|
|00001e70| 5f 29 7d 20 3d 20 24 5f | 3b 0d 09 09 7d 20 65 6c |_)} = $_|;...} el|
|00001e80| 73 65 20 7b 0d 09 09 09 | 24 68 61 6e 64 6c 65 6e |se {....|$handlen|
|00001e90| 61 6d 65 7b 66 69 6c 65 | 6e 6f 28 2f 27 2f 20 3f |ame{file|no(/'/ ?|
|00001ea0| 20 24 5f 20 3a 20 22 24 | 63 61 6c 6c 65 72 5c 27 | $_ : "$|caller\'|
|00001eb0| 24 5f 22 29 7d 20 3d 20 | 24 5f 3b 0d 09 09 7d 0d |$_")} = |$_;...}.|
|00001ec0| 09 7d 0d 09 66 6f 72 20 | 28 73 6f 72 74 20 6b 65 |.}..for |(sort ke|
|00001ed0| 79 73 20 25 68 61 6e 64 | 6c 65 6e 61 6d 65 29 20 |ys %hand|lename) |
|00001ee0| 7b 0d 09 09 76 65 63 28 | 24 72 6d 61 73 6b 2c 20 |{...vec(|$rmask, |
|00001ef0| 24 5f 2c 20 31 29 20 3d | 20 31 3b 0d 09 7d 0d 09 |$_, 1) =| 1;..}..|
|00001f00| 73 65 6c 65 63 74 28 24 | 72 6d 61 73 6b 2c 20 75 |select($|rmask, u|
|00001f10| 6e 64 65 66 2c 20 75 6e | 64 65 66 2c 20 24 74 69 |ndef, un|def, $ti|
|00001f20| 6d 65 6f 75 74 29 3b 0d | 09 66 6f 72 20 28 73 6f |meout);.|.for (so|
|00001f30| 72 74 20 6b 65 79 73 20 | 25 68 61 6e 64 6c 65 6e |rt keys |%handlen|
|00001f40| 61 6d 65 29 20 7b 0d 09 | 09 24 72 65 61 64 79 7b |ame) {..|.$ready{|
|00001f50| 24 68 61 6e 64 6c 65 6e | 61 6d 65 7b 24 5f 7d 7d |$handlen|ame{$_}}|
|00001f60| 2b 2b 20 69 66 20 76 65 | 63 28 24 72 6d 61 73 6b |++ if ve|c($rmask|
|00001f70| 2c 24 5f 2c 31 29 3b 0d | 09 7d 0d 09 73 6f 72 74 |,$_,1);.|.}..sort|
|00001f80| 20 6b 65 79 73 20 25 72 | 65 61 64 79 3b 0d 7d 0d | keys %r|eady;.}.|
|00001f90| 0d 23 20 28 24 70 74 79 | 2c 24 74 74 79 29 20 3d |.# ($pty|,$tty) =|
|00001fa0| 20 24 63 68 61 74 27 5f | 67 65 74 70 74 79 28 50 | $chat'_|getpty(P|
|00001fb0| 54 59 2c 54 54 59 29 3a | 0d 23 20 69 6e 74 65 72 |TY,TTY):|.# inter|
|00001fc0| 6e 61 6c 20 70 72 6f 63 | 65 64 75 72 65 20 74 6f |nal proc|edure to|
|00001fd0| 20 67 65 74 20 74 68 65 | 20 6e 65 78 74 20 61 76 | get the| next av|
|00001fe0| 61 69 6c 61 62 6c 65 20 | 70 74 79 2e 0d 23 20 6f |ailable |pty..# o|
|00001ff0| 70 65 6e 73 20 70 74 79 | 20 6f 6e 20 68 61 6e 64 |pens pty| on hand|
|00002000| 6c 65 20 50 54 59 2c 20 | 61 6e 64 20 6d 61 74 63 |le PTY, |and matc|
|00002010| 68 69 6e 67 20 74 74 79 | 20 6f 6e 20 68 61 6e 64 |hing tty| on hand|
|00002020| 6c 65 20 54 54 59 2e 0d | 23 20 72 65 74 75 72 6e |le TTY..|# return|
|00002030| 73 20 75 6e 64 65 66 20 | 69 66 20 63 61 6e 27 74 |s undef |if can't|
|00002040| 20 66 69 6e 64 20 61 20 | 70 74 79 2e 0d 0d 73 75 | find a |pty...su|
|00002050| 62 20 5f 67 65 74 70 74 | 79 20 7b 20 23 23 20 70 |b _getpt|y { ## p|
|00002060| 72 69 76 61 74 65 0d 09 | 6c 6f 63 61 6c 28 24 5f |rivate..|local($_|
|00002070| 50 54 59 2c 24 5f 54 54 | 59 29 20 3d 20 40 5f 3b |PTY,$_TT|Y) = @_;|
|00002080| 0d 09 24 5f 50 54 59 20 | 3d 7e 20 73 2f 5e 28 5b |..$_PTY |=~ s/^([|
|00002090| 5e 27 5d 2b 29 24 2f 28 | 63 61 6c 6c 65 72 29 5b |^']+)$/(|caller)[|
|000020a0| 24 5b 5d 2e 22 27 22 2e | 24 31 2f 65 3b 0d 09 24 |$[]."'".|$1/e;..$|
|000020b0| 5f 54 54 59 20 3d 7e 20 | 73 2f 5e 28 5b 5e 27 5d |_TTY =~ |s/^([^']|
|000020c0| 2b 29 24 2f 28 63 61 6c | 6c 65 72 29 5b 24 5b 5d |+)$/(cal|ler)[$[]|
|000020d0| 2e 22 27 22 2e 24 31 2f | 65 3b 0d 09 6c 6f 63 61 |."'".$1/|e;..loca|
|000020e0| 6c 28 24 70 74 79 2c 24 | 74 74 79 29 3b 0d 09 66 |l($pty,$|tty);..f|
|000020f0| 6f 72 20 24 62 61 6e 6b | 20 28 31 31 32 2e 2e 31 |or $bank| (112..1|
|00002100| 32 37 29 20 7b 0d 09 09 | 6e 65 78 74 20 75 6e 6c |27) {...|next unl|
|00002110| 65 73 73 20 2d 65 20 73 | 70 72 69 6e 74 66 28 22 |ess -e s|printf("|
|00002120| 2f 64 65 76 2f 70 74 79 | 25 63 30 22 2c 20 24 62 |/dev/pty|%c0", $b|
|00002130| 61 6e 6b 29 3b 0d 09 09 | 66 6f 72 20 24 75 6e 69 |ank);...|for $uni|
|00002140| 74 20 28 34 38 2e 2e 35 | 37 29 20 7b 0d 09 09 09 |t (48..5|7) {....|
|00002150| 24 70 74 79 20 3d 20 73 | 70 72 69 6e 74 66 28 22 |$pty = s|printf("|
|00002160| 2f 64 65 76 2f 70 74 79 | 25 63 25 63 22 2c 20 24 |/dev/pty|%c%c", $|
|00002170| 62 61 6e 6b 2c 20 24 75 | 6e 69 74 29 3b 0d 09 09 |bank, $u|nit);...|
|00002180| 09 6f 70 65 6e 28 24 5f | 50 54 59 2c 22 2b 3e 24 |.open($_|PTY,"+>$|
|00002190| 70 74 79 22 29 20 7c 7c | 20 6e 65 78 74 3b 0d 09 |pty") ||| next;..|
|000021a0| 09 09 73 65 6c 65 63 74 | 28 28 73 65 6c 65 63 74 |..select|((select|
|000021b0| 28 24 5f 50 54 59 29 2c | 20 24 7c 20 3d 20 31 29 |($_PTY),| $| = 1)|
|000021c0| 5b 30 5d 29 3b 0d 09 09 | 09 28 24 74 74 79 20 3d |[0]);...|.($tty =|
|000021d0| 20 24 70 74 79 29 20 3d | 7e 20 73 2f 70 74 79 2f | $pty) =|~ s/pty/|
|000021e0| 74 74 79 2f 3b 0d 09 09 | 09 6f 70 65 6e 28 24 5f |tty/;...|.open($_|
|000021f0| 54 54 59 2c 22 2b 3e 24 | 74 74 79 22 29 20 7c 7c |TTY,"+>$|tty") |||
|00002200| 20 6e 65 78 74 3b 0d 09 | 09 09 73 65 6c 65 63 74 | next;..|..select|
|00002210| 28 28 73 65 6c 65 63 74 | 28 24 5f 54 54 59 29 2c |((select|($_TTY),|
|00002220| 20 24 7c 20 3d 20 31 29 | 5b 30 5d 29 3b 0d 09 09 | $| = 1)|[0]);...|
|00002230| 09 73 79 73 74 65 6d 20 | 22 73 74 74 79 20 6e 6c |.system |"stty nl|
|00002240| 3e 24 74 74 79 22 3b 0d | 09 09 09 72 65 74 75 72 |>$tty";.|...retur|
|00002250| 6e 20 28 24 70 74 79 2c | 24 74 74 79 29 3b 0d 09 |n ($pty,|$tty);..|
|00002260| 09 7d 0d 09 7d 0d 09 75 | 6e 64 65 66 3b 0d 7d 0d |.}..}..u|ndef;.}.|
|00002270| 0d 31 3b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |.1;.....|........|
|00002280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00002290| 02 d8 02 ec 02 fa 03 08 | 03 18 03 28 03 38 03 48 |........|...(.8.H|
|000022a0| 03 60 03 70 03 82 03 94 | 03 aa 03 c4 03 d4 02 a2 |.`.p....|........|
|000022b0| 08 63 68 61 74 32 2e 70 | 6c 00 02 00 00 00 54 45 |.chat2.p|l.....TE|
|000022c0| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|000022d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 a6 ea b0 98 00 00 | 21 f4 00 00 01 ac 00 00 |........|!.......|
|00002300| 00 00 00 0c 05 51 75 6f | 74 65 00 04 91 02 00 00 |.....Quo|te......|
|00002310| 00 00 00 00 00 00 00 0c | 05 51 75 6f 74 65 00 04 |........|.Quote..|
|00002320| 91 02 00 00 00 00 00 00 | 00 00 00 0c 05 51 75 6f |........|.....Quo|
|00002330| 74 65 00 04 91 02 00 00 | 00 00 00 0c 00 00 00 00 |te......|........|
|00002340| 00 0c 05 51 75 6f 74 65 | 00 04 91 02 00 00 00 00 |...Quote|........|
|00002350| 00 0c 04 51 75 69 74 65 | 00 04 8d 2a 00 00 00 00 |...Quite|...*....|
|00002360| 00 12 0b 50 72 6f 6a 65 | 63 74 49 6e 66 6f 00 04 |...Proje|ctInfo..|
|00002370| 00 00 00 00 00 12 0b 50 | 72 6f 6a 65 63 74 49 6e |.......P|rojectIn|
|00002380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2f 31 36 |...H..Mo|naco./16|
|00002390| 0d 23 23 20 52 61 6e 64 | 61 6c 20 4c 2e 20 53 63 |.## Rand|al L. Sc|
|000023a0| 68 77 61 72 74 7a 00 06 | 00 08 00 3c 00 24 01 dd |hwartz..|...<.$..|
|000023b0| 02 3d 00 3c 00 24 01 dd | 02 3d a6 eb a6 6d 00 00 |.=.<.$..|.=...m..|
|000023c0| 21 39 00 00 21 3b 00 00 | 1e a8 01 00 00 00 00 1e |!9..!;..|........|
|000023d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000023e0| 00 00 1e a8 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 01 8e |.....n..|.n...>..|
|00002400| e2 b0 07 b8 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00002410| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002420| 03 f0 ff ff 00 00 00 4c | 01 95 12 a8 00 00 00 00 |.......L|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+