DataMuseum.dk

top - download

    Length: 1383 (0x567)
    Types: TextFile
    Notes: @(#)Text.datedisp 13.2 (RC International) 91/10/09
    Names: »Text.datedisp«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/menu/syssetup/datetime/Text.datedisp« 

TextFile

#	@(#)Text.datedisp	13.2 (RC International) 91/10/09

#ident	"@(-)oamintf:syssetup/Text.datedisp	1.1"
#
#	@(#)	Text.datedisp	Version 1.2	(90/05/02)
#
#	Portions of this source code were provided by International
#	Computers Limited (ICL) under a development agreement with AT&T.
#
################################################################################
#	Module Name: Text.datedisp
#	Calling Sequence: nodename.menu
#	Functional Description: This Text object displays the System-Name and
#				the Network Node-Name
#	How:
#	Inputs:
#	Functions Called:
#	Issues:
################################################################################

Title=Display System Date and Time Information

help=OPEN TEXT $INTFBASE/Text.itemhelp "display:ABSTRACT"

rows=7
columns=46

framemsg=`readfile $INTFBASE/display.msg`

`date +%B | set -l MM ;
 date +%d | set -l DD ;
 date +%Y | set -l YY ;
 date +%H | set -l HH ;
 date +%M | set -l MN ;
 date +%p | set -l AP ;
 daylight | set -l XX ;
 echo $TZ | fmlcut -c1-3 | regex "GMT" "Greenwich" "MET" "Mid-Europe" "EET" "East-Europe" "AST" "Atlantic" "EST" "Eastern" "CST" "Central" "MST" "Mountain" "PST" "Pacific" "YST" "Yukon" "AST" "Alaska" "BST" "Bering" "HST" "Hawaii" ".*" " " | set -l FTZ` ;

text="
   Date: 		    $DD $MM $YY
   Time: 		    $HH:$MN
   AM/PM:		    $AP
   Timezone:		    $FTZ
   Daylight savings in TZ?  $XX
   "