Chiamare apt update e apt upgrade da shell

[vuott]

Se è una materia molto complessa ce un modo di aggiornare da gambas la versione di linux senza usare i comandi apt-get update ed apt-get upgrade ?

La tua idea di utilizzare quei due comandi è corretta.... scusa, insomma, puoi testare innanzitutto il seguente codice ?

Codice: [Seleziona]

Private pr As Process


Public Sub Button1_Click()

  Dim root As String

   root = InputBox("Immetti password di root")

' Lanciamo con Shell i due comandi, e ne poniamo in osservazione in lettura il processo: '
   pr = Shell "echo " & root & " | sudo -S apt-get update && sudo -S apt-get upgrade" For Input As "Osserva"

End


Public Sub Osserva_Read()
  
  Print pr.ReadLine()
 
End

[Andreone]

Se è una materia molto complessa ce un modo di aggiornare da gambas la versione di linux senza usare i comandi apt-get update ed apt-get upgrade ?

La tua idea di utilizzare quei due comandi è corretta.... scusa, insomma, puoi testare innanzitutto il seguente codice ?

Codice: [Seleziona]

Private pr As Process


Public Sub Button1_Click()

  Dim root As String

   root = InputBox("Immetti password di root")

' Lanciamo con Shell i due comandi, e ne poniamo in osservazione in lettura il processo: '
   pr = Shell "echo " & root & " | sudo -S apt-get update && sudo -S apt-get upgrade" For Input As "Osserva"

End


Public Sub Osserva_Read()
  
  Print pr.ReadLine()
 
End

  pr = Shell "echo " & root & " | sudo -S apt-get update && sudo -S apt-get upgrade" For Input As "Osserva"

Unknown identifier:pr in Fmain.Class:14.

[vuott]

Unknown identifier:pr in Fmain.Class:14.

Ho provato il codice: a me funziona perfettamente, come puoi vedere nel file immagine allegato.

Domanda un po' stupida:  nel codice, che hai incollato, ...sicuro che è presente la riga di comando Private pr As Process ? 

[Andreone]

Unknown identifier:pr in Fmain.Class:14.

Ho provato il codice: a me funziona perfettamente, come puoi vedere nel file immagine allegato.

Dom

Ok, lo vedo così, ma appena lo compilo e lo lancio compilato, poi non vedo niente che cosa fà, cioè in gambas vedo la finestra echo
ma compilato non vedo poi nulla ?
Il problema è proprio questo........

[vuott]

....ma appena lo compilo e lo lancio compilato, poi non vedo niente che cosa fà, cioè in gambas vedo la finestra echo
ma compilato non vedo poi nulla ?
Il problema è proprio questo........

Il codice compilato come "eseguibile" (ad esempio: mio_programma.gambas), dal menu dell'IDE secondo la modalità seguente:

  Progetto-->Crea--->Eseguibile...

va lanciato da Terminale, come nuovamente puoi vedere nel file immagine allegato.


...e a me funziona ugualmente.   

[Andreone]

....ma appena lo compilo e lo lancio compilato, poi non vedo niente che cosa fà, cioè in gambas vedo la finestra echo
ma compilato non vedo poi nulla ?
Il problema è proprio questo........

Il codice compilato come "eseguibile" (ad esempio: mio_programma.gambas), dal menu dell'IDE secondo la modalità seguente:

  Progetto-->Crea--->Eseguibile...

va lanciato da Terminale, come nuovamente puoi vedere nel file immagine allegato.


...e a me funziona ugualmente.   

Anche a me funziona però voglio che
Quando clicco sull' eseguibile mi apre il terminale e non devo lanciare il programma dal terminale

[vuott]

.... però voglio che
Quando clicco sull' eseguibile mi apre il terminale e non devo lanciare il programma dal terminale

Dunque... possiamo esperire almeno due modalità.


1) la prima modalità (anche se è un po' farraginosa) prevede che siano attivati i Componenti gb.desktop e gb.desktop.x11:

Codice: [Seleziona]

Public Sub Form_Open()

  Shell "gnome-terminal"

End


Public Sub Button1_Click()

  Dim root As String
  Dim c As Integer[]
  
   root = InputBox("Immetti password di root")

' Trova l'identificativo della finestra del Terminale aperta prima.
' Nel metodo "FindWindow()" inseriamo il nome della finestra del Terminale: '
   c = Desktop.FindWindow("Termin*")

   If c.Count > 0 Then
' Attribuisce il "Focus" alla finestra del Terminale: '
      Desktop.ActiveWindow = c[c.Max]
      
' Scrive nel Terminale l'intera riga di comndo e la lancia: '
     Desktop.SendKeys("echo " & root & " | sudo -S apt-get update && sudo -S apt-get upgrade\n")
   Endif

End

2) La seconda modalità prevede di far aprire un Terminale, lanciare i due comandi mediante la semplice Shell,  e reindirizzare l'output al Terminale aperto inizialmente:

Codice: [Seleziona]

Private fl As File
Private pr As Process


Public Sub Form_Open()

 Dim b As Byte
 Dim pts, s As String

' Sollecitiamo l'apertura del Form e favoriamo la visibilità del Button:
   Me.Show
   Wait 0.3

   pts = "/dev/pts"
  
' Verifichiamo innanzitutto quanti file 'pts' sono presenti in "/dev/pts": '
  b = Dir(pts, Null, gb.Device).Count

' Apriamo il Terminale: '
  Shell "gnome-terminal" Wait

' Restiamo in attesa che venga generato il file-device speciale del Terminale: '
  Do
    Wait 0.01
  Loop Until b < Dir(pts, Null, gb.Device).Count

' L'ultimo file 'pts' creato è posizionato nel 1° elemento del vettore generato dalla funzione "Dir()": '
  s = Dir(pts, Null, gb.Device)[0]

' Apriamo il file-device speciale del Terminale in lettura bufferizzata: '
  fl = Open pts &/ s For Output

End


Public Sub Button1_Click()

  Dim root As String
  
  root = InputBox("Immetti password di root")

' Lanciamo con Shell i due comandi, e ne poniamo in osservazione in lettura il processo: '
   pr = Shell "echo " & root & " | sudo -S apt-get update && sudo -S apt-get upgrade" For Input As "Osserva"
   
End


Public Sub Osserva_Read()
  
' Reindirizziamo l'output del processo  verso il Terminale:
  Output To #fl
  
  Print pr.ReadLine()
 
End


Public Sub Form_Close()

' In caso di chiusura del Form, il file-device speciale viene chiuso ed il processo dei due comandi viene soppresso: '
  fl.Close
  pr.Kill
  
End

[vuott]

........Desktop.RunAsRoot


....credo ci sia attualmente un bug (dovrò segnalarlo a Minisini: a me da un errore.

Il bug è stato finalmente risolto (per chi usa l'aggiornamento via SVN/trunk con la rev. 7838).