ftp.nice.ch/pub/next/unix/communication/TransSys-PNI.1.13.NI.b.tar.gz#/PNI-1.13/PNI.pkg/_PNI/PNI/pnitcl.tcl

This is pnitcl.tcl in view mode; [Download] [Up]

#
#  Copyright 1993 by TransSys, Inc.
#  All rights reserved.
#
#  $Header: /local/SRCS/slip2/pnid/pnitcl.tcl,v 1.7 1993/11/17 05:28:55 louie Exp $
#
#  This configuration file is loaded and evaluated when the daemon begins
#  running.  We'll define some stuff here, and just invoke a file with 
#  specific configuration informations.

# init file for the pnitcl program

proc rcmd { hndl args } {
    global password keyid

    if {![info exists keyid]} {
	set keyid 0
    }
    set now [getclock]

    if [info exists password] {
	return [cmdrpc $hndl $args [list $keyid $now [md5 "$now,$password,$args"]]]
    } else {
	return [cmdrpc $hndl $args]
    }
}

proc p { args } {
    puts stdout $args
}

set TCLENV(topLevelPromptHook) { return "$programName ; " }
set TCLENV(downLevelPromptHook) { return "> " }

if [file readable /etc/pni/config/password] {
    set pf [open /etc/pni/config/password r]
    gets $pf password
    close $pf
} else {
    if [info exists env(PNIPASSWORD)] {
	set password $env(PNIPASSWORD)
    } else {
	if [info exists password] {
	    unset password
	}
    }
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.