[SM] Repairing client info!

goran.hultgren at bluefish.se goran.hultgren at bluefish.se
Thu Nov 21 09:08:50 UTC 2002


Hi guys!

After the big cleanup yesterday I realized (of course) that the
information about which packages are installed in your images will of
course also be messed up.

The following snippet will go through what you have installed and for
the packages that are dubious it will ask which one it should be and fix
it.

I tried it in my 3.4alpha which thought that MySql Driver was installed
when it in fact was the Enhanced IRC package. It worked.

Sorry for the inconvenience, regards Göran 

|dict remap |
remap _ {'92d7c559-f46c-4c08-bb18-ce754ff3cfa6'.
'561035b7-48d4-4413-b109-9b307a008a68'.
'845493ee-33ba-4520-bfe9-6221ec1963b6'.
'5728e8ea-6a53-4a67-ae1c-07f17defca22'.
'c6e0d836-d1e6-41ac-b1c2-0505bdd46663'.
'8e694130-0f9d-4c75-9450-68012fba9629'.
'cb28dff3-bb81-48d9-8c89-be9eedd140a5'.
'625e704a-e422-463d-a4a0-c654e3b9aab8'.
'f4ea8a7a-d71c-4763-8b0d-ca8b4982c14f'.
'66236497-7026-45f5-bcf6-ad00ba7a8a4e'.
'6b204abd-a0f7-4949-8bd5-aafa722ad03b'.
'e3409115-6701-4ba9-83b5-cfd8f637db50'.
'ac6ea80a-cad6-403b-8286-3db1ff5d53a4'.
'45940402-2e22-4e56-9f37-304f39f19efc'.
'231bd227-d947-4118-bce1-bfb8f4649f58'.
'ff017dd6-b918-4367-bc96-f4e6f7e4fae7'.
'9c70c23c-220d-4b9e-98f7-e7389350d421'.
'c6c5a36a-1e8e-463c-87f8-8a4b67660723'.
'6ccd8fa2-940a-4c2d-bc0e-7cf054ef7575'.
'178bd01c-f698-41ab-9c73-d9278c65c241'.
'c5150508-6d48-4fa0-9d61-6063d9c9e960'.
'73fb0862-5f49-4b90-b899-c0101335b7c5'}.
dict _ Dictionary new.
1 to: remap size - 1 by: 2 do: [:n | dict at: (remap at: n) put: (remap
at: n + 1)].
installed _ SMSqueakMap default instVarAt: 10.
installed copy keysAndValuesDo: [:uuid :ver |
		new _ dict at: uuid asString ifAbsent: [nil].
		new ifNotNil: [(PopUpMenu 
		confirm: ('Found an installed package that may be wrong, if ''',
(SMSqueakMap default cardWithId: uuid asString) name, ''' is installed
then press ''Fine'', otherwise if it instead should be ''', (SMSqueakMap
default cardWithId: new) name, ''' then press ''Fix''.')
		trueChoice: 'Fine'
		falseChoice: 'Fix') ifFalse: [installed removeKey: uuid. installed at:
(UUID fromString: new) put: ver]]]




More information about the Squeak-dev mailing list