| 1 | XTINEND ;SF-ISC/STAFF - POSTINIT FOR TOOLKIT ;02/10/95 12:04
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | A I ^%ZOSF("OS")["DSM" D
|
|---|
| 4 | .W !!,"Will now install the VAX/Alpha Performance Monitor (VPM)",!!
|
|---|
| 5 | .N DIFROM,DIFQN,%X,%Y S %X="^UTILITY(""DIF"",$J,",%Y="^UTILITY(""TMP"",$J," D %XY^%RCR
|
|---|
| 6 | .S X="XUCINIT" X ^%ZOSF("TEST") I D ^XUCINIT
|
|---|
| 7 | .I $$LKOPT^XPDMENU("XUCM MAIN") S %=$$ADD^XPDMENU("XTCM MAIN","XUCM MAIN")
|
|---|
| 8 | .S %X="^UTILITY(""TMP"",$J,",%Y="^UTILITY(""DIF"",$J," D %XY^%RCR
|
|---|
| 9 | B I ^%ZOSF("OS")["MSM" D
|
|---|
| 10 | .W !!,"Will now install the MSM 486 Performance Monitor (MPM)",!!
|
|---|
| 11 | .N DIFROM,DIFQN,%X,%Y S %X="^UTILITY(""DIF"",$J,",%Y="^UTILITY(""TMP"",$J," D %XY^%RCR
|
|---|
| 12 | .S X="XUCSINIT" X ^%ZOSF("TEST") I D ^XUCSINIT
|
|---|
| 13 | .I $$LKOPT^XPDMENU("XUCS MANAGER MENU") S %=$$ADD^XPDMENU("XTCM MAIN","XUCS MANAGER MENU")
|
|---|
| 14 | .S %X="^UTILITY(""TMP"",$J,",%Y="^UTILITY(""DIF"",$J," D %XY^%RCR
|
|---|
| 15 | A1 S U="^",%=$$ADD^XPDMENU("EVE","XUPROG"),%=$$ADD^XPDMENU("EVE","XTMENU"),%=$$ADD^XPDMENU("EVE","XTCM MAIN")
|
|---|
| 16 | I % S %=$$DELETE^XPDMENU("XUSITEMGR","XURTLM"),%=$$DELETE^XPDMENU("XUSITEMGR","XUCPMENU"),%=$$DELETE^XPDMENU("EVE","XUCM MAIN")
|
|---|
| 17 | ;
|
|---|
| 18 | A2 ;Cleanup unnecessary "IX" nodes for X-refs which don't exist. This
|
|---|
| 19 | ;part of the code can be removed after Toolkit 7.3 has been released
|
|---|
| 20 | K ^DD(15,0,"IX","AMFI",15,999999901),^DD(15,0,"IX","APOT",15,.04)
|
|---|
| 21 | K ^DD(15,0,"IX","AZ1",15,.05),^DD(15.01101,0,"IX","ARDY",15.01101,.02)
|
|---|
| 22 | ;
|
|---|
| 23 | A3 ;MTLU POST INIT
|
|---|
| 24 | D ^XTLKPST
|
|---|
| 25 | A99 S X="XTINITY" X ^%ZOSF("TEST") I $T D @("^"_X)
|
|---|
| 26 | EXIT K %
|
|---|
| 27 | S XMB="XU-INSTALL-DONE",XMB(1)="TOOLKIT",XMB(2)=$P($T(+2),";",3),XMB(3)=$$HTE^XLFDT($H,"1P"),XMB(4)=$G(^DD("SITE")),XMB(5)=$S($D(^VA(200,DUZ,0))#2:$P(^(0),"^"),1:"Unk"),XMY("G.KERNEL_INSTALL@ISC-SF.VA.GOV")=""
|
|---|
| 28 | F I=1:1:4 I $D(XUINTIME(I)) S XMB(I+5)=$$HTE^XLFDT(XUINTIME(I),"1P")
|
|---|
| 29 | S:$D(XUINTIME(1)) XMB(10)=$$HDIFF^XLFDT($H,XUINTIME(1),3) D ^XMB
|
|---|
| 30 | MES W !!,$C(7),"TO PROTECT THE SECURITY OF DHCP SYSTEMS, DISTRIBUTION OF THIS"
|
|---|
| 31 | W !,"SOFTWARE FOR USE ON ANY OTHER COMPUTER SYSTEM IS PROHIBITED."
|
|---|
| 32 | W !,"ALL REQUESTS FOR COPIES OF THE KERNEL FOR NON-DHCP USE SHOULD"
|
|---|
| 33 | W !,"BE REFERRED TO YOUR LOCAL ISC."
|
|---|
| 34 | K XMB,XMY,XUINTIME
|
|---|
| 35 | Q
|
|---|
| 36 | TIME() Q $$HTE^XLFDT($H,1)
|
|---|
| 37 | ;
|
|---|
