/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume26 / fping / part01 / README.VMS

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 3c 40 6a | 65 73 73 69 63 61 2e 73 |From <@j|essica.s|
|00000010| 74 61 6e 66 6f 72 64 2e | 65 64 75 3a 49 56 45 52 |tanford.|edu:IVER|
|00000020| 53 45 4e 40 56 53 46 59 | 53 31 2e 46 49 2e 55 49 |SEN@VSFY|S1.FI.UI|
|00000030| 42 2e 4e 4f 3e 20 4d 6f | 6e 20 4a 75 6c 20 32 37 |B.NO> Mo|n Jul 27|
|00000040| 20 30 38 3a 35 34 3a 32 | 36 20 31 39 39 32 0a 52 | 08:54:2|6 1992.R|
|00000050| 65 63 65 69 76 65 64 3a | 20 66 72 6f 6d 20 41 72 |eceived:| from Ar|
|00000060| 67 75 73 2e 53 74 61 6e | 66 6f 72 64 2e 45 44 55 |gus.Stan|ford.EDU|
|00000070| 20 62 79 20 6a 65 73 73 | 69 63 61 2e 73 74 61 6e | by jess|ica.stan|
|00000080| 66 6f 72 64 2e 65 64 75 | 20 28 35 2e 35 39 2f 32 |ford.edu| (5.59/2|
|00000090| 35 2d 65 65 66 29 20 69 | 64 20 41 41 32 38 36 39 |5-eef) i|d AA2869|
|000000a0| 35 3b 20 4d 6f 6e 2c 20 | 32 37 20 4a 75 6c 20 39 |5; Mon, |27 Jul 9|
|000000b0| 32 20 30 38 3a 35 34 3a | 32 32 20 50 44 54 0a 52 |2 08:54:|22 PDT.R|
|000000c0| 65 63 65 69 76 65 64 3a | 20 66 72 6f 6d 20 76 73 |eceived:| from vs|
|000000d0| 66 79 73 31 2e 66 69 2e | 75 69 62 2e 6e 6f 20 62 |fys1.fi.|uib.no b|
|000000e0| 79 20 41 72 67 75 73 2e | 53 74 61 6e 66 6f 72 64 |y Argus.|Stanford|
|000000f0| 2e 45 44 55 20 28 35 2e | 36 35 2f 69 6e 63 2d 31 |.EDU (5.|65/inc-1|
|00000100| 2e 30 29 0a 09 69 64 20 | 41 41 32 38 39 34 32 3b |.0)..id |AA28942;|
|00000110| 20 4d 6f 6e 2c 20 32 37 | 20 4a 75 6c 20 39 32 20 | Mon, 27| Jul 92 |
|00000120| 30 38 3a 35 34 3a 31 39 | 20 2d 30 37 30 30 0a 44 |08:54:19| -0700.D|
|00000130| 61 74 65 3a 20 20 20 20 | 4d 6f 6e 2c 20 32 37 20 |ate:    |Mon, 27 |
|00000140| 4a 75 6c 20 31 39 39 32 | 20 31 37 3a 35 34 3a 31 |Jul 1992| 17:54:1|
|00000150| 37 20 2b 30 32 30 30 0a | 46 72 6f 6d 3a 20 49 56 |7 +0200.|From: IV|
|00000160| 45 52 53 45 4e 40 56 53 | 46 59 53 31 2e 46 49 2e |ERSEN@VS|FYS1.FI.|
|00000170| 55 49 42 2e 4e 4f 20 28 | 50 65 72 20 53 74 65 69 |UIB.NO (|Per Stei|
|00000180| 6e 61 72 20 49 76 65 72 | 73 65 6e 2c 20 44 65 70 |nar Iver|sen, Dep|
|00000190| 74 2e 20 6f 66 20 50 68 | 79 73 69 63 73 2c 20 55 |t. of Ph|ysics, U|
|000001a0| 6e 69 76 2e 20 6f 66 20 | 42 65 72 67 65 6e 2c 20 |niv. of |Bergen, |
|000001b0| 4e 6f 72 77 61 79 2c 20 | 70 68 6f 6e 65 20 2b 34 |Norway, |phone +4|
|000001c0| 37 2d 35 2d 32 31 32 37 | 37 30 29 0a 4d 65 73 73 |7-5-2127|70).Mess|
|000001d0| 61 67 65 2d 49 64 3a 20 | 3c 39 32 30 37 32 37 31 |age-Id: |<9207271|
|000001e0| 37 35 34 31 37 2e 32 31 | 65 30 30 34 63 65 40 56 |75417.21|e004ce@V|
|000001f0| 53 46 59 53 31 2e 46 49 | 2e 55 49 42 2e 4e 4f 3e |SFYS1.FI|.UIB.NO>|
|00000200| 0a 53 75 62 6a 65 63 74 | 3a 20 46 50 49 4e 47 20 |.Subject|: FPING |
|00000210| 75 6e 64 65 72 20 56 4d | 53 0a 54 6f 3a 20 73 63 |under VM|S.To: sc|
|00000220| 68 65 6d 65 72 73 40 53 | 74 61 6e 66 6f 72 64 2e |hemers@S|tanford.|
|00000230| 45 44 55 0a 58 2d 56 6d | 73 6d 61 69 6c 2d 54 6f |EDU.X-Vm|smail-To|
|00000240| 3a 20 53 4d 54 50 25 22 | 73 63 68 65 6d 65 72 73 |: SMTP%"|schemers|
|00000250| 40 53 74 61 6e 66 6f 72 | 64 2e 45 44 55 22 0a 53 |@Stanfor|d.EDU".S|
|00000260| 74 61 74 75 73 3a 20 4f | 52 0a 0a 48 65 6c 6c 6f |tatus: O|R..Hello|
|00000270| 2c 0a 0a 49 20 72 61 74 | 68 65 72 20 6c 69 6b 65 |,..I rat|her like|
|00000280| 64 20 79 6f 75 72 20 72 | 65 63 65 6e 74 6c 79 20 |d your r|ecently |
|00000290| 70 6f 73 74 65 64 20 66 | 70 69 6e 67 2c 20 61 6e |posted f|ping, an|
|000002a0| 64 20 49 20 64 65 63 69 | 64 65 64 20 74 6f 20 70 |d I deci|ded to p|
|000002b0| 6f 72 74 20 69 74 20 74 | 6f 20 56 4d 53 2c 0a 75 |ort it t|o VMS,.u|
|000002c0| 6e 64 65 72 20 4d 75 6c | 74 69 4e 65 74 20 54 43 |nder Mul|tiNet TC|
|000002d0| 50 2f 49 50 20 33 2e 30 | 48 20 61 6e 64 20 56 41 |P/IP 3.0|H and VA|
|000002e0| 58 43 20 33 2e 32 2e 20 | 4f 6e 6c 79 20 73 6f 6d |XC 3.2. |Only som|
|000002f0| 65 20 76 65 72 79 20 6d | 69 6e 6f 72 20 6d 6f 64 |e very m|inor mod|
|00000300| 69 66 69 63 61 74 69 6f | 6e 73 20 61 72 65 0a 6e |ificatio|ns are.n|
|00000310| 65 63 65 73 73 61 72 79 | 20 74 6f 20 72 75 6e 20 |ecessary| to run |
|00000320| 69 74 20 75 6e 64 65 72 | 20 56 4d 53 20 35 2e 35 |it under| VMS 5.5|
|00000330| 3a 20 0a 0a 31 29 20 54 | 68 65 20 32 20 66 6f 6c |: ..1) T|he 2 fol|
|00000340| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 73 20 6d 75 73 |lowing l|ines mus|
|00000350| 74 20 62 65 20 70 75 74 | 20 6f 6e 74 6f 20 6f 6e |t be put| onto on|
|00000360| 65 20 73 69 6e 67 6c 65 | 20 6c 69 6e 65 2c 20 6f |e single| line, o|
|00000370| 74 68 65 72 77 69 73 65 | 20 56 41 58 43 20 0a 63 |therwise| VAXC .c|
|00000380| 6f 6d 70 6c 61 69 6e 73 | 3a 0a 0a 23 69 66 20 21 |omplains|:..#if !|
|00000390| 5f 5f 53 54 44 43 5f 5f | 20 26 26 20 21 64 65 66 |__STDC__| && !def|
|000003a0| 69 6e 65 64 28 5f 5f 63 | 70 6c 75 73 70 6c 75 73 |ined(__c|plusplus|
|000003b0| 29 20 26 26 20 21 64 65 | 66 69 6e 65 64 28 46 55 |) && !de|fined(FU|
|000003c0| 4e 43 50 52 4f 54 4f 29 | 20 5c 0a 20 20 20 20 20 |NCPROTO)| \.     |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 26 26 20 21 |        |    && !|
|00000400| 64 65 66 69 6e 65 64 28 | 5f 50 4f 53 49 58 5f 53 |defined(|_POSIX_S|
|00000410| 4f 55 52 43 45 29 0a 0a | 67 6f 65 73 20 74 6f 3a |OURCE)..|goes to:|
|00000420| 0a 0a 23 69 66 20 21 5f | 5f 53 54 44 43 5f 5f 20 |..#if !_|_STDC__ |
|00000430| 26 26 20 21 64 65 66 69 | 6e 65 64 28 5f 5f 63 70 |&& !defi|ned(__cp|
|00000440| 6c 75 73 70 6c 75 73 29 | 20 26 26 20 21 64 65 66 |lusplus)| && !def|
|00000450| 69 6e 65 64 28 46 55 4e | 43 50 52 4f 54 4f 29 20 |ined(FUN|CPROTO) |
|00000460| 26 26 20 21 64 65 66 69 | 6e 65 64 28 5f 50 4f 53 |&& !defi|ned(_POS|
|00000470| 49 58 5f 53 4f 55 52 43 | 45 29 0a 0a 32 29 20 54 |IX_SOURC|E)..2) T|
|00000480| 68 65 20 73 69 6e 67 6c | 65 20 66 6f 6c 6c 6f 77 |he singl|e follow|
|00000490| 69 6e 67 20 6c 69 6e 65 | 20 6d 75 73 74 20 62 65 |ing line| must be|
|000004a0| 20 63 68 61 6e 67 65 64 | 3a 0a 0a 65 78 74 65 72 | changed|:..exter|
|000004b0| 6e 20 63 68 61 72 20 2a | 73 79 73 5f 65 72 72 6c |n char *|sys_errl|
|000004c0| 69 73 74 5b 5d 3b 0a 0a | 74 6f 3a 0a 0a 23 69 66 |ist[];..|to:..#if|
|000004d0| 6e 64 65 66 20 56 4d 53 | 0a 65 78 74 65 72 6e 20 |ndef VMS|.extern |
|000004e0| 63 68 61 72 20 2a 73 79 | 73 5f 65 72 72 6c 69 73 |char *sy|s_errlis|
|000004f0| 74 5b 5d 3b 0a 23 65 6c | 73 65 0a 65 78 74 65 72 |t[];.#el|se.exter|
|00000500| 6e 20 6e 6f 73 68 61 72 | 65 20 63 68 61 72 20 2a |n noshar|e char *|
|00000510| 73 79 73 5f 65 72 72 6c | 69 73 74 5b 5d 3b 0a 23 |sys_errl|ist[];.#|
|00000520| 65 6e 64 69 66 0a 0a 33 | 29 20 56 4d 53 20 72 75 |endif..3|) VMS ru|
|00000530| 6e 73 20 70 72 69 76 69 | 6c 65 67 65 64 20 70 72 |ns privi|leged pr|
|00000540| 6f 67 72 61 6d 73 20 69 | 6e 20 61 20 64 69 66 66 |ograms i|n a diff|
|00000550| 65 72 65 6e 74 20 6d 61 | 6e 6e 65 72 20 66 72 6f |erent ma|nner fro|
|00000560| 6d 20 55 4e 49 58 2e 20 | 67 65 74 65 75 69 64 20 |m UNIX. |geteuid |
|00000570| 69 73 20 0a 22 73 75 70 | 70 6f 72 74 65 64 22 20 |is ."sup|ported" |
|00000580| 62 79 20 56 41 58 43 20 | 62 75 74 20 74 68 65 20 |by VAXC |but the |
|00000590| 72 65 73 75 6c 74 20 69 | 73 20 6e 6f 74 20 72 65 |result i|s not re|
|000005a0| 61 6c 6c 79 20 6d 65 61 | 6e 69 6e 67 66 75 6c 2e |ally mea|ningful.|
|000005b0| 0a 0a 54 68 65 73 65 20 | 6c 69 6e 65 73 20 61 72 |..These |lines ar|
|000005c0| 65 20 74 68 75 73 20 55 | 6e 69 78 20 73 70 65 63 |e thus U|nix spec|
|000005d0| 69 66 69 63 3a 0a 0a 20 | 20 2f 2a 20 63 68 65 63 |ific:.. | /* chec|
|000005e0| 6b 20 69 66 20 77 65 20 | 61 72 65 20 72 6f 6f 74 |k if we |are root|
|000005f0| 20 2a 2f 0a 0a 23 69 66 | 6e 64 65 66 20 56 4d 53 | */..#if|ndef VMS|
|00000600| 0a 20 20 69 66 20 28 67 | 65 74 65 75 69 64 28 29 |.  if (g|eteuid()|
|00000610| 29 20 7b 0a 20 20 20 20 | 20 20 66 70 72 69 6e 74 |) {.    |  fprint|
|00000620| 66 28 73 74 64 65 72 72 | 2c 0a 20 20 20 20 20 20 |f(stderr|,.      |
|00000630| 20 20 22 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |  "This |program |
|00000640| 63 61 6e 20 6f 6e 6c 79 | 20 62 65 20 72 75 6e 20 |can only| be run |
|00000650| 62 79 20 72 6f 6f 74 2c | 20 6f 72 20 69 74 20 6d |by root,| or it m|
|00000660| 75 73 74 20 62 65 20 73 | 65 74 75 69 64 20 72 6f |ust be s|etuid ro|
|00000670| 6f 74 2e 5c 6e 22 29 3b | 0a 20 20 20 20 20 20 65 |ot.\n");|.      e|
|00000680| 78 69 74 28 33 29 3b 0a | 20 20 7d 0a 23 65 6e 64 |xit(3);.|  }.#end|
|00000690| 69 66 0a 0a 34 29 20 56 | 41 58 43 20 64 6f 65 73 |if..4) V|AXC does|
|000006a0| 20 6e 6f 74 20 73 75 70 | 70 6f 72 74 20 67 65 74 | not sup|port get|
|000006b0| 6f 70 74 2e 20 49 20 67 | 6f 74 20 6d 79 20 63 6f |opt. I g|ot my co|
|000006c0| 70 69 65 73 20 6f 66 20 | 67 65 74 6f 70 74 2c 20 |pies of |getopt, |
|000006d0| 69 6e 64 65 78 20 61 6e | 64 20 72 69 6e 64 65 78 |index an|d rindex|
|000006e0| 0a 66 72 6f 6d 20 61 20 | 66 69 6c 65 73 65 72 76 |.from a |fileserv|
|000006f0| 65 72 20 77 69 74 68 20 | 62 73 64 2d 73 6f 75 72 |er with |bsd-sour|
|00000700| 63 65 73 2c 20 75 73 69 | 6e 67 20 61 6e 6f 6e 79 |ces, usi|ng anony|
|00000710| 6d 6f 75 73 20 46 54 50 | 2e 20 54 68 65 73 65 20 |mous FTP|. These |
|00000720| 72 6f 75 74 69 6e 65 73 | 0a 63 6f 6d 70 69 6c 65 |routines|.compile|
|00000730| 64 20 77 69 74 68 6f 75 | 74 20 63 6f 6d 70 6c 61 |d withou|t compla|
|00000740| 69 6e 74 73 20 61 6e 64 | 20 77 6f 72 6b 73 20 66 |ints and| works f|
|00000750| 69 6e 65 20 75 6e 64 65 | 72 20 56 41 58 43 20 33 |ine unde|r VAXC 3|
|00000760| 2e 32 20 61 74 20 6c 65 | 61 73 74 2e 20 0a 0a 35 |.2 at le|ast. ..5|
|00000770| 29 20 54 68 65 20 56 4d | 53 20 63 6f 6e 63 65 70 |) The VM|S concep|
|00000780| 74 20 6f 66 20 65 78 69 | 74 20 63 6f 64 65 73 20 |t of exi|t codes |
|00000790| 69 73 20 64 69 66 66 65 | 72 65 6e 74 20 66 72 6f |is diffe|rent fro|
|000007a0| 6d 20 74 68 65 20 55 6e | 69 78 20 76 65 72 73 69 |m the Un|ix versi|
|000007b0| 6f 6e 2e 20 41 66 74 65 | 72 20 73 6f 6d 65 0a 74 |on. Afte|r some.t|
|000007c0| 68 6f 75 67 68 74 20 49 | 20 64 65 63 69 64 65 64 |hought I| decided|
|000007d0| 20 74 6f 20 73 68 6f 72 | 74 20 63 69 72 63 75 69 | to shor|t circui|
|000007e0| 74 20 74 68 65 20 56 41 | 58 43 20 61 74 74 65 6d |t the VA|XC attem|
|000007f0| 70 74 20 6f 66 20 74 72 | 61 6e 73 6c 61 74 69 6e |pt of tr|anslatin|
|00000800| 67 20 74 68 65 20 55 6e | 69 78 0a 72 65 74 75 72 |g the Un|ix.retur|
|00000810| 6e 20 63 6f 64 65 73 20 | 69 6e 74 6f 20 56 4d 53 |n codes |into VMS|
|00000820| 20 73 74 79 6c 65 20 72 | 65 74 75 72 6e 20 63 6f | style r|eturn co|
|00000830| 64 65 73 2e 20 4d 79 20 | 76 65 72 73 69 6f 6e 20 |des. My |version |
|00000840| 6f 66 20 46 50 49 4e 47 | 20 61 6c 77 61 79 73 20 |of FPING| always |
|00000850| 72 65 74 75 72 6e 73 0a | 22 65 78 69 74 28 31 29 |returns.|"exit(1)|
|00000860| 22 2c 20 77 68 69 63 68 | 20 69 73 20 56 4d 53 20 |", which| is VMS |
|00000870| 73 75 63 63 65 73 73 2e | 20 48 6f 77 65 76 65 72 |success.| However|
|00000880| 20 74 68 65 20 46 50 49 | 4e 47 20 73 74 61 74 75 | the FPI|NG statu|
|00000890| 73 20 63 6f 64 65 73 20 | 61 72 65 20 70 75 74 20 |s codes |are put |
|000008a0| 69 6e 74 6f 20 61 0a 56 | 4d 53 20 73 79 6d 62 6f |into a.V|MS symbo|
|000008b0| 6c 2c 20 46 50 49 4e 47 | 5f 53 54 41 54 55 53 2e |l, FPING|_STATUS.|
|000008c0| 20 49 74 20 69 73 20 74 | 68 75 73 20 76 65 72 79 | It is t|hus very|
|000008d0| 20 65 61 73 79 20 74 6f | 20 75 73 65 20 74 68 65 | easy to| use the|
|000008e0| 20 46 50 49 4e 47 20 72 | 65 74 75 72 6e 20 73 74 | FPING r|eturn st|
|000008f0| 61 74 75 73 0a 63 6f 64 | 65 73 20 66 6f 72 20 66 |atus.cod|es for f|
|00000900| 75 72 74 68 65 72 20 61 | 63 74 69 6f 6e 20 69 66 |urther a|ction if|
|00000910| 20 6e 65 65 64 65 64 2e | 20 0a 0a 54 68 65 20 6c | needed.| ..The l|
|00000920| 69 6e 65 20 61 74 20 74 | 68 65 20 65 6e 64 20 6f |ine at t|he end o|
|00000930| 66 20 6d 61 69 6e 20 69 | 6e 20 46 50 49 4e 47 2c |f main i|n FPING,|
|00000940| 20 22 72 65 74 75 72 6e | 20 30 3b 22 2c 20 6d 75 | "return| 0;", mu|
|00000950| 73 74 20 62 65 20 63 68 | 61 6e 67 65 64 20 74 6f |st be ch|anged to|
|00000960| 0a 22 65 78 69 74 28 30 | 29 3b 22 20 66 6f 72 20 |."exit(0|);" for |
|00000970| 56 4d 53 2c 20 74 68 69 | 73 20 73 68 6f 75 6c 64 |VMS, thi|s should|
|00000980| 20 62 65 20 4f 4b 20 66 | 6f 72 20 55 6e 69 78 20 | be OK f|or Unix |
|00000990| 74 6f 6f 3f 0a 0a 41 20 | 73 6d 61 6c 6c 20 72 6f |too?..A |small ro|
|000009a0| 75 74 69 6e 65 20 69 73 | 20 6e 65 65 64 65 64 20 |utine is| needed |
|000009b0| 74 6f 20 68 61 6e 64 6c | 65 20 74 68 65 20 74 72 |to handl|e the tr|
|000009c0| 61 6e 73 6c 61 74 69 6f | 6e 2c 20 69 74 20 77 69 |anslatio|n, it wi|
|000009d0| 6c 6c 20 70 72 6f 62 61 | 62 6c 79 20 6e 6f 74 0a |ll proba|bly not.|
|000009e0| 67 65 74 20 61 6e 79 20 | 72 65 77 61 72 64 73 20 |get any |rewards |
|000009f0| 66 6f 72 20 6e 69 63 65 | 20 43 2d 63 6f 64 65 20 |for nice| C-code |
|00000a00| 28 49 20 75 73 75 61 6c | 6c 79 20 70 72 6f 67 72 |(I usual|ly progr|
|00000a10| 61 6d 20 69 6e 20 46 6f | 72 74 72 61 6e 29 2c 20 |am in Fo|rtran), |
|00000a20| 61 6e 64 20 69 74 20 77 | 61 73 20 0a 6c 61 72 67 |and it w|as .larg|
|00000a30| 65 6c 79 20 63 72 65 61 | 74 65 64 20 62 79 20 63 |ely crea|ted by c|
|00000a40| 6f 70 79 69 6e 67 20 61 | 6e 20 65 78 61 6d 70 6c |opying a|n exampl|
|00000a50| 65 20 66 72 6f 6d 20 74 | 68 65 20 56 41 58 43 20 |e from t|he VAXC |
|00000a60| 6d 61 6e 75 61 6c 73 3a | 0a 0a 2f 2a 20 56 4d 53 |manuals:|../* VMS|
|00000a70| 2d 45 58 49 54 2e 43 20 | 2a 2f 0a 23 69 6e 63 6c |-EXIT.C |*/.#incl|
|00000a80| 75 64 65 20 3c 73 73 64 | 65 66 3e 0a 23 69 6e 63 |ude <ssd|ef>.#inc|
|00000a90| 6c 75 64 65 20 3c 73 74 | 64 69 6f 3e 0a 23 69 6e |lude <st|dio>.#in|
|00000aa0| 63 6c 75 64 65 20 3c 64 | 65 73 63 72 69 70 3e 0a |clude <d|escrip>.|
|00000ab0| 0a 69 6e 74 20 4c 49 42 | 24 53 45 54 5f 53 59 4d |.int LIB|$SET_SYM|
|00000ac0| 42 4f 4c 28 29 3b 0a 0a | 76 6d 73 5f 65 78 69 74 |BOL();..|vms_exit|
|00000ad0| 20 28 65 63 6f 64 65 29 | 0a 69 6e 74 20 65 63 6f | (ecode)|.int eco|
|00000ae0| 64 65 3b 0a 7b 0a 20 20 | 69 6e 74 20 73 74 61 74 |de;.{.  |int stat|
|00000af0| 75 73 20 3d 20 31 3b 0a | 20 20 73 74 61 74 69 63 |us = 1;.|  static|
|00000b00| 20 24 44 45 53 43 52 49 | 50 54 4f 52 28 66 70 69 | $DESCRI|PTOR(fpi|
|00000b10| 6e 67 5f 6e 61 6d 65 2c | 20 22 46 50 49 4e 47 5f |ng_name,| "FPING_|
|00000b20| 53 54 41 54 55 53 22 29 | 3b 0a 20 20 73 74 61 74 |STATUS")|;.  stat|
|00000b30| 69 63 20 24 44 45 53 43 | 52 49 50 54 4f 52 28 66 |ic $DESC|RIPTOR(f|
|00000b40| 70 69 6e 67 5f 65 78 69 | 74 5f 30 2c 22 30 22 29 |ping_exi|t_0,"0")|
|00000b50| 3b 0a 20 20 73 74 61 74 | 69 63 20 24 44 45 53 43 |;.  stat|ic $DESC|
|00000b60| 52 49 50 54 4f 52 28 66 | 70 69 6e 67 5f 65 78 69 |RIPTOR(f|ping_exi|
|00000b70| 74 5f 31 2c 22 31 22 29 | 3b 0a 20 20 73 74 61 74 |t_1,"1")|;.  stat|
|00000b80| 69 63 20 24 44 45 53 43 | 52 49 50 54 4f 52 28 66 |ic $DESC|RIPTOR(f|
|00000b90| 70 69 6e 67 5f 65 78 69 | 74 5f 32 2c 22 32 22 29 |ping_exi|t_2,"2")|
|00000ba0| 3b 0a 20 20 73 74 61 74 | 69 63 20 24 44 45 53 43 |;.  stat|ic $DESC|
|00000bb0| 52 49 50 54 4f 52 28 66 | 70 69 6e 67 5f 65 78 69 |RIPTOR(f|ping_exi|
|00000bc0| 74 5f 33 2c 22 33 22 29 | 3b 0a 20 20 73 74 61 74 |t_3,"3")|;.  stat|
|00000bd0| 69 63 20 24 44 45 53 43 | 52 49 50 54 4f 52 28 66 |ic $DESC|RIPTOR(f|
|00000be0| 70 69 6e 67 5f 65 78 69 | 74 5f 34 2c 22 34 22 29 |ping_exi|t_4,"4")|
|00000bf0| 3b 0a 20 20 73 74 61 74 | 69 63 20 24 44 45 53 43 |;.  stat|ic $DESC|
|00000c00| 52 49 50 54 4f 52 28 66 | 70 69 6e 67 5f 65 78 69 |RIPTOR(f|ping_exi|
|00000c10| 74 5f 35 2c 22 35 22 29 | 3b 0a 0a 20 20 73 77 69 |t_5,"5")|;..  swi|
|00000c20| 74 63 68 28 65 63 6f 64 | 65 29 20 7b 0a 20 20 63 |tch(ecod|e) {.  c|
|00000c30| 61 73 65 20 30 20 3a 0a | 20 20 20 20 73 74 61 74 |ase 0 :.|    stat|
|00000c40| 75 73 20 3d 20 4c 49 42 | 24 53 45 54 5f 53 59 4d |us = LIB|$SET_SYM|
|00000c50| 42 4f 4c 28 26 66 70 69 | 6e 67 5f 6e 61 6d 65 2c |BOL(&fpi|ng_name,|
|00000c60| 26 66 70 69 6e 67 5f 65 | 78 69 74 5f 30 29 3b 0a |&fping_e|xit_0);.|
|00000c70| 20 20 20 20 62 72 65 61 | 6b 3b 0a 20 20 63 61 73 |    brea|k;.  cas|
|00000c80| 65 20 31 20 3a 0a 20 20 | 20 20 73 74 61 74 75 73 |e 1 :.  |  status|
|00000c90| 20 3d 20 4c 49 42 24 53 | 45 54 5f 53 59 4d 42 4f | = LIB$S|ET_SYMBO|
|00000ca0| 4c 28 26 66 70 69 6e 67 | 5f 6e 61 6d 65 2c 26 66 |L(&fping|_name,&f|
|00000cb0| 70 69 6e 67 5f 65 78 69 | 74 5f 31 29 3b 0a 20 20 |ping_exi|t_1);.  |
|00000cc0| 20 20 62 72 65 61 6b 3b | 0a 20 20 63 61 73 65 20 |  break;|.  case |
|00000cd0| 32 20 3a 0a 20 20 20 20 | 73 74 61 74 75 73 20 3d |2 :.    |status =|
|00000ce0| 20 4c 49 42 24 53 45 54 | 5f 53 59 4d 42 4f 4c 28 | LIB$SET|_SYMBOL(|
|00000cf0| 26 66 70 69 6e 67 5f 6e | 61 6d 65 2c 26 66 70 69 |&fping_n|ame,&fpi|
|00000d00| 6e 67 5f 65 78 69 74 5f | 32 29 3b 0a 20 20 20 20 |ng_exit_|2);.    |
|00000d10| 62 72 65 61 6b 3b 0a 20 | 20 63 61 73 65 20 33 20 |break;. | case 3 |
|00000d20| 3a 0a 20 20 20 20 73 74 | 61 74 75 73 20 3d 20 4c |:.    st|atus = L|
|00000d30| 49 42 24 53 45 54 5f 53 | 59 4d 42 4f 4c 28 26 66 |IB$SET_S|YMBOL(&f|
|00000d40| 70 69 6e 67 5f 6e 61 6d | 65 2c 26 66 70 69 6e 67 |ping_nam|e,&fping|
|00000d50| 5f 65 78 69 74 5f 33 29 | 3b 0a 20 20 20 20 62 72 |_exit_3)|;.    br|
|00000d60| 65 61 6b 3b 0a 20 20 63 | 61 73 65 20 34 20 3a 0a |eak;.  c|ase 4 :.|
|00000d70| 20 20 20 20 73 74 61 74 | 75 73 20 3d 20 4c 49 42 |    stat|us = LIB|
|00000d80| 24 53 45 54 5f 53 59 4d | 42 4f 4c 28 26 66 70 69 |$SET_SYM|BOL(&fpi|
|00000d90| 6e 67 5f 6e 61 6d 65 2c | 26 66 70 69 6e 67 5f 65 |ng_name,|&fping_e|
|00000da0| 78 69 74 5f 34 29 3b 0a | 20 20 20 20 62 72 65 61 |xit_4);.|    brea|
|00000db0| 6b 3b 0a 20 20 64 65 66 | 61 75 6c 74 3a 0a 20 20 |k;.  def|ault:.  |
|00000dc0| 20 20 73 74 61 74 75 73 | 20 3d 20 4c 49 42 24 53 |  status| = LIB$S|
|00000dd0| 45 54 5f 53 59 4d 42 4f | 4c 28 26 66 70 69 6e 67 |ET_SYMBO|L(&fping|
|00000de0| 5f 6e 61 6d 65 2c 26 66 | 70 69 6e 67 5f 65 78 69 |_name,&f|ping_exi|
|00000df0| 74 5f 35 29 3b 0a 20 20 | 20 20 62 72 65 61 6b 3b |t_5);.  |  break;|
|00000e00| 0a 20 20 7d 0a 0a 20 20 | 65 78 69 74 28 31 29 3b |.  }..  |exit(1);|
|00000e10| 0a 0a 7d 0a 0a 0a 36 29 | 20 54 68 65 20 66 6f 6c |..}...6)| The fol|
|00000e20| 6c 6f 77 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 20 66 |lowing c|ommand f|
|00000e30| 69 6c 65 20 28 73 63 72 | 69 70 74 29 20 77 61 73 |ile (scr|ipt) was|
|00000e40| 20 75 73 65 64 20 74 6f | 20 63 6f 6d 70 69 6c 65 | used to| compile|
|00000e50| 20 61 6e 64 20 6c 69 6e | 6b 20 75 6e 64 65 72 20 | and lin|k under |
|00000e60| 56 4d 53 3a 0a 0a 24 21 | 20 56 4d 53 2d 43 43 2d |VMS:..$!| VMS-CC-|
|00000e70| 4d 41 4b 45 2e 43 4f 4d | 0a 24 21 20 0a 24 21 20 |MAKE.COM|.$! .$! |
|00000e80| 54 68 69 73 20 63 6f 6d | 70 69 6c 65 2b 6c 69 6e |This com|pile+lin|
|00000e90| 6b 20 70 72 6f 63 65 64 | 75 72 65 20 68 61 73 20 |k proced|ure has |
|00000ea0| 62 65 65 6e 20 74 65 73 | 74 65 64 20 77 69 74 68 |been tes|ted with|
|00000eb0| 20 56 41 58 43 20 33 2e | 32 20 61 6e 64 0a 24 21 | VAXC 3.|2 and.$!|
|00000ec0| 20 4d 75 6c 74 69 4e 65 | 74 20 33 2e 30 48 2e 0a | MultiNe|t 3.0H..|
|00000ed0| 24 21 0a 24 21 20 4e 4f | 54 45 3a 20 67 65 74 6f |$!.$! NO|TE: geto|
|00000ee0| 70 74 2c 20 69 6e 64 65 | 78 2c 20 61 6e 64 20 72 |pt, inde|x, and r|
|00000ef0| 69 6e 64 65 78 20 61 72 | 65 20 6e 6f 74 20 70 61 |index ar|e not pa|
|00000f00| 72 74 20 6f 66 20 56 41 | 58 43 2c 20 68 6f 77 65 |rt of VA|XC, howe|
|00000f10| 76 65 72 20 74 68 65 20 | 42 53 44 0a 24 21 20 76 |ver the |BSD.$! v|
|00000f20| 65 72 73 69 6f 6e 73 20 | 77 6f 72 6b 73 20 66 69 |ersions |works fi|
|00000f30| 6e 65 2e 20 54 68 65 79 | 20 73 68 6f 75 6c 64 20 |ne. They| should |
|00000f40| 62 65 20 61 76 61 69 6c | 61 62 6c 65 20 62 79 20 |be avail|able by |
|00000f50| 61 6e 6f 6e 79 6d 6f 75 | 73 20 46 54 50 0a 24 21 |anonymou|s FTP.$!|
|00000f60| 20 66 72 6f 6d 20 61 20 | 6e 75 6d 62 65 72 20 6f | from a |number o|
|00000f70| 66 20 66 69 6c 65 73 65 | 72 76 65 72 73 2e 0a 24 |f filese|rvers..$|
|00000f80| 21 0a 24 20 64 65 66 69 | 6e 65 2f 75 73 65 72 20 |!.$ defi|ne/user |
|00000f90| 61 72 70 61 20 20 20 20 | 20 20 20 20 20 20 20 20 |arpa    |        |
|00000fa0| 20 6d 75 6c 74 69 6e 65 | 74 5f 72 6f 6f 74 3a 5b | multine|t_root:[|
|00000fb0| 6d 75 6c 74 69 6e 65 74 | 2e 69 6e 63 6c 75 64 65 |multinet|.include|
|00000fc0| 2e 61 72 70 61 5d 0a 24 | 20 64 65 66 69 6e 65 2f |.arpa].$| define/|
|00000fd0| 75 73 65 72 20 6e 65 74 | 69 6e 65 74 20 20 20 20 |user net|inet    |
|00000fe0| 20 20 20 20 20 20 6d 75 | 6c 74 69 6e 65 74 5f 72 |      mu|ltinet_r|
|00000ff0| 6f 6f 74 3a 5b 6d 75 6c | 74 69 6e 65 74 2e 69 6e |oot:[mul|tinet.in|
|00001000| 63 6c 75 64 65 2e 6e 65 | 74 69 6e 65 74 5d 0a 24 |clude.ne|tinet].$|
|00001010| 20 64 65 66 69 6e 65 2f | 75 73 65 72 20 73 79 73 | define/|user sys|
|00001020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 75 |        |      mu|
|00001030| 6c 74 69 6e 65 74 5f 72 | 6f 6f 74 3a 5b 6d 75 6c |ltinet_r|oot:[mul|
|00001040| 74 69 6e 65 74 2e 69 6e | 63 6c 75 64 65 2e 73 79 |tinet.in|clude.sy|
|00001050| 73 5d 2c 73 79 73 24 6c | 69 62 72 61 72 79 0a 24 |s],sys$l|ibrary.$|
|00001060| 20 63 63 20 2f 6e 6f 6c | 69 73 74 20 2f 64 65 66 | cc /nol|ist /def|
|00001070| 69 6e 65 3d 22 65 78 69 | 74 3d 76 6d 73 5f 65 78 |ine="exi|t=vms_ex|
|00001080| 69 74 22 20 66 70 69 6e | 67 2e 63 0a 24 20 63 63 |it" fpin|g.c.$ cc|
|00001090| 20 2f 6e 6f 6c 69 73 74 | 20 20 20 20 20 20 20 20 | /nolist|        |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010b0| 20 76 6d 73 2d 65 78 69 | 74 2e 63 0a 24 20 63 63 | vms-exi|t.c.$ cc|
|000010c0| 20 2f 6e 6f 6c 69 73 74 | 20 20 20 20 20 20 20 20 | /nolist|        |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010e0| 20 67 65 74 6f 70 74 2e | 63 0a 24 20 63 63 20 2f | getopt.|c.$ cc /|
|000010f0| 6e 6f 6c 69 73 74 20 20 | 20 20 20 20 20 20 20 20 |nolist  |        |
|00001100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|00001110| 6e 64 65 78 2e 63 0a 24 | 20 63 63 20 2f 6e 6f 6c |ndex.c.$| cc /nol|
|00001120| 69 73 74 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ist     |        |
|00001130| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 69 6e 64 |        |    rind|
|00001140| 65 78 2e 63 0a 24 20 6c | 69 6e 6b 20 2f 6e 6f 6d |ex.c.$ l|ink /nom|
|00001150| 61 70 2f 6e 6f 74 72 61 | 63 65 20 66 70 69 6e 67 |ap/notra|ce fping|
|00001160| 2c 76 6d 73 2d 65 78 69 | 74 2c 67 65 74 6f 70 74 |,vms-exi|t,getopt|
|00001170| 2c 69 6e 64 65 78 2c 72 | 69 6e 64 65 78 2c 73 79 |,index,r|index,sy|
|00001180| 73 24 69 6e 70 75 74 2f | 6f 70 74 0a 6d 75 6c 74 |s$input/|opt.mult|
|00001190| 69 6e 65 74 3a 6d 75 6c | 74 69 6e 65 74 5f 73 6f |inet:mul|tinet_so|
|000011a0| 63 6b 65 74 5f 6c 69 62 | 72 61 72 79 2f 73 68 61 |cket_lib|rary/sha|
|000011b0| 72 65 0a 73 79 73 24 73 | 68 61 72 65 3a 76 61 78 |re.sys$s|hare:vax|
|000011c0| 63 72 74 6c 2f 73 68 61 | 72 65 0a 24 20 64 65 6c |crtl/sha|re.$ del|
|000011d0| 65 74 65 20 66 70 69 6e | 67 2e 6f 62 6a 2e 2a 2c |ete fpin|g.obj.*,|
|000011e0| 76 6d 73 2d 65 78 69 74 | 2e 6f 62 6a 2e 2a 2c 67 |vms-exit|.obj.*,g|
|000011f0| 65 74 6f 70 74 2e 6f 62 | 6a 2e 2a 2c 69 6e 64 65 |etopt.ob|j.*,inde|
|00001200| 78 2e 6f 62 6a 2e 2a 2c | 72 69 6e 64 65 78 2e 6f |x.obj.*,|rindex.o|
|00001210| 62 6a 2e 2a 0a 24 20 70 | 75 72 67 65 20 20 66 70 |bj.*.$ p|urge  fp|
|00001220| 69 6e 67 2e 65 78 65 0a | 24 20 66 70 69 6e 67 20 |ing.exe.|$ fping |
|00001230| 3a 3d 3d 20 24 27 66 24 | 65 6e 76 69 72 6f 6e 6d |:== $'f$|environm|
|00001240| 65 6e 74 28 22 64 65 66 | 61 75 6c 74 22 29 27 66 |ent("def|ault")'f|
|00001250| 70 69 6e 67 0a 0a 37 29 | 20 50 69 70 69 6e 67 20 |ping..7)| Piping |
|00001260| 66 69 6c 65 73 20 69 6e | 74 6f 20 66 70 69 6e 67 |files in|to fping|
|00001270| 20 69 73 20 6e 6f 74 20 | 61 76 61 69 6c 61 62 6c | is not |availabl|
|00001280| 65 20 75 6e 64 65 72 20 | 56 4d 53 2c 20 62 75 74 |e under |VMS, but|
|00001290| 20 74 68 65 20 22 66 22 | 20 6f 70 74 69 6f 6e 20 | the "f"| option |
|000012a0| 64 6f 65 73 0a 74 68 65 | 20 73 61 6d 65 20 6a 6f |does.the| same jo|
|000012b0| 62 2e 0a 0a 38 29 20 66 | 70 69 6e 67 20 6d 75 73 |b...8) f|ping mus|
|000012c0| 74 20 62 65 20 69 6e 73 | 74 61 6c 6c 65 64 20 77 |t be ins|talled w|
|000012d0| 69 74 68 20 70 72 69 76 | 69 6c 65 67 65 73 20 69 |ith priv|ileges i|
|000012e0| 66 20 69 74 20 69 73 20 | 74 6f 20 62 65 20 75 73 |f it is |to be us|
|000012f0| 65 64 20 62 79 0a 6e 6f | 6e 2d 70 72 69 76 69 6c |ed by.no|n-privil|
|00001300| 65 67 65 64 20 75 73 65 | 72 73 20 75 6e 64 65 72 |eged use|rs under|
|00001310| 20 56 4d 53 2e 20 0a 0a | 54 68 65 20 71 75 65 73 | VMS. ..|The ques|
|00001320| 74 69 6f 6e 20 74 68 65 | 6e 20 69 73 2c 20 64 6f |tion the|n is, do|
|00001330| 65 73 20 69 74 20 77 6f | 72 6b 3f 20 57 65 6c 6c |es it wo|rk? Well|
|00001340| 2c 20 61 73 20 66 61 72 | 20 49 20 63 61 6e 20 73 |, as far| I can s|
|00001350| 65 65 20 74 68 65 20 61 | 6e 73 77 65 72 20 69 73 |ee the a|nswer is|
|00001360| 20 79 65 73 21 0a 48 65 | 72 65 20 61 72 65 20 73 | yes!.He|re are s|
|00001370| 6f 6d 65 20 65 78 61 6d | 70 6c 65 73 20 6f 66 20 |ome exam|ples of |
|00001380| 6f 75 74 70 75 74 3a 0a | 0a 24 20 66 70 69 6e 67 |output:.|.$ fping|
|00001390| 20 78 78 78 0a 78 78 78 | 20 61 64 64 72 65 73 73 | xxx.xxx| address|
|000013a0| 20 6e 6f 74 20 66 6f 75 | 6e 64 0a 24 20 73 68 6f | not fou|nd.$ sho|
|000013b0| 77 20 73 79 6d 62 6f 6c | 20 66 70 69 6e 67 5f 73 |w symbol| fping_s|
|000013c0| 74 61 74 75 73 0a 20 20 | 46 50 49 4e 47 5f 53 54 |tatus.  |FPING_ST|
|000013d0| 41 54 55 53 20 3d 20 22 | 32 22 0a 24 20 66 70 69 |ATUS = "|2".$ fpi|
|000013e0| 6e 67 20 76 78 63 72 6e | 61 2e 63 65 72 6e 2e 63 |ng vxcrn|a.cern.c|
|000013f0| 68 0a 76 78 63 72 6e 61 | 2e 63 65 72 6e 2e 63 68 |h.vxcrna|.cern.ch|
|00001400| 20 69 73 20 61 6c 69 76 | 65 0a 24 20 73 68 6f 77 | is aliv|e.$ show|
|00001410| 20 73 79 6d 62 6f 6c 20 | 66 70 69 6e 67 5f 73 74 | symbol |fping_st|
|00001420| 61 74 75 73 0a 20 20 46 | 50 49 4e 47 5f 53 54 41 |atus.  F|PING_STA|
|00001430| 54 55 53 20 3d 20 22 30 | 22 0a 24 20 66 70 69 6e |TUS = "0|".$ fpin|
|00001440| 67 20 2d 64 65 20 76 78 | 63 72 6e 61 2e 63 65 72 |g -de vx|crna.cer|
|00001450| 6e 2e 63 68 0a 76 78 63 | 72 6e 61 2e 63 65 72 6e |n.ch.vxc|rna.cern|
|00001460| 2e 63 68 20 69 73 20 61 | 6c 69 76 65 20 28 33 32 |.ch is a|live (32|
|00001470| 30 20 6d 73 65 63 29 0a | 24 20 73 68 6f 77 20 73 |0 msec).|$ show s|
|00001480| 79 6d 62 6f 6c 20 66 70 | 69 6e 67 5f 73 74 61 74 |ymbol fp|ing_stat|
|00001490| 75 73 0a 20 20 46 50 49 | 4e 47 5f 53 54 41 54 55 |us.  FPI|NG_STATU|
|000014a0| 53 20 3d 20 22 30 22 0a | 24 20 66 70 69 6e 67 20 |S = "0".|$ fping |
|000014b0| 2d 76 0a 76 73 66 79 73 | 35 24 64 6b 62 31 30 30 |-v.vsfys|5$dkb100|
|000014c0| 3a 5b 73 63 72 61 74 63 | 68 2e 69 76 65 72 73 65 |:[scratc|h.iverse|
|000014d0| 6e 5d 66 70 69 6e 67 2e | 65 78 65 3b 37 3a 20 24 |n]fping.|exe;7: $|
|000014e0| 52 65 76 69 73 69 6f 6e | 3a 20 31 2e 31 37 20 24 |Revision|: 1.17 $|
|000014f0| 20 24 44 61 74 65 3a 20 | 31 39 39 32 2f 30 37 2f | $Date: |1992/07/|
|00001500| 32 33 20 30 33 3a 32 39 | 3a 34 32 20 24 0a 76 73 |23 03:29|:42 $.vs|
|00001510| 66 79 73 35 24 64 6b 62 | 31 30 30 3a 5b 73 63 72 |fys5$dkb|100:[scr|
|00001520| 61 74 63 68 2e 69 76 65 | 72 73 65 6e 5d 66 70 69 |atch.ive|rsen]fpi|
|00001530| 6e 67 2e 65 78 65 3b 37 | 3a 20 63 6f 6d 6d 65 6e |ng.exe;7|: commen|
|00001540| 74 73 20 74 6f 20 73 63 | 68 65 6d 65 72 73 40 53 |ts to sc|hemers@S|
|00001550| 74 61 6e 66 6f 72 64 2e | 45 44 55 0a 0a 52 65 67 |tanford.|EDU..Reg|
|00001560| 61 72 64 73 2c 20 50 65 | 72 20 28 69 76 65 72 73 |ards, Pe|r (ivers|
|00001570| 65 6e 40 76 73 66 79 73 | 31 2e 66 69 2e 75 69 62 |en@vsfys|1.fi.uib|
|00001580| 2e 6e 6f 29 0a 0a       |                         |.no)..  |        |
+--------+-------------------------+-------------------------+--------+--------+