Es sieht in
/tmp/gambas.1000 (File.Dir(File.Dir(Temp())))
/run/user/1000/gambas ($XDG_RUNTIME_DIR)
~/.local/share
~/.cache
Ich habe über 800 org.gambas.****-Ordner in ~/.cache gefunden
Entschuldigung, es ist auf Englisch
gambas code
#!/usr/bin/env gbs3
Public Sub Main()
Dim aPaths As String[] = ["~/.cache", "~/.local/share", File.Dir(File.Dir(Temp())), Env["XDG_RUNTIME_DIR"] &/ "gambas"]
Dim aList As String[]
Dim aFound As New String[]
Dim aMsg As New String[]
Dim sProc As String
Print "Items with a matching process..."
For Each sDir As String In aPaths
If InStr(sDir, "1000") Then
aList = Dir(sDir, "[0-9]*", gb.Directory)
Else
aList = Dir(sDir, "org.gambas.*", gb.Directory)
Endif
For c As Integer = aList.Max DownTo 0
sProc = file.Name(aList[c])
If sProc Begins "org.gambas" Then sProc = Mid(aList[c], 12)
If Exist("/proc/" & sProc) Then
Print sDir &/ aList[c];; " \e[92mok\e[0m"
aList.Remove(c)
Else
aList[c] = sDir &/ aList[c]
Endif
Next
aFound.insert(aList)
aMsg.Add("\e[" & If(aList.Count, "91", "92") & ";3mFound " & aList.Count & " orphaned items\e[0m in " & sDir)
Next
If aFound.Count = 0 Then
Print "\n\e[92;3mNo obsolete folders found :)\e[0m"
Return
Endif
Print "\nOrphaned items..."
Print "\e[0m"; aMsg.Join("\n")
Print "\n\e[91;3mFound a total of " & aFound.Count & " orphaned items\e[0m..."
Print "Type y to delete them or return to quit."
sDir = File.In.readline()
If LCase(sDir) = "y" Then
For Each sDir In aFound
If Left(sDir) = "~" Then sDir = user.Home &/ Right(sDir, -1)
Shell "rm -vrf " & sDir Wait
Next
Endif
End
