DIRECTORYAscii USING [Lower],Basics USING [Comparison],Commander USING[CommandProc, Register],GVBasics USING [MakeKey, Password],GVNames,IO,Process USING [Detach],Rope,UserCredentials USING [Get],ViewerIO USING [CreateViewerStreams];DBPurge: CEDAR PROGRAMIMPORTS Ascii, Commander, GVBasics, GVNames, IO, Process, Rope, UserCredentials, ViewerIOSHARES GVNames--GetEntry-- =BEGINBreakName: PROC[name: Rope.ROPE] RETURNS[sn, reg: Rope.ROPE] =BEGINlength: INT = name.Length[];FOR i: INT DECREASING IN [0..length) DOIF name.Fetch[i] = '. THEN RETURN[sn: name.Substr[start: 0, len: i],reg: name.Substr[start: i+1, len: length-(i+1)] ];ENDLOOP;RETURN[sn: NIL, reg: name];END;Compare: PROC[a, b: Rope.ROPE] RETURNS[Basics.Comparison] =BEGINaL: INT = a.Length[];bL: INT = b.Length[];FOR i: INT IN [0..MIN[aL, bL]) DOac: CHAR = Ascii.Lower[a.Fetch[i]];bc: CHAR = Ascii.Lower[b.Fetch[i]];IF ac < bc THEN RETURN[less];IF ac > bc THEN RETURN[greater];ENDLOOP;IF aL < bL THEN RETURN[less];IF aL > bL THEN RETURN[greater];RETURN[equal];END;Code: PROC[type: GVNames.Outcome] RETURNS[Rope.ROPE] ={ RETURN[ SELECT type FROMnoChange => "no change",group => "that's a group",individual => "that's an individual",notFound => "name not found",protocolError => "protocol error",wrongServer => "wrong server",allDown => "all suitable servers are down or inaccessible",badPwd => "incorrect password",outOfDate => "out of date",notAllowed => "you're not authorized to do that",ENDCASE => "unknown return code" ] };NameClass: TYPE = { individuals, groups, dead };EnumInRegistry: PROC[pattern, registry: Rope.ROPE, which: NameClass, work: EnumProc, out: IO.STREAM ] =BEGINenumName: Rope.ROPE = Rope.Cat[SELECT which FROMindividuals => "Individuals.",groups => "Groups.",dead => "Dead.",ENDCASE => ERROR,registry];info: GVNames.MemberInfo = GVNames.GetMembers[enumName];WITH info SELECT FROMi: group GVNames.MemberInfo =>BEGINFOR m: GVNames.RListHandle _ i.members, m.rest UNTIL m = NIL DOsn: Rope.ROPE = BreakName[m.first].sn;IF Rope.Match[pattern: pattern, object: sn, case: FALSE]THEN { IF work[m.first] THEN EXIT };ENDLOOP;END;ENDCASE =>out.PutF["\nCouldn't get members of \"%g\": %g",[rope[enumName]], [rope[Code[info.type]]] ];END;EnumProc: TYPE = PROC[name: Rope.ROPE] RETURNS[exit: BOOL _ FALSE];EnumAllNames: PROC[pattern: Rope.ROPE, which: NameClass, work: EnumProc, out: IO.STREAM ] =BEGINpatternSN, patternReg: Rope.ROPE;RegWork: EnumProc =BEGINout.PutF["\n\n%t Enumerating names in %g . . .\n", IO.time[], [rope[name]] ];EnumInRegistry[patternSN, BreakName[name].sn, which, work, out];END;[patternSN, patternReg] _ BreakName[pattern];EnumInRegistry[patternReg, "GV", groups, RegWork, out];END;ListType: TYPE = { m, o, f };Remove: PROC[entry, element: Rope.ROPE, which: ListType, out: IO.STREAM] =BEGINuser: Rope.ROPE = UserCredentials.Get[].name;pwd: GVBasics.Password = GVBasics.MakeKey[UserCredentials.Get[].password];outcome: GVNames.Outcome = SELECT which FROMm => GVNames.RemoveMember[user, pwd, entry, element],o => GVNames.RemoveOwner[user, pwd, entry, element],f => GVNames.RemoveFriend[user, pwd, entry, element],ENDCASE => ERROR;out.PutRope[IF outcome = group THEN "ok" ELSE Code[outcome]];out.PutChar['\n];END;RemoveDeadInGroups: PROC[deadList: GVNames.RListHandle, pattern: Rope.ROPE, out: IO.STREAM] =BEGINGroupWork: EnumProc = TRUSTED -- The silly compiler can't handle "info"BEGINinfo: REF GVNames.GetEntryInfo;rc: GVNames.NameType;[rc, info] _ GVNames.GetEntry[name];SELECT rc FROMnotFound => NULL;group =>WITH info^ SELECT FROMi: group GVNames.GetEntryInfo =>BEGINSubListWork[name, i.members.current, m];SubListWork[name, i.owners.current, o];SubListWork[name, i.friends.current, f];CheckForOwnerOfSelf[name, i.owners.current];END;ENDCASE => ERROR;ENDCASE =>BEGINout.PutF["\nCouldn't read entry for \"%g\": %g",[rope[name]], [rope[Code[rc]]] ];exit _ TRUE;END;END;SubListWork: PROC[name: Rope.ROPE, list: GVNames.RListHandle, which: ListType] =BEGINd: GVNames.RListHandle _ deadList;UNTIL d = NIL OR list = NIL DOSELECT Compare[d.first, list.first] FROMgreater => list _ list.rest;less => d _ d.rest;equal =>BEGINvictim: Rope.ROPE = d.first;out.PutF["%g is a%g of %g:  removing . . . ",[rope[victim]],[rope[SELECT which FROMm => " member", o => "n owner", f => " friend",ENDCASE => ERROR]],[rope[name]] ];Remove[entry: name, element: victim, which: which, out: out];list _ list.rest;d _ d.rest;END;ENDCASE => ERROR;ENDLOOP;END;CheckForOwnerOfSelf: PROC[name: Rope.ROPE, list: GVNames.RListHandle] =BEGINIF list = NIL THEN {out.PutF["%g has no owners. ***\n", [rope[name]] ];RETURN; };UNTIL list = NIL DOSELECT Compare[name, list.first] FROMgreater => list _ list.rest;less => EXIT;equal =>BEGINout.PutF["%g is an owner of itself. *********\n", [rope[name]] ];EXIT;END;ENDCASE => ERROR;ENDLOOP;END;EnumAllNames[pattern, groups, GroupWork, out];END;PurgeEnum: PROC[members, groups: Rope.ROPE, out: IO.STREAM] =BEGINdeadList: GVNames.RListHandle _ NIL;DeadWork: EnumProc =BEGINprev: GVNames.RListHandle _ NIL;out.PutRope[name]; out.PutChar[' ];FOR d: GVNames.RListHandle _ deadList, d.rest UNTIL d = NIL DOIF Compare[name, d.first] = less THEN EXIT;prev _ d;ENDLOOP;IF prev = NIL THEN deadList _ CONS[first: name, rest: deadList]ELSE prev.rest _ CONS[first: name, rest: prev.rest];END;out.PutRope["Finding all \"dead\" names . . ."];EnumAllNames[members, dead, DeadWork, out];out.PutRope["\n\nNames to be removed:\n"];FOR d: GVNames.RListHandle _ deadList, d.rest UNTIL d = NIL DOout.PutRope[d.first];out.PutChar[' ];ENDLOOP;RemoveDeadInGroups[deadList, groups, out];out.PutRope["\n\nFinished\n"];END;DoIt: Commander.CommandProc =TRUSTED{ Process.Detach[FORK ReallyDoit[]] };ReallyDoit: PROC = {PurgeEnum[members: "*.*",groups: "*.*",out: ViewerIO.CreateViewerStreams["DBPurge"].out]; };Commander.Register[key: "DBPurge", proc: DoIt,doc: "Purges dead members from groups in the Grapevine database"];END.   >  Grapevine: program to purge dead members from groupsDBPurge.mesaHal Murray  September 2, 1984 6:17:15 am PDTAndrew Birrell  October 20, 1983 9:43 amThis is NOT the same as Rope.Compare:  GV's collating sequence forces upper case to lower case[cmd: Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] Э╩Е  Ш JЪЬ4Щ4JЪЬЩJЪЬ,Щ,JЪЬ(Щ(JШ Ъ╧k	Ш	JЪЬЭЬШJЪЬЭЬШJЪЬ
ЭЬШ'JЪЬ	ЭЬШ#JШJЪЭЬШJЪЬЭЬ
ШJЪЬШJЪЬЭЬШJЪЬ	ЭЬШ%ЧJШ ЪЬ	ЭЬЭШJЪЭЬ&ЭЬ*ШYJЪЭЬ╧cЬШЧJШ JЪЭШJШ Ъ
╧n	ЬЭЬЭЬЭЬЭЬШ>JЪЭШJЪЬЭЬШЪ	ЭЬЭЬЭ
ЬЭЬЭШ'ЪЭЬЭЬЭЬШ"JЪЬ"Ш"JЪЬ2Ш2ЧJЪЭЬШЧJЪЭЬЭЬШJЪЭЬШЧJШ ЪЯЬЭЬЭЬЭЬШ;JЪЬ^Щ^JЪЭШJЪЬЭЬШJЪЬЭЬШЪ	ЭЬЭЬЭЬЭЬ	ЭШ!JЪЬЭЬШ#JЪЬЭЬШ#JЪЭЬ	ЭЬЭЬШJЪЭЬ	ЭЬЭЬ
Ш JЪЭЬШЧJЪЭЬ	ЭЬЭЬШJЪЭЬ	ЭЬЭЬ
Ш JЪЭЬШJЪЭЬШЧJШ ЪЯЬЭЬЭЬЭЬШ6ЪЬЭЬЭЬЭШJЪЬШJЪЬШJЪЬ%Ш%JЪЬШJЪЬ"Ш"JЪЬШJЪЬ;Ш;JЪЬШJЪЬШJЪЬ1Ш1JЪЭЬШ%ЧЧJШ JЪЬЭЬ!Ш0JШ Ъ
ЯЬЭЬЭЬ)ЭЬЭЬШgJЪЭШЪЬЭЬШЪЭЬЭШJЪЬШJЪЬШJЪЬШЧJЪЭЬЭЬШJШ
ЧJШ8ЪЭЬЭЬЭШШJЪЭШЪЭЬ,ЭЬЭШ?JЪЬ	ЭЬШ&JЪЭЬ0ЭЬШ8JЪЭЬЭЬЭЬЭЬШ$JЪЭЬШЧJЪЭЬШЧЧЪЭЬШ
ЪЬ0Ш0JЪЬ,Ш,ЧЧJЪЭЬШЧJШ JЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬШCJШ Ъ
ЯЬЭЬЭЬ)ЭЬЭЬШ[JЪЭШJЪЬЭЬШ!ЪЬШJЪЭШJЪЬ3ЭЬШMJШ@JЪЭЬШЧJШ-JШ7JЪЭЬШЧJШ JЪЬ
ЭЬШJШ Ъ
ЯЬЭЬЭЬЭЬЭЬШJJЪЭШJЪЬЭЬШ-JЪЬJШJЪЬЭЬЭШ,JЪЬ5Ш5JЪЬ4Ш4JЪЬ5Ш5JЪЭЬЭЬШЧJЪЬЭЬЭЬЭЬШ=JШJЪЭЬШЧJШ Ъ
ЯЬЭЬ.ЭЬЭЬЭЬШ]JЪЭШЪЬЭЬЮ)ШGJЪЭШJЪЬЭЬШJЪЬШJЪЬ$Ш$ЪЭЬЭШJЪЬЭЬШШЪЭЬЭЬЭШЪЬ Ш JЪЭШJШ(JЪЬ'Ш'JЪЬ(Ш(JЪЬ,Ш,JЪЭЬШЧJЪЭЬЭЬШЧЧЪЭЬШ
JЪЭШЪЬ0Ш0JЪЬ!Ш!ЧJЪЬЭЬШJЪЭЬШЧЧJЪЭЬШЧЪЯЬЭЬЭЬ/ШPJЪЭШJЪЬ"Ш"ЪЭЬЭЬЭЬЭШЪЭЬЭШ(JЪЬШJШШJЪЭШJЪЬЭЬШШ-JШЪЬЭЬЭШJШ/JЪЭЬЭЬШЧJШЧJЪЬ=Ш=JЪЬШJЪЬШJЪЭЬШЧJЪЭЬЭЬШЧJЪЭЬШЧJЪЭЬШЧЪЯЬЭЬЭЬШGJЪЭШЪЭЬЭЬЭЬШJШ3JЪЭЬШ
ЧЪЭЬЭШЪЭЬЭШ%JЪЬШJЪЬЭЬШШJЪЭШJШAJЪЭЬШJЪЭЬШЧJЪЭЬЭЬШЧJЪЭЬШЧJЪЭЬШЧJЪЬ.Ш.JЪЭЬШЧJШ Ъ
Я	ЬЭЬЭЬЭЬЭЬШ=JЪЭШJЪЬ ЭЬШ$ЪЬШJЪЭШJЪЬЭЬШ JЪЬ#Ш#ЪЭЬ+ЭЬЭШ>JЪЭЬЭЬЭЬШ+JШ	JЪЭЬШЧJЪЭЬЭЬЭЬШ?JЪЭЬЭЬШ4JЪЭЬШЧJШ0JШ+JШ*ЪЭЬ+ЭЬЭШ>JЪЬШJЪЬШJЪЭЬШЧJЪЬ*Ш*JШJЪЭЬШЧJШ ЪЬШJЪЬЭЬ
ЭЬЭЬЭЬЭЬЩ?JЪЭЬЭЬШ-JШ ЧЪЯ
ЬЭЬШЪЬ
Ш
JЪЬШJЪЬШJЪЬ5Ш5ЧЧJШ Ш.JШBJШ ЧJЪЭЬШЧ ЕЧ    ь  !п  