HP3000-L Archives

April 2000, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Ed Stouder <[log in to unmask]>
Reply To:
Ed Stouder <[log in to unmask]>
Date:
Tue, 11 Apr 2000 14:03:29 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines)
 5. How can you tell which users have been logged on for over a week?



UPDATE.

If you are on 6.0 PP1 the JINFO will give you the date.

JINFO("SESSION","FmtIntroDate")

(thanks to John Backus for reminding me about JINFO)

So here is an improved version of the script posted before.

SETVAR HPMSGFENCE 17
IF FINFO("SJMSG",0)
  PURGE SJMSG,TEMP
ENDIF
IF FINFO("PFILE",0)
  PURGE PFILE,TEMP
ENDIF
BUILD SJMSG;REC=-79,,F,ASCII;TEMP;MSG
FILE SJMSG=SJMSG,OLDTEMP
SHOWJOB JOB=@S;*SJMSG
SETVAR COUNT FINFO("SJMSG",19)
WHILE FINFO("SJMSG",19) <> 0
  INPUT SJLINE < SJMSG
  IF STR(SJLINE,1,2) = "#S" THEN
    SETVAR SESS STR(SJLINE,1,7)
    SETVAR SDATE JINFO("!SESS","FmtIntroDate")
    ECHO SESSION !SESS SIGNED ON, ON !SDATE >>PFILE
  ENDIF
ENDWHILE
SETVAR HPMSGFENCE 0
PRINT PFILE


Ed Stouder
Beechglen Development Inc.

ATOM RSS1 RSS2