Skip to content
Snippets Groups Projects
Commit 410516bb authored by rswindell's avatar rswindell
Browse files

Removed Pony's customizations (whoops).

parent 2ba0c8c4
No related branches found
No related tags found
No related merge requests found
# newuser.src
# New user login module
# $Id$
# @format.tab-size 8, @format.use-tabs true
!include sbbsdefs.inc
cls
......@@ -8,7 +16,7 @@ set_user_string USER_STRING_ADDRESS
int i qnet
str tmp
no_yes "\r\nIs this account for QWK Networking (PonyNet, Dove-Net, etc..) \1w\1iONLY\1n\1h\1b"
no_yes "\r\nIs this account to be used for QWK Networking (DOVE-Net)\1b"
if_false
no_yes "\r\nARE YOU \1wPOSITIVE\1n\1h\1b (If you're unsure, press '\1wN\1b')"
if_false
......@@ -91,52 +99,10 @@ if_true
return
end_if
toggle_user_flag 1 S
yes_no "\r\nDo you wish to access the Synchronet BBS List database"
if_true
exec_xtrn SBL
compare_ars "REST Q"
if_false
yes_no "\r\nDo you wish to access the Synchronet BBS List database"
if_true
exec_xtrn SBL
end_if
end_if
!include file_io.inc
!include sbbsdefs.inc
int msg_file
int tmpfile
str tmp
:newuser_msg
fopen tmpfile O_CREAT|O_TRUNC|O_WRONLY "%nnewuser.tmp"
if_false
printf "\r\nError opening TMP File!\r\n"
return
else
fprintf tmpfile "%%a\r\n%%1\r\nPony's Corral BBS\r\n1\r\nWelcome NewUser!"
fclose tmpfile
end_if
fopen tmpfile O_CREAT|O_TRUNC|O_WRONLY "%nemail.bat"
if_true
sprintf str "%%!smbutil.exe i%%znewuser.txt %%jmail.shd < %%nnewuser.tmp"
fprintf tmpfile "%s" str
fclose tmpfile
sprintf str "%%nemail.bat"
exec "%s"
sprintf str "%%nemail.bat"
remove_file str
else
printf "\r\nError opening TMP File!\r\n"
end_if
cls
print "\r\n\r\nhb"
print "\r\n\1n\1k7You have new Email which must be Readn"
print "\r\nhb\r\n\r\n"
pause
mail_read
return
#end Newuser
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment