1 / 67

' Program : EName

' 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.

bianca-richmond
Download Presentation

' Program : EName

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ' Program : EName

  2. ' Version : 1.01, FREEWARE

  3. ' Programmer : Chris Duke (c)1995 Duke Engineering

  4. ' Fidonet addr.: Chris Duke@1:202/238

  5. ' Internet : chris.duke@olr.com

  6. ' BBS : Online Resource

  7. ' Phone number : 619-793-8360/1

  8. ' Date : 01/09/1995

  9. ' Description : Converts user's name to a legitimate email address

  10. '

  11. INTEGER i

  12. STRING s

  13. STRING new

  14. STRING a

  15. STRING t

  16. STRING domain

  17. STRING clrName

  18. STRING clrDomain

  19. STRING strBefore

  20. STRING strAfter

  21. STRING strSep

  22. STRING lcYesNo

  23. FOPEN 1,PPEPATH()+"ENAME.INI",O_RD,S_DN

  24. FGET 1,clrName

  25. FGET 1,clrDomain

  26. FGET 1,strBefore

  27. FGET 1,strAfter

  28. FGET 1,lcYesNo

  29. FCLOSE 1

  30. s = U_NAME()

  31. if (Upper(lcYesNo) = "YES") s = Lower(s)

  32. new = ""

  33. domain = ReadLine(PCBDat(),289)

  34. strSep = ReadLine(PCBDat(),294)

  35. for i = 1 to Len(s)

  36. a = Mid(s,i,1)

  37. 'Build address based on RFC1137 as a template for converting a PCBoard

  38. 'user name into Internet/UUCP address.

  39. '

  40. if (a = " ") then

  41. t = strSep

  42. elseif (a = ".") then

  43. t = "#d#"

  44. elseif (a = "_") then

  45. t = "#u#"

  46. elseif (a = "(") then

  47. t = "#l#"

  48. elseif (a = ")") then

  49. t = "#r#"

  50. elseif (a = ",") then

More Related