PureBoard

Code: Alles auswählen

EnableExplicit
 
IncludeFile "prozesscontroller.pbf"
 
Define event, EventGadget, EventType, EventMenu, EventWindow, prglauf
Global erster.i, prozessbeendet.i, gefunden.i, teilstr$, neuerstr$
Global NewList neueprozesse.s()     
Global NewList alteprozesse.s()     

OpenWindow_0()

erster = 0
AddWindowTimer(Window_0, 123, 30000)

; ----- hier etwas das sofort beim Start erledigt werden soll eintragen
 
Repeat
  Event = WaitWindowEvent()
  EventGadget = EventGadget()
  EventType = EventType()
  EventMenu = EventMenu()
  EventWindow = EventWindow()
  
  If Event = #PB_Event_Timer And EventTimer() = 123
     analyse(event)
   EndIf 
  prglauf=Window_0_Events(Event)
Until prglauf=#False
End
 
;-------- ab hier die Proceduren für Buttons, etc. -----------------
 
Procedure beenden(Event)
  End
EndProcedure

Procedure analyse(event)
  Define hilf$, hilfstr$
  hilf$ = GetCurrentDirectory()+"getprozesse"
  RunProgram(hilf$)   ; erzeugt die Datei "laufende.txt"
  ClearGadgetItems(editor_0)
  ClearList(neueprozesse())
  
  #DATEI_REPORT = 1
  If ReadFile(#DATEI_REPORT, GetCurrentDirectory()+"laufende.txt")                               
    While Eof(#DATEI_REPORT) = #False
      
      hilfstr$ = ReadString(#DATEI_REPORT)       
      If Mid(hilfstr$,23,1) = "/"
        If FindString(hilfstr$,"/bin/busybox init") = 0
          If FindString(hilfstr$,"/sbin/udevd") = 0
            If FindString(hilfstr$,"/sbin/getty") = 0
              If FindString(hilfstr$,"/usr/bin/xinit") = 0
                If FindString(hilfstr$,"/usr/local/apps/ROX-Filer/ROX-Filer") = 0
                  If FindString(hilfstr$,"/usr/local/pup_event/pup_event_frontend_d") = 0
                    If FindString(hilfstr$,"/usr/sbin/cupsd") = 0
                      If FindString(hilfstr$,"/usr/bin/dbus-daemon") = 0
                        If FindString(hilfstr$,"/usr/local/firewallstate") = 0
                          If FindString(hilfstr$,"/usr/lib/i386-linux-gnu/gconf") = 0
                            AddGadgetItem(editor_0,-1,hilfstr$)
                            AddElement(neueprozesse())
                            neueprozesse() = hilfstr$
                          EndIf  
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf  
          EndIf
        EndIf
      EndIf
    Wend
    CloseFile(#DATEI_REPORT)
  EndIf
  
  prozessbeendet = 0
  If erster = 0                  ; wenn es der erste Durchlauf ist
    ForEach(neueprozesse())
      AddElement(alteprozesse())
      alteprozesse() = Mid(neueprozesse(),23)
    Next  
    erster = 1
  Else
    ForEach(alteprozesse())    ; pruefen ob ein alter Prozess in der neuen Liste fehlt
      gefunden = 0
      teilstr$ = alteprozesse()
      ForEach(neueprozesse())
        neuerstr$ = neueprozesse()
        If FindString(neuerstr$,teilstr$) > 0
          gefunden = 1
        EndIf  
      Next  
      If gefunden = 0
        prozessbeendet = 1
      EndIf  
    Next
    ClearList(alteprozesse())
    ForEach(neueprozesse())
      AddElement(alteprozesse())
      alteprozesse() = Mid(neueprozesse(),23)
    Next  
    
  EndIf  
  If prozessbeendet = 1
    RunProgram("/usr/sbin/ceelab/lazy-sfs-unload/unload_all_mntd_sfs")
  EndIf  
EndProcedure

Code: Alles auswählen

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Global Window_0

Global Button_0, Button_1, Editor_0

Enumeration FormFont
  #Font_Window_0_0
EndEnumeration

LoadFont(#Font_Window_0_0,"Droid Sans Mono", 10)

Declare ResizeGadgetsWindow_0()

Declare beenden(EventType)
Declare analyse(EventType)

Procedure OpenWindow_0(x = 0, y = 0, width = 710, height = 230)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  Button_0 = ButtonGadget(#PB_Any, 340, 200, 230, 25, "Programm beenden")
  GadgetToolTip(Button_0, "Beendet die Prozessueberwachung")
  Button_1 = ButtonGadget(#PB_Any, 70, 200, 100, 25, "analyse")
  Editor_0 = EditorGadget(#PB_Any, 20, 20, 680, 170)
  SetGadgetFont(Editor_0, FontID(#Font_Window_0_0))
EndProcedure

Procedure ResizeGadgetsWindow_0()
  Protected FormWindowWidth, FormWindowHeight
  FormWindowWidth = WindowWidth(Window_0)
  FormWindowHeight = WindowHeight(Window_0)
  ResizeGadget(Button_0, 340, FormWindowHeight - 30, 230, 25)
  ResizeGadget(Button_1, 70, FormWindowHeight - 30, 100, 25)
  ResizeGadget(Editor_0, 20, 20, FormWindowWidth - 30, FormWindowHeight - 60)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_SizeWindow
      ResizeGadgetsWindow_0()
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case Button_0
          beenden(EventType())          
        Case Button_1
          analyse(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure

Code: Alles auswählen

gtk_window_set_icon_(WindowID(0), ImageID(0))

Code: Alles auswählen

EnableExplicit
 
UsePNGImageDecoder()

DataSection
 LINUXICON:
 IncludeBinary "/mnt/sda1/PureBasic/Prozesstimer/cnccheckerC.png"
EndDataSection

IncludeFile "prozesscontroller.pbf"
 
Define event, EventGadget, EventType, EventMenu, EventWindow, prglauf
Global erster.i, prozessbeendet.i, gefunden.i, teilstr$, neuerstr$, icon.i
Global NewList neueprozesse.s()     
Global NewList alteprozesse.s()     

OpenWindow_0()

icon = CatchImage(#PB_Any, ?LINUXICON)

gtk_window_set_icon_(WindowID(0), ImageID(icon))