/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT68 / DATA

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 00 00 00 43 6f 6e 63 | 75 72 72 65 6e 74 0a 00 |....Conc|urrent..|
|00000010| 00 00 43 6f 6e 63 75 72 | 72 65 6e 74 04 00 00 00 |..Concur|rent....|
|00000020| 50 65 72 6c 3e 00 00 00 | 41 20 70 72 6f 67 72 61 |Perl>...|A progra|
|00000030| 6d 20 74 6f 20 72 65 70 | 6f 72 74 20 74 68 65 20 |m to rep|ort the |
|00000040| 63 6f 6e 63 75 72 72 65 | 6e 74 20 75 73 65 20 6f |concurre|nt use o|
|00000050| 66 20 61 6e 20 41 49 58 | 20 77 6f 72 6b 73 74 61 |f an AIX| worksta|
|00000060| 74 69 6f 6e 2e 20 af 05 | 00 00 23 20 46 75 6e 63 |tion. ..|..# Func|
|00000070| 74 69 6f 6e 3a 20 63 6f | 6e 63 75 72 72 65 6e 74 |tion: co|ncurrent|
|00000080| 28 29 0d 0a 23 0d 0a 23 | 20 49 4e 50 55 54 3a 6e |()..#..#| INPUT:n|
|00000090| 6f 6e 65 0d 0a 23 0d 0a | 23 20 44 45 53 43 3a 20 |one..#..|# DESC: |
|000000a0| 61 20 70 72 6f 67 72 61 | 6d 20 74 6f 20 72 65 70 |a progra|m to rep|
|000000b0| 6f 72 74 20 74 68 65 20 | 63 6f 6e 63 75 72 72 65 |ort the |concurre|
|000000c0| 6e 74 20 75 73 65 20 6f | 66 20 61 6e 20 41 49 58 |nt use o|f an AIX|
|000000d0| 20 77 6f 72 6b 73 74 61 | 74 69 6f 6e 2e 20 0d 0a | worksta|tion. ..|
|000000e0| 23 0d 0a 0d 0a 23 21 2f | 75 73 72 2f 6c 6f 63 61 |#....#!/|usr/loca|
|000000f0| 6c 2f 62 69 6e 2f 70 65 | 72 6c 0d 0a 23 0d 0a 24 |l/bin/pe|rl..#..$|
|00000100| 75 74 6d 70 5f 66 6f 72 | 6d 61 74 20 3d 20 22 41 |utmp_for|mat = "A|
|00000110| 38 20 41 31 34 20 41 31 | 32 20 73 20 69 20 73 20 |8 A14 A1|2 s i s |
|00000120| 73 20 6c 20 41 31 36 22 | 3b 0d 0a 24 75 74 6d 70 |s l A16"|;..$utmp|
|00000130| 5f 6c 65 6e 67 74 68 20 | 3d 20 38 2b 31 34 2b 31 |_length |= 8+14+1|
|00000140| 32 2b 32 2b 34 2b 32 2b | 32 2b 34 2b 31 36 3b 0d |2+2+4+2+|2+4+16;.|
|00000150| 0a 24 77 74 6d 70 5f 66 | 69 6c 65 20 3d 20 22 2f |.$wtmp_f|ile = "/|
|00000160| 76 61 72 2f 61 64 6d 2f | 77 74 6d 70 22 3b 0d 0a |var/adm/|wtmp";..|
|00000170| 0d 0a 25 69 6e 75 73 65 | 20 3d 20 28 29 3b 20 23 |..%inuse| = (); #|
|00000180| 20 4c 69 73 74 20 6f 66 | 20 74 65 72 6d 69 6e 61 | List of| termina|
|00000190| 6c 73 20 69 6e 20 75 73 | 65 0d 0a 24 69 6e 75 73 |ls in us|e..$inus|
|000001a0| 65 20 3d 20 30 3b 20 23 | 20 43 6f 75 6e 74 20 6f |e = 0; #| Count o|
|000001b0| 66 20 74 65 72 6d 69 6e | 61 6c 73 20 69 6e 20 75 |f termin|als in u|
|000001c0| 73 65 0d 0a 0d 0a 6f 70 | 65 6e 20 28 57 54 4d 50 |se....op|en (WTMP|
|000001d0| 2c 20 22 3c 24 77 74 6d | 70 5f 66 69 6c 65 22 29 |, "<$wtm|p_file")|
|000001e0| 20 7c 7c 20 64 69 65 20 | 22 43 6f 75 6c 64 20 6e | || die |"Could n|
|000001f0| 6f 74 20 6f 70 65 6e 20 | 77 74 6d 70 20 66 69 6c |ot open |wtmp fil|
|00000200| 65 20 24 77 74 6d 70 5f | 66 69 6c 65 3a 20 24 21 |e $wtmp_|file: $!|
|00000210| 5c 6e 22 3b 0d 0a 77 68 | 69 6c 65 20 28 24 6e 72 |\n";..wh|ile ($nr|
|00000220| 65 61 64 20 3d 20 72 65 | 61 64 28 57 54 4d 50 2c |ead = re|ad(WTMP,|
|00000230| 20 24 72 65 63 6f 72 64 | 2c 20 24 75 74 6d 70 5f | $record|, $utmp_|
|00000240| 6c 65 6e 67 74 68 29 29 | 20 7b 0d 0a 20 20 20 20 |length))| {..    |
|00000250| 64 69 65 20 22 45 72 72 | 6f 72 20 72 65 61 64 69 |die "Err|or readi|
|00000260| 6e 67 20 77 74 6d 70 20 | 66 69 6c 65 3a 20 6f 6e |ng wtmp |file: on|
|00000270| 6c 79 20 24 6e 72 65 61 | 64 20 62 79 74 65 73 20 |ly $nrea|d bytes |
|00000280| 72 65 74 75 72 6e 65 64 | 2c 20 24 75 74 6d 70 5f |returned|, $utmp_|
|00000290| 6c 65 6e 67 74 68 20 65 | 78 70 65 63 74 65 64 5c |length e|xpected\|
|000002a0| 6e 22 20 75 6e 6c 65 73 | 73 20 28 24 6e 72 65 61 |n" unles|s ($nrea|
|000002b0| 64 20 3d 3d 20 24 75 74 | 6d 70 5f 6c 65 6e 67 74 |d == $ut|mp_lengt|
|000002c0| 68 29 3b 0d 0a 20 20 20 | 20 23 0d 0a 20 20 20 20 |h);..   | #..    |
|000002d0| 28 24 75 73 65 72 2c 20 | 24 69 64 2c 20 24 6c 69 |($user, |$id, $li|
|000002e0| 6e 65 2c 20 24 74 79 70 | 65 2c 20 24 70 69 64 2c |ne, $typ|e, $pid,|
|000002f0| 20 24 74 65 72 6d 69 6e | 61 74 69 6f 6e 2c 20 24 | $termin|ation, $|
|00000300| 65 78 69 74 2c 20 24 74 | 69 6d 65 2c 20 24 68 6f |exit, $t|ime, $ho|
|00000310| 73 74 29 20 3d 20 75 6e | 70 61 63 6b 28 24 75 74 |st) = un|pack($ut|
|00000320| 6d 70 5f 66 6f 72 6d 61 | 74 2c 20 24 72 65 63 6f |mp_forma|t, $reco|
|00000330| 72 64 29 3b 0d 0a 20 20 | 20 20 69 66 20 28 24 75 |rd);..  |  if ($u|
|00000340| 73 65 72 20 6e 65 20 27 | 27 29 20 7b 0d 0a 20 20 |ser ne '|') {..  |
|00000350| 20 20 20 20 20 20 69 66 | 20 28 24 69 6e 75 73 65 |      if| ($inuse|
|00000360| 7b 24 6c 69 6e 65 7d 29 | 20 7b 0d 0a 20 20 20 20 |{$line})| {..    |
|00000370| 20 20 20 20 20 20 20 20 | 77 61 72 6e 20 22 4c 69 |        |warn "Li|
|00000380| 6e 65 20 24 6c 69 6e 65 | 20 61 6c 72 65 61 64 79 |ne $line| already|
|00000390| 20 69 6e 20 75 73 65 20 | 62 79 20 24 69 6e 75 73 | in use |by $inus|
|000003a0| 65 7b 24 6c 69 6e 65 7d | 5c 6e 22 3b 0d 0a 20 20 |e{$line}|\n";..  |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 24 69 6e 75 73 65 |        |  $inuse|
|000003c0| 7b 24 6c 69 6e 65 7d 20 | 3d 20 24 75 73 65 72 3b |{$line} |= $user;|
|000003d0| 0d 0a 20 20 20 20 20 20 | 20 20 7d 20 65 6c 73 65 |..      |  } else|
|000003e0| 20 7b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | {..    |        |
|000003f0| 24 69 6e 75 73 65 7b 24 | 6c 69 6e 65 7d 20 3d 20 |$inuse{$|line} = |
|00000400| 24 75 73 65 72 3b 0d 0a | 20 20 20 20 20 20 20 20 |$user;..|        |
|00000410| 20 20 20 20 24 69 6e 75 | 73 65 2b 2b 3b 0d 0a 20 |    $inu|se++;.. |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 26 74 69 6d 65 |        |   &time|
|00000430| 70 72 69 6e 74 20 28 24 | 74 69 6d 65 2c 20 24 69 |print ($|time, $i|
|00000440| 6e 75 73 65 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |nuse);..|        |
|00000450| 7d 0d 0a 20 20 20 20 7d | 20 65 6c 73 65 20 7b 0d |}..    }| else {.|
|00000460| 0a 20 20 20 20 20 20 20 | 20 69 66 20 28 24 69 6e |.       | if ($in|
|00000470| 75 73 65 7b 24 6c 69 6e | 65 7d 29 20 7b 0d 0a 20 |use{$lin|e}) {.. |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 24 69 6e 75 73 |        |   $inus|
|00000490| 65 2d 2d 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |e--;..  |        |
|000004a0| 20 20 64 65 6c 65 74 65 | 20 24 69 6e 75 73 65 7b |  delete| $inuse{|
|000004b0| 24 6c 69 6e 65 7d 3b 0d | 0a 20 20 20 20 20 20 20 |$line};.|.       |
|000004c0| 20 20 20 20 20 26 74 69 | 6d 65 70 72 69 6e 74 20 |     &ti|meprint |
|000004d0| 28 24 74 69 6d 65 2c 20 | 24 69 6e 75 73 65 29 3b |($time, |$inuse);|
|000004e0| 0d 0a 20 20 20 20 20 20 | 20 20 7d 20 65 6c 73 65 |..      |  } else|
|000004f0| 20 7b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | {..    |        |
|00000500| 77 61 72 6e 20 22 4c 69 | 6e 65 20 24 6c 69 6e 65 |warn "Li|ne $line|
|00000510| 20 77 61 73 20 6e 6f 74 | 20 6b 6e 6f 77 6e 20 74 | was not| known t|
|00000520| 6f 20 62 65 20 69 6e 20 | 75 73 65 5c 6e 22 3b 0d |o be in |use\n";.|
|00000530| 0a 20 20 20 20 20 20 20 | 20 7d 0d 0a 20 20 20 20 |.       | }..    |
|00000540| 7d 0d 0a 7d 0d 0a 0d 0a | 73 75 62 20 74 69 6d 65 |}..}....|sub time|
|00000550| 70 72 69 6e 74 20 7b 0d | 0a 20 20 20 20 6c 6f 63 |print {.|.    loc|
|00000560| 61 6c 20 28 24 74 69 6d | 65 2c 20 24 63 6f 75 6e |al ($tim|e, $coun|
|00000570| 74 29 20 3d 20 40 5f 3b | 0d 0a 20 20 20 20 6c 6f |t) = @_;|..    lo|
|00000580| 63 61 6c 20 28 40 74 69 | 6d 65 29 20 3d 20 6c 6f |cal (@ti|me) = lo|
|00000590| 63 61 6c 74 69 6d 65 20 | 28 24 74 69 6d 65 29 3b |caltime |($time);|
|000005a0| 0d 0a 20 20 20 20 70 72 | 69 6e 74 66 20 22 25 2e |..    pr|intf "%.|
|000005b0| 32 64 2f 25 2e 32 64 2f | 25 2e 32 64 2d 25 2e 32 |2d/%.2d/|%.2d-%.2|
|000005c0| 64 3a 25 2e 32 64 20 20 | 20 25 64 5c 6e 22 2c 0d |d:%.2d  | %d\n",.|
|000005d0| 0a 20 20 20 20 20 20 20 | 20 24 74 69 6d 65 5b 34 |.       | $time[4|
|000005e0| 5d 2b 31 2c 20 24 74 69 | 6d 65 5b 33 5d 2c 20 24 |]+1, $ti|me[3], $|
|000005f0| 74 69 6d 65 5b 35 5d 2c | 20 24 74 69 6d 65 5b 32 |time[5],| $time[2|
|00000600| 5d 2c 20 24 74 69 6d 65 | 5b 31 5d 2c 20 24 63 6f |], $time|[1], $co|
|00000610| 75 6e 74 3b 0d 0a 7d 0d | 0a 03 00 00 00 4e 2f 41 |unt;..}.|.....N/A|
|00000620| 03 00 00 00 4e 2f 41    |                         |....N/A |        |
+--------+-------------------------+-------------------------+--------+--------+