UserHTML - Some Wildcat BBS code I wrote back in 1995

userhtml.wcc

// USERHTML - Wildcat User List to HTML Converter
// By: Pete Nelson (pete@terminal-one.com)


dim urec as userrecord
dim today as date, now as time, domain as string

if not exists("userhtml.cfg") then
   cls
   print "@0A@What is your domain name@07@: " defcolor;
   domain = trim(inputmask("","@XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"))
   open "userhtml.cfg" for output as #1
   print #1, domain
   close #1
end if

open "userhtml.cfg" for input as #1
input #1, domain
close #1


moreprompt off

getfirstuser(urec)

open "userlist.htm" for output as #1

print "@0A@"

currentdate(today)
currenttime(now)

print #1, "<title>" trim(makewild.bbsname) " User List</title>"
print #1, "<center>"
print #1, "<h2>" trim(makewild.bbsname) " User List</h2><br>"
print #1, "<h3><i> Last Updated: " formatdate(today,"mm/dd/yy") "  " formattime(now,"Hh:mmte") "</i></h3>"
print #1, "</center>"
print #1, "<br>"
print #1, "<hr>"

do
   print urec.name " from " urec.from
   print #1, "<h4><a href=" chr(34) "mailto:" trim(str(urec.userid)) domain chr(34) ">" urec.name "</a> from " urec.from ", " ucase(urec.state) " - Last Call: " formatdate(urec.lastcall.d,"mm/dd/yy") "</h4><br>"
   updatescreen
loop until not getnextuser(urec)

print #1, "<hr>"
print #1, "<h5>Created by USERHTML for Wildcat v4 - <a href=" chr(34) "http://ccnet.com/~weasel" chr(34) ">Pete Nelson</a></h5><br>"