home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / comm / ums / install-support / makefidodomain.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-10-11  |  350 b   |  14 lines
  1. /* convert fido address to domain address */
  2.  
  3. arg fido
  4.  
  5. parse var fido zone ":" net "/" node "." point
  6.  
  7. if point ~= "" then do
  8.   domain = "p" || point || ".f" || node || ".n" || net || ".z" || zone || ".fidonet.org"
  9. end; else do
  10.   domain = "f" || node || ".n" || net || ".z" || zone || ".fidonet.org"
  11. end
  12.  
  13. address command SetEnv "fido-domain" domain
  14.