/usr/lib/libreoffice/share/extensions/DmathsAddon/DmathsBup/Module3.xba is in libreoffice-dmaths 3.4+dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 | <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module3" script:language="StarBasic">'************************************************
'Copyright (C) 2005 Didier Dorange-Pattoret
'8, impasse du Châtelet
'74100 Ambilly
'France
'ddorange@dmaths.com
'
'
'This library is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public Licence
'as published by the Free Software Foundation; either
'version 2.1 of the License, or (at your option) any later version.
'This library is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
'General Public License for more details.
'You should have received a copy of the GNU General Public Licence
'along with this library; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'************************************************
Public Trad(2,30) as String
Public iLangNumber as integer
Dim oDialog2 as Object
Sub Initialisation
Globalscope.BasicLibraries.loadLibrary("Dmaths")
DialogLibraries.loadLibrary("DmathsBup")
oDialog2 = CreateUnoDialog( DialogLibraries.DmathsBup.Dialog2 )
Call ChargementdelaLangue
oDialog2.GetControl("Label1").Text = Trad(iLangNumber,0)
oDialog2.GetControl("Label2").Text = Trad(iLangNumber,1)
oDialog2.GetControl("CommandButton1").Label= Trad(iLangNumber,2)
oDialog2.GetControl("CommandButton2").Label= Trad(iLangNumber,2)
oDialog2.GetControl("CommandButton3").Label= Trad(iLangNumber,11)
oDialog2.GetControl("CommandButton4").Label= Trad(iLangNumber,28)
oDialog2.GetControl("FrameControl1").Model.Label = Trad(iLangNumber,3)
oDialog2.GetControl("OptionButton1").Label = Trad(iLangNumber,4)
oDialog2.GetControl("OptionButton2").Label = Trad(iLangNumber,5)
oDialog2.GetControl("OptionButton3").Label = Trad(iLangNumber,6)
oDialog2.GetControl("CheckBox1").Label = Trad(iLangNumber,7)
oDialog2.GetControl("CheckBox2").Label = Trad(iLangNumber,8)
oDialog2.GetControl("CheckBox3").Label = Trad(iLangNumber,9)
oDialog2.GetControl("CheckBox4").Label = Trad(iLangNumber,10)
If (sRepertoireSourceDefaut="" or Not FileExists(sRepertoireSourceDefaut)) Then oDialog2.GetControl("TextField1").Text = GetWorkPath Else oDialog2.GetControl("TextField1").Text = sRepertoireSourceDefaut
If (sRepertoireBackupDefaut="" or Not FileExists(sRepertoireBackupDefaut)) Then oDialog2.GetControl("TextField2").Text = GetWorkPath Else oDialog2.GetControl("TextField2").Text = sRepertoireBackupDefaut
oDialog2.GetControl("Label3").Text = Trad(iLang,29)+" "+sDateSauvegarde
oDialog2.Execute()
End Sub
Sub Terminer
oDialog2.EndExecute()
End Sub
Sub ChargementdelaLangue
iLangNumber = SelectLangNumber
'français
Trad(0,0) = "Répertoire source"
Trad(0,1) = "Répertoire cible"
Trad(0,2) = "Parcourir"
Trad(0,3) = "Sélectionner le mode de copie"
Trad(0,4) = "Sauvegarder de la source vers la cible"
Trad(0,5) = "Synchroniser fichiers et répertoires"
Trad(0,6) = "Restaurer la cible sur la source"
Trad(0,7) = "Répertoire de sauvegarde daté"
Trad(0,8) = "Zipper l'archive"
Trad(0,9) = "Supprimer le répertoire cible"
Trad(0,10)= "Supprimer du répertoire cible les fichiers et répertoire qui n'existent pas dans la cible"
Trad(0,11)= "Lancer la sauvegarde"
Trad(0,12)= "Vous n'avez pas de droits d'écriture dans le répertoire cible"
Trad(0,13)= "Vous n'avez pas de droits d'écriture dans le répertoire source"
Trad(0,14)= "Attention vous avez choisi de restaurer ! "
Trad(0,15)= "Êtes vous sûr ?"
Trad(0,16)= "La sauvegarde est terminée "
Trad(0,17)= "La restauration est terminée "
Trad(0,18)= " répertoire(s) copié(s)"
Trad(0,19)= " fichier(s) copié(s)"
Trad(0,20)= " répertoire(s) supprimé(s)"
Trad(0,21)= " fichier(s) supprimé(s)"
Trad(0,22)= " répertoire(s) examiné(s)"
Trad(0,23)= "nombre d'erreur(s): "
Trad(0,24)= "Nombre de répertoires examinés : "
Trad(0,25)= "Nombre d'éléments copiés : "
Trad(0,26)= "avec les fichiers ou répertoires suivants:"
Trad(0,27)= "Veuillez patientez ... "
Trad(0,28)= "Annuler"
Trad(0,29) = "La dernière sauvegarde a été effectuée le "
'Deutsch
Trad(2,0) = "Originalverzeichnis"
Trad(2,1) = "Backupverzeichnis"
Trad(2,2) = "Durchsuchen"
Trad(2,3) = "Auswahl der Aktion"
Trad(2,4) = "Erstellen eines Backups"
Trad(2,5) = "Synchronisieren der Dateien und Verzeichnisse"
Trad(2,6) = "Zurückspielen des Backups über das Original"
Trad(2,7) = "Backup mit Datum"
Trad(2,8) = "Komprimierung des Archivs mit ZIP"
Trad(2,9) = "Das Backupverzeichnis selbst ausnehmen"
Trad(2,10)= "Dateien und Verzeichnisse ausnehmen, die im Backup nicht existieren"
Trad(2,11)= "Start des Backups"
Trad(2,12)= "Wir haben nicht die Rechte zum Schreiben in das Backupverzeichnis"
Trad(2,13)= "Wir haben nicht die Rechte zum Schreiben in das Quellverzeichnis"
Trad(2,14)= "Vorsicht: Sie haben das Zurückspielen des Backups gewählt ! "
Trad(2,15)= "Sind Sie sicher ?"
Trad(2,16)= "Das Backup ist fertig "
Trad(2,17)= "Das Zurückspielen des Backups ist fertig "
Trad(2,18)= " Verzeichnis(se) kopiert"
Trad(2,19)= " Datei(en) kopiert"
Trad(2,20)= " Ausgenommene(s) Verzeichnis(se)"
Trad(2,21)= " Ausgenommene Datei(en)"
Trad(2,22)= " Geprüfte(s) Verzeichnis(se)"
Trad(2,23)= "Anzahl der Fehler: "
Trad(2,24)= "Anzahl der geprüften Verzeichnisse : "
Trad(2,25)= "Anzahl der kopierten Objekte : "
Trad(2,26)= "mit den folgenden Dateien oder Verzeichnissen:"
Trad(2,27)= "Das dauert ein bisschen ... "
Trad(2,28)= "Abbrechen"
Trad(2,29)= "Das letzte Backup wurde durchgeführt am "
'english
'english
Trad(1,0) = "Source folder"
Trad(1,1) = "Backup folder"
Trad(1,2) = "Search ..."
Trad(1,3) = "Select the action"
Trad(1,4) = "Backup source to backup folder"
Trad(1,5) = "Synchronise files and folders"
Trad(1,6) = "Restore the backup over the source"
Trad(1,7) = "Dated backup"
Trad(1,8) = "Compress the archive with ZIP"
Trad(1,9) = "Exclude the backup folder"
Trad(1,10)= "Exclude files and folders, which do not exist in the backup"
Trad(1,11)= "Start the backup"
Trad(1,12)= "You do not have the rights to write into the backup folder"
Trad(1,13)= "You do not have the rights to write into the source folder"
Trad(1,14)= "Attention ! You have choosen the overwrite the data in the source folder ! "
Trad(1,15)= "Are you sure ?"
Trad(1,16)= "The backup is finished "
Trad(1,17)= "The restore is finished "
Trad(1,18)= " folder(s) copied"
Trad(1,19)= " file(s) copied"
Trad(1,20)= " folder(s) excluded"
Trad(1,21)= " file(s) excluded"
Trad(1,22)= " folder(s) examined"
Trad(1,23)= "number of errors: "
Trad(1,24)= "Number of folders examined : "
Trad(1,25)= "Number of elements copied : "
Trad(1,26)= "with the following files or folders:"
Trad(1,27)= "Please wait ... "
Trad(1,28)= "Cancel"
Trad(1,29)= "Last backup was done on:"
End Sub
Function SelectLangNumber as Integer
Dim iLangNumber as integer
Dim oPathSubstSrv as Object
Dim sLangPath as String
If Globalscope.BasicLibraries.HasByName("Dmaths") Then
Globalscope.BasicLibraries.loadLibrary("Dmaths")
If iLang <= 2 Then iLangNumber = iLang Else iLangNumber = 1
Else
oPathSubstSrv = createUnoService("com.sun.star.comp.framework.PathSubstitution")
sLangPath = ConvertFromUrl(oPathSubstSrv.getSubstituteVariableValue("$(vlang)"))
Select Case sLangPath
Case "french"
iLangNumber = 0
Case "german"
iLangNumber = 2
Case Else
iLangNumber = 1
End Select
Endif
SelectLangNumber = iLangNumber
End Function
</script:module>
|