[Box-Admins] Re: Wiping Eliot's versions Re: [squeak-dev] automated way to delete specific trunk packages?

[Tobias Pape]

On 09.05.2015, at 19:43, Levente Uzonyi <leves at elte.hu> wrote:

> The easiest way to do it is to access it via RFB/VNC. Either load some version of the RFB package during startup (and then configure it), or start a native vnc server, and restart the VM on its display.
> I don't suggest using xpra on this server, because it tends to use quite a lot of memory.

So this means the vm has to be killed before? :/


> 
> Levente
> 
> On Sat, 9 May 2015, Tobias Pape wrote:
> 
>> Hi levente,
>> 
>> On 09.05.2015, at 01:36, Levente Uzonyi <leves at elte.hu> wrote:
>> 
>>> squeaksource is running in the chroot environment. What you see on box4 is the future replacement, but it's not alive yet (at least it shouldn't be).
>>> 
>> 
>> ah, ok, I forgot… but how to I get into _that_ image?
>> 
>> Best regards
>> 	-Tobias
>> 
>>> Levente
>>> 
>>> On Sat, 9 May 2015, Tobias Pape wrote:
>>> 
>>>> Hi all,
>>>> 
>>>> 
>>>> I just tried wiping the versions Eliot asked to be removed.
>>>> I am able to remove the corresponding files from the disk and also remove
>>>> the Squeaksource version entries.
>>>> 
>>>> However, it seems that source.squeak.org is running on some kind of
>>>> Magma-backend, where wiping the versions is virtually impossible for me.
>>>> I put together the following script:
>>>> 
>>>> "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-"
>>>> | project projectDir rawVersions fs candidates condition mcModel |
>>>> project := SSRepository current projects detect: [:p |  p id = 'trunk'].
>>>> mcModel := (SSRepository storage respondsTo: #mcModelFor: ) ifTrue: [
>>>> 				SSRepository storage mcModelFor: project].
>>>> projectDir := SSFilesystem new projectDirectoryFor: project.
>>>> " we really want to delete the versions, so circumvent the accessor that filters them "
>>>> rawVersions := project instVarNamed: 'versions'.
>>>> condition := [:version |
>>>> 	#('Collections.spur' 'Compiler.spur' 'Kernel.spur' 'System.spur')
>>>> 		anySatisfy: [:pat | version fileName beginsWith: pat]].
>>>> candidates :=  (rawVersions select: condition) values.
>>>> candidates
>>>> 	do: [:version| | fileName |
>>>> 		fileName := version fileName.
>>>> 		Transcript showln: '> ', fileName.
>>>> 		version diffs copy keysDo: [:diffName |
>>>> 			projectDir deleteFileNamed: diffName ifAbsent: ["ok"].
>>>> 			Transcript showln: '    Removed ', diffName.
>>>> 			version diffs removeKey: diffName.
>>>> 			Transcript showln: '    Wiped ', diffName].
>>>> 		projectDir deleteFileNamed: fileName ifAbsent: ["ok"].
>>>> 		Transcript showln: '  Removed ', fileName.
>>>> 		rawVersions removeKey: fileName.
>>>> 		" mcModel ifNotNil: [:m | m removeVersion: (project mcVersionFrom: version)]. " "<============== this does not work, chris"
>>>> 		Transcript showln: '  Wiped ', fileName]
>>>> 	displayingProgress: [:version | 'Wiping ', version fileName].
>>>> self assert: [rawVersions noneSatisfy: condition].
>>>> "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-"
>>>> 
>>>> At the position Indicated I tried removing the faulty version from the magma-based
>>>> data structures, but #removeVersion: tries to remove from an (magma)array, which fail.
>>>> 
>>>> I can't help any further here, sorry. Please somebody step in?
>>>> 
>>>> Best regards
>>>> 	-Tobias
>>>> 
>>>> PS: I already backed up all affected files to ~squeaksoure/spur-backup
>>>> 
>>>> 
>>>> On 08.05.2015, at 23:42, Levente Uzonyi <leves at elte.hu> wrote:
>>>> 
>>>>> Hi Eliot,
>>>>> 
>>>>> On Fri, 8 May 2015, Eliot Miranda wrote:
>>>>> 
>>>>> 
>>>>> I just reuploaded Collections-ul.625.mcz, and the server happily accepted it. It even sent a mail about it.
>>>>> It's possible that it won't accept packages with different content, but it clearly accepts reuploads (which is a bug).
>>>>> 
>>>>> Levente