1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
| PUBLIC SUB btnSauve_Click() 'bouton sauvegarde en fonction de iFlag
DIM Comm AS STRING
DIM Comm1 AS STRING
DIM nomFich AS STRING
Message.Title = ("¡Proceda con cuidado!"
IF Message.Question(("¿Quieres guardar tus cambios?", ("No"), ("Si")) = 1 THEN
ME.Close(TRUE)
ELSE
SELECT CASE FMain.iFlag 'en fonction du drapeau integer voir appel
CASE 0
nomFich = User.Home &/ ".clamscangui/clamd.pil"
Comm = "cp -a " & nomFich & " " & "/etc/clamav/clamd.conf"
' Comm1 = " systemctl restart clamav-daemon"
comm1 = " /etc/init.d/clamav-daemon start"
CASE 1
nomFich = User.Home &/ ".clamscangui/freshclam.pil"
Comm = "cp -a " & nomFich & " " & "/etc/clamav/freshclam.conf"
' Comm1 = " systemctl restart freshclam"
comm1 = " /etc/init.d/clamav-freshclam start"
CASE 2
nomFich = User.Home &/ ".clamscangui/clamav-milter.pil"
Comm = "cp -a " & nomFich & " " & "/etc/clamav/clamav-milter.conf"
' Comm1 = " systemctl restart clamav-milter"
comm1 = " /etc/init.d/clamav-milter start"
CASE 3
nomFich = User.Home &/ ".clamscangui/clamd.exemple"
CASE 4
nomFich = User.Home &/ ".clamscangui/freshclam.exemple"
CASE 5
nomFich = User.Home &/ ".clamscangui/clamav-milter.exemple"
END SELECT
File.Save(nomFich, TextArea1.Text)
Authenticate.Command("sudo " & Comm) 'on récupère le mot de passe
SHELL (FMain.monTexte) 'on lance le process
IF FMain.bFlag = TRUE THEN 'message en fonction du résultat
IF NOT ERROR THEN
Message.Info(("Copia de seguridad realizada"))
ELSE
Message.Info(("Copia de seguridad no realizada") & " " & Error.Text)
ENDIF
ELSE
Message.Info(("Copia de seguridad no realizada"))
ENDIF
Authenticate.Command("sudo " & Comm1)
SHELL (FMain.monTexte)
ENDIF
FMain.monTexte = ""
CATCH
Message(Error.Text)
END
|
