On 09.05.2015, at 19:43, Levente Uzonyi leves@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@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@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