From fc7ef92907218cce90ddea9211fbae4f148f78fb Mon Sep 17 00:00:00 2001 From: rswindell <> Date: Tue, 4 Sep 2001 19:50:51 +0000 Subject: [PATCH] Re-added (didn't mean to delete). --- exec/login.src | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 exec/login.src diff --git a/exec/login.src b/exec/login.src new file mode 100644 index 0000000000..f434507398 --- /dev/null +++ b/exec/login.src @@ -0,0 +1,81 @@ +# login.src + +# Login module for Synchronet BBS v2.2+ + +# $Id$ + +# @format.tab-size 8, @format.use-tabs true + +!include sbbsdefs.inc + +logout + +node_status NODE_LOGON + +compare_ars WIP +if_true + exec_bin WIPLOGIN + return + end_if + +int c + +:top +compare c 10 +if_greater_or_equal + hangup + return + end_if + +print "\r\n\1nEnter Name, Number, '\1hNew\1n', or '\1hGuest\1n'\r\nNN: " +getstr str 25 K_UPRLWR|K_LOWPRIO|K_E71DETECT|K_TAB +truncsp str +compare_str "" +if_true + add c 1 + goto top + end_if +compare_str "GUEST" +if_true + setstr "%q" + compare_str "VERTx" + if_true + no_yes "Are you a registered Synchronet owner" + if_false + print "\r\n\1h\1rLogon as \1wNEW\1r to create your account.\r\n" + goto top + end_if + end_if + setstr "Guest" + end_if +compare_str "NEW" +if_true + setstr "%q" + compare_str "VERTx" + if_true + yes_no "Are you calling just to download the Synchronet DEMO" + if_true + setstr "Guest" + login "PW: " + if_true + logon + if_true + return + end_if + end_if + end_if + end_if + newuser + logon + return + end_if +login "PW: " +if_true + logon + if_true + return + end_if + end_if +add c 2 +goto top + -- GitLab