Merge lp:~jontai/openvista-gtm-integration/bug701554 into lp:openvista-gtm-integration

[Derek_]

[jeff.apple (jeff-apple)]

I haven't tested this, but it seems just fine.

review: Approve

Unmerged revisions

150. By Jon Tai on 2011-01-11

add patch number to second line of routine

149. By Jon Tai on 2011-01-11

add KIDS build with updated MSCZJOBS routine

148. By Jon Tai on 2011-01-11

refactor the netstat call so it's in its own subroutine and will only be called once per call of %SS

147. By Jon Tai on 2011-01-11

first pass at calling netstat to get the local port number

=== added file 'kids/XU_80_1510.KID'
--- kids/XU_80_1510.KID	1970-01-01 00:00:00 +0000
+++ kids/XU_80_1510.KID	2011-03-24 16:18:29 +0000
@@ -0,0 +1,556 @@
+KIDS Distribution saved on Jan 11, 2011@11:23:04
+artf10950 - %SS port number fix
+**KIDS**:XU*8.0*1510^
+
+**INSTALL NAME**
+XU*8.0*1510
+"BLD",7341,0)
+XU*8.0*1510^KERNEL^0^3110111^n
+"BLD",7341,4,0)
+^9.64PA^^
+"BLD",7341,6.3)
+2
+"BLD",7341,"ABPKG")
+n
+"BLD",7341,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",7341,"KRN",.4,0)
+.4
+"BLD",7341,"KRN",.401,0)
+.401
+"BLD",7341,"KRN",.402,0)
+.402
+"BLD",7341,"KRN",.403,0)
+.403
+"BLD",7341,"KRN",.5,0)
+.5
+"BLD",7341,"KRN",.84,0)
+.84
+"BLD",7341,"KRN",3.6,0)
+3.6
+"BLD",7341,"KRN",3.8,0)
+3.8
+"BLD",7341,"KRN",9.2,0)
+9.2
+"BLD",7341,"KRN",9.8,0)
+9.8
+"BLD",7341,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",7341,"KRN",9.8,"NM",1,0)
+MSCZJOBS^^0^B46514052
+"BLD",7341,"KRN",9.8,"NM","B","MSCZJOBS",1)
+
+"BLD",7341,"KRN",19,0)
+19
+"BLD",7341,"KRN",19.1,0)
+19.1
+"BLD",7341,"KRN",101,0)
+101
+"BLD",7341,"KRN",409.61,0)
+409.61
+"BLD",7341,"KRN",771,0)
+771
+"BLD",7341,"KRN",870,0)
+870
+"BLD",7341,"KRN",8989.51,0)
+8989.51
+"BLD",7341,"KRN",8989.52,0)
+8989.52
+"BLD",7341,"KRN",8994,0)
+8994
+"BLD",7341,"KRN","B",.4,.4)
+
+"BLD",7341,"KRN","B",.401,.401)
+
+"BLD",7341,"KRN","B",.402,.402)
+
+"BLD",7341,"KRN","B",.403,.403)
+
+"BLD",7341,"KRN","B",.5,.5)
+
+"BLD",7341,"KRN","B",.84,.84)
+
+"BLD",7341,"KRN","B",3.6,3.6)
+
+"BLD",7341,"KRN","B",3.8,3.8)
+
+"BLD",7341,"KRN","B",9.2,9.2)
+
+"BLD",7341,"KRN","B",9.8,9.8)
+
+"BLD",7341,"KRN","B",19,19)
+
+"BLD",7341,"KRN","B",19.1,19.1)
+
+"BLD",7341,"KRN","B",101,101)
+
+"BLD",7341,"KRN","B",409.61,409.61)
+
+"BLD",7341,"KRN","B",771,771)
+
+"BLD",7341,"KRN","B",870,870)
+
+"BLD",7341,"KRN","B",8989.51,8989.51)
+
+"BLD",7341,"KRN","B",8989.52,8989.52)
+
+"BLD",7341,"KRN","B",8994,8994)
+
+"BLD",7341,"MSC")
+/home/jon/XU_80_1510.KID
+"BLD",7341,"MSCOM")
+artf10950 - %SS port number fix
+"BLD",7341,"QUES",0)
+^9.62^^
+"MBREQ")
+0
+"PKG",3,-1)
+1^1
+"PKG",3,0)
+KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^
+"PKG",3,20,0)
+^9.402P^^
+"PKG",3,22,0)
+^9.49I^1^1
+"PKG",3,22,1,0)
+8.0^3040115^2960606^1
+"PKG",3,22,1,"PAH",1,0)
+1510^3110111
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+1
+"RTN","MSCZJOBS")
+0^1^B46514052
+"RTN","MSCZJOBS",1,0)
+MSCZJOBS ;JKT/MSC ;OpenVista System status; 11 JAN 2011 - 1122
+"RTN","MSCZJOBS",2,0)
+ ;;8.0;KERNEL;**1501,1510**;5/20/2009
+"RTN","MSCZJOBS",3,0)
+ ;
+"RTN","MSCZJOBS",4,0)
+ALL D SS() Q
+"RTN","MSCZJOBS",5,0)
+THIS N FILTERS S FILTERS(1)="I^"_$$CURRENT^ZCD() D SS(.FILTERS) Q
+"RTN","MSCZJOBS",6,0)
+ ;
+"RTN","MSCZJOBS",7,0)
+INT ;Interactive -- ask for filters, then do SS in a loop
+"RTN","MSCZJOBS",8,0)
+ N FILTERS,QUIT S FILTERS=0,QUIT=0
+"RTN","MSCZJOBS",9,0)
+ F  D  Q:QUIT
+"RTN","MSCZJOBS",10,0)
+ . N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,U
+"RTN","MSCZJOBS",11,0)
+ . S DIR(0)="SAO^J:PID/$J;P:PORT NUMBER;I:INSTANCE NAME;R:RUNNING ROUTINE;Z:ZLINKED ROUTINE;U:USER;D:IDENTITY"
+"RTN","MSCZJOBS",12,0)
+ . S DIR("A")="Select FILTER: "
+"RTN","MSCZJOBS",13,0)
+ . S DIR("?")="Optionally select criteria to filter processes by."
+"RTN","MSCZJOBS",14,0)
+ . D ^DIR
+"RTN","MSCZJOBS",15,0)
+ . I $G(DTOUT)!$G(DUOUT) S QUIT=2 Q  ; exit program
+"RTN","MSCZJOBS",16,0)
+ . I (Y="") S QUIT=1 Q  ; exit loop
+"RTN","MSCZJOBS",17,0)
+ . N FILTER S FILTER=Y
+"RTN","MSCZJOBS",18,0)
+ . ;
+"RTN","MSCZJOBS",19,0)
+ . N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,U
+"RTN","MSCZJOBS",20,0)
+ . D:FILTER="J"
+"RTN","MSCZJOBS",21,0)
+ . . S DIR(0)="NAO"
+"RTN","MSCZJOBS",22,0)
+ . . S DIR("A")="  PID/$J: "
+"RTN","MSCZJOBS",23,0)
+ . . S DIR("?")="If a numeric process ID ($J) is entered here, only processes with that process ID will be displayed."
+"RTN","MSCZJOBS",24,0)
+ . D:FILTER="P"
+"RTN","MSCZJOBS",25,0)
+ . . S DIR(0)="NAO"
+"RTN","MSCZJOBS",26,0)
+ . . S DIR("A")="  PORT NUMBER: "
+"RTN","MSCZJOBS",27,0)
+ . . S DIR("?")="If a numeric port number is entered here, only processes listening on that port or connected to that port will be displayed."
+"RTN","MSCZJOBS",28,0)
+ . D:FILTER="I"
+"RTN","MSCZJOBS",29,0)
+ . . S DIR(0)="FOU"
+"RTN","MSCZJOBS",30,0)
+ . . S DIR("A")="  INSTANCE NAME"
+"RTN","MSCZJOBS",31,0)
+ . . S DIR("?")="If an instance name is entered here, only processes running in that instance will be displayed."
+"RTN","MSCZJOBS",32,0)
+ . D:FILTER="R"
+"RTN","MSCZJOBS",33,0)
+ . . S DIR(0)="FOU"
+"RTN","MSCZJOBS",34,0)
+ . . S DIR("A")="  RUNNING ROUTINE"
+"RTN","MSCZJOBS",35,0)
+ . . S DIR("?")="If a routine name is entered here, only processes running that routine will be displayed."
+"RTN","MSCZJOBS",36,0)
+ . D:FILTER="Z"
+"RTN","MSCZJOBS",37,0)
+ . . S DIR(0)="FOU"
+"RTN","MSCZJOBS",38,0)
+ . . S DIR("A")="  ZLINKED ROUTINE"
+"RTN","MSCZJOBS",39,0)
+ . . S DIR("?")="If a routine name is entered here, only processes that have previously loaded (ZLINK'd) that routine will be displayed."
+"RTN","MSCZJOBS",40,0)
+ . D:FILTER="U"
+"RTN","MSCZJOBS",41,0)
+ . . S DIR(0)="FOU"
+"RTN","MSCZJOBS",42,0)
+ . . S DIR("A")="  USER"
+"RTN","MSCZJOBS",43,0)
+ . . S DIR("?")="If a Linux username is entered here, only processes that are running under that user will be displayed."
+"RTN","MSCZJOBS",44,0)
+ . D:FILTER="D"
+"RTN","MSCZJOBS",45,0)
+ . . S DIR(0)="FOU"
+"RTN","MSCZJOBS",46,0)
+ . . S DIR("A")="  IDENTITY"
+"RTN","MSCZJOBS",47,0)
+ . . S DIR("?")="If an OpenVista user's name is entered here, only processes that are running under that user will be displayed."
+"RTN","MSCZJOBS",48,0)
+ . D ^DIR Q:$G(DTOUT)!$G(DUOUT)!(Y="")
+"RTN","MSCZJOBS",49,0)
+ . S FILTERS($I(FILTERS))=FILTER_"^"_Y
+"RTN","MSCZJOBS",50,0)
+ Q:QUIT=2
+"RTN","MSCZJOBS",51,0)
+ ;
+"RTN","MSCZJOBS",52,0)
+ N QUIT S QUIT=0
+"RTN","MSCZJOBS",53,0)
+ F  D  Q:QUIT
+"RTN","MSCZJOBS",54,0)
+ . D SS(.FILTERS)
+"RTN","MSCZJOBS",55,0)
+ . N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,U
+"RTN","MSCZJOBS",56,0)
+ . S DIR(0)="SA^U:UPDATE;Q:QUIT"
+"RTN","MSCZJOBS",57,0)
+ . S DIR("A")="Action: "
+"RTN","MSCZJOBS",58,0)
+ . S DIR("B")="UPDATE"
+"RTN","MSCZJOBS",59,0)
+ . D ^DIR
+"RTN","MSCZJOBS",60,0)
+ . I Y'="U" S QUIT=1 Q
+"RTN","MSCZJOBS",61,0)
+ Q
+"RTN","MSCZJOBS",62,0)
+ ;
+"RTN","MSCZJOBS",63,0)
+SS(FILTERS) ;Print GT.M mumps processes
+"RTN","MSCZJOBS",64,0)
+ ;
+"RTN","MSCZJOBS",65,0)
+ Q:$G(^%ZOSF("OS"))'["GT.M"
+"RTN","MSCZJOBS",66,0)
+ ;
+"RTN","MSCZJOBS",67,0)
+ D INTRPT^MSCZJOBU("*") H .5
+"RTN","MSCZJOBS",68,0)
+ ;
+"RTN","MSCZJOBS",69,0)
+ N DATETIME S DATETIME=$$HTE^XLFDT($H)
+"RTN","MSCZJOBS",70,0)
+ W #!,?28,"OpenVista System Status"
+"RTN","MSCZJOBS",71,0)
+ W !,?(40-($L(DATETIME)/2)\1),DATETIME
+"RTN","MSCZJOBS",72,0)
+ W !!,?1,"PID/$J",?9,"%CPU",?15,"Device",?32,"Instance",?42,"Routine",?52,"User",?66,"Identity"
+"RTN","MSCZJOBS",73,0)
+ ;
+"RTN","MSCZJOBS",74,0)
+ N MSC S MSC="^TMP(""MSCZJOB1"",$J)" K @MSC
+"RTN","MSCZJOBS",75,0)
+ D JOBEXAM^MSCZJOBU(MSC)
+"RTN","MSCZJOBS",76,0)
+ N NETSTAT S NETSTAT=0
+"RTN","MSCZJOBS",77,0)
+ N PID S PID=""
+"RTN","MSCZJOBS",78,0)
+ F  S PID=$O(@MSC@(PID)) Q:PID=""  D
+"RTN","MSCZJOBS",79,0)
+ . ; evaluate filters; AND different filter types, but if more than one criteria is given of the same type, use OR
+"RTN","MSCZJOBS",80,0)
+ . N MATCH,TYPE,QUIT S QUIT=0
+"RTN","MSCZJOBS",81,0)
+ . N FILTER S FILTERS="" F  S FILTERS=$O(FILTERS(FILTERS)) Q:FILTERS=""  S FILTER=FILTERS(FILTERS) D
+"RTN","MSCZJOBS",82,0)
+ . . S TYPE=$P(FILTER,"^")
+"RTN","MSCZJOBS",83,0)
+ . . I '$D(MATCH(TYPE)) S MATCH(TYPE)=0
+"RTN","MSCZJOBS",84,0)
+ . . I TYPE="J" S:PID=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",85,0)
+ . . I TYPE="P" S:$P($$DEVICE(PID),",")=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",86,0)
+ . . I TYPE="I" S:$$INSTANCE(PID)=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",87,0)
+ . . I TYPE="R" S:$$ROUTINE(PID)=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",88,0)
+ . . I TYPE="Z" S:$D(@MSC@(PID,"RTN",$P(FILTER,"^",2))) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",89,0)
+ . . I TYPE="U" S:$$USER(PID)=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",90,0)
+ . . I TYPE="D" S:$$IDENT(PID)=$P(FILTER,"^",2) MATCH(TYPE)=1 Q
+"RTN","MSCZJOBS",91,0)
+ . S TYPE="" F  S TYPE=$O(MATCH(TYPE)) Q:TYPE=""  I 'MATCH(TYPE) S QUIT=1 Q
+"RTN","MSCZJOBS",92,0)
+ . I QUIT Q
+"RTN","MSCZJOBS",93,0)
+ .
+"RTN","MSCZJOBS",94,0)
+ . ; print line of output for this process
+"RTN","MSCZJOBS",95,0)
+ . W !,$$PID(PID)
+"RTN","MSCZJOBS",96,0)
+ . W ?9,$$PCPU(PID)
+"RTN","MSCZJOBS",97,0)
+ . W ?15,$$DEVICE(PID)
+"RTN","MSCZJOBS",98,0)
+ . W ?32,$$INSTANCE(PID)
+"RTN","MSCZJOBS",99,0)
+ . W ?42,$$ROUTINE(PID)
+"RTN","MSCZJOBS",100,0)
+ . W ?52,$$USER(PID)
+"RTN","MSCZJOBS",101,0)
+ . W ?66,$$IDENT(PID)
+"RTN","MSCZJOBS",102,0)
+ K @MSC
+"RTN","MSCZJOBS",103,0)
+ ;
+"RTN","MSCZJOBS",104,0)
+ W !! ZSY "uptime"
+"RTN","MSCZJOBS",105,0)
+ Q
+"RTN","MSCZJOBS",106,0)
+ ;
+"RTN","MSCZJOBS",107,0)
+PID(PID) ;Return process ID formatted for display
+"RTN","MSCZJOBS",108,0)
+ Q $J(PID,7)_$S($J=PID:"*",1:"")
+"RTN","MSCZJOBS",109,0)
+ ;
+"RTN","MSCZJOBS",110,0)
+PCPU(PID) ;Return CPU usage
+"RTN","MSCZJOBS",111,0)
+ Q $J($G(@MSC@(PID,"PCPU")),4)
+"RTN","MSCZJOBS",112,0)
+ ;
+"RTN","MSCZJOBS",113,0)
+DEVICE(PID) ;Return device
+"RTN","MSCZJOBS",114,0)
+ N PRI S PRI=$$FIND(PID,"I","$PRINCIPAL")
+"RTN","MSCZJOBS",115,0)
+ Q:PRI'="0" PRI ; FIXME: this could probably be more general
+"RTN","MSCZJOBS",116,0)
+ ;
+"RTN","MSCZJOBS",117,0)
+ ; look at devices for listening or connected sockets
+"RTN","MSCZJOBS",118,0)
+ N SOCK,DEV S SOCK=$$FIND(PID,"D","        SOCKET[0]"),DEV=""
+"RTN","MSCZJOBS",119,0)
+ I $P(SOCK," ",3)="LISTENING" D
+"RTN","MSCZJOBS",120,0)
+ . S DEV=$$FINDSOCK("PORT")_",LISTENING"
+"RTN","MSCZJOBS",121,0)
+ I $P(SOCK," ",3)="CONNECTED" D
+"RTN","MSCZJOBS",122,0)
+ . N LOCAL S LOCAL=$$FINDSOCK("LOCAL")
+"RTN","MSCZJOBS",123,0)
+ . I LOCAL'="" S DEV=$P(LOCAL,"@",2)_",CONNECTED" Q
+"RTN","MSCZJOBS",124,0)
+ . ;
+"RTN","MSCZJOBS",125,0)
+ . ; If the local port info is not available, we have to look up the
+"RTN","MSCZJOBS",126,0)
+ . ; remote port in netstat to figure out the local port. This happens
+"RTN","MSCZJOBS",127,0)
+ . ; on single listeners (listeners that stop listening once they get a
+"RTN","MSCZJOBS",128,0)
+ . ; connection).  See LP #701554.
+"RTN","MSCZJOBS",129,0)
+ . N REMOTE S REMOTE=$TR($$FINDSOCK("REMOTE"),"@",":")
+"RTN","MSCZJOBS",130,0)
+ . D NETSTAT
+"RTN","MSCZJOBS",131,0)
+ . S LOCAL=$G(NETSTAT(REMOTE))
+"RTN","MSCZJOBS",132,0)
+ . I LOCAL'="" S DEV=$P(LOCAL,":",$L(LOCAL,":"))_",CONNECTED" Q
+"RTN","MSCZJOBS",133,0)
+ Q DEV
+"RTN","MSCZJOBS",134,0)
+ ;
+"RTN","MSCZJOBS",135,0)
+FINDSOCK(KEY) ;Find a key in the SOCK line, private to DEVICE()
+"RTN","MSCZJOBS",136,0)
+ Q $P($P(SOCK," "_KEY_"=",2)," ")
+"RTN","MSCZJOBS",137,0)
+ ;
+"RTN","MSCZJOBS",138,0)
+NETSTAT ;Call netstat, private to DEVICE()
+"RTN","MSCZJOBS",139,0)
+ Q:NETSTAT ; if netstat has been run already, don't run it again
+"RTN","MSCZJOBS",140,0)
+ N PIPE,%I,LINE,I,PIECE,LOCAL,REMOTE
+"RTN","MSCZJOBS",141,0)
+ S PIPE="pipe",%I=$I
+"RTN","MSCZJOBS",142,0)
+ O PIPE:(COMMAND="netstat -n -A inet":READONLY)::"PIPE"
+"RTN","MSCZJOBS",143,0)
+ U PIPE
+"RTN","MSCZJOBS",144,0)
+ F  R LINE Q:LINE=""  D
+"RTN","MSCZJOBS",145,0)
+ . ;
+"RTN","MSCZJOBS",146,0)
+ . ; Iterate over the pieces (delimited by spaces)
+"RTN","MSCZJOBS",147,0)
+ . ; Put the first piece that has a ":" in it into LOCAL
+"RTN","MSCZJOBS",148,0)
+ . ; Put the second piece that has a ":" in it into REMOTE
+"RTN","MSCZJOBS",149,0)
+ . S LOCAL="",REMOTE=""
+"RTN","MSCZJOBS",150,0)
+ . F I=1:1:$L(LINE," ") S PIECE=$P(LINE," ",I) D  Q:REMOTE'=""
+"RTN","MSCZJOBS",151,0)
+ . . Q:$P(PIECE,":",2)="" ; no colon, not an address
+"RTN","MSCZJOBS",152,0)
+ . . I LOCAL="" S LOCAL=PIECE Q
+"RTN","MSCZJOBS",153,0)
+ . . I REMOTE="" S REMOTE=PIECE Q
+"RTN","MSCZJOBS",154,0)
+ . ;
+"RTN","MSCZJOBS",155,0)
+ . ; Build a dictionary of remote => local for easy lookup later
+"RTN","MSCZJOBS",156,0)
+ . I REMOTE'="" S NETSTAT(REMOTE)=LOCAL
+"RTN","MSCZJOBS",157,0)
+ U %I
+"RTN","MSCZJOBS",158,0)
+ C PIPE
+"RTN","MSCZJOBS",159,0)
+ S NETSTAT=1 ; set flag to indicate that netstat has been run
+"RTN","MSCZJOBS",160,0)
+ Q
+"RTN","MSCZJOBS",161,0)
+ ;
+"RTN","MSCZJOBS",162,0)
+INSTANCE(PID) ;Return name of OpenVista instance
+"RTN","MSCZJOBS",163,0)
+ N ZG S ZG=$$FIND(PID,"I","$ZGBLDIR")
+"RTN","MSCZJOBS",164,0)
+ Q $P(ZG,"/",$L(ZG,"/")-2)
+"RTN","MSCZJOBS",165,0)
+ ;
+"RTN","MSCZJOBS",166,0)
+ROUTINE(PID) ;Return routine
+"RTN","MSCZJOBS",167,0)
+ Q $P($$FIND(PID,"V","%ZPOS"),"^",2)
+"RTN","MSCZJOBS",168,0)
+ ;
+"RTN","MSCZJOBS",169,0)
+USER(PID) ;Return Linux user
+"RTN","MSCZJOBS",170,0)
+ Q $G(@MSC@(PID,"USER"))
+"RTN","MSCZJOBS",171,0)
+ ;
+"RTN","MSCZJOBS",172,0)
+IDENT(PID) ;Return OpenVista user
+"RTN","MSCZJOBS",173,0)
+ N DUZ S DUZ=+$$FIND(PID,"V","DUZ")
+"RTN","MSCZJOBS",174,0)
+ N ZG S ZG=$$FIND(PID,"I","$ZGBLDIR")
+"RTN","MSCZJOBS",175,0)
+ Q $P($G(^|ZG|VA(200,DUZ,0)),"^")
+"RTN","MSCZJOBS",176,0)
+ ;
+"RTN","MSCZJOBS",177,0)
+FIND(PID,ARR,KEY) ;Return the value of a key in one of the ZSHOW arrays
+"RTN","MSCZJOBS",178,0)
+ N I,X S I="",X=""
+"RTN","MSCZJOBS",179,0)
+ F  S I=$O(@MSC@(PID,ARR,I)) Q:'I  I $P(@MSC@(PID,ARR,I),KEY_"=")="" S X=$TR($P(@MSC@(PID,ARR,I),"=",2,999),"""") Q
+"RTN","MSCZJOBS",180,0)
+ Q X
+"VER")
+8.0^22.0
+**END**
+**END**
 
=== modified file 'mumps/MSCZJOBS.m'
--- mumps/MSCZJOBS.m	2010-07-30 19:25:44 +0000
+++ mumps/MSCZJOBS.m	2011-03-24 16:18:29 +0000
@@ -1,5 +1,5 @@
-MSCZJOBS	;JKT/MSC ;OpenVista System status; 30 JUL 2010 - 1225
-	;;8.0;KERNEL;**1501**;5/20/2009
+MSCZJOBS	;JKT/MSC ;OpenVista System status; 11 JAN 2011 - 1122
+	;;8.0;KERNEL;**1501,1510**;5/20/2009
 	;
 ALL	D SS() Q
 THIS	N FILTERS S FILTERS(1)="I^"_$$CURRENT^ZCD() D SS(.FILTERS) Q
@@ -73,6 +73,7 @@
 	;
 	N MSC S MSC="^TMP(""MSCZJOB1"",$J)" K @MSC
 	D JOBEXAM^MSCZJOBU(MSC)
+	N NETSTAT S NETSTAT=0
 	N PID S PID=""
 	F  S PID=$O(@MSC@(PID)) Q:PID=""  D
 	. ; evaluate filters; AND different filter types, but if more than one criteria is given of the same type, use OR
@@ -113,11 +114,50 @@
 	N PRI S PRI=$$FIND(PID,"I","$PRINCIPAL")
 	Q:PRI'="0" PRI ; FIXME: this could probably be more general
 	;
-	; look at devices for sockets
-	N SOCK S SOCK=$$FIND(PID,"D","        SOCKET[0]")
-	I $P(SOCK," ",3)="LISTENING" Q $P($P(SOCK," PORT=",2)," ")_",LISTENING"
-	I $P(SOCK," ",3)="CONNECTED" Q $P($P($P(SOCK," LOCAL=",2)," "),"@",2)_",CONNECTED"
-	Q ""
+	; look at devices for listening or connected sockets
+	N SOCK,DEV S SOCK=$$FIND(PID,"D","        SOCKET[0]"),DEV=""
+	I $P(SOCK," ",3)="LISTENING" D
+	. S DEV=$$FINDSOCK("PORT")_",LISTENING"
+	I $P(SOCK," ",3)="CONNECTED" D
+	. N LOCAL S LOCAL=$$FINDSOCK("LOCAL")
+	. I LOCAL'="" S DEV=$P(LOCAL,"@",2)_",CONNECTED" Q
+	. ;
+	. ; If the local port info is not available, we have to look up the
+	. ; remote port in netstat to figure out the local port. This happens
+	. ; on single listeners (listeners that stop listening once they get a
+	. ; connection).  See LP #701554.
+	. N REMOTE S REMOTE=$TR($$FINDSOCK("REMOTE"),"@",":")
+	. D NETSTAT
+	. S LOCAL=$G(NETSTAT(REMOTE))
+	. I LOCAL'="" S DEV=$P(LOCAL,":",$L(LOCAL,":"))_",CONNECTED" Q
+	Q DEV
+	;
+FINDSOCK(KEY) ;Find a key in the SOCK line, private to DEVICE()
+	Q $P($P(SOCK," "_KEY_"=",2)," ")
+	;
+NETSTAT ;Call netstat, private to DEVICE()
+	Q:NETSTAT ; if netstat has been run already, don't run it again
+	N PIPE,%I,LINE,I,PIECE,LOCAL,REMOTE
+	S PIPE="pipe",%I=$I
+	O PIPE:(COMMAND="netstat -n -A inet":READONLY)::"PIPE"
+	U PIPE
+	F  R LINE Q:LINE=""  D
+	. ;
+	. ; Iterate over the pieces (delimited by spaces)
+	. ; Put the first piece that has a ":" in it into LOCAL
+	. ; Put the second piece that has a ":" in it into REMOTE
+	. S LOCAL="",REMOTE=""
+	. F I=1:1:$L(LINE," ") S PIECE=$P(LINE," ",I) D  Q:REMOTE'=""
+	. . Q:$P(PIECE,":",2)="" ; no colon, not an address
+	. . I LOCAL="" S LOCAL=PIECE Q
+	. . I REMOTE="" S REMOTE=PIECE Q
+	. ;
+	. ; Build a dictionary of remote => local for easy lookup later
+	. I REMOTE'="" S NETSTAT(REMOTE)=LOCAL
+	U %I
+	C PIPE
+	S NETSTAT=1 ; set flag to indicate that netstat has been run
+	Q
 	;
 INSTANCE(PID) ;Return name of OpenVista instance
 	N ZG S ZG=$$FIND(PID,"I","$ZGBLDIR")