home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / ftpdir < prev    next >
Encoding:
Text File  |  2000-02-03  |  6.4 KB  |  277 lines
  1. G4C
  2. ; $VER: FTPDir rev.021 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 635 420 "FTPDirManager"
  4. WinType 11110000
  5. Winout "NIL:"
  6. ;Winout "KCON:0/0/600/80/Test/CLOSE/WAIT"
  7. WinBackground IMAGE BG 0
  8.  
  9. xOnLoad
  10.     SetGad #This 101 HIDE
  11.     lvuse HTMLEXT 1
  12.     EXTRACT %SuiteDfue CLEAN suitedfue
  13.     if $suitedfue = "EIN"
  14.         CLI 'rx $*TCP ISONLINE $*TCPIF'
  15.         if $.htmlext.tmp = "0"
  16.             EZREQ "Zur Zeit besteht keine DFÜ Verbindung!\nSoll die DFÜ Verbindung hergestellt werden?" "_1 Ja weiter|2_ Nein" olreq
  17.             if $olreq = 1
  18.                 GuiLoad "HTMLEXT:gui/func.dfue"
  19.             endif
  20.         endif
  21.     endif
  22.     lvuse HTMLEXT 1
  23.     EXTRACT %SuiteFTPOL CLEAN suiteftpol
  24.     LVUSE HTMLEXT 3
  25.     aktlocdir = $$LV.DIR
  26.     aktftpdir = $$LV.DIR
  27.     RepVar aktftpdir $*SUITEDIR $suiteftpol CI
  28.     LVUSE #This 1
  29.     LVDir #$aktftpdir
  30.     Update #This 3 "$aktftpdir"
  31.     LVUSE #This 2
  32.     LVDir #$aktlocdir
  33.     Update #This 4 "$aktlocdir"
  34.     GuiOpen #This
  35.  
  36. xOnClose
  37.     GuiQuit #This
  38.  
  39. ;xOnRMB
  40. ;GuiLoad "HTMLEXT:gui/FTPDIR.menu"
  41. ;GuiOpen "FTPDIR.menu"
  42.  
  43. ;Globale Gadgets
  44. XLISTVIEW 5 5 440 345 "" "lvconfig" "" 0 "SHOW"
  45.     GadID 101
  46.     GadFont xCourier.font 13 000
  47.  
  48. XLISTVIEW 5 5 310 325 "" "lvftpdir" "ram:" 0 "DIR"
  49.     GadID 1
  50.     GadFont SGIScreen.font 13 000
  51.     GadHelp $lvftpdir
  52.     Update #This 3 "$$LV.DIR"
  53.     CLI 'ged "$lvftpdir"'
  54.  
  55. xTextIn 5 330 310 20 "" "strftpdir" "" 200
  56.     GadID 3
  57.     GadFont xHelvetica.font 11 000
  58.     LVUse #This 1
  59.     LVDIR #$strftpdir
  60.  
  61. XLISTVIEW 320 5 310 325 "" "lvlocdir" "$DEFDIR" 0 "DIR"
  62.     GadID 2
  63.     GadFont SGIScreen.font 13 000
  64.     GadHelp $lvlocdir
  65.     Update #This 4 "$$LV.DIR"
  66.     CLI 'ged "$lvlocdir"'
  67.  
  68. xTextIn 320 330 310 20 "" "strlocdir" "" 200
  69.     GadID 4
  70.     GadFont xHelvetica.font 11 000
  71.     LVUse #This 2
  72.     LVDIR #$strlocdir
  73.  
  74. xLVHook 1
  75.     SetVar *FTPLV 1
  76.     Update "Infobar" 1 "FTPDir> Linke Seite aktiviert ..."
  77.     Update #This 3 "$$LV.DIR"
  78.  
  79. xLVDirHook 1
  80.     Update #This 3 "$$LV.DIR"
  81.  
  82. xLVHook 2
  83.     SetVar *FTPLV 2
  84.     Update "Infobar" 1 "FTPDir> Rechte Seite aktiviert ..."
  85.     Update #This 4 "$$LV.DIR"
  86.  
  87. xLVDirHook 2
  88.     Update #This 4 "$$LV.DIR"
  89.  
  90. ;Linke Buttons ===============================================
  91. XBUTTON 5 375 25 18 "#?"
  92.     GadFont xHelvetica.font 9 000
  93.     GadHelp "Dateien nach Pattern selektieren (ohne #? oder * eingegeben!)"
  94.     GuiLoad "HTMLEXT:gui/FTPDIR.func.1"
  95.  
  96. XBUTTON 30 375 25 18 "A"
  97.     GadFont xHelvetica.font 9 000
  98.     GadHelp "Alle Dateien/Verz selektieren"
  99.     LVUSE #This 1
  100.     LVDir All
  101.  
  102. XBUTTON 55 375 25 18 "N"
  103.     GadFont xHelvetica.font 9 000
  104.     GadHelp "Selektion aufheben"
  105.     LVUSE #This 1
  106.     LVDir None
  107.  
  108. XBUTTON 215 375 100 18 "Download -->"
  109.     GadFont xHelvetica.font 11 000
  110.     LVUSE #This 2
  111.     aktlocdir = "$$lv.dir"
  112.     LVUSE #This 1
  113.     LVMulti First
  114.     while $$lv.line > ""
  115.         JoinFile $$LV.DIR $$LV.REC akt
  116.         INFO FILE $akt
  117.         if $$FILE.TYPE = "FILE"
  118.             Update "Infobar" 1 "Kopiere $akt nach $aktlocdir .."
  119.             CLI 'copy $akt to $aktlocdir'
  120.         elseif $$FILE.TYPE = "DIR"
  121.             EXTRACT akt FILE dirn
  122.             JoinFile $aktlocdir $dirn naktlocdir
  123.             Update "Infobar" 1 "Kopiere $akt nach $naktlocdir .."
  124.             CLI 'copy $akt to $naktlocdir ALL'
  125.         endif
  126.         LVMulti Off
  127.         LVMulti Show
  128.         LVMulti First
  129.     endwhile
  130.     LVUSE #This 2
  131.     LVDir #$$lv.dir
  132.     Update "Infobar" 1 "Fertig!"
  133.  
  134. XBUTTON 180 375 35 18 "MkDir"
  135.     GadFont xHelvetica.font 11 000
  136.     SetVar .htmlext.rqt "Neues Verzeichnis anlegen:"  ;Titel
  137.     SetVar .htmlext.rqb "Bitte Name des zu erzeugenden Verzeichnis eingeben ..."  ;Body
  138.     SetVar .htmlext.rqd "Neu"  ;Default
  139.     SetVar .htmlext.rqu "Anlegen|Abbrechen"  ;Buttons
  140.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  141.     if $.htmlext.res = 1
  142.         LVUSE #This 1
  143.         JoinFile $$lv.dir $.htmlext.tmp tmp
  144.         FailAt 21
  145.         CLI 'makedir $tmp'
  146.         LVDIR #$$LV.DIR
  147.     endif
  148.  
  149. XBUTTON 125 375 55 18 "Löschen"
  150.     GadFont xHelvetica.font 11 000
  151.     LVUSE #This 1
  152.     LVACTION DELETE ""
  153.  
  154. XBUTTON 5 355 100 18 "Drives"
  155.     GadFont xHelvetica.font 11 000
  156.     LVUse #This 1
  157.     LVDir Drives
  158.  
  159. XBUTTON 105 355 105 18 "Root"
  160.     GadFont xHelvetica.font 11 000
  161.     LVUse #This 1
  162.     LVDir Root
  163.  
  164. XBUTTON 210 355 105 18 "Parent"
  165.     GadFont xHelvetica.font 11 000
  166.     LVUse #This 1
  167.     LVDir Parent
  168.     Update #This 3 "$$LV.DIR"
  169.  
  170. ;Rechte Buttons ===============================================
  171. XBUTTON 320 355 105 18 "Parent"
  172.     GadFont xHelvetica.font 11 000
  173.     LVUse #This 2
  174.     LVDir Parent
  175.     Update #This 4 "$$LV.DIR"
  176.  
  177. XBUTTON 425 355 105 18 "Root"
  178.     GadFont xHelvetica.font 11 000
  179.     LVUse #This 2
  180.     LVDir Root
  181.  
  182. XBUTTON 530 355 100 18 "Drives"
  183.     GadFont xHelvetica.font 11 000
  184.     LVUse #This 2
  185.     LVDir Drives
  186.  
  187. XBUTTON 320 375 90 18 "<-- Upload"
  188.     GadFont xHelvetica.font 11 000
  189.     LVUSE #This 1
  190.     SetVar aktftpdir $$lv.dir
  191.     LVUSE #This 2
  192.     LVMulti First
  193.     while $$lv.line > ""
  194.         JoinFile $$LV.DIR $$LV.REC akt
  195.         INFO FILE $akt
  196.         if $$FILE.TYPE = "FILE"
  197.             Update "Infobar" 1 "Kopiere $akt nach $aktftpdir .."
  198.             CLI 'copy $akt to $aktftpdir'
  199.         elseif $$FILE.TYPE = "DIR"
  200.             EXTRACT akt FILE dirn
  201.             JoinFile $aktftpdir $dirn naktftpdir
  202.             Update "Infobar" 1 "Kopiere $akt nach $naktftpdir .."
  203.             CLI 'copy $akt to $naktftpdir ALL'
  204.         LVMulti Off
  205.         LVMulti Show
  206.         LVMulti First
  207.     endwhile
  208.     Update "Infobar" 1 "Fertig!"
  209.     LVUSE #This 1
  210.     LVDir #$$lv.dir
  211.  
  212. XBUTTON 410 375 35 18 "MkDir"
  213.     GadFont xHelvetica.font 11 000
  214.     SetVar .htmlext.rqt "Neues Verzeichnis anlegen:"  ;Titel
  215.     SetVar .htmlext.rqb "Bitte Name des zu erzeugenden Verzeichnis eingeben ..."  ;Body
  216.     SetVar .htmlext.rqd "Neu"  ;Default
  217.     SetVar .htmlext.rqu "Anlegen|Abbrechen"  ;Buttons
  218.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  219.     if $.htmlext.res = 1
  220.         LVUSE #This 2
  221.         Joinfile $$lv.dir $.htmlext.tmp tmp
  222.         FailAt 21
  223.         CLI 'makedir $tmp'
  224.         LVDIR #$$LV.DIR
  225.     endif
  226.  
  227. XBUTTON 445 375 55 18 "Löschen"
  228.     GadFont xHelvetica.font 11 000
  229.     LVUSE #This 2
  230.     LVACTION DELETE ""
  231.  
  232. XBUTTON 555 375 25 18 "N"
  233.     GadFont xHelvetica.font 9 000
  234.     GadHelp "Selektion aufheben"
  235.     LVUSE #This 2
  236.     LVDir None
  237.  
  238. XBUTTON 580 375 25 18 "A"
  239.     GadFont xHelvetica.font 9 000
  240.     GadHelp "Alle Dateien/Verz selektieren"
  241.     LVUSE #This 2
  242.     LVDir All
  243.  
  244. XBUTTON 605 375 25 18 "#?"
  245.     GadFont xHelvetica.font 9 000
  246.     GadHelp "Dateien nach Pattern selektieren (ohne #? oder * eingegeben!)"
  247.     GuiLoad "HTMLEXT:gui/FTPDIR.func.2"
  248.  
  249. ;===2. Reihe
  250. XBUTTON 265 395 50 18 "Server"
  251.     GadFont xHelvetica.font 11 000
  252.     SetGad #This 101 HIDE
  253.     LVUSE #This 101
  254.     SetVar TMP "HTMLEXT:Projekte/"
  255.     AppVar TMP "$*SUITENAME"
  256.     AppVar TMP ".prefs"
  257.     LVChange "$TMP"
  258.     LVGo #1
  259.     SetVar aktftpdir "$$lv.rec"
  260.     LVUSE #This 1
  261.     LVDir #$aktftpdir
  262.     UPDATE #This 3 $aktftpdir
  263.  
  264. XBUTTON 320 395 50 18 "Lokal"
  265.     GadFont xHelvetica.font 11 000
  266.     SetGad #This 101 HIDE
  267.     LVUSE "HTMLEXT" 3
  268.     SetVar aktlocdir "$$lv.DIR"
  269.     LVUSE #This 2
  270.     LVDir #$aktlocdir
  271.     UPDATE #This 4 $aktlocdir
  272.  
  273. XBUTTON 530 395 100 18 "Schliessen"
  274.     GadFont xHelvetica.font 11 000
  275.     GuiQuit #This
  276.  
  277.