home *** CD-ROM | disk | FTP | other *** search
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: 1349
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
100%
| file
| news or mail, ASCII text
| default
| |
100%
| TrID
| E-Mail message (Var. 2)
| default
| |
100%
| checkBytes
| Printable ASCII
| default
| |
100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 63 68 | 69 70 40 74 63 74 2e 75 |From: ch|ip@tct.u|
|00000010| 75 63 70 20 28 43 68 69 | 70 20 53 61 6c 7a 65 6e |ucp (Chi|p Salzen|
|00000020| 62 65 72 67 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 |berg).Ne|wsgroups|
|00000030| 3a 20 61 6c 74 2e 73 6f | 75 72 63 65 73 2c 63 6f |: alt.so|urces,co|
|00000040| 6d 70 2e 6c 61 6e 67 2e | 70 65 72 6c 0a 53 75 62 |mp.lang.|perl.Sub|
|00000050| 6a 65 63 74 3a 20 41 20 | 62 65 74 74 65 72 20 22 |ject: A |better "|
|00000060| 77 61 6c 6c 22 2c 20 72 | 65 64 75 78 0a 4d 65 73 |wall", r|edux.Mes|
|00000070| 73 61 67 65 2d 49 44 3a | 20 3c 32 36 35 34 36 34 |sage-ID:| <265464|
|00000080| 35 36 2e 42 36 44 40 74 | 63 74 2e 75 75 63 70 3e |56.B6D@t|ct.uucp>|
|00000090| 0a 44 61 74 65 3a 20 31 | 38 20 4d 61 79 20 39 30 |.Date: 1|8 May 90|
|000000a0| 20 32 31 3a 30 38 3a 33 | 36 20 47 4d 54 0a 0a 4e | 21:08:3|6 GMT..N|
|000000b0| 6f 2c 20 74 68 69 73 20 | 61 72 74 69 63 6c 65 20 |o, this |article |
|000000c0| 64 6f 65 73 20 6e 6f 74 | 20 69 6d 70 72 6f 76 65 |does not| improve|
|000000d0| 20 6f 6e 20 4c 61 72 72 | 79 20 57 61 6c 6c 2e 20 | on Larr|y Wall. |
|000000e0| 20 3a 2d 29 20 20 52 61 | 74 68 65 72 2c 20 69 74 | :-) Ra|ther, it|
|000000f0| 20 69 73 20 61 0a 73 65 | 63 6f 6e 64 20 63 75 74 | is a.se|cond cut|
|00000100| 20 61 74 20 61 20 22 77 | 61 6c 6c 22 20 63 6f 6d | at a "w|all" com|
|00000110| 6d 61 6e 64 20 77 72 69 | 74 74 65 6e 20 69 6e 20 |mand wri|tten in |
|00000120| 50 65 72 6c 2e 20 20 54 | 68 65 20 63 72 6f 73 73 |Perl. T|he cross|
|00000130| 2d 70 6f 73 74 69 6e 67 | 20 74 6f 0a 63 6f 6d 70 |-posting| to.comp|
|00000140| 2e 6c 61 6e 67 2e 70 65 | 72 6c 20 69 73 20 61 20 |.lang.pe|rl is a |
|00000150| 68 69 73 74 6f 72 69 63 | 61 6c 20 61 72 74 69 66 |historic|al artif|
|00000160| 61 63 74 20 6f 66 20 6d | 79 20 66 69 72 73 74 20 |act of m|y first |
|00000170| 61 72 74 69 63 6c 65 2c | 20 61 6e 64 20 74 68 65 |article,| and the|
|00000180| 0a 64 69 73 63 75 73 73 | 69 6f 6e 20 6f 66 20 22 |.discuss|ion of "|
|00000190| 67 65 74 6c 6f 67 69 6e | 22 20 61 6e 64 20 22 67 |getlogin|" and "g|
|000001a0| 65 74 70 77 75 69 64 22 | 20 74 68 61 74 20 65 6e |etpwuid"| that en|
|000001b0| 73 75 65 64 2e 0a 0a 54 | 68 69 73 20 76 65 72 73 |sued...T|his vers|
|000001c0| 69 6f 6e 20 75 73 65 73 | 20 22 67 65 74 6c 6f 67 |ion uses| "getlog|
|000001d0| 69 6e 22 20 61 6e 64 20 | 22 67 65 74 70 77 75 69 |in" and |"getpwui|
|000001e0| 64 22 2e 20 20 49 6e 20 | 61 64 64 69 74 69 6f 6e |d". In |addition|
|000001f0| 2c 20 69 74 20 6e 6f 77 | 20 70 72 69 6e 74 73 0a |, it now| prints.|
|00000200| 74 68 65 20 22 3e 3e 20 | 22 20 70 72 6f 6d 70 74 |the ">> |" prompt|
|00000210| 20 6f 6e 6c 79 20 77 68 | 65 6e 20 69 74 73 20 73 | only wh|en its s|
|00000220| 74 61 6e 64 61 72 64 20 | 69 6e 70 75 74 20 69 73 |tandard |input is|
|00000230| 20 61 20 74 65 72 6d 69 | 6e 61 6c 2c 20 77 68 69 | a termi|nal, whi|
|00000240| 63 68 20 69 73 0a 61 20 | 66 65 61 74 75 72 65 20 |ch is.a |feature |
|00000250| 49 20 69 6e 74 65 6e 64 | 65 64 20 74 6f 20 68 61 |I intend|ed to ha|
|00000260| 76 65 20 66 72 6f 6d 20 | 74 68 65 20 62 65 67 69 |ve from |the begi|
|00000270| 6e 6e 69 6e 67 2e 0a 0a | 4e 6f 74 65 20 74 68 61 |nning...|Note tha|
|00000280| 74 20 74 68 69 73 20 77 | 61 6c 6c 20 73 6b 69 70 |t this w|all skip|
|00000290| 73 20 70 73 65 75 64 6f | 2d 74 74 79 73 20 28 74 |s pseudo|-ttys (t|
|000002a0| 68 6f 75 67 68 20 72 65 | 6d 6f 76 69 6e 67 20 74 |hough re|moving t|
|000002b0| 68 69 73 20 74 65 73 74 | 20 69 73 0a 71 75 69 74 |his test| is.quit|
|000002c0| 65 20 73 69 6d 70 6c 65 | 29 2e 20 20 57 65 20 75 |e simple|). We u|
|000002d0| 73 65 20 74 68 65 20 53 | 43 4f 20 22 6d 73 63 72 |se the S|CO "mscr|
|000002e0| 65 65 6e 22 20 70 72 6f | 67 72 61 6d 2c 20 77 68 |een" pro|gram, wh|
|000002f0| 69 63 68 20 67 69 76 65 | 73 20 6d 75 6c 74 69 70 |ich give|s multip|
|00000300| 6c 65 0a 6c 6f 67 69 6e | 73 20 61 63 72 6f 73 73 |le.login|s across|
|00000310| 20 61 20 73 69 6e 67 6c | 65 20 73 65 72 69 61 6c | a singl|e serial|
|00000320| 20 6c 69 6e 65 2e 20 20 | 57 65 20 64 6f 6e 27 74 | line. |We don't|
|00000330| 20 77 61 6e 74 20 74 6f | 20 70 72 69 6e 74 20 74 | want to| print t|
|00000340| 68 65 20 22 77 61 6c 6c | 22 0a 6d 65 73 73 61 67 |he "wall|".messag|
|00000350| 65 20 74 6f 20 74 68 65 | 20 70 74 79 73 2c 20 6a |e to the| ptys, j|
|00000360| 75 73 74 20 74 6f 20 74 | 68 65 20 6d 61 69 6e 20 |ust to t|he main |
|00000370| 73 65 72 69 61 6c 20 6c | 69 6e 65 2e 20 20 4f 66 |serial l|ine. Of|
|00000380| 20 63 6f 75 72 73 65 2c | 0a 6e 65 74 77 6f 72 6b | course,|.network|
|00000390| 65 64 20 73 69 74 65 73 | 20 77 6f 6e 27 74 20 77 |ed sites| won't w|
|000003a0| 61 6e 74 20 74 68 69 73 | 20 66 65 61 74 75 72 65 |ant this| feature|
|000003b0| 2e 0a 0a 57 69 74 68 6f | 75 74 20 66 75 72 74 68 |...Witho|ut furth|
|000003c0| 65 72 20 61 64 6f 2e 2e | 2e 0a 0a 23 21 20 2f 62 |er ado..|...#! /b|
|000003d0| 69 6e 2f 73 68 0a 23 20 | 54 68 69 73 20 69 73 20 |in/sh.# |This is |
|000003e0| 61 20 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 2e |a shell |archive.|
|000003f0| 20 20 52 65 6d 6f 76 65 | 20 61 6e 79 74 68 69 6e | Remove| anythin|
|00000400| 67 20 62 65 66 6f 72 65 | 20 74 68 69 73 20 6c 69 |g before| this li|
|00000410| 6e 65 2c 20 74 68 65 6e | 20 75 6e 70 61 63 6b 0a |ne, then| unpack.|
|00000420| 23 20 69 74 20 62 79 20 | 73 61 76 69 6e 67 20 69 |# it by |saving i|
|00000430| 74 20 69 6e 74 6f 20 61 | 20 66 69 6c 65 20 61 6e |t into a| file an|
|00000440| 64 20 74 79 70 69 6e 67 | 20 22 73 68 20 66 69 6c |d typing| "sh fil|
|00000450| 65 22 2e 20 20 54 6f 20 | 6f 76 65 72 77 72 69 74 |e". To |overwrit|
|00000460| 65 20 65 78 69 73 74 69 | 6e 67 0a 23 20 66 69 6c |e existi|ng.# fil|
|00000470| 65 73 2c 20 74 79 70 65 | 20 22 73 68 20 66 69 6c |es, type| "sh fil|
|00000480| 65 20 2d 63 22 2e 20 20 | 59 6f 75 20 63 61 6e 20 |e -c". |You can |
|00000490| 61 6c 73 6f 20 66 65 65 | 64 20 74 68 69 73 20 61 |also fee|d this a|
|000004a0| 73 20 73 74 61 6e 64 61 | 72 64 20 69 6e 70 75 74 |s standa|rd input|
|000004b0| 20 76 69 61 0a 23 20 75 | 6e 73 68 61 72 2c 20 6f | via.# u|nshar, o|
|000004c0| 72 20 62 79 20 74 79 70 | 69 6e 67 20 22 73 68 20 |r by typ|ing "sh |
|000004d0| 3c 66 69 6c 65 22 2c 20 | 65 2e 67 2e 2e 20 20 49 |<file", |e.g.. I|
|000004e0| 66 20 74 68 69 73 20 61 | 72 63 68 69 76 65 20 69 |f this a|rchive i|
|000004f0| 73 20 63 6f 6d 70 6c 65 | 74 65 2c 20 79 6f 75 0a |s comple|te, you.|
|00000500| 23 20 77 69 6c 6c 20 73 | 65 65 20 74 68 65 20 66 |# will s|ee the f|
|00000510| 6f 6c 6c 6f 77 69 6e 67 | 20 6d 65 73 73 61 67 65 |ollowing| message|
|00000520| 20 61 74 20 74 68 65 20 | 65 6e 64 3a 0a 23 09 09 | at the |end:.#..|
|00000530| 22 45 6e 64 20 6f 66 20 | 73 68 65 6c 6c 20 61 72 |"End of |shell ar|
|00000540| 63 68 69 76 65 2e 22 0a | 23 20 43 6f 6e 74 65 6e |chive.".|# Conten|
|00000550| 74 73 3a 20 20 77 61 6c | 6c 0a 23 20 57 72 61 70 |ts: wal|l.# Wrap|
|00000560| 70 65 64 20 62 79 20 63 | 68 69 70 40 74 63 74 20 |ped by c|hip@tct |
|00000570| 6f 6e 20 46 72 69 20 4d | 61 79 20 31 38 20 31 37 |on Fri M|ay 18 17|
|00000580| 3a 30 34 3a 34 31 20 31 | 39 39 30 0a 50 41 54 48 |:04:41 1|990.PATH|
|00000590| 3d 2f 62 69 6e 3a 2f 75 | 73 72 2f 62 69 6e 3a 2f |=/bin:/u|sr/bin:/|
|000005a0| 75 73 72 2f 75 63 62 20 | 3b 20 65 78 70 6f 72 74 |usr/ucb |; export|
|000005b0| 20 50 41 54 48 0a 69 66 | 20 74 65 73 74 20 2d 66 | PATH.if| test -f|
|000005c0| 20 27 77 61 6c 6c 27 20 | 2d 61 20 22 24 7b 31 7d | 'wall' |-a "${1}|
|000005d0| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|000005e0| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|000005f0| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|00000600| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00000610| 27 77 61 6c 6c 27 5c 22 | 0a 65 6c 73 65 0a 65 63 |'wall'\"|.else.ec|
|00000620| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|00000630| 69 6e 67 20 5c 22 27 77 | 61 6c 6c 27 5c 22 20 5c |ing \"'w|all'\" \|
|00000640| 28 31 30 39 34 20 63 68 | 61 72 61 63 74 65 72 73 |(1094 ch|aracters|
|00000650| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00000660| 3e 27 77 61 6c 6c 27 20 | 3c 3c 27 45 4e 44 5f 4f |>'wall' |<<'END_O|
|00000670| 46 5f 46 49 4c 45 27 0a | 58 65 76 61 6c 20 27 65 |F_FILE'.|Xeval 'e|
|00000680| 78 65 63 20 2f 62 69 6e | 2f 70 65 72 6c 20 2d 77 |xec /bin|/perl -w|
|00000690| 53 20 24 30 20 24 7b 31 | 2b 22 24 40 22 7d 27 0a |S $0 ${1|+"$@"}'.|
|000006a0| 58 09 69 66 20 30 3b 0a | 58 0a 58 23 20 24 49 64 |X.if 0;.|X.X# $Id|
|000006b0| 3a 20 77 61 6c 6c 2c 76 | 20 31 2e 31 20 39 30 2f |: wall,v| 1.1 90/|
|000006c0| 30 35 2f 31 38 20 31 37 | 3a 30 34 3a 32 30 20 63 |05/18 17|:04:20 c|
|000006d0| 68 69 70 20 45 78 70 20 | 24 0a 58 23 0a 58 23 20 |hip Exp |$.X#.X# |
|000006e0| 41 20 50 65 72 6c 20 76 | 65 72 73 69 6f 6e 20 6f |A Perl v|ersion o|
|000006f0| 66 20 74 68 65 20 22 77 | 61 6c 6c 22 20 63 6f 6d |f the "w|all" com|
|00000700| 6d 61 6e 64 2e 0a 58 23 | 20 43 72 65 61 74 65 64 |mand..X#| Created|
|00000710| 20 62 79 20 43 68 69 70 | 20 53 61 6c 7a 65 6e 62 | by Chip| Salzenb|
|00000720| 65 72 67 2c 20 33 20 4d | 61 79 20 31 39 39 30 2e |erg, 3 M|ay 1990.|
|00000730| 0a 58 23 20 43 68 61 6e | 67 65 64 20 70 65 72 20 |.X# Chan|ged per |
|00000740| 55 73 65 6e 65 74 20 63 | 6f 6d 6d 65 6e 74 61 72 |Usenet c|ommentar|
|00000750| 79 2c 20 31 38 20 4d 61 | 79 20 31 39 39 30 2e 0a |y, 18 Ma|y 1990..|
|00000760| 58 23 0a 58 23 20 24 4c | 6f 67 3a 09 77 61 6c 6c |X#.X# $L|og:.wall|
|00000770| 2c 76 20 24 0a 58 23 20 | 52 65 76 69 73 69 6f 6e |,v $.X# |Revision|
|00000780| 20 31 2e 31 20 20 39 30 | 2f 30 35 2f 31 38 20 20 | 1.1 90|/05/18 |
|00000790| 31 37 3a 30 34 3a 32 30 | 20 20 63 68 69 70 0a 58 |17:04:20| chip.X|
|000007a0| 23 20 49 6e 69 74 69 61 | 6c 20 72 65 76 69 73 69 |# Initia|l revisi|
|000007b0| 6f 6e 0a 58 23 20 0a 58 | 0a 58 24 7c 20 3d 20 31 |on.X# .X|.X$| = 1|
|000007c0| 3b 0a 58 0a 58 28 24 6d | 65 20 3d 20 67 65 74 6c |;.X.X($m|e = getl|
|000007d0| 6f 67 69 6e 29 20 7c 7c | 20 28 28 24 6d 65 29 20 |ogin) ||| (($me) |
|000007e0| 3d 20 67 65 74 70 77 75 | 69 64 28 24 3c 29 29 3b |= getpwu|id($<));|
|000007f0| 0a 58 24 6d 65 20 3d 20 | 22 53 6f 6d 65 62 6f 64 |.X$me = |"Somebod|
|00000800| 79 22 20 75 6e 6c 65 73 | 73 20 24 6d 65 3b 0a 58 |y" unles|s $me;.X|
|00000810| 0a 58 70 72 69 6e 74 20 | 22 45 6e 74 65 72 20 74 |.Xprint |"Enter t|
|00000820| 68 65 20 6d 65 73 73 61 | 67 65 20 74 6f 20 62 72 |he messa|ge to br|
|00000830| 6f 61 64 63 61 73 74 2e | 20 20 45 6e 64 20 77 69 |oadcast.| End wi|
|00000840| 74 68 20 5e 44 2e 5c 6e | 22 20 69 66 20 2d 74 20 |th ^D.\n|" if -t |
|00000850| 53 54 44 49 4e 3b 0a 58 | 66 6f 72 20 28 3b 3b 29 |STDIN;.X|for (;;)|
|00000860| 20 7b 0a 58 09 70 72 69 | 6e 74 20 22 3e 3e 20 22 | {.X.pri|nt ">> "|
|00000870| 20 69 66 20 2d 74 20 53 | 54 44 49 4e 3b 0a 58 09 | if -t S|TDIN;.X.|
|00000880| 24 5f 20 3d 20 3c 53 54 | 44 49 4e 3e 3b 0a 58 09 |$_ = <ST|DIN>;.X.|
|00000890| 75 6e 6c 65 73 73 20 28 | 64 65 66 69 6e 65 64 28 |unless (|defined(|
|000008a0| 24 5f 29 29 20 7b 0a 58 | 09 09 70 72 69 6e 74 20 |$_)) {.X|..print |
|000008b0| 22 3c 45 4f 46 3e 5c 6e | 22 20 69 66 20 2d 74 20 |"<EOF>\n|" if -t |
|000008c0| 53 54 44 49 4e 3b 0a 58 | 09 09 6c 61 73 74 3b 0a |STDIN;.X|..last;.|
|000008d0| 58 09 7d 0a 58 09 63 68 | 6f 70 3b 0a 58 09 70 75 |X.}.X.ch|op;.X.pu|
|000008e0| 73 68 28 40 4d 53 47 2c | 20 22 24 5f 20 5c 72 5c |sh(@MSG,| "$_ \r\|
|000008f0| 6e 22 29 3b 0a 58 7d 0a | 58 75 6e 6c 65 73 73 20 |n");.X}.|Xunless |
|00000900| 28 40 4d 53 47 29 20 7b | 0a 58 09 70 72 69 6e 74 |(@MSG) {|.X.print|
|00000910| 20 73 74 64 65 72 72 20 | 22 77 61 6c 6c 3a 20 6e | stderr |"wall: n|
|00000920| 6f 20 6d 65 73 73 61 67 | 65 2e 5c 6e 22 3b 0a 58 |o messag|e.\n";.X|
|00000930| 09 65 78 69 74 3b 0a 58 | 7d 0a 58 75 6e 73 68 69 |.exit;.X|}.Xunshi|
|00000940| 66 74 28 40 4d 53 47 2c | 20 22 5c 30 30 37 5c 72 |ft(@MSG,| "\007\r|
|00000950| 5c 6e 42 72 6f 61 64 63 | 61 73 74 20 4d 65 73 73 |\nBroadc|ast Mess|
|00000960| 61 67 65 20 66 72 6f 6d | 20 24 6d 65 3a 20 5c 72 |age from| $me: \r|
|00000970| 5c 6e 22 29 3b 0a 58 0a | 58 6f 70 65 6e 28 57 48 |\n");.X.|Xopen(WH|
|00000980| 4f 2c 20 22 77 68 6f 7c | 22 29 3b 0a 58 77 68 69 |O, "who||");.Xwhi|
|00000990| 6c 65 20 28 3c 57 48 4f | 3e 29 20 7b 0a 58 09 63 |le (<WHO|>) {.X.c|
|000009a0| 68 6f 70 3b 0a 58 09 28 | 24 75 73 65 72 2c 20 24 |hop;.X.(|$user, $|
|000009b0| 74 74 79 29 20 3d 20 73 | 70 6c 69 74 3b 0a 58 0a |tty) = s|plit;.X.|
|000009c0| 58 09 23 23 20 53 6b 69 | 70 20 70 74 79 73 2e 0a |X.## Ski|p ptys..|
|000009d0| 58 09 6e 65 78 74 20 69 | 66 20 24 74 74 79 20 3d |X.next i|f $tty =|
|000009e0| 7e 20 2f 5e 74 74 79 70 | 2e 24 2f 3b 0a 58 0a 58 |~ /^ttyp|.$/;.X.X|
|000009f0| 09 24 54 54 59 20 3d 20 | 22 2f 64 65 76 2f 24 74 |.$TTY = |"/dev/$t|
|00000a00| 74 79 22 3b 0a 58 09 75 | 6e 6c 65 73 73 20 28 2d |ty";.X.u|nless (-|
|00000a10| 63 20 24 54 54 59 29 20 | 7b 0a 58 09 09 70 72 69 |c $TTY) |{.X..pri|
|00000a20| 6e 74 20 73 74 64 65 72 | 72 20 22 77 61 6c 6c 3a |nt stder|r "wall:|
|00000a30| 20 24 74 74 79 3a 20 6e | 6f 20 73 75 63 68 20 64 | $tty: n|o such d|
|00000a40| 65 76 69 63 65 5c 6e 22 | 3b 0a 58 09 09 6e 65 78 |evice\n"|;.X..nex|
|00000a50| 74 3b 0a 58 09 7d 0a 58 | 09 75 6e 6c 65 73 73 20 |t;.X.}.X|.unless |
|00000a60| 28 6f 70 65 6e 28 54 54 | 59 2c 20 22 3e 3e 20 24 |(open(TT|Y, ">> $|
|00000a70| 54 54 59 22 29 29 20 7b | 0a 58 09 09 70 72 69 6e |TTY")) {|.X..prin|
|00000a80| 74 20 73 74 64 65 72 72 | 20 22 77 61 6c 6c 3a 20 |t stderr| "wall: |
|00000a90| 63 61 6e 27 74 20 77 72 | 69 74 65 20 74 6f 20 24 |can't wr|ite to $|
|00000aa0| 75 73 65 72 20 6f 6e 20 | 2f 64 65 76 2f 24 74 74 |user on |/dev/$tt|
|00000ab0| 79 3a 20 24 21 5c 6e 22 | 3b 0a 58 09 09 6e 65 78 |y: $!\n"|;.X..nex|
|00000ac0| 74 3b 0a 58 09 7d 0a 58 | 09 70 72 69 6e 74 20 54 |t;.X.}.X|.print T|
|00000ad0| 54 59 20 40 4d 53 47 3b | 0a 58 09 63 6c 6f 73 65 |TY @MSG;|.X.close|
|00000ae0| 28 54 54 59 29 3b 0a 58 | 7d 0a 58 63 6c 6f 73 65 |(TTY);.X|}.Xclose|
|00000af0| 28 57 48 4f 29 3b 0a 45 | 4e 44 5f 4f 46 5f 46 49 |(WHO);.E|ND_OF_FI|
|00000b00| 4c 45 0a 69 66 20 74 65 | 73 74 20 31 30 39 34 20 |LE.if te|st 1094 |
|00000b10| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 27 77 61 6c |-ne `wc |-c <'wal|
|00000b20| 6c 27 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |l'`; the|n. ec|
|00000b30| 68 6f 20 73 68 61 72 3a | 20 5c 22 27 77 61 6c 6c |ho shar:| \"'wall|
|00000b40| 27 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |'\" unpa|cked wit|
|00000b50| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00000b60| 0a 23 20 65 6e 64 20 6f | 66 20 27 77 61 6c 6c 27 |.# end o|f 'wall'|
|00000b70| 0a 66 69 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |.fi.echo| shar: E|
|00000b80| 6e 64 20 6f 66 20 73 68 | 65 6c 6c 20 61 72 63 68 |nd of sh|ell arch|
|00000b90| 69 76 65 2e 0a 65 78 69 | 74 20 30 0a 2d 2d 20 0a |ive..exi|t 0.-- .|
|00000ba0| 43 68 69 70 20 53 61 6c | 7a 65 6e 62 65 72 67 20 |Chip Sal|zenberg |
|00000bb0| 61 74 20 43 6f 6d 44 65 | 76 2f 54 43 54 20 20 20 |at ComDe|v/TCT |
|00000bc0| 3c 63 68 69 70 25 74 63 | 74 40 61 74 65 6e 67 2e |<chip%tc|t@ateng.|
|00000bd0| 63 6f 6d 3e 2c 20 3c 75 | 75 6e 65 74 21 61 74 65 |com>, <u|unet!ate|
|00000be0| 6e 67 21 74 63 74 21 63 | 68 69 70 3e 0a |ng!tct!c|hip>. |
+--------+-------------------------+-------------------------+--------+--------+