mirror of
https://github.com/wfjm/w11.git
synced 2026-05-04 07:09:48 +00:00
27 lines
919 B
Tcl
27 lines
919 B
Tcl
# $Id: rsx11mp-30_rp_setup.tcl 1196 2019-07-20 18:18:16Z mueller $
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
#
|
|
# Revision History:
|
|
# Date Rev Version Comment
|
|
# 2019-07-20 1196 1.0.1 Use os namespace rsx11m
|
|
# 2019-06-29 1173 1.0 Initial version
|
|
# 2019-06-16 1165 0.1 First draft
|
|
#---
|
|
# kit setup for rsx11mp-30_rp
|
|
#
|
|
|
|
source ../os/rsx11m/rsx11m_base.tcl
|
|
|
|
set ::tenv(startup_q1) ">\\* Please enter time and date.*?: "
|
|
set ::tenv(startup_a1) "[rsx11m::rsx_date "hm_dmy2" 32]\r"
|
|
set ::tenv(startup_end) ">@ <EOF>"
|
|
#
|
|
set ::tenv(shutdown_q1) "Enter minutes to wait before shutdown: "
|
|
set ::tenv(shutdown_a1) "\r"
|
|
set ::tenv(shutdown_q2) "Reason for shutdown.*?:"
|
|
set ::tenv(shutdown_a2) "\r"
|
|
set ::tenv(shutdown_q3) "OK to shutdown?.+?: "
|
|
set ::tenv(shutdown_a3) "Y\r"
|
|
set ::tenv(shutdown_end) "SHUTUP operation complete"
|