Robert Hiltibidal (rob@rob.fgi.net) spoke:
>Not yet... shouldn't be hard to make tho. It would probably be easier to
>email the results to a user than generate the output on stdout. Let you
>know what I 've got come tues or weds.
>
>-Rob
>
>
>On Fri, 22 Aug 1997, Alan Sawyer wrote:
>
>> Hi, I was wondering if anyone had a perl script out there to list every
>> single login by a single user? Like the 'last' command for *nix?
>>
>
>
We have a local tool called findcon. It's written in perl, but it relies
on GNU grep and an auxillary C-program. It's written this way for speed,
but nothing is fast when it has to parse through hundred of megabytes of
logfiles. It's not pretty, and it's prone to breakage. The perl script
(findcon) may require some localization, particularly to set the paths of
'gnugrep' and 'strptime'. If you have gzip'ed detail files, it will read
those too.
Kelly
"On two occasions I have been asked [by members of Parliament!], `Pray,
Mr. Babbage, if you put into the machine wrong figures, will the right
answers come out?' I am not able rightly to apprehend the kind of
confusion of ideas that could provoke such a question."
-- Charles Babbage
--Emailer_-1329584157
Content-Type: application/octet-stream; name="strptime.c";
x-mac-type="54455854";
x-mac-creator="74747874"
Content-transfer-encoding: x-uuencode
Content-Disposition: Attachment; filename="strptime.c"
begin 644 strptime.c
M+RH@<W0N8R!&96(@,C$@,3DY-RP@2V5L;'D@4V5T>F5R#0U4:&ES('1A:V5S
M(&$@<W1R:6YG(&%S(&%N(&%R9W5M96YT(&%N9"!P<FEN=',@=&AE(&YU;6)E
M<B!O9B!S96-O;F1S#7-I;F-E($IA;B Q(# P.C P.C P(#$Y.38N("!3=')I
M;F=S(&UU<W0@8F4@:6X@=&AE(&9O<FTZ#0U$87D@371H($1$($A(.DU-.E-3
M(%E965D-#6DN92X-#51H=2!&96(@,3,@,# Z-#<Z,C0@,3DY-PT-#0U4:&ES
M('!R;V=R86T@:7,@<')I;6%R:6QY(&9O<B!U<V4@=VET:"!T:&4@;F5W('9E
M<G-I;VX@;V8@9FEN9&-O;BP@80UH86-K960M=7 @;65S<R!W<FET=&5N('1O
M('-P965D('1H:6YG<R!U<"!O=F5R('1H92!O;&1E<B!P97)L+6)A<V5D#69I
M;F1C;VXN#0TJ+PT-#2-I;F-L=61E(#QS=&1I;RYH/@TC:6YC;'5D92 \=&EM
M92YH/@T-#79O:60@;6%I;BAI;G0@87)G8RP@8VAA<B J87)G=EM=*2![#2 @
M("!S=')U8W0@=&T@=#L-(" @(&-H87(@8G5F6S$P,5T[#2 @("!U;G-I9VYE
M9"!L;VYG(&EN="!T<V5C.PT@(" @=&EM95]T('1S;3L-#2 @("!I9BAA<F=V
M6S%=(#T]($Y53$PI('L-(" @(" @("!P<FEN=&8H(G-T<G!T:6UE(#$N,"!&
M96(@,C$@,3DY-RP@2V5L;'D@4V5T>F5R(#QS971Z97) =&5L86QI;FLN;F5T
M/EQN(BD[#2 @(" @(" @<')I;G1F*")<;EQN(BD[#2 @(" @(" @<')I;G1F
M*")5<V%G93H@<W1R<'1I;64@1G)I($1E8R Q,2 Q,#HS.3HQ-" Q.3DV7&Y<
M;B(I.PT@(" @(" @(&5X:70H+3$I.PT@(" @?0T-(" @('-P<FEN=&8H8G5F
M+"(@)7,@)7,@)7,@)7,@)7,@(BQA<F=V6S%=+&%R9W9;,ETL87)G=ELS72QA
M<F=V6S1=+&%R9W9;-5TI.PTO*@T@(" @<')I;G1F*")S=')I<"!T:6UE.B E
M<UQN(BQB=68I.PTJ+PT@(" @#2 @("!S=')P=&EM92AB=68L(B E82 E0B E
M9" E5" E62 B+"9T*3L-(" @('1S;2 ](&UK=&EM92@F="D[#2\J#2 @("!P
M<FEN=&8H(E1-('-T<G5C='5R93H@)60@)60@)60@)60@)60@)60@)60@)60@
M)61<;B(L#0ET+G1M7WEE87(L#0ET+G1M7WED87DL#0ET+G1M7VUD87DL#0ET
M+G1M7VAO=7(L#0ET+G1M7VUI;BP-"70N=&U?<V5C+ T)="YT;5]M;VXL#0ET
M+G1M7VES9'-T+ T)="YT;5]W9&%Y*3L-#2 @("!P<FEN=&8H(E1-('ED87DZ
M("5D7&XB+'0N=&U?>61A>2D[#2HO#0T@(" @<')I;G1F*"(E;'5<;B(L("@H
M*"@-(" @(" H="YT;5]Y96%R("T@.38I*C,V-2D-(" @("L@="YT;5]Y9&%Y
M*2HR- T@(" @*R!T+G1M7VAO=7(I*C8P#2 @(" K('0N=&U?;6EN*2HV, T@
3(" @*R!T+G1M7W-E8RD[#7T-#0
`
end
--Emailer_-1329584157
Content-Type: application/octet-stream; name="findcon2";
x-mac-type="54455854";
x-mac-creator="74747874"
Content-transfer-encoding: x-uuencode
Content-Disposition: Attachment; filename="findcon2"
begin 644 findcon2
M(R$O;W!T+V)I;B]P97)L#61I92 B57-A9V4Z(&9I;F1C;VX@/'5S97)N86UE
M/B \;G5M8F5R(&]F(&5N=')I97,L(&]R(# @9F]R(&%L;"P@9&5F875L="!I
M<R V/EQN(@T@(" @=6YL97-S*"1U<V5R(#T@)$%21U9;,%TI.PTD05)'5ELQ
M72 ](#8@:68@*"1!4D=66S%=(&5Q("(B*3L-#2,@4%)O=70@;&5V96QS(&AI
M9VAE<B!T:&%N('1H:7,@=VEL;"!N;W0@9V5T('!R:6YT960-)%!23$5614P@
M/2 S.PT-(R!,;V<@;&5V96QS(&AI9VAE<B!T:&%N('1H:7,@=VEL;"!N;W0@
M9V5T(&QO9V=E<PTD3$]'3$5614P@/2 Y.PT-)'P@/2 Q.PT-)'1O=70@/2 B
M+W1M<"]F:6YD8V]N+B0D(CL-;W!E;BA&1$%402PB/B1T;W5T(BD[#0TF<')O
M=70H(D-O;7!L971E(&]U='!U="!W:6QL(&)E('-A=F5D('1O("1T;W5T7&XB
M*3L-#7=H:6QE("@D9FEL92 ](#PO=F%R+V%D;2]R861A8V-T+RHO*CXI('L-
M(" F<')O=70H(E-E87)C:&EN9R D9FEL92!F;W(@)'5S97)<;B(L,BD[#2 @
M:68H)&9I;&4@/7X@+RYG>B0O*2![#2 @("!O<&5N*$1&+"(O;W!T+V)I;B]G
M>F-A=" D9FEL92!\("]O<'0O8FEN+V=N=6=R97 @+48@+4$Q-" M0C(@7")5
M<V5R+4YA;64@/2!<7%PB)'5S97)<7%PB7"(@?"(I.PT@('T@96QS92![#2 @
M("!O<&5N*$1&+"(O;W!T+V)I;B]G;G5G<F5P("U&("U!,30@+4(R(%PB57-E
M<BU.86UE(#T@7%Q<(B1U<V5R7%Q<(EPB("1F:6QE('PB*3L-("!]#0T-(" F
M<')O=70H(B @("!#871A;&]G:6YG(&5N=')I97,B+#,I.PT@('=H:6QE*#Q$
M1CXI('L-(" @(&EF*"]>7',J)"\I('L@(V)L86YK(&QI;F4@:6X@<F5C;W)D
M#2 @(" @("9P<F]U="@B7&Y44D%)3$E.1R!'05)"04=%("AL:6YE("0N*5QN
M(BPQ,"D[#2 @(" @("1D=6UM>3$@/2 \1$8^.PT@(" @(" F<')O=70H(EQN
M4D5*14-4(#$H;&EN92 D+BDZ("1D=6UM>3$B+#$P*3L-(" @(" @)&1U;6UY
M,B ](#Q$1CX[#2 @(" @("9P<F]U="@B4D5*14-4(#(H;&EN92 D+BDZ("1D
M=6UM>3(B+#$P*3L-(" @(" @)%\@/2 \1$8^.PT@(" @(" F<')O=70H(D=2
M04(M3BU#2$5#2R S*&QI;F4@)"XI.B D7R(L,3 I.PT@(" @("!I9B@D7R ]
M?B O+2TO*2![#2 @(" @(" @)G!R;W5T*")214I%0U1%1%QN(BPQ,"D[#2 @
M(" @('T@96QS:68H)%\@/7X@+R1[=7-E<GTO*2![#2 @(" @(" @)G!R;W5T
M*").3U0@02!214I%0U0@+2!"04-+5%)!0TM)3D=<;B(L,3 I.PT@(" @(" @
M("1S96-S(#T@8"]O<'0O8FEN+W-T<G!T:6UE("1D=6UM>3%@.R!C:&]M<" D
M<V5C<SL-(" @(" @(" F<')O=70H(EQN($)44B!S=')P=&EM92@D<V5C<REL
M:6YE*"0N*3H@+V]P="]B:6XO<W1R<'1I;64@)&1U;6UY,5QN(BPQ,"D[#2 @
M(" @(" @)&%C8W1[)'-E8W-](#T@(B1[9'5M;7DQ?21[9'5M;7DR?21[9'5M
M;7DS?2([#2 @(" @('T@96QS92![#2 @(" @(" @)G!R;W5T*")53DM.3U=.
M($=!4D)!1T4@+2!214I%0U1)3D<@3U54+4]&+4A!3D1<;B(L,3 I.PT@(" @
M("!]#2 @(" @(" @#2 @("!]#2 @("!I9B@O7BA3=6Y\36]N?%1U97Q7961\
M5&AU?$9R:7Q3870I+RD@>R!C:&]M<#L-(" @(" @)G!R;W5T*"(N(BD[#2 @
M(" @("1S96-S(#T@8"]O<'0O8FEN+W-T<G!T:6UE("1?8#L@8VAO;7 @)'-E
M8W,[#2 @(" @("9P<F]U="@B7&YS=')P=&EM92@D<V5C<REL:6YE*"0N*3H@
M+V]P="]B:6XO<W1R<'1I;64@)%]<;B(L,3 I.PT@(" @(" D7R ]("1?("X@
M(EQN(CL@(R!A9&0@:70@8F%C:PT@(" @?0T@(" @)&%C8W1[)'-E8W-](#T@
M(B1A8V-T>R1S96-S?21[7WTB.PT@('T-(" F<')O=70H(EQN(BD[#7T-#0TF
M<')O=70H(DAE<F4@:70@:7,Z7&XB*3L-0&5N=')I97,@/2!S;W)T('L@)&(@
M/#T^("1A('T@:V5Y<R@E86-C="D[#2-F;W)E86-H*$!E;G1R:65S*2![('!R
M:6YT(")%3E1263H@)%]<;B([('T-#21!4D=66S%=(#T@,"!U;FQE<W,@)$%2
M1U9;,5T[#21I(#T@*"1!4D=66S%=(#T](# @/R D05)'5ELQ72 K(#$@.B Q
M("D[#29P<F]U="@B4%)%(%!224Y4($Q/3U Z("1I("T@)$%21U9;,5TB+#$P
M*3L-#0UF;W)E86-H*$!E;G1R:65S*2![#2 @(" F<')O=70H(B,D>VE](R!+
M15DZ("1E;G1R:65S6R1I75QN)&%C8W1[)%]](BP@*"1I*RL@/#T@)$%21U9;
M,5T@/R Q(#H@)%!23$5614P@*R V-BDL(# I.PU]#0TF<')O=70H(D-O;7!L
M971E(&]U='!U="!H87,@8F5E;B!S879E9"!T;R D=&]U=%QN(BD[#0T-#7-U
M8B!P<F]U="![("-/=71P=70@9G5N8W1I;VX-(" @(",@)&QE=F5L(&ES(&]P
M=&EO;B!S979E<FET>2!L979E; T@(" @;&]C86PH)&]D871A+"1P<FQV;"PD
M;&]G;'9L*2 ]($!?.PT@(" @)'!R;'9L(#T@,2!U;FQE<W,@)'!R;'9L.PT@
M(" @)&QO9VQV;" ]("1P<FQV;"!U;FQE<W,@)&QO9VQV;#L-(" @('!R:6YT
M("1O9&%T82!I9B@D<')L=FP@/#T@)%!23$5614PI.PT@(" @<')I;G0@1D1!
I5$$@)&]D871A(&EF*"1L;V=L=FP@/#T@)$Q/1TQ%5D5,*3L-?0T-#0T
`
end
--Emailer_-1329584157--