Browse code
Dateimeister added
Lorenz Glaser authored onWed/Sep/2020 18:0:nd Showing9 changed files
- Dateimeister/Dateimeister
- Dateimeister/Dateimeister.png
- Dateimeister/bin/32/df
- Dateimeister/bin/32/listdir
- Dateimeister/bin/32/mountvolume
- Dateimeister/bin/64/df
- Dateimeister/bin/64/listdir
- Dateimeister/bin/64/mountvolume
- Dateimeister/dateimeister.yab
| 17 | 17 |
new file mode 100755 |
| ... | ... |
@@ -0,0 +1,1796 @@ |
| 1 |
+#!/boot/system/bin/yab |
|
| 2 |
+ |
|
| 3 |
+dir_li$ = "/boot/home" |
|
| 4 |
+dir_re$ = "/boot/home" |
|
| 5 |
+REM ######Verzeichnis bestimmen###### |
|
| 6 |
+ |
|
| 7 |
+ |
|
| 8 |
+if(ready_to_compile=1)then |
|
| 9 |
+ if (peek("isbound")) then
|
|
| 10 |
+ WorkDir$ = trim$(peek$("directory"))
|
|
| 11 |
+ print WorkDir$ |
|
| 12 |
+ else |
|
| 13 |
+ WorkDir$ = trim$(system$("pwd"))
|
|
| 14 |
+ print WorkDir$ |
|
| 15 |
+ fi |
|
| 16 |
+else |
|
| 17 |
+ WorkDir$="/Share/Projekte/yab_hpkg/Dateimeister" |
|
| 18 |
+ //WorkDir$="/boot/system/apps/Dateimeister" |
|
| 19 |
+endif |
|
| 20 |
+REM ######Verzeichnis bestimmen###### |
|
| 21 |
+ |
|
| 22 |
+start=1 |
|
| 23 |
+ |
|
| 24 |
+grafikverzeichnis$=WorkDir$+"/themes" |
|
| 25 |
+ |
|
| 26 |
+errorsystem$=trim$(system$("sysinfo -platform"))
|
|
| 27 |
+print errorsystem$ |
|
| 28 |
+if (errorsystem$="IntelArchitecture") then |
|
| 29 |
+ bin_Verzeichnis$=WorkDir$+"/bin/32/" |
|
| 30 |
+elseif (instr(errorsystem$,"64",0)) then |
|
| 31 |
+ bin_Verzeichnis$=WorkDir$+"/bin/64/" |
|
| 32 |
+endif |
|
| 33 |
+//bin_Verzeichnis$=WorkDir$+"/bin/" |
|
| 34 |
+mountvolume$=bin_Verzeichnis$+"mountvolume" |
|
| 35 |
+diskfree$=bin_Verzeichnis$+"df " |
|
| 36 |
+listdir$=bin_Verzeichnis$+"listdir " |
|
| 37 |
+//Localize |
|
| 38 |
+ |
|
| 39 |
+REM ######Fenteraufbau###### |
|
| 40 |
+ |
|
| 41 |
+ ProgrammName$="DataCommander / Dateimeister" |
|
| 42 |
+ Start_FensterName$="dateibrowser" |
|
| 43 |
+ NameView$="dateibrowser" |
|
| 44 |
+ |
|
| 45 |
+ screenWidth = peek("desktopwidth")
|
|
| 46 |
+ screenHeight = peek("desktopheight")
|
|
| 47 |
+ if (screenWidth=800) then |
|
| 48 |
+ WindowSize_x=800 |
|
| 49 |
+ WindowSize_y=600 |
|
| 50 |
+ window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$ |
|
| 51 |
+ window set Start_FensterName$, "MinimumTo", 800,600 |
|
| 52 |
+ window set Start_FensterName$, "MaximumTo", 800,600 |
|
| 53 |
+ window set Start_FensterName$, "look","modal" |
|
| 54 |
+ else |
|
| 55 |
+ WindowSize_x=screenWidth-200 |
|
| 56 |
+ WindowSize_y=screenHeight-100 |
|
| 57 |
+ window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$ |
|
| 58 |
+ window set Start_FensterName$, "MinimumTo", 800,600 |
|
| 59 |
+ window set Start_FensterName$, "MaximumTo", WindowSize_x,WindowSize_y |
|
| 60 |
+ endif |
|
| 61 |
+ |
|
| 62 |
+ |
|
| 63 |
+ |
|
| 64 |
+ //window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$ |
|
| 65 |
+ //window set Start_FensterName$, "MinimumTo", 800,600 |
|
| 66 |
+ //window set Start_FensterName$, "MaximumTo", WindowSize_x,WindowSize_y, "modal" |
|
| 67 |
+ |
|
| 68 |
+ |
|
| 69 |
+ |
|
| 70 |
+ menu Translate$("Program"), Translate$("About"), "", "dateibrowser"
|
|
| 71 |
+ //menu Translate$("Program"),Translate$("Preferences"), "", "dateibrowser"
|
|
| 72 |
+ menu Translate$("Program"), Translate$("Quit"), "", "dateibrowser"
|
|
| 73 |
+ menu Translate$("Tools"), Translate$("Zip - File"), "", "dateibrowser"
|
|
| 74 |
+ //menu Translate$("Tools"), Translate$("Zip - Folder as File"), "", "dateibrowser"
|
|
| 75 |
+ menu Translate$("Tools"), Translate$("Zip - Unzip File"), "", "dateibrowser"
|
|
| 76 |
+ //menu Translate$("Tools"), Translate$("Rar - File"), "", "dateibrowser"
|
|
| 77 |
+ //menu Translate$("Tools"), Translate$("Rar - Unrar File"), "", "dateibrowser"
|
|
| 78 |
+ menu Translate$("Tools"), Translate$("Tar - File"), "", "dateibrowser"
|
|
| 79 |
+ menu Translate$("Tools"), Translate$("Tar - Untar File"), "", "dateibrowser"
|
|
| 80 |
+ //menu Translate$("Tools"), Translate$("create ISO Image"), "", "dateibrowser"
|
|
| 81 |
+ //menu Translate$("Tools"), Translate$("create BFS Image"), "", "dateibrowser"
|
|
| 82 |
+ menu Translate$("Tools"), Translate$("mount BFS Image"), "", "dateibrowser"
|
|
| 83 |
+ //menu "FTP",Translate$("FTP-Verbindung erstellen"), "", "dateibrowser"
|
|
| 84 |
+ //menu "FTP",Translate$("FTP-Verbindung ändern"), "", "dateibrowser"
|
|
| 85 |
+ |
|
| 86 |
+ MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
|
|
| 87 |
+ //MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
|
|
| 88 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
|
|
| 89 |
+ //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
|
|
| 90 |
+ //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
|
|
| 91 |
+ MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
|
|
| 92 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
|
|
| 93 |
+ |
|
| 94 |
+ |
|
| 95 |
+main(dir_li$,dir_re$,start) |
|
| 96 |
+ |
|
| 97 |
+sub main(dir_li$,dir_re$,start) |
|
| 98 |
+ |
|
| 99 |
+//if (screenWidth>=800) then |
|
| 100 |
+// if (WindowSize_x>800 and WindowSize_x<screenWidth-200) then |
|
| 101 |
+// print "fdjlkgjgdlkjgwindow" |
|
| 102 |
+// WindowSize_x=WindowSize_x_result |
|
| 103 |
+// else |
|
| 104 |
+// WindowSize_x=800 |
|
| 105 |
+// endif |
|
| 106 |
+//else |
|
| 107 |
+//WindowSize_x=800 |
|
| 108 |
+//endif |
|
| 109 |
+//if (WindowSize_y>600 and WindowSize_y<screenHeight-100) then |
|
| 110 |
+// WindowSize_y=WindowSize_y_result |
|
| 111 |
+// else |
|
| 112 |
+// WindowSize_y=600 |
|
| 113 |
+//endif |
|
| 114 |
+ |
|
| 115 |
+ aktu=0 |
|
| 116 |
+ |
|
| 117 |
+ |
|
| 118 |
+ dim part$(1) |
|
| 119 |
+ dim mesg$(1) |
|
| 120 |
+ dim mouse$(1) |
|
| 121 |
+ dim ViewMouse$(1) |
|
| 122 |
+ |
|
| 123 |
+ first=1 |
|
| 124 |
+ inloop = 1 |
|
| 125 |
+ while(inloop) |
|
| 126 |
+ |
|
| 127 |
+ WindowSize_x_result = WINDOW GET "dateibrowser", "Width" |
|
| 128 |
+ WindowSize_y_result = WINDOW GET "dateibrowser", "Height" |
|
| 129 |
+ //print WindowSize_y_result |
|
| 130 |
+ // print WindowSize_x_result |
|
| 131 |
+ if (first=1) then |
|
| 132 |
+ SPLITVIEW 0,15 TO WindowSize_x,WindowSize_y, "horizontal", false, false, "dateibrowser" |
|
| 133 |
+ splitview set "horizontal", "MinimumSizes", WindowSize_y-126,126 |
|
| 134 |
+ SPLITVIEW 0,0 TO WindowSize_x,WindowSize_y, "vertikal", true, true, "horizontal1" //-10 |
|
| 135 |
+ SPLITVIEW SET "horizontal", "Divider", WindowSize_y/2 |
|
| 136 |
+ //splitview set "vertikal", "MinimumSizes", 0 ,WindowSize_x |
|
| 137 |
+ dateibrowserLinks(dir_li$, first) |
|
| 138 |
+ dateibrowserRechts(dir_re$) |
|
| 139 |
+ dateibrowser_menu() |
|
| 140 |
+ laufwerke_li() |
|
| 141 |
+ laufwerke_re() |
|
| 142 |
+ first=0 |
|
| 143 |
+ else |
|
| 144 |
+ //SPLITVIEW 0,15 TO WindowSize_x_result,WindowSize_y_result, "horizontal", false, false, "dateibrowser" |
|
| 145 |
+ //SPLITVIEW SET "horizontal", "Divider", 600 |
|
| 146 |
+ splitview set "horizontal", "MinimumSizes", WindowSize_y_result-126,126 |
|
| 147 |
+ //SPLITVIEW 0,0 TO WindowSize_x_result-10,WindowSize_y_result, "vertikal", true, true, "horizontal1" |
|
| 148 |
+ SPLITVIEW SET "horizontal", "Divider", WindowSize_y_result/2 |
|
| 149 |
+ |
|
| 150 |
+ if (WindowSize_x_result<>0) then |
|
| 151 |
+ splitview set "vertikal", "MinimumSizes", WindowSize_x_result/2 ,WindowSize_x_result |
|
| 152 |
+ else |
|
| 153 |
+ splitview set "vertikal", "MinimumSizes", 0 ,WindowSize_x |
|
| 154 |
+ endif |
|
| 155 |
+ endif |
|
| 156 |
+ |
|
| 157 |
+ msg$ = message$ |
|
| 158 |
+ numSplit = split(msg$,mesg$(),"|") |
|
| 159 |
+ for countMessages = 1 to numSplit |
|
| 160 |
+ msg$ = mesg$(countMessages) + "|" |
|
| 161 |
+ if (split(msg$, part$(), ":|") > 2) then |
|
| 162 |
+ PartOne$=part$(1) |
|
| 163 |
+ PartTwo$ = part$(2) |
|
| 164 |
+ PartThree$ = part$(3) |
|
| 165 |
+ //PartFour$ = part$(4) |
|
| 166 |
+ fi |
|
| 167 |
+ if (msg$ <> "") then |
|
| 168 |
+ //print msg$ |
|
| 169 |
+ endif |
|
| 170 |
+ if (PartOne$="browserLi")then |
|
| 171 |
+ PartOneZipName$="browserLi" |
|
| 172 |
+ PartOneTarName$="browserLi" |
|
| 173 |
+ PartOneRarName$="browserLi" |
|
| 174 |
+ NameZip$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 175 |
+ NameTar$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 176 |
+ NameRar$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 177 |
+ |
|
| 178 |
+ |
|
| 179 |
+ MENU SET Translate$("Tools"), "Zip - File", "Enable", "dateibrowser"
|
|
| 180 |
+ //MENU SET Translate$("Tools"), "Zip - Folder as File", "Enable", "dateibrowser"
|
|
| 181 |
+ |
|
| 182 |
+ if (right$(NameZip$,4)=".zip") then |
|
| 183 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Enable", "dateibrowser"
|
|
| 184 |
+ else |
|
| 185 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
|
|
| 186 |
+ endif |
|
| 187 |
+ //MENU SET Translate$("Tools"), "Rar - File", "Enable", "dateibrowser"
|
|
| 188 |
+ //MENU SET Translate$("Tools"), "Rar - Unrar File", "Enable", "dateibrowser"
|
|
| 189 |
+ |
|
| 190 |
+ MENU SET Translate$("Tools"), "Tar - File", "Enable", "dateibrowser"
|
|
| 191 |
+ |
|
| 192 |
+ if (right$(NameTar$,4)=".tar") then |
|
| 193 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Enable", "dateibrowser"
|
|
| 194 |
+ else |
|
| 195 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
|
|
| 196 |
+ endif |
|
| 197 |
+ MENU SET Translate$("Tools"), "mount BFS Image", "Enable", "dateibrowser"
|
|
| 198 |
+ elseif (PartOne$="browserRe")then |
|
| 199 |
+ PartOneZipName$="browserRe" |
|
| 200 |
+ PartOneTarName$="browserRe" |
|
| 201 |
+ PartOneRarName$="browserRe" |
|
| 202 |
+ NameZip$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 203 |
+ NameTar$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 204 |
+ NameRar$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 205 |
+ MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
|
|
| 206 |
+ MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
|
|
| 207 |
+ |
|
| 208 |
+ if (right$(NameZip$,4)=".zip") then |
|
| 209 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Enable", "dateibrowser"
|
|
| 210 |
+ else |
|
| 211 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
|
|
| 212 |
+ endif |
|
| 213 |
+ |
|
| 214 |
+ //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
|
|
| 215 |
+ //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
|
|
| 216 |
+ |
|
| 217 |
+ MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
|
|
| 218 |
+ |
|
| 219 |
+ if (right$(NameTar$,4)=".tar") then |
|
| 220 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Enable", "dateibrowser"
|
|
| 221 |
+ else |
|
| 222 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
|
|
| 223 |
+ endif |
|
| 224 |
+ MENU SET Translate$("Tools"), "mount BFS Image", "Enable", "dateibrowser"
|
|
| 225 |
+ else |
|
| 226 |
+ MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
|
|
| 227 |
+ //MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
|
|
| 228 |
+ MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
|
|
| 229 |
+ //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
|
|
| 230 |
+ //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
|
|
| 231 |
+ MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
|
|
| 232 |
+ MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
|
|
| 233 |
+ MENU SET Translate$("Tools"), "mount BFS Image", "Disable", "dateibrowser"
|
|
| 234 |
+ endif |
|
| 235 |
+ switch msg$ |
|
| 236 |
+ case "_QuitRequested|" |
|
| 237 |
+ case "dateibrowser:_QuitRequested|" |
|
| 238 |
+ window close "dateibrowser" |
|
| 239 |
+ break |
|
| 240 |
+ case "dateibrowser:Program:Quit|" |
|
| 241 |
+ case "dateibrowser:Programm:Beenden|" |
|
| 242 |
+ window close "dateibrowser" |
|
| 243 |
+ break |
|
| 244 |
+ case "dateibrowser:Program:About|" |
|
| 245 |
+ about() |
|
| 246 |
+ break |
|
| 247 |
+ case "AboutClose|" |
|
| 248 |
+ window close "View_About" |
|
| 249 |
+ break |
|
| 250 |
+ case "createbfs:_QuitRequested|" |
|
| 251 |
+ window close "createbfs" |
|
| 252 |
+ break |
|
| 253 |
+ |
|
| 254 |
+ case "dateibrowser:Tools:Zip - File|" |
|
| 255 |
+ zipname(PartOne$) |
|
| 256 |
+ break |
|
| 257 |
+ case "button20|" |
|
| 258 |
+ //print NameZip$ |
|
| 259 |
+ zipname1$ = TEXTCONTROL get$ "zipname" |
|
| 260 |
+ if (PartOneZipName$="browserLi") then |
|
| 261 |
+ Output$=system$("zip "+"\""+dir_li$+"/"+zipname1$+".zip"+"\""+" "+"\""+dir_li$+"/"+name$+"\"")
|
|
| 262 |
+ window close "zip" |
|
| 263 |
+ if (dir_re$=dir_li$) then |
|
| 264 |
+ readfolder_li(dir_li$) |
|
| 265 |
+ readfolder_re(dir_re$) |
|
| 266 |
+ else |
|
| 267 |
+ readfolder_li(dir_li$) |
|
| 268 |
+ endif |
|
| 269 |
+ elseif (PartOneZipName$="browserRe") then |
|
| 270 |
+ Output$=system$("zip "+"\""+dir_re$+"/"+zipname1$+".zip"+"\""+" "+"\""+dir_re$+"/"+name$+"\"")
|
|
| 271 |
+ window close "zip" |
|
| 272 |
+ if (dir_li$=dir_re$) then |
|
| 273 |
+ readfolder_li(dir_li$) |
|
| 274 |
+ readfolder_re(dir_re$) |
|
| 275 |
+ else |
|
| 276 |
+ readfolder_re(dir_re$) |
|
| 277 |
+ endif |
|
| 278 |
+ endif |
|
| 279 |
+ break |
|
| 280 |
+ case "zip:_QuitRequested|" |
|
| 281 |
+ window close "zip" |
|
| 282 |
+ break |
|
| 283 |
+ case "dateibrowser:Tools:Zip - Folder as File|" |
|
| 284 |
+ NameZip$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 285 |
+ break |
|
| 286 |
+ case "dateibrowser:Tools:Zip - Unzip File|" |
|
| 287 |
+ //print NameZip$ |
|
| 288 |
+ if (PartOneTarName$="browserLi") then |
|
| 289 |
+ //Output$=system$("cd "+dir_li$+"; tar -xf "+NameTar$)
|
|
| 290 |
+ output$=system$("cd "+"\""+dir_li$+"\""+"; unzip -o "+"\""+NameZip$+"\"")
|
|
| 291 |
+ if (dir_re$=dir_li$) then |
|
| 292 |
+ readfolder_li(dir_li$) |
|
| 293 |
+ readfolder_re(dir_re$) |
|
| 294 |
+ else |
|
| 295 |
+ readfolder_li(dir_li$) |
|
| 296 |
+ endif |
|
| 297 |
+ elseif (PartOneTarName$="browserRe") then |
|
| 298 |
+ output$=system$("cd "+"\""+dir_re$+"\""+"; unzip -o "+"\""+ NameZip$+"\"")
|
|
| 299 |
+ if (dir_li$=dir_re$) then |
|
| 300 |
+ readfolder_li(dir_li$) |
|
| 301 |
+ readfolder_re(dir_re$) |
|
| 302 |
+ else |
|
| 303 |
+ readfolder_re(dir_re$) |
|
| 304 |
+ endif |
|
| 305 |
+ endif |
|
| 306 |
+ break |
|
| 307 |
+ case "dateibrowser:Tools:Tar - File|" |
|
| 308 |
+ //print PartOne$ |
|
| 309 |
+ tarname(PartOne$) |
|
| 310 |
+ break |
|
| 311 |
+ case "button21|" |
|
| 312 |
+ //print NameTar$ |
|
| 313 |
+ tarname1$ = TEXTCONTROL get$ "tarname" |
|
| 314 |
+ //print tarname1$ |
|
| 315 |
+ if (PartOneTarName$="browserLi") then |
|
| 316 |
+ Output$=system$("tar -cf "+"\""+dir_li$+"/"+tarname1$+".tar"+"\""+" -P "+"\""+dir_li$+"/"+name$+"\"")
|
|
| 317 |
+ |
|
| 318 |
+ window close "tar" |
|
| 319 |
+ if (dir_re$=dir_li$) then |
|
| 320 |
+ readfolder_li(dir_li$) |
|
| 321 |
+ readfolder_re(dir_re$) |
|
| 322 |
+ else |
|
| 323 |
+ readfolder_li(dir_li$) |
|
| 324 |
+ endif |
|
| 325 |
+ elseif (PartOneTarName$="browserRe") then |
|
| 326 |
+ window close "tar" |
|
| 327 |
+ if (dir_li$=dir_re$) then |
|
| 328 |
+ readfolder_li(dir_li$) |
|
| 329 |
+ readfolder_re(dir_re$) |
|
| 330 |
+ else |
|
| 331 |
+ readfolder_re(dir_re$) |
|
| 332 |
+ endif |
|
| 333 |
+ fi |
|
| 334 |
+ break |
|
| 335 |
+ case "tar:_QuitRequested|" |
|
| 336 |
+ window close "tar" |
|
| 337 |
+ break |
|
| 338 |
+ case "dateibrowser:Tools:Tar - Untar File|" |
|
| 339 |
+ if (PartOneTarName$="browserLi") then |
|
| 340 |
+ Output$=system$("cd "+"\""+dir_li$+"\""+"; tar -xf "+"\""+NameTar$+"\"")
|
|
| 341 |
+ if (dir_re$=dir_li$) then |
|
| 342 |
+ readfolder_li(dir_li$) |
|
| 343 |
+ readfolder_re(dir_re$) |
|
| 344 |
+ else |
|
| 345 |
+ readfolder_li(dir_li$) |
|
| 346 |
+ endif |
|
| 347 |
+ elseif (PartOneTarName$="browserRe") then |
|
| 348 |
+ Output$=system$("cd "+"\""+dir_re$+"\""+"; tar -xf "+"\""+NameTar$+"\"")
|
|
| 349 |
+ if (dir_li$=dir_re$) then |
|
| 350 |
+ readfolder_li(dir_li$) |
|
| 351 |
+ readfolder_re(dir_re$) |
|
| 352 |
+ else |
|
| 353 |
+ readfolder_re(dir_re$) |
|
| 354 |
+ endif |
|
| 355 |
+ endif |
|
| 356 |
+ break |
|
| 357 |
+ case "dateibrowser:Tools:Rar - File|" |
|
| 358 |
+ //print PartOne$ |
|
| 359 |
+ rarname(PartOne$) |
|
| 360 |
+ break |
|
| 361 |
+ case "button22|" |
|
| 362 |
+ //print NameRar$ |
|
| 363 |
+ rarname1$ = TEXTCONTROL get$ "rarname" |
|
| 364 |
+ //print rarname1$ |
|
| 365 |
+ if (PartOneRarName$="browserLi") then |
|
| 366 |
+ Output$=system$("rar a "+dir_li$+"/"+rarname1$+".rar"+" "+dir_li$+"/"+name$)
|
|
| 367 |
+ window close "rar" |
|
| 368 |
+ if (dir_re$=dir_li$) then |
|
| 369 |
+ readfolder_li(dir_li$) |
|
| 370 |
+ readfolder_re(dir_re$) |
|
| 371 |
+ else |
|
| 372 |
+ readfolder_li(dir_li$) |
|
| 373 |
+ endif |
|
| 374 |
+ elseif (PartOneRarName$="browserRe") then |
|
| 375 |
+ Output$=system$("rar a "+dir_re$+"/"+tarname1$+".tar"+" -P "+dir_re$+"/"+name$)
|
|
| 376 |
+ window close "rar" |
|
| 377 |
+ if (dir_li$=dir_re$) then |
|
| 378 |
+ readfolder_li(dir_li$) |
|
| 379 |
+ readfolder_re(dir_re$) |
|
| 380 |
+ else |
|
| 381 |
+ readfolder_re(dir_re$) |
|
| 382 |
+ endif |
|
| 383 |
+ fi |
|
| 384 |
+ break |
|
| 385 |
+ case "rar:_QuitRequested|" |
|
| 386 |
+ window close "rar" |
|
| 387 |
+ break |
|
| 388 |
+ case "dateibrowser:Tools:create BFS Image|" |
|
| 389 |
+ createbfs() |
|
| 390 |
+ break |
|
| 391 |
+ case "left_folders:Apps|" |
|
| 392 |
+ dir_li$="/boot/apps" |
|
| 393 |
+ readfolder_li(dir_li$) |
|
| 394 |
+ break |
|
| 395 |
+ case "left_folders:Home|" |
|
| 396 |
+ dir_li$="/boot/home" |
|
| 397 |
+ readfolder_li(dir_li$) |
|
| 398 |
+ break |
|
| 399 |
+ case "left_folders:Desktop|" |
|
| 400 |
+ dir_li$="/boot/home/Desktop" |
|
| 401 |
+ readfolder_li(dir_li$) |
|
| 402 |
+ break |
|
| 403 |
+ case "left_folders:FastLaunch|" |
|
| 404 |
+ dir_li$="/boot/home/config/FastLaunch" |
|
| 405 |
+ readfolder_li(dir_li$) |
|
| 406 |
+ break |
|
| 407 |
+ case "left_folders:ZetaMenu|" |
|
| 408 |
+ dir_li$="/boot/home/config/ZetaMenu" |
|
| 409 |
+ readfolder_li(dir_li$) |
|
| 410 |
+ break |
|
| 411 |
+ case "left_folders:Downloads|" |
|
| 412 |
+ dir_li$="/boot/home/Downloads " |
|
| 413 |
+ readfolder_li(dir_li$) |
|
| 414 |
+ break |
|
| 415 |
+ case "left_folders:Config|" |
|
| 416 |
+ dir_li$="/boot/home/config" |
|
| 417 |
+ readfolder_li(dir_li$) |
|
| 418 |
+ break |
|
| 419 |
+ case "left_folders:Trash|" |
|
| 420 |
+ dir_li$="/boot/trash" |
|
| 421 |
+ readfolder_li(dir_li$) |
|
| 422 |
+ break |
|
| 423 |
+ case "right_folders:Apps|" |
|
| 424 |
+ dir_re$="/boot/apps" |
|
| 425 |
+ readfolder_re(dir_re$) |
|
| 426 |
+ break |
|
| 427 |
+ case "right_folders:Home|" |
|
| 428 |
+ dir_re$="/boot/home" |
|
| 429 |
+ readfolder_re(dir_re$) |
|
| 430 |
+ break |
|
| 431 |
+ case "right_folders:Desktop|" |
|
| 432 |
+ dir_re$="/boot/home/Desktop" |
|
| 433 |
+ readfolder_re(dir_re$) |
|
| 434 |
+ break |
|
| 435 |
+ case "right_folders:FastLaunch|" |
|
| 436 |
+ dir_re$="/boot/home/config/FastLaunch" |
|
| 437 |
+ readfolder_re(dir_re$) |
|
| 438 |
+ break |
|
| 439 |
+ case "right_folders:ZetaMenu|" |
|
| 440 |
+ dir_re$="/boot/home/config/ZetaMenu" |
|
| 441 |
+ readfolder_re(dir_re$) |
|
| 442 |
+ break |
|
| 443 |
+ case "right_folders:Config|" |
|
| 444 |
+ dir_re$="/boot/home/config" |
|
| 445 |
+ readfolder_re(dir_re$) |
|
| 446 |
+ break |
|
| 447 |
+ case "right_folders:Trash|" |
|
| 448 |
+ dir_re$="/boot/trash" |
|
| 449 |
+ readfolder_re(dir_re$) |
|
| 450 |
+ break |
|
| 451 |
+ case "left_drives:"+PartTwo$+"|" |
|
| 452 |
+ tli = dropbox get "left_drives" |
|
| 453 |
+ print tli |
|
| 454 |
+ name2_li$ = dropbox get$ "left_drives", tli+1 |
|
| 455 |
+ //print name2_li$ |
|
| 456 |
+ if (name3_re$=name3_li$) then |
|
| 457 |
+ else |
|
| 458 |
+ if (tli=position_boot_li) then |
|
| 459 |
+ else |
|
| 460 |
+ name4_li$=system$("unmount \"/"+name3_li$+"\"")
|
|
| 461 |
+ endif |
|
| 462 |
+ endif |
|
| 463 |
+ if (name2_li$=name3_li$) then |
|
| 464 |
+ else |
|
| 465 |
+ name3_li$=name2_li$ |
|
| 466 |
+ if (name3_re$=name3_li$) then |
|
| 467 |
+ else |
|
| 468 |
+ name_li$=system$("mountvolume \""+name2_li$+"\"")
|
|
| 469 |
+ //print name_li$ |
|
| 470 |
+ endif |
|
| 471 |
+ endif |
|
| 472 |
+ |
|
| 473 |
+ laufwerk_neu_li$=system$("cd /\""+name2_li$+"\"")
|
|
| 474 |
+ //print laufwerk_neu_li$ |
|
| 475 |
+ dir_li$="/"+name2_li$ |
|
| 476 |
+ |
|
| 477 |
+ readfolder_li(dir_li$) |
|
| 478 |
+ break |
|
| 479 |
+ case "right_drives:"+PartTwo$+"|" |
|
| 480 |
+ tre = dropbox get "right_drives" |
|
| 481 |
+ //print tre |
|
| 482 |
+ name2_re$ = dropbox get$ "right_drives", tre+1 |
|
| 483 |
+ //print name2_re$ |
|
| 484 |
+ if (name3_re$=name3_li$) then |
|
| 485 |
+ else |
|
| 486 |
+ name4_re$=system$("unmount \"/"+name3_re$+"\"")
|
|
| 487 |
+ endif |
|
| 488 |
+ if (name2_re$=name3_re$) then |
|
| 489 |
+ else |
|
| 490 |
+ name3_re$=name2_re$ |
|
| 491 |
+ if (name3_re$=name3_li$) then |
|
| 492 |
+ else |
|
| 493 |
+ name_re$=system$("mountvolume \""+name2_re$+"\"")
|
|
| 494 |
+ //print name_re$ |
|
| 495 |
+ endif |
|
| 496 |
+ endif |
|
| 497 |
+ laufwerk_neu_re$=system$("cd /\""+name2_re$+"\"")
|
|
| 498 |
+ //print laufwerk_neu_re$ |
|
| 499 |
+ dir_re$="/"+name2_re$ |
|
| 500 |
+ readfolder_re(dir_re$) |
|
| 501 |
+ break |
|
| 502 |
+ |
|
| 503 |
+ case "button1|" |
|
| 504 |
+ if (PartOne$="browserLi") then |
|
| 505 |
+ name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 506 |
+ dir_re$=dir_re$+"/" |
|
| 507 |
+ kopieren$=system$("cp -r "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 508 |
+ readfolder_re(dir_re$) |
|
| 509 |
+ elseif (PartOne$="browserRe") then |
|
| 510 |
+ name1$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 511 |
+ dir_li$=dir_li$+"/" |
|
| 512 |
+ kopieren$=system$("cp -r "+"\""+dir_re$+"/"+name1$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 513 |
+ readfolder_li(dir_li$) |
|
| 514 |
+ endif |
|
| 515 |
+ break |
|
| 516 |
+ case "button2|" |
|
| 517 |
+ if (PartOne$="browserLi") then |
|
| 518 |
+ name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 519 |
+ dir_re$=dir_re$+"/" |
|
| 520 |
+ kopieren$=system$("mv "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 521 |
+ readfolder_li(dir_li$) |
|
| 522 |
+ readfolder_re(dir_re$) |
|
| 523 |
+ elseif (PartOne$="browserRe") then |
|
| 524 |
+ name1$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 525 |
+ dir_li$=dir_li$+"/" |
|
| 526 |
+ kopieren$=system$("mv "+"\""+dir_re$+"/"+name1$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 527 |
+ readfolder_re(dir_re$) |
|
| 528 |
+ readfolder_li(dir_li$) |
|
| 529 |
+ endif |
|
| 530 |
+ break |
|
| 531 |
+ case "button3|" |
|
| 532 |
+ if (PartOne$="dateibrowser") then |
|
| 533 |
+ else |
|
| 534 |
+ makedir(PartOne$) |
|
| 535 |
+ endif |
|
| 536 |
+ break |
|
| 537 |
+ case "button4|" |
|
| 538 |
+ if (PartOne$="dateibrowser") then |
|
| 539 |
+ else |
|
| 540 |
+ attribute_setzen(PartOne$) |
|
| 541 |
+ endif |
|
| 542 |
+ break |
|
| 543 |
+ case "button5|" |
|
| 544 |
+ if (PartOne$="browserLi") then |
|
| 545 |
+ oeffnen$=system$("open "+"\""+dir_li$+"/"+name$+"\"")
|
|
| 546 |
+ elseif (PartOne$="browserRe") then |
|
| 547 |
+ oeffnen$=system$("open "+"\""+dir_re$+"/"+name$+"\"")
|
|
| 548 |
+ endif |
|
| 549 |
+ break |
|
| 550 |
+ case "button6|" |
|
| 551 |
+ //print PartOne$ |
|
| 552 |
+ if (PartOne$="browserLi") then |
|
| 553 |
+ name2$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 554 |
+ //print dir_re$ |
|
| 555 |
+ //dir_re$=dir_re$+"/" |
|
| 556 |
+ //print "link "+"ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"" |
|
| 557 |
+ if (name2$="/boot/home" or dir_re$="/boot") then |
|
| 558 |
+ //print "sicherheitsabfrage geht" |
|
| 559 |
+ else |
|
| 560 |
+ verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 561 |
+ endif |
|
| 562 |
+ readfolder_re(dir_re$) |
|
| 563 |
+ readfolder_li(dir_li$) |
|
| 564 |
+ elseif (PartOne$="browserRe") then |
|
| 565 |
+ name2$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 566 |
+ //dir_li$=dir_li$+"/" |
|
| 567 |
+ if (name2$="/boot/home" or dir_li$="/boot") then |
|
| 568 |
+ //print "sicherheitsabfrage geht" |
|
| 569 |
+ else |
|
| 570 |
+ verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 571 |
+ endif |
|
| 572 |
+ readfolder_re(dir_re$) |
|
| 573 |
+ readfolder_li(dir_li$) |
|
| 574 |
+ endif |
|
| 575 |
+ |
|
| 576 |
+ break |
|
| 577 |
+ case "button7|" |
|
| 578 |
+ |
|
| 579 |
+ if(PartOne$="dateibrowser")then |
|
| 580 |
+ else |
|
| 581 |
+ copyas(PartOne$) |
|
| 582 |
+ |
|
| 583 |
+ endif |
|
| 584 |
+ break |
|
| 585 |
+ case "button8|" |
|
| 586 |
+ if(PartOne$="dateibrowser")then |
|
| 587 |
+ else |
|
| 588 |
+ rmname_typ$ = columnbox get$ PartOne$, 9, val(PartThree$) |
|
| 589 |
+ rm(PartOne$) |
|
| 590 |
+ endif |
|
| 591 |
+ break |
|
| 592 |
+ case "button9|" |
|
| 593 |
+ if(PartOne$="dateibrowser")then |
|
| 594 |
+ else |
|
| 595 |
+ rename(PartOne$) |
|
| 596 |
+ endif |
|
| 597 |
+ break |
|
| 598 |
+ case "rm_ja|" |
|
| 599 |
+ |
|
| 600 |
+ if (PartOneRM$="browserLi") then |
|
| 601 |
+ if(rmname_typ$="l")then |
|
| 602 |
+ found=instr(rmname$,">") |
|
| 603 |
+ rmname$=left$(rmname$,found-2) |
|
| 604 |
+ rm$=system$("unlink "+"\""+dir_li$+"/"+rmname$+"\"")
|
|
| 605 |
+ else |
|
| 606 |
+ //print "cd "+"\""+dir_li$+"\""+"; rm -r "+"\""+rmname$+"\"" |
|
| 607 |
+ rm$=system$("cd "+"\""+dir_li$+"\""+"; rm -r "+"\""+rmname$+"\"")
|
|
| 608 |
+ endif |
|
| 609 |
+ readfolder_li(dir_li$) |
|
| 610 |
+ readfolder_re(dir_re$) |
|
| 611 |
+ elseif (PartOneRM$="browserRe") then |
|
| 612 |
+ if(rmname_typ$="l")then |
|
| 613 |
+ found=instr(rmname$,">") |
|
| 614 |
+ rmname$=left$(rmname$,found-2) |
|
| 615 |
+ rm$=system$("unlink "+"\""+dir_re$+"/"+rmname$+"\"")
|
|
| 616 |
+ else |
|
| 617 |
+ rm$=system$("cd "+"\""+dir_re$+"\""+"; rm -r "+"\""+rmname$+"\"") //cd "+dir_li$+";
|
|
| 618 |
+ endif |
|
| 619 |
+ readfolder_re(dir_re$) |
|
| 620 |
+ readfolder_li(dir_li$) |
|
| 621 |
+ endif |
|
| 622 |
+ |
|
| 623 |
+ window close "remove" |
|
| 624 |
+ break |
|
| 625 |
+ case "rm_nein|" |
|
| 626 |
+ window close "remove" |
|
| 627 |
+ break |
|
| 628 |
+ case "remove:_QuitRequested|" |
|
| 629 |
+ window close "remove" |
|
| 630 |
+ break |
|
| 631 |
+ case "button10|" |
|
| 632 |
+ |
|
| 633 |
+ break |
|
| 634 |
+ case "button12|" |
|
| 635 |
+ if(PartOne$="dateibrowser")then |
|
| 636 |
+ else |
|
| 637 |
+ linkas(PartOne$) |
|
| 638 |
+ endif |
|
| 639 |
+ break |
|
| 640 |
+ case "makedir|" |
|
| 641 |
+ makefolder$=textcontrol get$ "dirname" |
|
| 642 |
+ if (PartOneMakeDir$="browserLi") then |
|
| 643 |
+ mkdir$=system$("mkdir "+"\""+dir_li$+"/"+makefolder$+"\"")
|
|
| 644 |
+ if (dir_re$=dir_li$) then |
|
| 645 |
+ readfolder_li(dir_li$) |
|
| 646 |
+ readfolder_re(dir_re$) |
|
| 647 |
+ else |
|
| 648 |
+ readfolder_li(dir_li$) |
|
| 649 |
+ endif |
|
| 650 |
+ |
|
| 651 |
+ elseif (PartOneMakeDir$="browserRe") then |
|
| 652 |
+ mkdir$=system$("mkdir "+"\""+dir_re$+"/"+makefolder$+"\"")
|
|
| 653 |
+ if (dir_li$=dir_re$) then |
|
| 654 |
+ readfolder_li(dir_li$) |
|
| 655 |
+ readfolder_re(dir_re$) |
|
| 656 |
+ else |
|
| 657 |
+ readfolder_re(dir_re$) |
|
| 658 |
+ endif |
|
| 659 |
+ endif |
|
| 660 |
+ window close "makefolder" |
|
| 661 |
+ break |
|
| 662 |
+ case "makefolder:_QuitRequested|" |
|
| 663 |
+ window close "makefolder" |
|
| 664 |
+ break |
|
| 665 |
+ case "copyas|" |
|
| 666 |
+ copyname$=textcontrol get$ "copyname" |
|
| 667 |
+ //print PartOneCopyAs$ |
|
| 668 |
+ //print "name"+copyname$ |
|
| 669 |
+ if (PartOneCopyAs$="browserLi") then |
|
| 670 |
+ copyas$=system$("cd "+"\""+dir_li$+"\""+"; cp -r "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_re$+"/"+copyname$+"\"")
|
|
| 671 |
+ if (dir_re$=dir_li$) then |
|
| 672 |
+ readfolder_li(dir_li$) |
|
| 673 |
+ readfolder_re(dir_re$) |
|
| 674 |
+ else |
|
| 675 |
+ readfolder_li(dir_li$) |
|
| 676 |
+ readfolder_re(dir_re$) |
|
| 677 |
+ endif |
|
| 678 |
+ elseif (PartOneCopyAs$="browserRe") then |
|
| 679 |
+ copyas$=system$("cd "+"\""+dir_re$+"\""+"; cp -r "+"\""+dir_re$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+copyname$+"\"")
|
|
| 680 |
+ if (dir_li$=dir_re$) then |
|
| 681 |
+ readfolder_li(dir_li$) |
|
| 682 |
+ readfolder_re(dir_re$) |
|
| 683 |
+ else |
|
| 684 |
+ readfolder_re(dir_re$) |
|
| 685 |
+ readfolder_li(dir_li$) |
|
| 686 |
+ endif |
|
| 687 |
+ endif |
|
| 688 |
+ window close "copyas" |
|
| 689 |
+ break |
|
| 690 |
+ case "copyas:_QuitRequested|" |
|
| 691 |
+ window close "copyas" |
|
| 692 |
+ break |
|
| 693 |
+ case "rename|" |
|
| 694 |
+ renamename$=textcontrol get$ "renamename" |
|
| 695 |
+ //print PartOneRename$ |
|
| 696 |
+ if (PartOneRename$="browserLi") then |
|
| 697 |
+ found=instr(renamename$,">") |
|
| 698 |
+ if(found)then |
|
| 699 |
+ found=instr(renamename$,">") |
|
| 700 |
+ renamename$=left$(renamename$,found-2) |
|
| 701 |
+ found=instr(name$,">") |
|
| 702 |
+ name$=left$(name$,found-2) |
|
| 703 |
+ renameas$=system$("mv "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+renamename$+"\"")
|
|
| 704 |
+ else |
|
| 705 |
+ renameas$=system$("mv "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+renamename$+"\"")
|
|
| 706 |
+ endif |
|
| 707 |
+ if (dir_re$=dir_li$) then |
|
| 708 |
+ readfolder_li(dir_li$) |
|
| 709 |
+ readfolder_re(dir_re$) |
|
| 710 |
+ else |
|
| 711 |
+ readfolder_li(dir_li$) |
|
| 712 |
+ endif |
|
| 713 |
+ elseif (PartOneRename$="browserRe") then |
|
| 714 |
+ found=instr(renamename$,">") |
|
| 715 |
+ if(found)then |
|
| 716 |
+ found=instr(renamename$,">") |
|
| 717 |
+ renamename$=left$(renamename$,found-2) |
|
| 718 |
+ found=instr(name$,">") |
|
| 719 |
+ name$=left$(name$,found-2) |
|
| 720 |
+ renameas$=system$("mv "+dir_re$+"/"+"\""+name$+"\""+" "+dir_re$+"/"+"\""+renamename$+"\"")
|
|
| 721 |
+ else |
|
| 722 |
+ renameas$=system$("mv "+dir_re$+"/"+"\""+name$+"\""+" "+dir_re$+"/"+"\""+renamename$+"\"")
|
|
| 723 |
+ endif |
|
| 724 |
+ if (dir_re$=dir_li$) then |
|
| 725 |
+ readfolder_li(dir_li$) |
|
| 726 |
+ readfolder_re(dir_re$) |
|
| 727 |
+ else |
|
| 728 |
+ readfolder_re(dir_re$) |
|
| 729 |
+ endif |
|
| 730 |
+ endif |
|
| 731 |
+ window close "rename" |
|
| 732 |
+ break |
|
| 733 |
+ case "rename:_QuitRequested|" |
|
| 734 |
+ window close "rename" |
|
| 735 |
+ break |
|
| 736 |
+ case "linkas|" |
|
| 737 |
+ linkname$=textcontrol get$ "linkname" |
|
| 738 |
+ if (PartOneLinkAs$="browserLi") then |
|
| 739 |
+ linkas$=system$("ln -s "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_re$+"/"+linkname$+"\"")
|
|
| 740 |
+ readfolder_re(dir_re$) |
|
| 741 |
+ readfolder_li(dir_li$) |
|
| 742 |
+ elseif (PartOneLinkAs$="browserRe") then |
|
| 743 |
+ linkas$=system$("ln -s "+"\""+dir_re$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+linkname$+"\"")
|
|
| 744 |
+ readfolder_re(dir_re$) |
|
| 745 |
+ readfolder_li(dir_li$) |
|
| 746 |
+ endif |
|
| 747 |
+ window close "linkas" |
|
| 748 |
+ break |
|
| 749 |
+ case "linkas:_QuitRequested|" |
|
| 750 |
+ window close "linkas" |
|
| 751 |
+ break |
|
| 752 |
+ case "savebfs|" |
|
| 753 |
+ bfssize$=textcontrol get$ "bfssize" |
|
| 754 |
+ bfsname$=textcontrol get$ "bfsname" |
|
| 755 |
+ Output$=system$("/boot/beos/bin/dd if=/dev/zero of="+bfsimage$+" bs=1024 count="+bfssize$)
|
|
| 756 |
+ Output$=system$("mkbfs 2048 "+bfsimage$+"; sync")
|
|
| 757 |
+ window close "createbfs" |
|
| 758 |
+ break |
|
| 759 |
+ case "attribute:_QuitRequested|" |
|
| 760 |
+ window close "attribute" |
|
| 761 |
+ break |
|
| 762 |
+ case "read1:ON|" |
|
| 763 |
+ nummer1=400 |
|
| 764 |
+ break |
|
| 765 |
+ case "write1:ON|" |
|
| 766 |
+ nummer2=200 |
|
| 767 |
+ break |
|
| 768 |
+ case "run1:ON|" |
|
| 769 |
+ nummer3=100 |
|
| 770 |
+ break |
|
| 771 |
+ case "read2:ON|" |
|
| 772 |
+ nummer4=40 |
|
| 773 |
+ break |
|
| 774 |
+ case "write2:ON|" |
|
| 775 |
+ nummer5=20 |
|
| 776 |
+ break |
|
| 777 |
+ case "run2:ON|" |
|
| 778 |
+ nummer6=10 |
|
| 779 |
+ break |
|
| 780 |
+ case "read3:ON|" |
|
| 781 |
+ nummer7=4 |
|
| 782 |
+ break |
|
| 783 |
+ case "write3:ON|" |
|
| 784 |
+ nummer8=2 |
|
| 785 |
+ break |
|
| 786 |
+ case "run3:ON|" |
|
| 787 |
+ nummer9=1 |
|
| 788 |
+ break |
|
| 789 |
+ case "read1:OFF|" |
|
| 790 |
+ nummer1=0 |
|
| 791 |
+ break |
|
| 792 |
+ case "write1:OFF|" |
|
| 793 |
+ nummer2=0 |
|
| 794 |
+ break |
|
| 795 |
+ case "run1:OFF|" |
|
| 796 |
+ nummer3=0 |
|
| 797 |
+ break |
|
| 798 |
+ case "read2:OFF|" |
|
| 799 |
+ nummer4=0 |
|
| 800 |
+ break |
|
| 801 |
+ case "write2:OFF|" |
|
| 802 |
+ nummer5=0 |
|
| 803 |
+ break |
|
| 804 |
+ case "run2:OFF|" |
|
| 805 |
+ nummer6=0 |
|
| 806 |
+ break |
|
| 807 |
+ case "read3:OFF|" |
|
| 808 |
+ nummer7=0 |
|
| 809 |
+ break |
|
| 810 |
+ case "write3:OFF|" |
|
| 811 |
+ nummer8=0 |
|
| 812 |
+ break |
|
| 813 |
+ case "run3:OFF|" |
|
| 814 |
+ nummer9=0 |
|
| 815 |
+ break |
|
| 816 |
+ case "attributeOK|" |
|
| 817 |
+ nummer=nummer1+nummer2+nummer3+nummer4+nummer5+nummer6+nummer7+nummer8+nummer9 |
|
| 818 |
+ |
|
| 819 |
+ if (PartOneATTR$="browserLi")then |
|
| 820 |
+ Output$=system$("chmod "+str$(nummer)+" "+dir_li$+"/"+"\""+name$+"\"")
|
|
| 821 |
+ readfolder_li(dir_li$) |
|
| 822 |
+ elseif (PartOneATTR$="browserRe")then |
|
| 823 |
+ Output$=system$("chmod -c "+str$(nummer)+" "+dir_re$+"/"+"\""+name$+"\"")
|
|
| 824 |
+ readfolder_re(dir_re$) |
|
| 825 |
+ fi |
|
| 826 |
+ window close "attribute" |
|
| 827 |
+ break |
|
| 828 |
+ case "browserLi:_Select:"+PartThree$+"|" |
|
| 829 |
+ name$ = COLUMNBOX GET$ "browserLi", 2, val(PartThree$) |
|
| 830 |
+ break |
|
| 831 |
+ case "browserLi:_Invoke:"+PartThree$+"|" |
|
| 832 |
+ name$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 833 |
+ directory1$ = columnbox get$ "browserLi", 9, val(PartThree$) |
|
| 834 |
+ //print directory1$ |
|
| 835 |
+ if (directory1$="d") then |
|
| 836 |
+ if (name$=".")then |
|
| 837 |
+ dir_li$="/boot" |
|
| 838 |
+ readfolder_li(dir_li$) |
|
| 839 |
+ elseif (name$="..")then |
|
| 840 |
+ for cf = len(dir_li$) to 1 step -1 |
|
| 841 |
+ if(mid$(dir_li$,cf,1) = "/") then |
|
| 842 |
+ dir_back$ = left$(dir_li$,cf-1) |
|
| 843 |
+ break |
|
| 844 |
+ fi |
|
| 845 |
+ next cf |
|
| 846 |
+ if (dir_back$="")then |
|
| 847 |
+ dir_li$="/" |
|
| 848 |
+ readfolder_li(dir_li$) |
|
| 849 |
+ else |
|
| 850 |
+ //print "hier1: "+dir_back$ |
|
| 851 |
+ dir_li$=dir_back$ |
|
| 852 |
+ readfolder_li(dir_li$) |
|
| 853 |
+ fi |
|
| 854 |
+ else |
|
| 855 |
+ dir_li$=dir_li$+"/"+name$ |
|
| 856 |
+ readfolder_li(dir_li$) |
|
| 857 |
+ endif |
|
| 858 |
+ else |
|
| 859 |
+ name$="\""+name$+"\"" |
|
| 860 |
+ fi |
|
| 861 |
+ break |
|
| 862 |
+ case "browserRe:_Select:"+PartThree$+"|" |
|
| 863 |
+ name$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 864 |
+ //name$="\""+name$+"\"" |
|
| 865 |
+ break |
|
| 866 |
+ case "browserRe:_Invoke:"+PartThree$+"|" |
|
| 867 |
+ name$ = COLUMNBOX GET$ "browserRe", 2, val(PartThree$) |
|
| 868 |
+ directory1$ = columnbox get$ "browserRe", 9, val(PartThree$) |
|
| 869 |
+ if (directory1$="d") then |
|
| 870 |
+ if (name$=".")then |
|
| 871 |
+ dir_re$="/boot" |
|
| 872 |
+ readfolder_re(dir_re$) |
|
| 873 |
+ elseif (name$="..")then |
|
| 874 |
+ for cf = len(dir_re$) to 1 step -1 |
|
| 875 |
+ if(mid$(dir_re$,cf,1) = "/") then |
|
| 876 |
+ dir_back$ = left$(dir_re$,cf-1) |
|
| 877 |
+ break |
|
| 878 |
+ fi |
|
| 879 |
+ next cf |
|
| 880 |
+ if (dir_back$="")then |
|
| 881 |
+ dir_re$="/" |
|
| 882 |
+ readfolder_re(dir_re$) |
|
| 883 |
+ else |
|
| 884 |
+ //print "hier1: "+dir_back$ |
|
| 885 |
+ dir_re$=dir_back$ |
|
| 886 |
+ readfolder_re(dir_re$) |
|
| 887 |
+ fi |
|
| 888 |
+ else |
|
| 889 |
+ dir_re$=dir_re$+"/"+name$ |
|
| 890 |
+ readfolder_re(dir_re$) |
|
| 891 |
+ fi |
|
| 892 |
+ else |
|
| 893 |
+ name$="\""+name$+"\"" |
|
| 894 |
+ fi |
|
| 895 |
+ break |
|
| 896 |
+ case "ftp_settings:_QuitRequested|" |
|
| 897 |
+ window close "ftp_settings" |
|
| 898 |
+ break |
|
| 899 |
+ case "ftp_change:_QuitRequested|" |
|
| 900 |
+ window close "ftp_change" |
|
| 901 |
+ break |
|
| 902 |
+ case "dateibrowser:FTP:FTP-Verbindung erstellen|" |
|
| 903 |
+ ftp_settings() |
|
| 904 |
+ break |
|
| 905 |
+ case "dateibrowser:FTP:FTP-Verbindung ändern|" |
|
| 906 |
+ ftp_change() |
|
| 907 |
+ break |
|
| 908 |
+ case "FTP-Verbindung Erstellen|" |
|
| 909 |
+ ftp_name$=textcontrol get$ "ftp_name" |
|
| 910 |
+ ftp_ip_name$=textcontrol get$ "ftp_ip_name" |
|
| 911 |
+ ftp_user$=textcontrol get$ "ftp_user" |
|
| 912 |
+ ftp_passwort$=textcontrol get$ "ftp_passwort" |
|
| 913 |
+ ftp_Startverzeichnis$=textcontrol get$ "Startverzeichnis" |
|
| 914 |
+ ftp_verbindung_speichern(ftp_name$,ftp_ip_name$,ftp_Startverzeichnis$,ftp_user$,ftp_passwort$) |
|
| 915 |
+ window close "ftp_settings" |
|
| 916 |
+ break |
|
| 917 |
+ |
|
| 918 |
+ default: |
|
| 919 |
+ break |
|
| 920 |
+ end switch |
|
| 921 |
+ if(window count<1) inloop = false |
|
| 922 |
+ sleep 0.001 |
|
| 923 |
+ next countMessages |
|
| 924 |
+ mmsg$ = MOUSE MESSAGE$ |
|
| 925 |
+ if (mmsg$<>"" and mmsg$<>old_mmsg$) then |
|
| 926 |
+ //print mmsg$ |
|
| 927 |
+ //old_mmsg$= mmsg$ |
|
| 928 |
+ nx = split(mmsg$, mouse$(), ":") |
|
| 929 |
+ Viewname$=mouse$(1) |
|
| 930 |
+ //print Viewname$ |
|
| 931 |
+ Xmouse = val(mouse$(2)) |
|
| 932 |
+ Ymouse = val(mouse$(3)) |
|
| 933 |
+ BLmouse= val(mouse$(4)) |
|
| 934 |
+ BCmouse= val(mouse$(5)) |
|
| 935 |
+ BRmouse= val(mouse$(6)) |
|
| 936 |
+ casestring$=Viewname$+":"+mouse$(4)+":"+mouse$(5)+":"+mouse$(6) |
|
| 937 |
+ //print casestring$ |
|
| 938 |
+ endif |
|
| 939 |
+ //print tt= VIEW GET Viewname$, "Focused" |
|
| 940 |
+ switch (casestring$) |
|
| 941 |
+ |
|
| 942 |
+ case "browserLi:0:0:1" |
|
| 943 |
+ Selected_li$ = POPUPMENU Xmouse ,Ymouse, "copy|copy as|move||link|Attribute|Make Folder||Rename||Delete" , "vertikal1" |
|
| 944 |
+ //print Selected_li$ |
|
| 945 |
+ if (Selected_li$="copy") then |
|
| 946 |
+ name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 947 |
+ //print name1$ |
|
| 948 |
+ dir_re$=dir_re$+"/" |
|
| 949 |
+ kopieren$=system$("cp -r "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 950 |
+ readfolder_re(dir_re$) |
|
| 951 |
+ elseif (Selected_li$="copy as") then |
|
| 952 |
+ //name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 953 |
+ //print PartOne$+"PartOne$" |
|
| 954 |
+ /// print PartTwo$+"PartTwo$" |
|
| 955 |
+ copyas(PartOne$) //"dateibrowser") |
|
| 956 |
+ |
|
| 957 |
+ elseif (Selected_li$="move") then |
|
| 958 |
+ name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 959 |
+ dir_re$=dir_re$+"/" |
|
| 960 |
+ kopieren$=system$("mv "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 961 |
+ readfolder_li(dir_li$) |
|
| 962 |
+ readfolder_re(dir_re$) |
|
| 963 |
+ elseif (Selected_li$="move as") then |
|
| 964 |
+ //name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 965 |
+ move_as("browserLi")
|
|
| 966 |
+ elseif (Selected_li$="Delete") then |
|
| 967 |
+ rmname_typ$ = columnbox get$ PartOne$, 9, val(PartThree$) |
|
| 968 |
+ rm(PartOne$) |
|
| 969 |
+ elseif (Selected_li$="Make Folder") then |
|
| 970 |
+ if(PartOne$="dateibrowser")then |
|
| 971 |
+ else |
|
| 972 |
+ makedir(PartOne$) |
|
| 973 |
+ endif |
|
| 974 |
+ elseif (Selected_li$="link") then |
|
| 975 |
+ //print PartOne$ |
|
| 976 |
+ if (PartOne$="browserLi") then |
|
| 977 |
+ name2$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 978 |
+ if (name2$="/boot/home" or dir_re$="/boot") then |
|
| 979 |
+ //print "sicherheitsabfrage geht" |
|
| 980 |
+ else |
|
| 981 |
+ verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 982 |
+ endif |
|
| 983 |
+ readfolder_re(dir_re$) |
|
| 984 |
+ readfolder_li(dir_li$) |
|
| 985 |
+ else |
|
| 986 |
+ endif |
|
| 987 |
+ elseif (Selected_li$="Attribute") then |
|
| 988 |
+ if(PartOne$="dateibrowser")then |
|
| 989 |
+ else |
|
| 990 |
+ attribute_setzen(PartOne$) |
|
| 991 |
+ endif |
|
| 992 |
+ elseif (Selected_li$="Rename") then |
|
| 993 |
+ //name$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 994 |
+ //rename(name$) |
|
| 995 |
+ rename("browserLi")
|
|
| 996 |
+ endif |
|
| 997 |
+ |
|
| 998 |
+ break |
|
| 999 |
+ case "browserRe:0:0:1" |
|
| 1000 |
+ Selected_re$ = POPUPMENU Xmouse,Ymouse,"copy|copy as|move||link|Attribute|Make Folder|Rename||Delete" , "vertikal2" |
|
| 1001 |
+ //print Selected_re$ |
|
| 1002 |
+ if (Selected_re$="")then |
|
| 1003 |
+ else |
|
| 1004 |
+ if (Selected_re$="copy") then |
|
| 1005 |
+ name2$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1006 |
+ dir_li$=dir_li$+"/" |
|
| 1007 |
+ kopieren$=system$("cp -r "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 1008 |
+ readfolder_li(dir_li$) |
|
| 1009 |
+ elseif (Selected_re$="copy as") then |
|
| 1010 |
+ copyas(PartOne$) //"dateibrowser") |
|
| 1011 |
+ elseif (Selected_re$="move") then |
|
| 1012 |
+ name2$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1013 |
+ dir_li$=dir_li$+"/" |
|
| 1014 |
+ kopieren$=system$("mv "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 1015 |
+ readfolder_li(dir_li$) |
|
| 1016 |
+ readfolder_re(dir_re$) |
|
| 1017 |
+ elseif (Selected_re$="move as") then |
|
| 1018 |
+ //name1$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 1019 |
+ move_as("browserRe")
|
|
| 1020 |
+ elseif (Selected_re$="Make Folder") then |
|
| 1021 |
+ makedir("browserRe")
|
|
| 1022 |
+ elseif (Selected_re$="Rename") then |
|
| 1023 |
+ //name$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1024 |
+ //rename(name$) |
|
| 1025 |
+ rename("browserRe")
|
|
| 1026 |
+ elseif (Selected_re$="Delete") then |
|
| 1027 |
+ rmname_typ$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1028 |
+ rm(PartOne$) |
|
| 1029 |
+ elseif (Selected_re$="Attribute") |
|
| 1030 |
+ //name$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1031 |
+ //attribute(name$) |
|
| 1032 |
+ //attribute("browserRe")
|
|
| 1033 |
+ elseif (Selected_re$="link") then |
|
| 1034 |
+ if (PartOne$="browserRe") then |
|
| 1035 |
+ name2$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1036 |
+ //dir_li$=dir_li$+"/" |
|
| 1037 |
+ if (name2$="/boot/home" or dir_re$="/boot") then |
|
| 1038 |
+ //print "sicherheitsabfrage geht" |
|
| 1039 |
+ else |
|
| 1040 |
+ print "ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"" |
|
| 1041 |
+ verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 1042 |
+ endif |
|
| 1043 |
+ readfolder_re(dir_re$) |
|
| 1044 |
+ readfolder_li(dir_li$) |
|
| 1045 |
+ else |
|
| 1046 |
+ endif |
|
| 1047 |
+ endif |
|
| 1048 |
+ |
|
| 1049 |
+ endif |
|
| 1050 |
+ break |
|
| 1051 |
+ default: |
|
| 1052 |
+ break |
|
| 1053 |
+ end switch |
|
| 1054 |
+ |
|
| 1055 |
+ |
|
| 1056 |
+ wend |
|
| 1057 |
+ |
|
| 1058 |
+ |
|
| 1059 |
+end sub |
|
| 1060 |
+sub dateibrowserLinks(dir_li$, first) |
|
| 1061 |
+ browserLi$="browserLi" |
|
| 1062 |
+ err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal1" |
|
| 1063 |
+ |
|
| 1064 |
+ Y_Dropbox_li=20 |
|
| 1065 |
+ Y_Dropbox_ende_li=Y_Dropbox_li+20 |
|
| 1066 |
+ Y_Columnbox_start_li=Y_Dropbox_ende_li+20 |
|
| 1067 |
+ X_Drives_ende_li=115 |
|
| 1068 |
+ layout "left-top", "vertikal1" |
|
| 1069 |
+ dropbox 15,20 to X_Drives_ende_li, Y_Dropbox_ende_li, "left_drives", "", "vertikal1" |
|
| 1070 |
+ |
|
| 1071 |
+ dropbox X_Drives_ende_li+20,Y_Dropbox_li to X_Drives_ende_li+120,Y_Dropbox_ende_li, "left_folders", "", "vertikal1" |
|
| 1072 |
+ dropbox add "left_folders", "Folder" |
|
| 1073 |
+ dropbox add "left_folders", "Apps" |
|
| 1074 |
+ dropbox add "left_folders", "Home" |
|
| 1075 |
+ dropbox add "left_folders", "Desktop" |
|
| 1076 |
+ dropbox add "left_folders", "FastLaunch" |
|
| 1077 |
+ //dropbox add "left_folders", "ZetaMenu" |
|
| 1078 |
+ dropbox add "left_folders", "Downloads" |
|
| 1079 |
+ dropbox add "left_folders", "Config" |
|
| 1080 |
+ dropbox add "left_folders", "Trash" |
|
| 1081 |
+ layout "default", "vertikal1" |
|
| 1082 |
+ spalten_option$="align-left" |
|
| 1083 |
+ |
|
| 1084 |
+ COLUMNBOX 20,Y_Columnbox_start_li TO WindowSize_x_result/2-10-20,WindowSize_y_result-130-60, browserLi$, true, "resizable, movable, popup, removable", "vertikal1" |
|
| 1085 |
+ COLUMNBOX COLUMN browserLi$, "", 1, 32, 32, 32,spalten_option$ |
|
| 1086 |
+ COLUMNBOX COLUMN browserLi$, "Name", 2, 200, 150, 150,spalten_option$ |
|
| 1087 |
+ COLUMNBOX COLUMN browserLi$, "Permissions", 3, 50, 50, 50,spalten_option$ |
|
| 1088 |
+ COLUMNBOX COLUMN browserLi$, "M.D (ddmmyyyy)", 4, 120, 120, 120, spalten_option$ |
|
| 1089 |
+ COLUMNBOX COLUMN browserLi$, "M.T (hhmmss)", 5, 105, 105, 105, spalten_option$ |
|
| 1090 |
+ COLUMNBOX COLUMN browserLi$, "Size / Items", 6, 200, 100, 200, spalten_option$ |
|
| 1091 |
+ COLUMNBOX COLUMN browserLi$, "C.D (ddmmyyyy)", 7, 100, 100, 100, spalten_option$ |
|
| 1092 |
+ COLUMNBOX COLUMN browserLi$, "C.T (hhmmss)", 8, 100, 100, 100, spalten_option$ |
|
| 1093 |
+ COLUMNBOX COLUMN browserLi$, "Directory", 9, 20, 20, 20, spalten_option$ |
|
| 1094 |
+ COLUMNBOX COLUMN browserLi$, "Directory", 10, 80, 80, 80, spalten_option$ |
|
| 1095 |
+ columnbox color browserLi$, "Selection-Active", 220,220,250 |
|
| 1096 |
+ columnbox color browserLi$, "Row-Divider", 255,255,255 |
|
| 1097 |
+ layout "left-bottom-right", "vertikal1" |
|
| 1098 |
+ textcontrol 14,WindowSize_y_result-130-40 to WindowSize_x_result/2-10-20,WindowSize_y_result-130-20, "pfad_li", "","","vertikal1" |
|
| 1099 |
+ layout "right-top", "vertikal1" |
|
| 1100 |
+ STATUSBAR WindowSize_x_result/2-130, 10 to WindowSize_x_result/2-30,Y_Dropbox_ende_li, "Full_li", "","", "vertikal1" |
|
| 1101 |
+ |
|
| 1102 |
+ readfolder_li(dir_li$) |
|
| 1103 |
+end sub |
|
| 1104 |
+ |
|
| 1105 |
+sub dateibrowserRechts(dir_re$) |
|
| 1106 |
+ browserRe$="browserRe" |
|
| 1107 |
+ err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal2" |
|
| 1108 |
+ Y_Dropbox_re=20 |
|
| 1109 |
+ Y_Dropbox_ende_re=Y_Dropbox_re+20 |
|
| 1110 |
+ Y_Columnbox_start_re=Y_Dropbox_ende_re+20 |
|
| 1111 |
+ X_Drives_ende_re=115 |
|
| 1112 |
+ layout "left-top", "vertikal2" |
|
| 1113 |
+ dropbox 15,20 to X_Drives_ende_re,Y_Dropbox_ende_re, "right_drives", "", "vertikal2" |
|
| 1114 |
+ |
|
| 1115 |
+ err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal1" |
|
| 1116 |
+ |
|
| 1117 |
+ dropbox X_Drives_ende_re+20,Y_Dropbox_re to X_Drives_ende_re+120,Y_Dropbox_ende_re, "right_folders", "", "vertikal2" |
|
| 1118 |
+ dropbox add "right_folders", "Folder" |
|
| 1119 |
+ dropbox add "right_folders", "Apps" |
|
| 1120 |
+ dropbox add "right_folders", "Home" |
|
| 1121 |
+ dropbox add "right_folders", "Desktop" |
|
| 1122 |
+ dropbox add "right_folders", "FastLaunch" |
|
| 1123 |
+ dropbox add "right_folders", "Downloads" |
|
| 1124 |
+ dropbox add "right_folders", "Config" |
|
| 1125 |
+ dropbox add "right_folders", "Trash" |
|
| 1126 |
+ layout "default", "vertikal2" |
|
| 1127 |
+ spalten_option$="align-left" |
|
| 1128 |
+ COLUMNBOX 20,Y_Columnbox_start_re TO WindowSize_x/2-10-20,WindowSize_y-130-60, browserRe$, true, "resizable, movable, popup, removable", "vertikal2" |
|
| 1129 |
+ COLUMNBOX COLUMN browserRe$, "", 1, 32, 32, 32,spalten_option$ |
|
| 1130 |
+ COLUMNBOX COLUMN browserRe$, "Name", 2, 200, 150, 150,spalten_option$ |
|
| 1131 |
+ COLUMNBOX COLUMN browserRe$, "Permissions", 3, 50, 50, 50,spalten_option$ |
|
| 1132 |
+ COLUMNBOX COLUMN browserRe$, "M.D (ddmmyyyy)", 4, 120, 120, 120, spalten_option$ |
|
| 1133 |
+ COLUMNBOX COLUMN browserRe$, "M.T (hhmmss)", 5, 105, 105, 105, spalten_option$ |
|
| 1134 |
+ COLUMNBOX COLUMN browserRe$, "Size / Items", 6, 200, 100, 200, spalten_option$ |
|
| 1135 |
+ COLUMNBOX COLUMN browserRe$, "C.D (ddmmyyyy)", 7, 100, 100, 100, spalten_option$ |
|
| 1136 |
+ COLUMNBOX COLUMN browserRe$, "C.T (hhmmss)", 8, 100, 100, 100, spalten_option$ |
|
| 1137 |
+ COLUMNBOX COLUMN browserRe$, "Directory", 9, 20, 20, 20, spalten_option$ |
|
| 1138 |
+ COLUMNBOX COLUMN browserRe$, "Directory", 10, 80, 80, 80, spalten_option$ |
|
| 1139 |
+ |
|
| 1140 |
+ columnbox color browserRe$, "Selection-Active", 220,220,250 |
|
| 1141 |
+ columnbox color browserRe$, "Row-Divider", 255,255,255 |
|
| 1142 |
+ layout "left-bottom-right", "vertikal2" |
|
| 1143 |
+ textcontrol 14,WindowSize_y-130-40 to WindowSize_x/2-10-20,WindowSize_y-130-20, "pfad_re", "","","vertikal2" |
|
| 1144 |
+ layout "right-top", "vertikal2" |
|
| 1145 |
+ STATUSBAR WindowSize_x/2-130, 10 to WindowSize_x/2-30,Y_Dropbox_ende_re, "Full_re", "","", "vertikal2" |
|
| 1146 |
+ layout "default", "vertikal2" |
|
| 1147 |
+ readfolder_re(dir_re$+"/") |
|
| 1148 |
+end sub |
|
| 1149 |
+sub dateibrowser_menu() |
|
| 1150 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/bottom.png", "horizontal2" |
|
| 1151 |
+ BUTTON 20,20 TO 120,40, "button1", "Copy", "horizontal2" |
|
| 1152 |
+ BUTTON 130,20 TO 230,40, "button2", "Move", "horizontal2" |
|
| 1153 |
+ BUTTON 240,20 TO 340,40, "button3", "New Directory", "horizontal2" |
|
| 1154 |
+ BUTTON 460,60 TO 560,80, "button4", "Change Permission", "horizontal2" |
|
| 1155 |
+ BUTTON 460,20 TO 560,40, "button5", "Open", "horizontal2" |
|
| 1156 |
+ BUTTON 350,20 TO 450,40, "button6", "Link", "horizontal2" |
|
| 1157 |
+ BUTTON 20,60 TO 120,80, "button7", "Copy as", "horizontal2" |
|
| 1158 |
+ BUTTON 130,60 TO 230,80, "button8", "Delete", "horizontal2" |
|
| 1159 |
+ BUTTON 240,60 TO 340,80, "button9", "Rename", "horizontal2" |
|
| 1160 |
+ //BUTTON 350,60 TO 450,80, "button10", "Burn CD", "horizontal2" |
|
| 1161 |
+ //BUTTON 460,60 TO 560,80, "button11", "mark all", "horizontal2" |
|
| 1162 |
+ BUTTON 350,60 TO 450,80, "button12", "Link as", "horizontal2" |
|
| 1163 |
+end sub |
|
| 1164 |
+sub readfolder_li(dir_li$) |
|
| 1165 |
+ STATUSBAR SET "Full_li", "", "", 0 |
|
| 1166 |
+ laufwerk_fuelle_LI(dir_li$) |
|
| 1167 |
+ |
|
| 1168 |
+//Creates a statusbar with ID$ and label(s) on View$. |
|
| 1169 |
+//Label1$ is on the left side above the actual bar and so is Label2$ on the right. |
|
| 1170 |
+ STATUSBAR SET "Full_li", "", "", belegt_li |
|
| 1171 |
+// Sets Statusbar ID$ to State and changes the Labels to specified ones. |
|
| 1172 |
+ PartOne$="" |
|
| 1173 |
+ |
|
| 1174 |
+ TEXTCONTROL CLEAR "pfad_li" |
|
| 1175 |
+ TEXTCONTROL SET "pfad_li", dir_li$ |
|
| 1176 |
+ COLUMNBOX CLEAR browserLi$ |
|
| 1177 |
+ //print "Dir_Li$ "+dir_li$ |
|
| 1178 |
+ verzeichnisinhalt_li$=system$(listdir$+"\""+dir_li$+"\"") |
|
| 1179 |
+ //verzeichnisinhalt_li$=system$("ls -allQ "+"\""+dir_li$+"\"")
|
|
| 1180 |
+ i=0 |
|
| 1181 |
+ b_li$="\"" |
|
| 1182 |
+ dim splitdir_li$(1) |
|
| 1183 |
+ n = split(verzeichnisinhalt_li$, splitdir_li$(), "\n") |
|
| 1184 |
+ for i = 1 to n-1 |
|
| 1185 |
+ |
|
| 1186 |
+ posname_li=instr(splitdir_li$(i),b_li$,0) |
|
| 1187 |
+ posname_ende_li=instr(splitdir_li$(i),b_li$,2) |
|
| 1188 |
+ dateiname_ohne_li$=mid$(splitdir_li$(i),posname_li+1,posname_ende_li-2) |
|
| 1189 |
+ |
|
| 1190 |
+ if (instr(splitdir_li$(i),"B",posname_ende_li+2)) then |
|
| 1191 |
+ attribute_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"B",posname_ende_li+3)+3,3)) |
|
| 1192 |
+ elseif(instr(splitdir_li$(i),"s",posname_ende_li+2)) |
|
| 1193 |
+ attribute_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"s",posname_ende_li+2)+3,4)) |
|
| 1194 |
+ endif |
|
| 1195 |
+ |
|
| 1196 |
+ directory_li$=mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10),1) |
|
| 1197 |
+ permission_long_li$=trim$(right$(splitdir_li$(i),9)) |
|
| 1198 |
+ |
|
| 1199 |
+ if (instr(splitdir_li$(i),"B",posname_ende_li+2)) then |
|
| 1200 |
+ groesse_pos_li_start=instr(splitdir_li$(i),"B",posname_ende_li+2) |
|
| 1201 |
+ dateigroesse_li$=trim$(mid$(splitdir_li$(i),posname_ende_li+2,groesse_pos_li_start-posname_ende_li)) |
|
| 1202 |
+ else |
|
| 1203 |
+ groesse_pos_li_start=instr(splitdir_li$(i),"items",posname_ende_li) |
|
| 1204 |
+ dateigroesse_li$=trim$(mid$(splitdir_li$(i),posname_ende_li+2,groesse_pos_li_start-posname_ende_li+3)) |
|
| 1205 |
+ endif |
|
| 1206 |
+ |
|
| 1207 |
+ datei_lastchange_datum_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"@",1)-10,10)) |
|
| 1208 |
+ datei_lastchange_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"@",1)+1,10)) |
|
| 1209 |
+ |
|
| 1210 |
+ if (mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10),1)="d") then |
|
| 1211 |
+ datei_creation_date_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-20)-22,10)) |
|
| 1212 |
+ //print datei_creation_date_li$ |
|
| 1213 |
+ datei_creation_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10)-11,10)) |
|
| 1214 |
+ elseif (mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-10),1)="f") then |
|
| 1215 |
+ datei_creation_date_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-20)-22,10)) |
|
| 1216 |
+ //print datei_creation_date_li$ |
|
| 1217 |
+ datei_creation_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-10)-11,10)) |
|
| 1218 |
+ endif |
|
| 1219 |
+ |
|
| 1220 |
+ //lastchange_pos_li=len(datei_datum_li$) |
|
| 1221 |
+ |
|
| 1222 |
+ columnbox add browserLi$, 1, i, 32, "__Path__="+dir_li$+"/"+dateiname_ohne_li$ |
|
| 1223 |
+ columnbox add browserLi$, 2, i, 15, dateiname_ohne_li$ |
|
| 1224 |
+ columnbox add browserLi$, 3, i, 15, attribute_li$ |
|
| 1225 |
+ columnbox add browserLi$, 4, i, 15, datei_lastchange_datum_li$ |
|
| 1226 |
+ columnbox add browserLi$, 5, i, 15, datei_lastchange_time_li$ |
|
| 1227 |
+ columnbox add browserLi$, 6, i, 15, dateigroesse_li$ |
|
| 1228 |
+ columnbox add browserLi$, 7, i, 10, datei_creation_date_li$ |
|
| 1229 |
+ columnbox add browserLi$, 8, i, 10, datei_creation_time_li$ |
|
| 1230 |
+ columnbox add browserLi$, 9, i, 10, directory_li$ |
|
| 1231 |
+ columnbox add browserLi$, 10, i, 10, permission_long_li$ |
|
| 1232 |
+ next i |
|
| 1233 |
+ columnbox select browserLi$, 1 |
|
| 1234 |
+ if (dir_li$="/Volumes") then |
|
| 1235 |
+ else |
|
| 1236 |
+ // COLUMNBOX REMOVE browserLi$, 1 |
|
| 1237 |
+ fi |
|
| 1238 |
+end sub |
|
| 1239 |
+sub readfolder_re(dir_re$) |
|
| 1240 |
+ |
|
| 1241 |
+ STATUSBAR SET "Full_re", "", "", 0 |
|
| 1242 |
+ laufwerk_fuelle_RE(dir_re$) |
|
| 1243 |
+ |
|
| 1244 |
+//Creates a statusbar with ID$ and label(s) on View$. |
|
| 1245 |
+//Label1$ is on the left side above the actual bar and so is Label2$ on the right. |
|
| 1246 |
+ STATUSBAR SET "Full_re", "", "", belegt_re |
|
| 1247 |
+// Sets Statusbar ID$ to State and changes the Labels to specified ones. |
|
| 1248 |
+ PartOne$="" |
|
| 1249 |
+ TEXTCONTROL CLEAR "pfad_re" |
|
| 1250 |
+ TEXTCONTROL SET "pfad_re", dir_re$ |
|
| 1251 |
+ COLUMNBOX CLEAR browserRe$ |
|
| 1252 |
+ |
|
| 1253 |
+ verzeichnisinhalt_re$=system$(listdir$+"\""+dir_re$+"\"") |
|
| 1254 |
+ //verzeichnisinhalt_re$=system$("ls -allQ "+"\""+dir_li$+"\"")
|
|
| 1255 |
+ ii=0 |
|
| 1256 |
+ b_re$="\"" |
|
| 1257 |
+ dim splitdir_re$(1) |
|
| 1258 |
+ nn = split(verzeichnisinhalt_re$, splitdir_re$(), "\n") |
|
| 1259 |
+ for ii = 1 to nn-1 |
|
| 1260 |
+ |
|
| 1261 |
+ posname_re=instr(splitdir_re$(ii),b_re$,0) |
|
| 1262 |
+ posname_ende_re=instr(splitdir_re$(ii),b_re$,2) |
|
| 1263 |
+ dateiname_ohne_re$=mid$(splitdir_re$(ii),posname_re+1,posname_ende_re-2) |
|
| 1264 |
+ |
|
| 1265 |
+ if (instr(splitdir_re$(ii),"B",posname_ende_re+2)) then |
|
| 1266 |
+ attribute_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"B",posname_ende_re+3)+3,3)) |
|
| 1267 |
+ elseif(instr(splitdir_re$(ii),"s",posname_ende_re+2)) |
|
| 1268 |
+ attribute_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"s",posname_ende_re+2)+3,4)) |
|
| 1269 |
+ endif |
|
| 1270 |
+ |
|
| 1271 |
+ directory_re$=mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10),1) |
|
| 1272 |
+ permission_long_re$=trim$(right$(splitdir_re$(ii),9)) |
|
| 1273 |
+ |
|
| 1274 |
+ if (instr(splitdir_re$(ii),"B",posname_ende_re+2)) then |
|
| 1275 |
+ groesse_pos_re_start=instr(splitdir_re$(ii),"B",posname_ende_re+2) |
|
| 1276 |
+ dateigroesse_re$=trim$(mid$(splitdir_re$(ii),posname_ende_re+2,groesse_pos_re_start-posname_ende_re)) |
|
| 1277 |
+ else |
|
| 1278 |
+ groesse_pos_re_start=instr(splitdir_re$(ii),"items",posname_ende_re) |
|
| 1279 |
+ dateigroesse_re$=trim$(mid$(splitdir_re$(ii),posname_ende_re+2,groesse_pos_re_start-posname_ende_re+3)) |
|
| 1280 |
+ endif |
|
| 1281 |
+ |
|
| 1282 |
+ datei_lastchange_datum_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"@",1)-10,10)) |
|
| 1283 |
+ datei_lastchange_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"@",1)+1,10)) |
|
| 1284 |
+ |
|
| 1285 |
+ if (mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10),1)="d") then |
|
| 1286 |
+ datei_creation_date_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-20)-22,10)) |
|
| 1287 |
+ //print datei_creation_date_re$ |
|
| 1288 |
+ datei_creation_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10)-11,10)) |
|
| 1289 |
+ elseif (mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-10),1)="f") then |
|
| 1290 |
+ datei_creation_date_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-20)-22,10)) |
|
| 1291 |
+ //print datei_creation_date_re$ |
|
| 1292 |
+ datei_creation_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-10)-11,10)) |
|
| 1293 |
+ endif |
|
| 1294 |
+ |
|
| 1295 |
+ //lastchange_pos_li=len(datei_datum_li$) |
|
| 1296 |
+ |
|
| 1297 |
+ columnbox add browserRe$, 1, ii, 32, "__Path__="+dir_re$+"/"+dateiname_ohne_re$ |
|
| 1298 |
+ columnbox add browserRe$, 2, ii, 15, dateiname_ohne_re$ |
|
| 1299 |
+ columnbox add browserRe$, 3, ii, 15, attribute_re$ |
|
| 1300 |
+ columnbox add browserRe$, 4, ii, 15, datei_lastchange_datum_re$ |
|
| 1301 |
+ columnbox add browserRe$, 5, ii, 15, datei_lastchange_time_re$ |
|
| 1302 |
+ columnbox add browserRe$, 6, ii, 15, dateigroesse_re$ |
|
| 1303 |
+ columnbox add browserRe$, 7, ii, 10, datei_creation_date_re$ |
|
| 1304 |
+ columnbox add browserRe$, 8, ii, 10, datei_creation_time_re$ |
|
| 1305 |
+ columnbox add browserRe$, 9, ii, 10, directory_re$ |
|
| 1306 |
+ columnbox add browserRe$, 10, ii, 10, permission_long_re$ |
|
| 1307 |
+ next ii |
|
| 1308 |
+ columnbox select browserRe$, 1 |
|
| 1309 |
+ if (dir_re$="/Volumes") then |
|
| 1310 |
+ else |
|
| 1311 |
+ // COLUMNBOX REMOVE browserRe$, 1 |
|
| 1312 |
+ fi |
|
| 1313 |
+end sub |
|
| 1314 |
+sub createbfs() |
|
| 1315 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "createbfs", "create BFS Image" |
|
| 1316 |
+ window set "createbfs", "MinimumTo", 340,160 |
|
| 1317 |
+ window set "createbfs", "MaximumTo", 340,160 |
|
| 1318 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "createbfs" |
|
| 1319 |
+ draw text 20, 40, "Size from the Imagefile:", "createbfs" |
|
| 1320 |
+ textcontrol 150,25 to 270,60, "bfssize", "","","createbfs" |
|
| 1321 |
+ draw text 275, 40, "MB", "createbfs" |
|
| 1322 |
+ draw text 20, 65, "Name from the Imagefile:", "createbfs" |
|
| 1323 |
+ textcontrol 150,50 to 270,65, "bfsname", "","","createbfs" |
|
| 1324 |
+ draw text 275, 65, ".image", "createbfs" |
|
| 1325 |
+ button 120,110 to 220,130, "savebfs", "Create", "createbfs" |
|
| 1326 |
+end sub |
|
| 1327 |
+sub zipname(PartOne$) |
|
| 1328 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "zip", "Create ZIP FILE" |
|
| 1329 |
+ window set "zip", "MinimumTo", 340,160 |
|
| 1330 |
+ window set "zip", "MaximumTo", 340,160 |
|
| 1331 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "zip" |
|
| 1332 |
+ draw text 22, 20, "Give a name for the ZIP File,", "zip" |
|
| 1333 |
+ draw text 22, 40, "or let the name so?", "zip" |
|
| 1334 |
+ draw text 22, 60, "The Extension .zip put automaticly on the end", "zip" |
|
| 1335 |
+ textcontrol 15,80 to 310,90, "zipname", "",name$,"zip" |
|
| 1336 |
+ button 120,120 to 220,140, "button20", "Create", "zip" |
|
| 1337 |
+end sub |
|
| 1338 |
+sub tarname(PartOne$) |
|
| 1339 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "tar", "Create Tar FILE" |
|
| 1340 |
+ window set "tar", "MinimumTo", 340,160 |
|
| 1341 |
+ window set "tar", "MaximumTo", 340,160 |
|
| 1342 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "tar" |
|
| 1343 |
+ draw text 22, 20, "Geben Sie einen Namen für die TAR Datei an,", "tar" |
|
| 1344 |
+ draw text 22, 40, "oder möchten Sie die Datei vom Namen her so lassen?", "tar" |
|
| 1345 |
+ draw text 22, 60, "Die Dateiendung .tar wird automatisch angehängt", "tar" |
|
| 1346 |
+ textcontrol 15,80 to 310,90, "tarname", "",name$,"tar" |
|
| 1347 |
+ button 120,120 to 220,140, "button21", "Create", "tar" |
|
| 1348 |
+end sub |
|
| 1349 |
+sub rarname(PartOne$) |
|
| 1350 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rar", "Create Rar FILE" |
|
| 1351 |
+ window set "rar", "MinimumTo", 340,160 |
|
| 1352 |
+ window set "rar", "MaximumTo", 340,160 |
|
| 1353 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "rar" |
|
| 1354 |
+ draw text 22, 20, "Geben Sie einen Namen für die RAR Datei an,", "rar" |
|
| 1355 |
+ draw text 22, 40, "oder möchten Sie die Datei vom Namen her so lassen?", "rar" |
|
| 1356 |
+ draw text 22, 60, "Die Dateiendung .rar wird automatisch angehängt", "rar" |
|
| 1357 |
+ textcontrol 15,80 to 310,90, "rarname", "",name$,"rar" |
|
| 1358 |
+ button 120,120 to 220,140, "button22", "Create", "rar" |
|
| 1359 |
+end sub |
|
| 1360 |
+sub makedir(PartOne$) |
|
| 1361 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "makefolder", "Create Folder" |
|
| 1362 |
+ window set "makefolder", "MinimumTo", 340,160 |
|
| 1363 |
+ window set "makefolder", "MaximumTo", 340,160 |
|
| 1364 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "makefolder" |
|
| 1365 |
+ draw text 20, 40, "Type a name for folder:", "makefolder" |
|
| 1366 |
+ textcontrol 15,55 to 310,65, "dirname", "","","makefolder" |
|
| 1367 |
+ button 120,110 to 220,130, "makedir", "Create", "makefolder" |
|
| 1368 |
+ PartOneMakeDir$=PartOne$ |
|
| 1369 |
+end sub |
|
| 1370 |
+sub copyas(PartOne$) |
|
| 1371 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "copyas", "Copy as..." |
|
| 1372 |
+ window set "copyas", "MinimumTo", 340,160 |
|
| 1373 |
+ window set "copyas", "MaximumTo", 340,160 |
|
| 1374 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "copyas" |
|
| 1375 |
+ draw text 20, 40, "Type a name for the new copy:", "copyas" |
|
| 1376 |
+ textcontrol 15,55 to 310,65, "copyname", "",name$,"copyas" |
|
| 1377 |
+ button 120,110 to 220,130, "copyas", "Create", "copyas" |
|
| 1378 |
+ PartOneCopyAs$=PartOne$ |
|
| 1379 |
+end sub |
|
| 1380 |
+sub rename(PartOne$) |
|
| 1381 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rename", "Rename" |
|
| 1382 |
+ window set "rename", "MinimumTo", 340,160 |
|
| 1383 |
+ window set "rename", "MaximumTo", 340,160 |
|
| 1384 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "rename" |
|
| 1385 |
+ draw text 20, 40, "Type a new name:", "rename" |
|
| 1386 |
+ textcontrol 15,55 to 310,65, "renamename", "",name$,"rename" |
|
| 1387 |
+ button 120,110 to 220,130, "rename", "Rename", "rename" |
|
| 1388 |
+ PartOneRename$=PartOne$ |
|
| 1389 |
+end sub |
|
| 1390 |
+sub renameAll(PartOne$) |
|
| 1391 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rename", "renameAll" |
|
| 1392 |
+ window set "renameAll", "MinimumTo", 340,160 |
|
| 1393 |
+ window set "renameAll", "MaximumTo", 340,160 |
|
| 1394 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "renameAll" |
|
| 1395 |
+ draw text 20, 40, "Type a new name Pattern:", "renameAll" |
|
| 1396 |
+ spincontrol 40,40, "Number", "Pattern", 0, 10000000000000, 1, "renameAll" |
|
| 1397 |
+ |
|
| 1398 |
+ //SPINCONTROL x,y , ID$, Label$ , Min, Max , Step, View$ |
|
| 1399 |
+ textcontrol 15,55 to 310,65, "renamename", "",name$,"renameAll" |
|
| 1400 |
+ button 120,110 to 220,130, "rename", "Rename", "renameAll" |
|
| 1401 |
+ PartOneRename$=PartOne$ |
|
| 1402 |
+end sub |
|
| 1403 |
+sub link_it(PartOne$) |
|
| 1404 |
+ |
|
| 1405 |
+ |
|
| 1406 |
+end sub |
|
| 1407 |
+sub linkas(PartOne$) |
|
| 1408 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "linkas","link as..." |
|
| 1409 |
+ window set "linkas", "MinimumTo", 340,160 |
|
| 1410 |
+ window set "linkas", "MaximumTo", 340,160 |
|
| 1411 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "linkas" |
|
| 1412 |
+ draw text 20, 40, "Type a name for the link:", "linkas" |
|
| 1413 |
+ textcontrol 15,55 to 310,65, "linkname", "",name$,"linkas" |
|
| 1414 |
+ button 120,110 to 220,130, "linkas", "create", "linkas" |
|
| 1415 |
+ PartOneLinkAs$=PartOne$ |
|
| 1416 |
+end sub |
|
| 1417 |
+sub rm(PartOne$) |
|
| 1418 |
+ |
|
| 1419 |
+ window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "remove", "Delete" |
|
| 1420 |
+ window set "remove", "MinimumTo", 340,160 |
|
| 1421 |
+ window set "remove", "MaximumTo", 340,160 |
|
| 1422 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "remove" |
|
| 1423 |
+ draw text 20, 40, "Do you realy want to delete File, Link or Directory ", "remove" |
|
| 1424 |
+ draw text 20, 60, ""+name$+" ?", "remove" |
|
| 1425 |
+ button 60,110 to 160,130, "rm_ja", "yes", "remove" |
|
| 1426 |
+ button 180,110 to 280,130, "rm_nein", "no", "remove" |
|
| 1427 |
+ PartOneRM$=PartOne$ |
|
| 1428 |
+ rmname$=name$ |
|
| 1429 |
+ //print PartOneRM$ |
|
| 1430 |
+end sub |
|
| 1431 |
+sub attribute_setzen(PartOne$) |
|
| 1432 |
+ //print PartOne$ |
|
| 1433 |
+ window open ((screenWidth/2)-225), ((screenHeight/2)-80) to ((screenWidth/2)+225), ((screenHeight/2)+80), "attribute", "Change Permission" |
|
| 1434 |
+ window set "attribute", "MinimumTo", 450,160 |
|
| 1435 |
+ window set "attribute", "MaximumTo", 450,160 |
|
| 1436 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "attribute" |
|
| 1437 |
+ benutzer$="baron" |
|
| 1438 |
+ gruppe$="zetauser" |
|
| 1439 |
+ draw text 20, 20, "Please set the permission for "+name$, "attribute" |
|
| 1440 |
+ draw text 100, 40, "User", "attribute" |
|
| 1441 |
+ draw text 160, 40, "Group", "attribute" |
|
| 1442 |
+ draw text 220, 40, "Other", "attribute" |
|
| 1443 |
+ draw text 300, 40, "Username", "attribute" |
|
| 1444 |
+ textcontrol 290,45 to 420,60, "benutzer", "",benutzer$,"attribute" |
|
| 1445 |
+ draw text 300, 85, "Groupname", "attribute" |
|
| 1446 |
+ textcontrol 290,90 to 420,105, "gruppe", "",gruppe$,"attribute" |
|
| 1447 |
+ draw text 20, 70, "read", "attribute" |
|
| 1448 |
+ draw text 20, 90, "write", "attribute" |
|
| 1449 |
+ draw text 20, 110, "execute", "attribute" |
|
| 1450 |
+ checkbox 120,50, "read1", "", read1, "attribute" |
|
| 1451 |
+ checkbox 120,70, "write1", "", write1, "attribute" |
|
| 1452 |
+ checkbox 120,90, "run1", "", run1, "attribute" |
|
| 1453 |
+ checkbox 180,50, "read2", "", read2, "attribute" |
|
| 1454 |
+ checkbox 180,70, "write2", "", write2, "attribute" |
|
| 1455 |
+ checkbox 180,90, "run2", "", run2, "attribute" |
|
| 1456 |
+ checkbox 240,50, "read3", "", read3, "attribute" |
|
| 1457 |
+ checkbox 240,70, "write3", "", write3, "attribute" |
|
| 1458 |
+ checkbox 240,90, "run3", "", run3, "attribute" |
|
| 1459 |
+ attribute1$ = columnbox get$ PartOne$, 10, val(PartThree$) |
|
| 1460 |
+ |
|
| 1461 |
+ if (mid$(attribute1$,1,1)="r") then |
|
| 1462 |
+ CHECKBOX SET "read1", 1 |
|
| 1463 |
+ nummer1=400 |
|
| 1464 |
+ else |
|
| 1465 |
+ CHECKBOX SET "read1", 0 |
|
| 1466 |
+ fi |
|
| 1467 |
+ if (mid$(attribute1$,2,1)="w") then |
|
| 1468 |
+ CHECKBOX SET "write1", 1 |
|
| 1469 |
+ nummer2=200 |
|
| 1470 |
+ else |
|
| 1471 |
+ CHECKBOX SET "write1", 0 |
|
| 1472 |
+ fi |
|
| 1473 |
+ if (mid$(attribute1$,3,1)="x") then |
|
| 1474 |
+ nummer3=100 |
|
| 1475 |
+ CHECKBOX SET "run1", 1 |
|
| 1476 |
+ else |
|
| 1477 |
+ CHECKBOX SET "run1", 0 |
|
| 1478 |
+ fi |
|
| 1479 |
+ if (mid$(attribute1$,4,1)="r") then |
|
| 1480 |
+ CHECKBOX SET "read2", 1 |
|
| 1481 |
+ nummer4=40 |
|
| 1482 |
+ else |
|
| 1483 |
+ CHECKBOX SET "read2", 0 |
|
| 1484 |
+ fi |
|
| 1485 |
+ if (mid$(attribute1$,5,1)="w") then |
|
| 1486 |
+ CHECKBOX SET "write2", 1 |
|
| 1487 |
+ nummer5=20 |
|
| 1488 |
+ else |
|
| 1489 |
+ CHECKBOX SET "write2", 0 |
|
| 1490 |
+ fi |
|
| 1491 |
+ if (mid$(attribute1$,6,1)="x") then |
|
| 1492 |
+ nummer6=10 |
|
| 1493 |
+ CHECKBOX SET "run2", 1 |
|
| 1494 |
+ else |
|
| 1495 |
+ CHECKBOX SET "run2", 0 |
|
| 1496 |
+ fi |
|
| 1497 |
+ if (mid$(attribute1$,7,1)="r") then |
|
| 1498 |
+ nummer7=4 |
|
| 1499 |
+ CHECKBOX SET "read3", 1 |
|
| 1500 |
+ else |
|
| 1501 |
+ CHECKBOX SET "read3", 0 |
|
| 1502 |
+ fi |
|
| 1503 |
+ if (mid$(attribute1$,8,1)="w") then |
|
| 1504 |
+ nummer8=2 |
|
| 1505 |
+ CHECKBOX SET "write3", 1 |
|
| 1506 |
+ else |
|
| 1507 |
+ CHECKBOX SET "write3", 0 |
|
| 1508 |
+ fi |
|
| 1509 |
+ if (mid$(attribute1$,9,1)="x") then |
|
| 1510 |
+ nummer9=1 |
|
| 1511 |
+ CHECKBOX SET "run3", 1 |
|
| 1512 |
+ else |
|
| 1513 |
+ CHECKBOX SET "run3", 0 |
|
| 1514 |
+ fi |
|
| 1515 |
+ |
|
| 1516 |
+ button 180,120 to 260,140, "attributeOK|", "OK", "attribute" |
|
| 1517 |
+ PartOneATTR$=PartOne$ |
|
| 1518 |
+end sub |
|
| 1519 |
+ |
|
| 1520 |
+sub link(PartOne$) |
|
| 1521 |
+if (PartOne$="browserLi") then |
|
| 1522 |
+ name2$ = columnbox get$ "browserLi", 2, val(PartThree$) |
|
| 1523 |
+ dir_re$=dir_re$+"/" |
|
| 1524 |
+ //print "link"+"ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"" |
|
| 1525 |
+ verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
|
|
| 1526 |
+ readfolder_re(dir_re$) |
|
| 1527 |
+ readfolder_li(dir_li$) |
|
| 1528 |
+ elseif (PartOne$="browserRe") then |
|
| 1529 |
+ name2$ = columnbox get$ "browserRe", 2, val(PartThree$) |
|
| 1530 |
+ dir_li$=dir_li$+"/" |
|
| 1531 |
+ verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
|
|
| 1532 |
+ readfolder_re(dir_re$) |
|
| 1533 |
+ readfolder_li(dir_li$) |
|
| 1534 |
+ endif |
|
| 1535 |
+end sub |
|
| 1536 |
+ |
|
| 1537 |
+sub laufwerke_li() |
|
| 1538 |
+ |
|
| 1539 |
+ laufwerk_li$=system$("ls -Q1p / | grep /")
|
|
| 1540 |
+ i=0 |
|
| 1541 |
+ dim laufwerksliste_li$(1) |
|
| 1542 |
+ dim noentry_li$(8) |
|
| 1543 |
+ noentry_li$(0)="bin" |
|
| 1544 |
+ noentry_li$(1)="dev" |
|
| 1545 |
+ noentry_li$(2)="etc" |
|
| 1546 |
+ noentry_li$(3)="pipe" |
|
| 1547 |
+ noentry_li$(4)="system" |
|
| 1548 |
+ noentry_li$(5)="tmp" |
|
| 1549 |
+ noentry_li$(6)="usr" |
|
| 1550 |
+ noentry_li$(7)="var" |
|
| 1551 |
+ nli = split(laufwerk_li$, laufwerksliste_li$(), "\n") |
|
| 1552 |
+ layout "all", "vertikal1" |
|
| 1553 |
+ //dropbox 15,20 to 165,30, "left_drives", "", "vertikal1" |
|
| 1554 |
+ |
|
| 1555 |
+ dropbox add "left_drives", "Volumes" |
|
| 1556 |
+ |
|
| 1557 |
+ HDli=0 |
|
| 1558 |
+ volumes_li$=system$(mountvolume$+" -lh") |
|
| 1559 |
+ dim festplatten_li$(1) |
|
| 1560 |
+ dim HDS_li$(1) |
|
| 1561 |
+//print volumes_li$ |
|
| 1562 |
+ |
|
| 1563 |
+ fli = split(volumes_li$, festplatten_li$(), "\n") |
|
| 1564 |
+ |
|
| 1565 |
+ for HDli = 1 to fli |
|
| 1566 |
+ |
|
| 1567 |
+ HD_posname_li=instr(festplatten_li$(HDli),":",3) |
|
| 1568 |
+ //print HD_posname_li |
|
| 1569 |
+ Laufwerkliste_li$=ltrim$(mid$(festplatten_li$(HDli),0,HD_posname_li)) |
|
| 1570 |
+ Laufwerkliste_li$=rtrim$(Laufwerkliste_li$) |
|
| 1571 |
+ if(Laufwerkliste_li$="") then |
|
| 1572 |
+ else |
|
| 1573 |
+ dropbox add "left_drives", Laufwerkliste_li$ |
|
| 1574 |
+ endif |
|
| 1575 |
+ next HDli |
|
| 1576 |
+ layout "default", "vertikal1" |
|
| 1577 |
+ |
|
| 1578 |
+ |
|
| 1579 |
+end sub |
|
| 1580 |
+sub laufwerke_re() |
|
| 1581 |
+ laufwerk_re$=system$("ls -Q1p / | grep /")
|
|
| 1582 |
+ i=0 |
|
| 1583 |
+ dim laufwerksliste_re$(1) |
|
| 1584 |
+ dim noentry_re$(8) |
|
| 1585 |
+ noentry_re$(0)="bin" |
|
| 1586 |
+ noentry_re$(1)="dev" |
|
| 1587 |
+ noentry_re$(2)="etc" |
|
| 1588 |
+ noentry_re$(3)="pipe" |
|
| 1589 |
+ noentry_re$(4)="system" |
|
| 1590 |
+ noentry_re$(5)="tmp" |
|
| 1591 |
+ noentry_re$(6)="usr" |
|
| 1592 |
+ noentry_re$(7)="var" |
|
| 1593 |
+ nre = split(laufwerk_re$, laufwerksliste_re$(), "\n") |
|
| 1594 |
+ |
|
| 1595 |
+ dropbox add "right_drives", "Volumes" |
|
| 1596 |
+ |
|
| 1597 |
+ HDre=0 |
|
| 1598 |
+ volumes_re$=system$(mountvolume$+" -lh") |
|
| 1599 |
+ dim festplatten_re$(1) |
|
| 1600 |
+ dim HDS_re$(1) |
|
| 1601 |
+ //print volumes_re$ |
|
| 1602 |
+ |
|
| 1603 |
+ fre = split(volumes_re$, festplatten_re$(), "\n") |
|
| 1604 |
+ |
|
| 1605 |
+ for HDre = 1 to fre |
|
| 1606 |
+ HD_posname_re=instr(festplatten_re$(HDre),":",3) |
|
| 1607 |
+ //print HD_posname_re |
|
| 1608 |
+ Laufwerkliste_re$=ltrim$(mid$(festplatten_re$(HDre),0,HD_posname_re)) |
|
| 1609 |
+ Laufwerkliste_re$=rtrim$(Laufwerkliste_re$) |
|
| 1610 |
+ |
|
| 1611 |
+ if(Laufwerkliste_re$="") then |
|
| 1612 |
+ else |
|
| 1613 |
+ |
|
| 1614 |
+ dropbox add "right_drives", Laufwerkliste_re$ |
|
| 1615 |
+ endif |
|
| 1616 |
+ next HDre |
|
| 1617 |
+ |
|
| 1618 |
+ |
|
| 1619 |
+ layout "default", "vertikal2" |
|
| 1620 |
+end sub |
|
| 1621 |
+sub ftp_settings() |
|
| 1622 |
+ window open ((screenWidth/2)-250), ((screenHeight/2)-150) to ((screenWidth/2)+250), ((screenHeight/2)+150), "ftp_settings", "FTP-Einstellungen" |
|
| 1623 |
+ window set "ftp_settings", "MinimumTo", 500,300 |
|
| 1624 |
+ window set "ftp_settings", "MaximumTo", 500,300 |
|
| 1625 |
+ err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "ftp_settings" |
|
| 1626 |
+ draw text 20, 40, "Name der FTP-Verbindung:", "ftp_settings" |
|
| 1627 |
+ textcontrol 150,25 to 270,60, "ftp_name", "","","ftp_settings" |
|
| 1628 |
+ draw text 20, 65, "Name des Webserver's oder die IP-Adresse:", "ftp_settings" |
|
| 1629 |
+ textcontrol 230,50 to 320,65, "ftp_ip_name", "","","ftp_settings" |
|
| 1630 |
+ draw text 20, 90, "Startverzeichnis:", "ftp_settings" |
|
| 1631 |
+ textcontrol 230,75 to 320,90, "Startverzeichnis", "","/","ftp_settings" |
|
| 1632 |
+ draw text 20, 115, "FTP User:", "ftp_settings" |
|
| 1633 |
+ textcontrol 230,100 to 320,115, "ftp_user", "","","ftp_settings" |
|
| 1634 |
+ draw text 20, 140, "FTP Passwort:", "ftp_settings" |
|
| 1635 |
+ textcontrol 230,125 to 320,140, "ftp_passwort", "","","ftp_settings" |
|
| 1636 |
+ button 120,200 to 220,230, "FTP-Verbindung Erstellen", "ftp-erstellen", "ftp_settings" |
|
| 1637 |
+end sub |
|
| 1638 |
+sub ftp_change() |
|
| 1639 |
+ //print "funkt" |
|
| 1640 |
+end sub |
|
| 1641 |
+sub ftp_verbindung_speichern(ftp_name$,ftp_ip_name$,ftp_Startverzeichnis$,ftp_user$,ftp_passwort$) |
|
| 1642 |
+ verzeichnis$="/boot/apps/YAB/yab-0.2.4/programme/diskmaster" |
|
| 1643 |
+ //print verzeichnis$ |
|
| 1644 |
+ filewrite$=verzeichnis$+"/ftp-verbindungen/ftp-verbindung.csv" |
|
| 1645 |
+ handle=1 |
|
| 1646 |
+ handle = open(filewrite$, "a") |
|
| 1647 |
+ //print #handle ftp_name$+";"+ftp_ip_name$+";"+ftp_Startverzeichnis$+";"+ftp_user$+";"+ftp_passwort$ |
|
| 1648 |
+ close(handle) |
|
| 1649 |
+ aktu=1 |
|
| 1650 |
+ ftp_verbindungen_auslesen(aktu) |
|
| 1651 |
+end sub |
|
| 1652 |
+sub ftp_verbindungen_auslesen(aktu) |
|
| 1653 |
+ if (aktu=1) then |
|
| 1654 |
+ DROPBOX CLEAR "ftp_verbindungen" |
|
| 1655 |
+ fi |
|
| 1656 |
+ local x |
|
| 1657 |
+ local d |
|
| 1658 |
+ local i |
|
| 1659 |
+ x=0 |
|
| 1660 |
+ f=0 |
|
| 1661 |
+ i=0 |
|
| 1662 |
+ layout "left-top", "vertikal2" |
|
| 1663 |
+ dropbox 185,10 to 300,20, "ftp_verbindungen","", "vertikal2" |
|
| 1664 |
+ dropbox add "ftp_verbindungen","FTP_Verbindungen" |
|
| 1665 |
+ verzeichnis$="/boot/home/Projekte/yab/Dateimeister" |
|
| 1666 |
+ fileload$=verzeichnis$+"/ftp-verbindungen/ftp-verbindung.csv" |
|
| 1667 |
+ auslesen=open(fileload$, "r") |
|
| 1668 |
+ while (not EOF(auslesen)) |
|
| 1669 |
+ line input #auslesen b$ |
|
| 1670 |
+ dim elements$(1) |
|
| 1671 |
+ numElements = split(b$, elements$(),";") |
|
| 1672 |
+ for i = 1 to numElements |
|
| 1673 |
+ x=x+1 |
|
| 1674 |
+ dim d$(x) |
|
| 1675 |
+ d$(x) = elements$(i) |
|
| 1676 |
+ next i |
|
| 1677 |
+ wend |
|
| 1678 |
+ close(auslesen) |
|
| 1679 |
+ anzahlspalten=numElements |
|
| 1680 |
+ anzahlzeilen=x/anzahlspalten |
|
| 1681 |
+ //print anzahlspalten |
|
| 1682 |
+ if (anzahlspalten>0) then |
|
| 1683 |
+ for a = 1 to anzahlzeilen |
|
| 1684 |
+ //print d$(a+f) |
|
| 1685 |
+ dropbox add "ftp_verbindungen", d$(a+f) |
|
| 1686 |
+ for b = 1 to anzahlspalten |
|
| 1687 |
+ next b |
|
| 1688 |
+ f=f+4 |
|
| 1689 |
+ next a |
|
| 1690 |
+ else |
|
| 1691 |
+ dropbox add "ftp_verbindungen","Keine Verbindung" |
|
| 1692 |
+ fi |
|
| 1693 |
+ layout "default", "vertikal2" |
|
| 1694 |
+end sub |
|
| 1695 |
+sub about() |
|
| 1696 |
+ window open ((screenWidth/2)-200), ((screenHeight/2)-150) to ((screenWidth/2)+200), ((screenHeight/2)+150), "View_About", "About" |
|
| 1697 |
+ window set "View_About", "MinimumTo", 400,300 |
|
| 1698 |
+ window set "View_About", "MaximumTo", 400,300 |
|
| 1699 |
+ window set "View_About", "flags", "not-resizable, Not-Zoomable" |
|
| 1700 |
+ window set "View_About", "look", "Bordered" |
|
| 1701 |
+ //draw set "Bgcolor",0,0,0,"View_About" |
|
| 1702 |
+ //DRAW SET "HighColor",222,222,222, "View_About" |
|
| 1703 |
+ //Draw Set "lowColor",0,0,0, "View_About" |
|
| 1704 |
+ |
|
| 1705 |
+ DRAW SET "system-bold", "View_About" |
|
| 1706 |
+ DRAW TEXT 10,30, "BeSly Software Solutions", "View_About" |
|
| 1707 |
+ VIEW 0,50 TO 400,300, "View_About_Info", "View_About" |
|
| 1708 |
+ DRAW LINE 0,1 TO 400,1, "View_About_Info" |
|
| 1709 |
+ |
|
| 1710 |
+ VIEW 0,2 TO 150,165, "View_About_Title", "View_About_Info" |
|
| 1711 |
+ //DRAW SET "BGColor", 255,255,255, "View_About_Title" |
|
| 1712 |
+ |
|
| 1713 |
+ //draw set "Bgcolor",150,150,150,"View_About_Title" |
|
| 1714 |
+ //DRAW SET "HighColor",222,222,222, "View_About_Title" |
|
| 1715 |
+ //Draw Set "lowColor",0,0,0, "View_About_Title" |
|
| 1716 |
+ DRAW TEXT 10,30, "Name:", "View_About_Title" |
|
| 1717 |
+ DRAW TEXT 10,50, "Version / Build:", "View_About_Title" |
|
| 1718 |
+ DRAW TEXT 10,70, "Version Status:", "View_About_Title" |
|
| 1719 |
+ DRAW TEXT 10,90, "Developers:", "View_About_Title" |
|
| 1720 |
+ //DRAW TEXT 10,90, "Graphics:", "View_About_Title" |
|
| 1721 |
+ //DRAW TEXT 10,110, "Levels:", "View_About_Title" |
|
| 1722 |
+ DRAW TEXT 10,130, "Contact:", "View_About_Title" |
|
| 1723 |
+ DRAW TEXT 10,150, "Website:", "View_About_Title" |
|
| 1724 |
+ //DRAW Text 10,170, "Thanks", "View_About_Title" |
|
| 1725 |
+ |
|
| 1726 |
+ //draw set "Bgcolor",0,0,0,"View_About_Info" |
|
| 1727 |
+ //DRAW SET "HighColor",222,222,222, "View_About_Info" |
|
| 1728 |
+ //Draw Set "lowColor",0,0,0, "View_About_Info" |
|
| 1729 |
+ |
|
| 1730 |
+ VIEW 170,2 TO 400,165, "View_About_Entry", "View_About_Info" |
|
| 1731 |
+ //DRAW SET "BGColor", 255,255,255, "View_About_Entry" |
|
| 1732 |
+ //draw set "Bgcolor",0,0,0,"View_About_Entry" |
|
| 1733 |
+ //DRAW SET "HighColor",222,222,222, "View_About_Entry" |
|
| 1734 |
+ //Draw Set "lowColor",0,0,0, "View_About_Entry" |
|
| 1735 |
+ DRAW TEXT 10,30, ProgrammName$, "View_About_Entry" |
|
| 1736 |
+ DRAW TEXT 10,50, "0.3.2/ 21.11.2018", "View_About_Entry" |
|
| 1737 |
+ DRAW TEXT 10,70, "Alpha", "View_About_Entry" |
|
| 1738 |
+ DRAW TEXT 10,90, "Lorglas", "View_About_Entry" |
|
| 1739 |
+ |
|
| 1740 |
+ //DRAW TEXT 10,110, "Lorglas, Lelldorin", "View_About_Entry" |
|
| 1741 |
+ TEXTURL 10,122, "email", "webmaster@besly.de", "webmaster@besly.de", "View_About_Entry" |
|
| 1742 |
+ TEXTURL 10,142, "website", "http://www.besly.de", "http://www.besly.de", "View_About_Entry" |
|
| 1743 |
+ BUTTON 150,200 TO 250,220, "AboutClose", "OK", "View_About_Info" |
|
| 1744 |
+end sub |
|
| 1745 |
+sub laufwerk_fuelle_RE(dir_re$) |
|
| 1746 |
+ |
|
| 1747 |
+ s=instr(dir_re$,"/",2) |
|
| 1748 |
+ dir_RE$=mid$(dir_re$,0,s-1) |
|
| 1749 |
+ //print dir_RE$ |
|
| 1750 |
+ full_re$=system$(diskfree$+"-b "+dir_re$) |
|
| 1751 |
+ dim platten_re$(1) |
|
| 1752 |
+ pre = split(full_re$, platten_re$(), "\n") |
|
| 1753 |
+ |
|
| 1754 |
+ for DH_re = 1 to pre |
|
| 1755 |
+ DH_posname_re1=instr(platten_re$(DH_re),"(",0)
|
|
| 1756 |
+ DH_posname_re2=instr(platten_re$(DH_re),")",0) |
|
| 1757 |
+ Laufwerk_re$=ltrim$(mid$(platten_re$(DH_re),DH_posname_re1+1,200)) |
|
| 1758 |
+ Laufwerk_re$=left$(Laufwerk_re$,len(Laufwerk_re$)-8) |
|
| 1759 |
+ if (DH_re = 1) then |
|
| 1760 |
+ gesamt_re=val(Laufwerk_re$) |
|
| 1761 |
+ elseif(DH_re=2) then |
|
| 1762 |
+ frei_re=val(Laufwerk_re$) |
|
| 1763 |
+ endif |
|
| 1764 |
+ next DH_re |
|
| 1765 |
+ //print gesamt_re |
|
| 1766 |
+ //print frei_re |
|
| 1767 |
+ belegt_re=(frei_re*100)/gesamt_re |
|
| 1768 |
+ //print belegt_re |
|
| 1769 |
+ return belegt_re |
|
| 1770 |
+end sub |
|
| 1771 |
+sub laufwerk_fuelle_LI(dir_li$) |
|
| 1772 |
+ local s |
|
| 1773 |
+ s=instr(dir_li$,"/",2) |
|
| 1774 |
+ dir_LI$=mid$(dir_li$,0,s-1) |
|
| 1775 |
+ //print dir_RE$ |
|
| 1776 |
+ full_li$=system$(diskfree$+"-b "+dir_li$) |
|
| 1777 |
+ dim platten_li$(1) |
|
| 1778 |
+ pli = split(full_li$, platten_li$(), "\n") |
|
| 1779 |
+ |
|
| 1780 |
+ for DH_li = 1 to pli |
|
| 1781 |
+ DH_posname_li1=instr(platten_li$(DH_li),"(",0)
|
|
| 1782 |
+ DH_posname_li2=instr(platten_li$(DH_li),")",0) |
|
| 1783 |
+ Laufwerk_li$=ltrim$(mid$(platten_li$(DH_li),DH_posname_li1+1,200)) |
|
| 1784 |
+ Laufwerk_li$=left$(Laufwerk_li$,len(Laufwerk_li$)-8) |
|
| 1785 |
+ if (DH_li = 1) then |
|
| 1786 |
+ gesamt_li=val(Laufwerk_li$) |
|
| 1787 |
+ elseif(DH_li=2) then |
|
| 1788 |
+ frei_li=val(Laufwerk_li$) |
|
| 1789 |
+ endif |
|
| 1790 |
+ next DH_li |
|
| 1791 |
+ //print gesamt_re |
|
| 1792 |
+ //print frei_re |
|
| 1793 |
+ belegt_li=(frei_li*100)/gesamt_li |
|
| 1794 |
+ //print belegt_re |
|
| 1795 |
+ return belegt_li |
|
| 1796 |
+end sub |