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

[Levente Uzonyi]

On Sat, 9 May 2015, Tobias Pape wrote:

>
> 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? :/

I don't think the Seaside console is enabled, so yes.

Levente

>
>
>>
>> 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
>
>
>