home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
ENAME101.ZIP
/
ENAME.PPS
< prev
next >
Wrap
Text File
|
1995-01-11
|
2KB
|
74 lines
' Program : EName
' Version : 1.01, FREEWARE
' Programmer : Chris Duke (c)1995 Duke Engineering
' Fidonet addr.: Chris Duke@1:202/238
' Internet : chris.duke@olr.com
' BBS : Online Resource
' Phone number : 619-793-8360/1
' Date : 01/09/1995
' Description : Converts user's name to a legitimate email address
'
INTEGER i
STRING s
STRING new
STRING a
STRING t
STRING domain
STRING clrName
STRING clrDomain
STRING strBefore
STRING strAfter
STRING strSep
STRING lcYesNo
FOPEN 1,PPEPATH()+"ENAME.INI",O_RD,S_DN
FGET 1,clrName
FGET 1,clrDomain
FGET 1,strBefore
FGET 1,strAfter
FGET 1,lcYesNo
FCLOSE 1
s = U_NAME()
if (Upper(lcYesNo) = "YES") s = Lower(s)
new = ""
domain = ReadLine(PCBDat(),289)
strSep = ReadLine(PCBDat(),294)
for i = 1 to Len(s)
a = Mid(s,i,1)
'Build address based on RFC1137 as a template for converting a PCBoard
'user name into Internet/UUCP address.
'
if (a = " ") then
t = strSep
elseif (a = ".") then
t = "#d#"
elseif (a = "_") then
t = "#u#"
elseif (a = "(") then
t = "#l#"
elseif (a = ")") then
t = "#r#"
elseif (a = ",") then
t = "#m#"
elseif (a = ":") then
t = "#c#"
elseif (a = "\") then
t = "#b#"
elseif (a = "#") then
t = "#h#"
elseif (a = "=") then
t = "#e#"
elseif (a = "/") then
t = "#s#"
else
t = a
endif
new = new + t
next
PRINT strBefore + " " + clrName + new + clrDomain + "@" + domain + strAfter + "@X07"