XEROX NSTHASIZE 2 4 1 NSTHASIZE 1 4 By: Larry Masinter (masinter.pa@xerox.com) Internal INTRODUCTION NSTHASIZE is a small package that helps converts distribution lists from Grapevine to NS as part of the "going PUP-less" movement. (NSTHASIZE GRAPEVINE-DL NS-GROUP) [Function] The function NSTHASIZE iterates down the members of the grapevine distribution list named by GRAPEVINE-DL, looking for grapevine names that forward (through the GV-to-NS gateway) to NS names. When it finds one, SPLITDL adds the NS-equivalent name to NS-GROUP and then removes the grapevine name from GRAPEVINE-DL. This operation is useful in converting distribution lists to the "new" structure for joint Grapevine/NS distribution lists. For example, the grapevine list LispUsers^.x forwards to the grapevine list "LispUsers-GV^.x" and the NS list "LispUsers-NS:All Areas". In the initial setup of these lists, it is useful to take all of the old Grapevine users whose mailbox now forwards to LispUsers-GV^.x and move their new NS name to LispUsers-NS:All Areas. Note that, since this bangs on both Grapevine registration servers and the Clearinghouses fairly heavily, that processing can be a bit slow at times... be patient. GV.TO.NS.REG [Variable] An association list which maps from Grapevine registry to NS domain:organization. Used to determine the NS equivalent for each forwarding address. (READ-GV-NS-MAPPING) [Function] Re-sets GV.TO.NS.REG by reading the file {INDIGO}GV>GV-NS-MAPPING.TXT. This should only be necessary if there are a lot of new mappings defined, otherwise, the initial value should work. EXAMPLES 70_NSTHASIZE ("BUG-1100-REDISTRIBUTE-GV^.X" "BUG-1100-REDISTRIBUTE-NS:ALL AREAS") fernandez.wbst => ("Robert Fernandez:LSBG-ECE:Xerox".ns) -- can't check name, assume correct => Robert Fernandez:LSBG-ECE:Xerox...ok, delete: T. halko.PASA => (Halko.xsis) => Patricia Halko:XSIS...ok, delete: T. JStewart.SV => (JStewart.EIS) => Jason K. Stewart:EIS:Versatec...ok, delete: T. Lisp.Auto => (BitBucket.ms)ms not in GV.TO.NS.REG - assuming not NS name not an NS equivalent address. MGITTINS.RX => (gittins.IHAIL) => Martin Gittins:IH:AIL...ok, delete: T. Mita.ES => (Mita.osbusouth) => Makoto Mita:OSBU South...ok, delete: T. NSato.FX => (NSato.ShinjukuMizunoFX) => Naoto Sato:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. YHirose.FX => (YHirose.ShinjukuMizunoFX) => Yukiyoshi Hirose:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. YKIUCHI.FX => (YKiuchi.ShinjukuMizunoFX) => Yasuhiko Kiuchi:shinjuku mizuno:Fuji Xerox...ok, delete: T. NIL _NSTHASIZE ("INFO-1100-REDISTRIBUTE-GV^.X" "INFO-1100-REDISTRIBUTE-NS:ALL AREAS") BLewis.PA => (BLewis.OsbuNorth) => Brian T. Lewis:OSBU North...ok, delete: T. castillo.ES => (Castillo.osbusouth) => Julio Castillo:OSBU South...ok, delete: T. DIshikawa.es => (DIshikawa.osbusouth) => Dan C. Ishikawa:OSBU South...ok, delete: T. fernandez.wbst => ("Robert Fernandez:LSBG-ECE:Xerox".ns)("Robert Fernandez:LSBG-ECE:Xerox" . ns) -- can't check name, assume correct => Robert Fernandez:LSBG-ECE:Xerox...ok, delete: T. gleason.PA => (Gleason.OSBUNorth) => Dana C. Gleason:OSBU North...ok, delete: T. Gopal.FX => (Gopal.ShinjukuMizunoFX) => Venu Gopal:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. gustafson.xrcc => (Gustafson.XRCC-NS) => don gustafson:XRCC....halko.PASA => (Halko.xsis) => Patricia Halko:XSIS...ok, delete: T. hayata.FX => (Hayata.ShinjukuMizunoFX) => Hiroshi Hayata:shinjuku mizuno:Fuji Xerox...ok, delete: T. JStewart.SV => (JStewart.EIS) => Jason K. Stewart:EIS:Versatec.... kamibayashi.FX => (Kamibayashi.ShinjukuMizunoFX) => Noriyuki Kamibayashi:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. KLeong.PA => (KLeong.osbunorth) => Kenneth Leong:OSBU North...ok, delete: T. kojo.fx => (Kojo.ShinjukuMizunoFX) => Shintaro Kojo:shinjuku mizuno:Fuji Xerox...ok, delete: T. komatsubara.FX => (Komatsubara.ShinjukuMizunoFX) => Hirofumi Komatsubara:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Lcollins.PA => (LCollins.OsbuNorth) => Leland D. Collins:OSBU North...ok, delete: T. Lisp.Auto => (BitBucket.ms)ms not in GV.TO.NS.REG - assuming not NS name not an NS equivalent address . Matsunaga.FX => (Matsunaga.ShinjukuMizunoFX) => Yoshifumi Matsunaga:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Mita.ES => (Mita.osbusouth) => Makoto Mita:OSBU South...ok, delete: T. Mueda.fx => (MUeda.ShinjukuMizunoFX) => Manabu Ueda:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Nakagaki.FX => (Nakagaki.ShinjukuMizunoFX) => Juhei Nakagaki:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. NSato.FX => (NSato.ShinjukuMizunoFX) => Naoto Sato:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Printis.PA => (Printis.osbunorth) => Robert S. Printis:OSBU North...ok, delete: T. PSmith.ES => (PSmith.osdassociates)Unable to find PSmith:OSD Associates:Xerox, assuming correct => PSmith:OSD Associates:Xerox... error:(ERROR CALL.ERROR TooBusy) ... retrying ...ok, delete: T. Rosenberg.PA => (Rosenberg.OsbuNorth) => Jarrett K. Rosenberg:OSBU North...ok, delete: T. Schwarcz.Siemens => (Schwarcz.OsbuBayshore) => Thomas L. Schwarcz:osbu bayshore...ok, delete: T. TBigham.es => (TBigham.HENR)HENR not in GV.TO.NS.REG - assuming not NS name not an NS equivalent address . TManley.PA => (tmanley.osbunorth) => Theodore D. Manley:OSBU North...ok, delete: T. TMatsumoto.FX => (TMatsumoto.IWAFX)Unable to find TMatsumoto:IWA:Fuji Xerox, assuming correct => TMatsumoto:IWA:Fuji Xerox...ok, delete: T. townsend.pa => (Townsend.osbubayshore) => Timothy J. Townsend:OSBU BAYSHORE...ok, delete: T. TSHIMIZU.FX => (TShimizu.ShinjukuMizunoFX) => Takeshi Shimizu:shinjuku mizuno:Fuji Xerox...ok, delete: T. Uchiyama.FX => (Uchiyama.ShinjukuMizunoFX) => Tohru Uchiyama:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Udagawa.FX => (Udagawa.IWAFX)Unable to find Udagawa:IWA:Fuji Xerox, assuming correct => Udagawa:IWA:Fuji Xerox...ok, delete: T. Wong.PA => (Wong.osbunorth) => Elaine Y. Wong:OSBU North...ok, delete: T. yamashita.FX => (Yamashita.ShinjukuMizunoFX) => Akio Yamashita:Shinjuku Mizuno:Fuji Xerox...ok, delete: T. Yasuda.FX => (Yasuda.IWAFX)Unable to find Yasuda:IWA:Fuji Xerox, assuming correct => Yasuda:IWA:Fuji Xerox...ok, delete: T. ykiuchi.FX => (YKiuchi.ShinjukuMizunoFX) => Yasuhiko Kiuchi:shinjuku mizuno:Fuji Xerox...ok, delete: T. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))((È1È È(ŠŠ8(È (ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADTERMINAL  HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ,  „  ] ”* Â¥  “ Ç R’CPhIG_ihRNRUºQ_‚eCuM`uUipG`i_S`cZalTŒ]jiU,Jk|hz¦zº