[mirrors/Programs.git] / bash / bbs / bbs.sh

#!/bin/bash
#Settings
bbs_dir=$(dirname "$0");
bbs_title="Harvie's BBS";
#Misc
fail_delay="5";

#Directories
config_dir="./config";
data_dir="./data";
utils_dir="./utils";
#Data directories
chatrooms_dir="$data_dir/chatrooms";
boards_dir="$data_dir/boards";
archive_dir="$data_dir/archive";
#Files
welcome_file="$config_dir/welcome";
about_file="$config_dir/about";
farewell_file="$config_dir/farewell";
users_file="$config_dir/users";
log_file="$config_dir/security.log";

#Init...
cd "$bbs_dir";
tmp="/tmp/bbstmp-$$";
dialog=$(which dialog);
export DIALOGOPTS="--no-shadow --trim --title \"$bbs_title\" --backtitle \"$bbs_title\"";
w(){ echo $(tput cols); }						#dialog width
h(){ echo $(($(tput lines)-0)); }		#dialog height (LINES-5 to display backtitle)
m(){ echo $(($(tput lines)-12)); }		#dialog menu size
bbs_ssh_ip=$(echo $SSH_CLIENT | cut -d' ' -f1); #Works only with OpenSSH
alias ls=ls; #Get rid of that 'user friendly' crap ;)

#Functions...
bbs_welcome_banner() {
  cat "$welcome_file" > "$tmp";
  echo "$SSH_CLIENT" >>"$tmp"; #Works only with OpenSSH
	$dialog --title "Welcome to $bbs_title" --exit-label "Enter" --textbox "$tmp" $(h) $(w);
	if [ "$?" != 0 ]; then bbs_exit; fi;
}

bbs_about() {
	$dialog --title "About $bbs_title" --exit-label "Agree" --textbox "$about_file" $(h) $(w);
}

bbs_exit() {
	rm -f "$tmp";
	clear;
	cat "$farewell_file";
	exit;
}

bbs_check_login() {
  cat "$users_file" | grep "^[^# ]" | while read i; do
  	login=$(echo "$i" | cut -d: -f1);
  	passw=$(echo "$i" | cut -d: -f2);
  	group=$(echo "$i" | cut -d: -f3);
  	if [[ "$1" == "$login" && "$2" == "$passw" ]]; then
  		echo "$group";
			echo "($(date +%T)) $bbs_ssh_ip: Login to user $1 successfull" >>"$log_file";
  	fi;
  done;
}

bbs_preview() {
	if [[ -d "$1" ]];
		then echo '[DIR]' #$(ls -A "$1"); #<- uncomment rest of the line to have directory preview
		else echo #$(head -n1 "$1"); #<- uncomment rest of the line to have file preview
	fi;
}

bbs_browse_dir() { #brand new dialog filelisting - supposed to be secure to directory traversal!
	while true; do

		#call dialog with output of ls...
  	ls -A1 --group-directories-first "$1" | while read i; do
	  	echo -n "$i"; echo -ne "\x00";
  		echo -n $(bbs_preview "$1/$i");  echo -ne "\x00"
  	done | xargs -0 $dialog --menu -- "Select the board" $(h) $(w) $(m) 2>"$tmp";

  	if [ "$?" != 0 ]; then
			return 1;
			#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
		else
      selected=$( echo -n "$1/"; cat "$tmp" );
			if [[ -d "$selected" ]];
				then
					bbs_browse_dir "$selected"; return "$?";
				else
					echo "$selected" >"$tmp"; return 0;
			fi;
		fi;

	done;
}

bbs_browse_dir() { #brand new dialog filelisting - supposed to be secure to directory traversal!
	while true; do

  	"$utils_dir/fselect" "$1" "$tmp"

  	if [ "$?" != 7 ]; then
			return 1;
			#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
		else
			#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
      #selected=$( echo -n "$1/"; cat "$tmp" );
			#echo "$selected" >"$tmp";
			return 0;
		fi;

	done;
}

#bbs_file_select() { #deprecated
#  ls -A1 $@ | while read i; do
#        echo -n "$i"; echo -ne "\x00";
#        echo -n $(bbs_preview "$1/$i");  echo -ne "\x00"
#  done | xargs -0 $dialog --menu -- "Select the file" $(h) $(w) $(m);
#  return "$?";
#}

bbs_file_edit() {
	#This is supposed to be a secure way to edit the file...
	nano -DR "$1";
}

#Chat##################

bbs_chat_send() {
  $dialog --inputbox "Enter message" $(h) $(w) 2>"$tmp"
  if [ "$?" != 0 ]; then return; fi;
  message=$(cat "$tmp");
  echo "($(date +%T))" "$login: $message" >>"$1"
}

bbs_chat_join() {
	while true; do
  	$dialog --title "Chatroom $1 (esc to leave)" --exit-label "Write message" --tailbox "$1" $(h) $(w);
	if [ "$?" != 0 ]; then return; fi;
	bbs_chat_send "$1";
	done;
}

bbs_chat() {
  bbs_browse_dir "$chatrooms_dir";
  if [ "$?" != 0 ]; then return; fi;
  chatroom=$(cat "$tmp");
  bbs_chat_join "$chatroom";
}


#Mail####################

bbs_mail() {
	$dialog --pause "HOOOPS! Sorry. Mail not yet ;o)" $(h) $(w) "$fail_delay";
}

#Archive#################

bbs_board_read() {
	#echo BBS_BOARD_READ "$1" | less;
	#less "$1";
	$dialog --textbox "$1" $(h) $(w);
}

bbs_archive() {
	while true; do
		bbs_browse_dir "$archive_dir";
		if [ "$?" != 0 ];
			then break;
			else bbs_board_read $(cat "$tmp");
		fi;
	done;
}

#Forum###################

bbs_board() {
	while true; do
		bbs_browse_dir "$boards_dir";
		if [ "$?" != 0 ];
			then break;
			else bbs_board_read $(cat "$tmp");
		fi;
	done;
}


#System menu#############

bbs_admin_console() {
	#While this BBS is not complete, i will give the shell to the admin group to fix-up everything ;o)
	#bash can be replaced by chrooted SASH (ex.) to improve security...
	$dialog --insecure --passwordbox "Enter your password" $(h) $(w) 2>"$tmp";
	if [ "$?" != 0 ]; then return; fi;
  repassword=$(cat "$tmp");
 	if [[ "$group" == "admin" && "$repassword" == "$password" ]]; then
		clear;
		echo -e "This is management console. Press ctrl+d or type exit to leave...\n";
	  bash;
	  clear;
	else
		$dialog --pause "Authentification failed. Check your password and/or membership in admin group." $(h) $(w) "$fail_delay";
	fi;
}

bbs_logs() {
	if [ "$group" == "guest" ]; then
		$dialog --pause "Users from guest group can't browse logs!" $(h) $(w) "$fail_delay";
		return;
	fi;
	$dialog --textbox "$log_file" $(h) $(w);
}

bbs_user_info() {
	echo "LOGIN: $login" >"$tmp";
	echo "GROUP: $group" >>"$tmp";
	echo >>"$tmp";
  echo "IP (if any): $SSH_CLIENT" >>"$tmp"; #Works only with OpenSSH
  echo "CONNECTION (if any): $SSH_CONNECTION" >>"$tmp"; #Works only with OpenSSH
	$dialog --title "Userinfo for $login" --textbox "$tmp" $(h) $(w);
}

bbs_user_list() {
  cat "$users_file" | grep "^[^# ]" | while read i; do
  	login=$(echo "$i" | cut -d: -f1);
  	group=$(echo "$i" | cut -d: -f3);
  	echo -e "$group\t\t$login";
  done | sort -u >"$tmp";
	$dialog --title "Userlist for $bbs_title" --textbox "$tmp" $(h) $(w);  
}

bbs_register() { ########################################################<-incompleteeeeeeeee
	echo -n "$SSH_CLIENT:$ " 2>"$tmp";
	$dialog --inputbox "Send message to admins\n\
		eg.:\nREGISTRATION: yournick:yourpasswd CONTACT:your@adress.net Few words about you here...\n\
		or\nSome other message..." $(h) $(w) 2>>"$tmp";
	if [ "$?" != 0 ]; then return; fi;
}

bbs_contact_admins() { ########################################################<-incompleteeeeeeeee
	echo -n "$SSH_CLIENT:$ " 2>"$tmp";
	$dialog --inputbox "Send message to admins\n\
		eg.:\nREGISTRATION: yournick:yourpasswd CONTACT:your@adress.net Few words about you here...\n\
		or\nSome other message..." $(h) $(w) 2>>"$tmp";
	if [ "$?" != 0 ]; then return; fi;
}

bbs_system_menu() {
	while true; do
		$dialog --menu "System Menu" $(h) $(w) $(m)\
			userinfo	"Info about you"\
			userlist	"Info about other users"\
			logs			"View logs"\
			register	"Submit request for new account"\
			contact		"Contact administrators"\
			admin			"Enter admin management console..."\
			back			"Go back to the main menu..."\
		2>"$tmp"
		if [ "$?" != 0 ]; then return; fi;

		choice=$(cat "$tmp")
		case "$choice" in
	  	"userinfo")	bbs_user_info;;
	  	"userlist")	bbs_user_list;;
	  	"logs")			bbs_logs;;
	  	"register")	bbs_register;;
	  	"contact")	bbs_contact_admins;;
	  	"admin") 		bbs_admin_console;;
	  	"back") 	return;;
	  	*) 				echo bad choice... keep trying.;;
		esac
	done;
}

#CODE###########################################################################
#Welcome
bbs_welcome_banner;

#Login
while true; do
	$dialog --inputbox "Enter your nickname" $(h) $(w) 2>"$tmp";
		if [ "$?" != 0 ]; then bbs_exit; fi;
		login=$(cat "$tmp");
	$dialog --insecure --passwordbox "Enter your password" $(h) $(w) 2>"$tmp";
		if [ "$?" != 0 ]; then bbs_exit; fi;
		password=$(cat "$tmp");

  group=$(bbs_check_login "$login" "$password");
  case "$group" in
  	"user")		break;;
  	"admin")	break;;
  	"guest")	break;;
  esac;
  $dialog --pause "Login failed! Press enter to continue..." $(h) $(w) "$fail_delay";
	echo "($(date +%T)) $bbs_ssh_ip: Login to user $login failed" >>"$log_file";
done;

if [[ "$group" == "guest" && -n "$bbs_ssh_ip" ]]; then
	login="[$bbs_ssh_ip]$login";
fi;

	#Login debug ;)
  #echo Loged as "$login:$group":$(mkpasswd "$password"); bbs_exit;

while true; do
	$dialog --no-cancel --menu "Main Menu" $(h) $(w) $(m)\
		chat		"Browse online chatrooms..."\
		boards	"Browse boards..."\
		archive	"Browse archive..."\
		mail		"Send/receive personal messages..."\
		system	"Enter system menu..."\
		about		"About this BBS..."\
		exit		"Logout"\
	2>"$tmp"

	choice=$(cat "$tmp")
	case "$choice" in
	  "chat") 		bbs_chat;;
	  "boards")		bbs_board;;
	  "archive")	bbs_archive;;
	  "mail")			bbs_mail;;
	  "system")		bbs_system_menu;;
	  "about")		bbs_about;;
	  "exit") 		bbs_exit;;
	  *) 					$dialog --pause "HOOOPS! Sorry. $choice not yet ;o)" $(h) $(w) "$fail_delay";;
	esac
done;

bbs_exit;
Commit	Line	Data
	1	#!/bin/bash
	2	#Settings
	3	bbs_dir=$(dirname "$0");
	4	bbs_title="Harvie's BBS";
	5	#Misc
	6	fail_delay="5";
	7
	8	#Directories
	9	config_dir="./config";
	10	data_dir="./data";
	11	utils_dir="./utils";
	12	#Data directories
	13	chatrooms_dir="$data_dir/chatrooms";
	14	boards_dir="$data_dir/boards";
	15	archive_dir="$data_dir/archive";
	16	#Files
	17	welcome_file="$config_dir/welcome";
	18	about_file="$config_dir/about";
	19	farewell_file="$config_dir/farewell";
	20	users_file="$config_dir/users";
	21	log_file="$config_dir/security.log";
	22
	23	#Init...
	24	cd "$bbs_dir";
	25	tmp="/tmp/bbstmp-$$";
	26	dialog=$(which dialog);
	27	export DIALOGOPTS="--no-shadow --trim --title \"$bbs_title\" --backtitle \"$bbs_title\"";
	28	w(){ echo $(tput cols); } #dialog width
	29	h(){ echo $(($(tput lines)-0)); } #dialog height (LINES-5 to display backtitle)
	30	m(){ echo $(($(tput lines)-12)); } #dialog menu size
	31	bbs_ssh_ip=$(echo $SSH_CLIENT \| cut -d' ' -f1); #Works only with OpenSSH
	32	alias ls=ls; #Get rid of that 'user friendly' crap ;)
	33
	34	#Functions...
	35	bbs_welcome_banner() {
	36	cat "$welcome_file" > "$tmp";
	37	echo "$SSH_CLIENT" >>"$tmp"; #Works only with OpenSSH
	38	$dialog --title "Welcome to $bbs_title" --exit-label "Enter" --textbox "$tmp" $(h) $(w);
	39	if [ "$?" != 0 ]; then bbs_exit; fi;
	40	}
	41
	42	bbs_about() {
	43	$dialog --title "About $bbs_title" --exit-label "Agree" --textbox "$about_file" $(h) $(w);
	44	}
	45
	46	bbs_exit() {
	47	rm -f "$tmp";
	48	clear;
	49	cat "$farewell_file";
	50	exit;
	51	}
	52
	53	bbs_check_login() {
	54	cat "$users_file" \| grep "^[^# ]" \| while read i; do
	55	login=$(echo "$i" \| cut -d: -f1);
	56	passw=$(echo "$i" \| cut -d: -f2);
	57	group=$(echo "$i" \| cut -d: -f3);
	58	if [[ "$1" == "$login" && "$2" == "$passw" ]]; then
	59	echo "$group";
	60	echo "($(date +%T)) $bbs_ssh_ip: Login to user $1 successfull" >>"$log_file";
	61	fi;
	62	done;
	63	}
	64
	65	bbs_preview() {
	66	if [[ -d "$1" ]];
	67	then echo '[DIR]' #$(ls -A "$1"); #<- uncomment rest of the line to have directory preview
	68	else echo #$(head -n1 "$1"); #<- uncomment rest of the line to have file preview
	69	fi;
	70	}
	71
	72	bbs_browse_dir() { #brand new dialog filelisting - supposed to be secure to directory traversal!
	73	while true; do
	74
	75	#call dialog with output of ls...
	76	ls -A1 --group-directories-first "$1" \| while read i; do
	77	echo -n "$i"; echo -ne "\x00";
	78	echo -n $(bbs_preview "$1/$i"); echo -ne "\x00"
	79	done \| xargs -0 $dialog --menu -- "Select the board" $(h) $(w) $(m) 2>"$tmp";
	80
	81	if [ "$?" != 0 ]; then
	82	return 1;
	83	#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
	84	else
	85	selected=$( echo -n "$1/"; cat "$tmp" );
	86	if [[ -d "$selected" ]];
	87	then
	88	bbs_browse_dir "$selected"; return "$?";
	89	else
	90	echo "$selected" >"$tmp"; return 0;
	91	fi;
	92	fi;
	93
	94	done;
	95	}
	96
	97	bbs_browse_dir() { #brand new dialog filelisting - supposed to be secure to directory traversal!
	98	while true; do
	99
	100	"$utils_dir/fselect" "$1" "$tmp"
	101
	102	if [ "$?" != 7 ]; then
	103	return 1;
	104	#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
	105	else
	106	#$dialog --pause "HOOOPS! Sorry. None or empty directory selected..." $(h) $(w) "$fail_delay";
	107	#selected=$( echo -n "$1/"; cat "$tmp" );
	108	#echo "$selected" >"$tmp";
	109	return 0;
	110	fi;
	111
	112	done;
	113	}
	114
	115	#bbs_file_select() { #deprecated
	116	# ls -A1 $@ \| while read i; do
	117	# echo -n "$i"; echo -ne "\x00";
	118	# echo -n $(bbs_preview "$1/$i"); echo -ne "\x00"
	119	# done \| xargs -0 $dialog --menu -- "Select the file" $(h) $(w) $(m);
	120	# return "$?";
	121	#}
	122
	123	bbs_file_edit() {
	124	#This is supposed to be a secure way to edit the file...
	125	nano -DR "$1";
	126	}
	127
	128	#Chat##################
	129
	130	bbs_chat_send() {
	131	$dialog --inputbox "Enter message" $(h) $(w) 2>"$tmp"
	132	if [ "$?" != 0 ]; then return; fi;
	133	message=$(cat "$tmp");
	134	echo "($(date +%T))" "$login: $message" >>"$1"
	135	}
	136
	137	bbs_chat_join() {
	138	while true; do
	139	$dialog --title "Chatroom $1 (esc to leave)" --exit-label "Write message" --tailbox "$1" $(h) $(w);
	140	if [ "$?" != 0 ]; then return; fi;
	141	bbs_chat_send "$1";
	142	done;
	143	}
	144
	145	bbs_chat() {
	146	bbs_browse_dir "$chatrooms_dir";
	147	if [ "$?" != 0 ]; then return; fi;
	148	chatroom=$(cat "$tmp");
	149	bbs_chat_join "$chatroom";
	150	}
	151
	152
	153
	154	#Mail####################
	155
	156	bbs_mail() {
	157	$dialog --pause "HOOOPS! Sorry. Mail not yet ;o)" $(h) $(w) "$fail_delay";
	158	}
	159
	160	#Archive#################
	161
	162	bbs_board_read() {
	163	#echo BBS_BOARD_READ "$1" \| less;
	164	#less "$1";
	165	$dialog --textbox "$1" $(h) $(w);
	166	}
	167
	168	bbs_archive() {
	169	while true; do
	170	bbs_browse_dir "$archive_dir";
	171	if [ "$?" != 0 ];
	172	then break;
	173	else bbs_board_read $(cat "$tmp");
	174	fi;
	175	done;
	176	}
	177
	178	#Forum###################
	179
	180	bbs_board() {
	181	while true; do
	182	bbs_browse_dir "$boards_dir";
	183	if [ "$?" != 0 ];
	184	then break;
	185	else bbs_board_read $(cat "$tmp");
	186	fi;
	187	done;
	188	}
	189
	190
	191	#System menu#############
	192
	193	bbs_admin_console() {
	194	#While this BBS is not complete, i will give the shell to the admin group to fix-up everything ;o)
	195	#bash can be replaced by chrooted SASH (ex.) to improve security...
	196	$dialog --insecure --passwordbox "Enter your password" $(h) $(w) 2>"$tmp";
	197	if [ "$?" != 0 ]; then return; fi;
	198	repassword=$(cat "$tmp");
	199	if [[ "$group" == "admin" && "$repassword" == "$password" ]]; then
	200	clear;
	201	echo -e "This is management console. Press ctrl+d or type exit to leave...\n";
	202	bash;
	203	clear;
	204	else
	205	$dialog --pause "Authentification failed. Check your password and/or membership in admin group." $(h) $(w) "$fail_delay";
	206	fi;
	207	}
	208
	209	bbs_logs() {
	210	if [ "$group" == "guest" ]; then
	211	$dialog --pause "Users from guest group can't browse logs!" $(h) $(w) "$fail_delay";
	212	return;
	213	fi;
	214	$dialog --textbox "$log_file" $(h) $(w);
	215	}
	216
	217	bbs_user_info() {
	218	echo "LOGIN: $login" >"$tmp";
	219	echo "GROUP: $group" >>"$tmp";
	220	echo >>"$tmp";
	221	echo "IP (if any): $SSH_CLIENT" >>"$tmp"; #Works only with OpenSSH
	222	echo "CONNECTION (if any): $SSH_CONNECTION" >>"$tmp"; #Works only with OpenSSH
	223	$dialog --title "Userinfo for $login" --textbox "$tmp" $(h) $(w);
	224	}
	225
	226	bbs_user_list() {
	227	cat "$users_file" \| grep "^[^# ]" \| while read i; do
	228	login=$(echo "$i" \| cut -d: -f1);
	229	group=$(echo "$i" \| cut -d: -f3);
	230	echo -e "$group\t\t$login";
	231	done \| sort -u >"$tmp";
	232	$dialog --title "Userlist for $bbs_title" --textbox "$tmp" $(h) $(w);
	233	}
	234
	235	bbs_register() { ########################################################<-incompleteeeeeeeee
	236	echo -n "$SSH_CLIENT:$ " 2>"$tmp";
	237	$dialog --inputbox "Send message to admins\n\
	238	eg.:\nREGISTRATION: yournick:yourpasswd CONTACT:your@adress.net Few words about you here...\n\
	239	or\nSome other message..." $(h) $(w) 2>>"$tmp";
	240	if [ "$?" != 0 ]; then return; fi;
	241	}
	242
	243	bbs_contact_admins() { ########################################################<-incompleteeeeeeeee
	244	echo -n "$SSH_CLIENT:$ " 2>"$tmp";
	245	$dialog --inputbox "Send message to admins\n\
	246	eg.:\nREGISTRATION: yournick:yourpasswd CONTACT:your@adress.net Few words about you here...\n\
	247	or\nSome other message..." $(h) $(w) 2>>"$tmp";
	248	if [ "$?" != 0 ]; then return; fi;
	249	}
	250
	251	bbs_system_menu() {
	252	while true; do
	253	$dialog --menu "System Menu" $(h) $(w) $(m)\
	254	userinfo "Info about you"\
	255	userlist "Info about other users"\
	256	logs "View logs"\
	257	register "Submit request for new account"\
	258	contact "Contact administrators"\
	259	admin "Enter admin management console..."\
	260	back "Go back to the main menu..."\
	261	2>"$tmp"
	262	if [ "$?" != 0 ]; then return; fi;
	263
	264	choice=$(cat "$tmp")
	265	case "$choice" in
	266	"userinfo") bbs_user_info;;
	267	"userlist") bbs_user_list;;
	268	"logs") bbs_logs;;
	269	"register") bbs_register;;
	270	"contact") bbs_contact_admins;;
	271	"admin") bbs_admin_console;;
	272	"back") return;;
	273	*) echo bad choice... keep trying.;;
	274	esac
	275	done;
	276	}
	277
	278	#CODE###########################################################################
	279	#Welcome
	280	bbs_welcome_banner;
	281
	282	#Login
	283	while true; do
	284	$dialog --inputbox "Enter your nickname" $(h) $(w) 2>"$tmp";
	285	if [ "$?" != 0 ]; then bbs_exit; fi;
	286	login=$(cat "$tmp");
	287	$dialog --insecure --passwordbox "Enter your password" $(h) $(w) 2>"$tmp";
	288	if [ "$?" != 0 ]; then bbs_exit; fi;
	289	password=$(cat "$tmp");
	290
	291	group=$(bbs_check_login "$login" "$password");
	292	case "$group" in
	293	"user") break;;
	294	"admin") break;;
	295	"guest") break;;
	296	esac;
	297	$dialog --pause "Login failed! Press enter to continue..." $(h) $(w) "$fail_delay";
	298	echo "($(date +%T)) $bbs_ssh_ip: Login to user $login failed" >>"$log_file";
	299	done;
	300
	301	if [[ "$group" == "guest" && -n "$bbs_ssh_ip" ]]; then
	302	login="[$bbs_ssh_ip]$login";
	303	fi;
	304
	305	#Login debug ;)
	306	#echo Loged as "$login:$group":$(mkpasswd "$password"); bbs_exit;
	307
	308	while true; do
	309	$dialog --no-cancel --menu "Main Menu" $(h) $(w) $(m)\
	310	chat "Browse online chatrooms..."\
	311	boards "Browse boards..."\
	312	archive "Browse archive..."\
	313	mail "Send/receive personal messages..."\
	314	system "Enter system menu..."\
	315	about "About this BBS..."\
	316	exit "Logout"\
	317	2>"$tmp"
	318
	319	choice=$(cat "$tmp")
	320	case "$choice" in
	321	"chat") bbs_chat;;
	322	"boards") bbs_board;;
	323	"archive") bbs_archive;;
	324	"mail") bbs_mail;;
	325	"system") bbs_system_menu;;
	326	"about") bbs_about;;
	327	"exit") bbs_exit;;
	328	*) $dialog --pause "HOOOPS! Sorry. $choice not yet ;o)" $(h) $(w) "$fail_delay";;
	329	esac
	330	done;
	331
	332	bbs_exit;