DataMuseum.dk

top - metrics - download

    Length: 1626 (0x65a)
    Types: TextFile
    Notes: UNIX file
    Names: »lusers«

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »sys/build/lusers« 

TextFile

#! /bin/csh -f

switch (`ask wrskel "Write skeletal .login etc in /usr/skel?"`)
case quit:
	exit(1)
case y:
case yes:
	makedir /usr/skel
	if ($status) then
		echo "Cannot create directory /usr/skel"
		breaksw
	endif
	echo "Creating .login, .cshrc, and .logout in /usr/skel"
	echo "source /usr/maint/dot.login" > /usr/skel/.login
	echo "source /usr/maint/dot.cshrc" > /usr/skel/.cshrc
	echo "source /usr/maint/dot.logout" > /usr/skel/.logout
endsw

switch (`ask wrmaint "Write default dot.login etc in /usr/maint?"`)
case quit:
	exit(1)
case y:
case yes:
	makedir /usr/maint
	if ($status) then
		echo "Cannot create directory /usr/maint"
		breaksw
	endif
	set erase = `ask erasech "What will people use to erase characters?"`
	switch ($erase)
	case delete:
		set ech = "^?"
		breaksw
	case backspace:
		set ech = "^H"
		breaksw
	case quit:
		exit(1)
	endsw
	echo ""
	echo "Writing /usr/maint/dot.login"
	sed -e "s/#ERASE/$ech/" $subs/dot.login > /tmp/dot.login
	wrfile wrlogin /tmp/dot.login /usr/maint/dot.login
	if ($status) exit(1)
	echo ""
	echo "Writing /usr/maint/dot.cshrc"
	cp $subs/dot.cshrc /tmp/dot.cshrc
	wrfile wrcshrc /tmp/dot.cshrc /usr/maint/dot.cshrc
	if ($status) exit(1)
	cp $subs/dot.logout /tmp/dot.logout
	while (1)
		switch (`ask fortune "Put fortune command in dot.logout?"`)
		case y:
		case yes:
			echo "fortune -aw" >> /tmp/dot.logout
			break
		case s:
		case show:
			echo ""
			/usr/games/fortune -aw
			continue
		case quit:
			exit(1)
		endsw
		break
	end
	echo ""
	echo "Writing /usr/main/dot.logout"
	wrfile wrlogout /tmp/dot.logout /usr/maint/dot.logout
	if ($status) exit(1)
endsw
		
endsw