home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / FTPDIR < prev    next >
Encoding:
Text File  |  2000-04-19  |  9.4 KB  |  386 lines
  1. G4C
  2. ; $VER: FTPDir rev.025 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 790 400 "FTPDir Manager"
  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 %SiteDfue CLEAN Sitedfue
  13.     if $Sitedfue = "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 %SiteFTPOL CLEAN Siteftpol
  24.     LVUSE HTMLEXT 3
  25.     aktlocdir = $$LV.DIR
  26.     aktftpdir = $$LV.DIR
  27.     RepVar aktftpdir $*SITEDIR $Siteftpol 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.     lvuse #This 50
  35.     lvchange $*SITEPROJ
  36.     GuiWindow HTMLEXT WAIT
  37.     GuiOpen #This
  38.  
  39. xOnClose
  40.     GuiQuit #This
  41.  
  42. xOnQuit
  43.     GuiWindow HTMLEXT RESUME
  44.  
  45.  
  46. ;xOnRMB
  47. ;GuiLoad "HTMLEXT:gui/FTPDIR.menu"
  48. ;GuiOpen "FTPDIR.menu"
  49.  
  50. ;Globale Gadgets
  51. XLISTVIEW 5 5 440 345 "" "lvconfig" "" 0 "SHOW"
  52.     GadID 101
  53.     GadFont xCourier.font 13 000
  54.  
  55. XLISTVIEW 5 25 310 325 "" "lvftpdir" "ram:" 0 "DIR"
  56.     GadID 1
  57.     GadFont SGIScreen.font 13 000
  58.     GadHelp $lvftpdir
  59.     Update #This 3 "$$LV.DIR"
  60.     CLI '$*EDITOR OPENNEW "$lvftpdir"'
  61.  
  62. xTextIn 5 350 310 20 "" "strftpdir" "" 200
  63.     GadID 3
  64.     GadFont xHelvetica.font 11 000
  65.     LVUse #This 1
  66.     LVDIR #$strftpdir
  67.  
  68. ;Anzeiger
  69. TEXT 255 5 125 18 " FTP    | Lokal" 80 BOX
  70.     GadFont sgiscreen.font 13 010
  71.     GadID 99
  72.  
  73. ;Rechter Listview
  74. XLISTVIEW 320 25 310 325 "" "lvlocdir" "$DEFDIR" 0 "DIR"
  75.     GadID 2
  76.     GadFont SGIScreen.font 13 000
  77.     GadHelp $lvlocdir
  78.     Update #This 4 "$$LV.DIR"
  79.     CLI 'ged "$lvlocdir"'
  80.  
  81. xTextIn 320 350 310 20 "" "strlocdir" "" 200
  82.     GadID 4
  83.     GadFont xHelvetica.font 11 000
  84.     LVUse #This 2
  85.     LVDIR #$strlocdir
  86.  
  87. XLISTVIEW 635 5 150 365 "" "lvproj" "" 0 "SHOW"
  88.     GadID 50
  89.     GadFont SGIScreen.font 13 000
  90.     lvuse HTMLEXT 50
  91.     EXTRACT %DirPath CLEAN aktdirpath
  92.     SetVar aktdir $*SITEDIR
  93.     AppVar aktdir $aktdirpath
  94.     Update "Infobar" 1 "Web-Sute: $*SITENAME  /  Verzeichnis: $%DirPath"
  95.     lvuse #This 2
  96.     Update #This 4 $aktdir
  97.     LvDir #$aktdir
  98.     lvuse HTMLEXT 1
  99.     EXTRACT %SiteFTPOL CLEAN Siteftpol
  100.     aktftpdir = $aktdir
  101.     RepVar aktftpdir $*SITEDIR $Siteftpol CI
  102.     LVUSE #This 1
  103.     LVDir #$aktftpdir
  104.     Update #This 99 " FTP    | Lokal  "
  105.     Update #This 3 "$aktftpdir"
  106.  
  107. xLVHook 1
  108.     SetVar *ACTLV 1
  109.     Update #This 99 " Aktiv  | Ziel"
  110.     Update #This 3 "$$LV.DIR"
  111.  
  112. xLVDirHook 1
  113.     Update #This 3 "$$LV.DIR"
  114.  
  115. xLVHook 2
  116.     SetVar *ACTLV 2
  117.     Update #This 99 " Ziel   | Aktiv"
  118.     Update #This 4 "$$LV.DIR"
  119.  
  120. xLVDirHook 2
  121.     Update #This 4 "$$LV.DIR"
  122.  
  123. ;Linke Buttons ===============================================
  124. XBUTTON 5 5 90 18 "Geräte"
  125.     GadFont xHelvetica.font 11 000
  126.     LVUse #This 1
  127.     LVDir Drives
  128.  
  129. XBUTTON 95 5 160 18 "Übergeordnetes Verzeichnis"
  130.     GadFont xHelvetica.font 11 000
  131.     LVUse #This 1
  132.     LVDir Parent
  133.     Update #This 3 "$$LV.DIR"
  134.  
  135.  
  136. ;Rechte Buttons ===============================================
  137. XBUTTON 380 5 160 18 "Übergeordnetes Verzeichnis"
  138.     GadFont xHelvetica.font 11 000
  139.     LVUse #This 2
  140.     LVDir Parent
  141.     Update #This 4 "$$LV.DIR"
  142.  
  143. XBUTTON 540 5 90 18 "Geräte"
  144.     GadFont xHelvetica.font 11 000
  145.     LVUse #This 2
  146.     LVDir Drives
  147.  
  148.  
  149.  
  150.  
  151. ;Befehl Buttons
  152. XBUTTON 5 375 90 18 "Kopieren"
  153.     GadFont xHelvetica.font 11 000
  154.     if $*ACTLV = 1
  155.         LVUSE #This 2
  156.         SetVar aktftpdir $$lv.dir
  157.         LVUSE #This 1
  158.         LVMulti First
  159.         while $$lv.line > ""
  160.             JoinFile $$LV.DIR $$LV.REC akt
  161.             INFO FILE $akt
  162.             if $$FILE.TYPE = "FILE"
  163.                 Update "Infobar" 1 "Kopiere $akt nach $aktftpdir .."
  164.                 CLI 'copy $akt to $aktftpdir'
  165.             elseif $$FILE.TYPE = "DIR"
  166.                 EXTRACT akt FILE dirn
  167.                 JoinFile $aktftpdir $dirn naktftpdir
  168.                 Update "Infobar" 1 "Kopiere $akt nach $naktftpdir .."
  169.                 CLI 'copy $akt to $naktftpdir ALL'
  170.             endif
  171.             LVMulti Off
  172.             LVMulti Show
  173.             LVMulti First
  174.         endwhile
  175.         Update "Infobar" 1 "Fertig!"
  176.         LVUSE #This 2
  177.         LVDir #$$lv.dir
  178.     elseif $*ACTLV = 2
  179.         LVUSE #This 1
  180.         SetVar aktftpdir $$lv.dir
  181.         LVUSE #This 2
  182.         LVMulti First
  183.         while $$lv.line > ""
  184.             JoinFile $$LV.DIR $$LV.REC akt
  185.             INFO FILE $akt
  186.             if $$FILE.TYPE = "FILE"
  187.                 Update "Infobar" 1 "Kopiere $akt nach $aktftpdir .."
  188.                 CLI 'copy $akt to $aktftpdir'
  189.             elseif $$FILE.TYPE = "DIR"
  190.                 EXTRACT akt FILE dirn
  191.                 JoinFile $aktftpdir $dirn naktftpdir
  192.                 Update "Infobar" 1 "Kopiere $akt nach $naktftpdir .."
  193.                 CLI 'copy $akt to $naktftpdir ALL'
  194.             endif
  195.             LVMulti Off
  196.             LVMulti Show
  197.             LVMulti First
  198.         endwhile
  199.         Update "Infobar" 1 "Fertig!"
  200.         LVUSE #This 1
  201.         LVDir #$$lv.dir
  202.     endif
  203.  
  204. XBUTTON 95 375 90 18 "Verschieben"
  205.     GadFont xHelvetica.font 11 000
  206.     CLI 'echo ";Delete List" >t:htmlext/dellist'
  207.     if $*ACTLV = 1
  208.         LVUSE #This 2
  209.         SetVar aktftpdir $$lv.dir
  210.         LVUSE #This 1
  211.         LVMulti First
  212.         while $$lv.line > ""
  213.             JoinFile $$LV.DIR $$LV.REC akt
  214.             INFO FILE $akt
  215.             if $$FILE.TYPE = "FILE"
  216.                 Update "Infobar" 1 "Kopiere $akt nach $aktftpdir .."
  217.                 CLI 'copy $akt to $aktftpdir'
  218.                 CLI 'echo "delete $akt FORCE" >>t:htmlext/dellist'
  219.             elseif $$FILE.TYPE = "DIR"
  220.                 EXTRACT akt FILE dirn
  221.                 JoinFile $aktftpdir $dirn naktftpdir
  222.                 Update "Infobar" 1 "Kopiere $akt nach $naktftpdir .."
  223.                 CLI 'copy $akt to $naktftpdir ALL'
  224.                 CLI 'echo "delete $akt FORCE" >>t:htmlext/dellist'
  225.             endif
  226.             LVMulti Off
  227.             LVMulti Show
  228.             LVMulti First
  229.         endwhile
  230.         Update "Infobar" 1 "Lösche Dateien ..."
  231.         cli 'execute t:htmlext/dellist'
  232.         cli 'delete t:htmlext/dellist'
  233.         lvuse #This 1
  234.         lvdir #$$lv.dir
  235.         Update "Infobar" 1 "Fertig!"
  236.         LVUSE #This 2
  237.         LVDir #$$lv.dir
  238.     elseif $*ACTLV = 2
  239.         LVUSE #This 1
  240.         SetVar aktftpdir $$lv.dir
  241.         LVUSE #This 2
  242.         LVMulti First
  243.         while $$lv.line > ""
  244.             JoinFile $$LV.DIR $$LV.REC akt
  245.             INFO FILE $akt
  246.             if $$FILE.TYPE = "FILE"
  247.                 Update "Infobar" 1 "Kopiere $akt nach $aktftpdir .."
  248.                 CLI 'copy $akt to $aktftpdir'
  249.                 CLI 'echo "delete $akt FORCE" >>t:htmlext/dellist'
  250.             elseif $$FILE.TYPE = "DIR"
  251.                 EXTRACT akt FILE dirn
  252.                 JoinFile $aktftpdir $dirn naktftpdir
  253.                 Update "Infobar" 1 "Kopiere $akt nach $naktftpdir .."
  254.                 CLI 'copy $akt to $naktftpdir ALL'
  255.                 CLI 'echo "delete $akt FORCE" >>t:htmlext/dellist'
  256.             endif
  257.             LVMulti Off
  258.             LVMulti Show
  259.             LVMulti First
  260.         endwhile
  261.         Update "Infobar" 1 "Lösche Dateien ..."
  262.         cli 'execute t:htmlext/dellist'
  263.         cli 'delete t:htmlext/dellist'
  264.         lvuse #This 2
  265.         lvdir #$$lv.dir
  266.         Update "Infobar" 1 "Fertig!"
  267.         LVUSE #This 1
  268.         LVDir #$$lv.dir
  269.     endif
  270.  
  271. XBUTTON 185 375 90 18 "Löschen"
  272.     GadFont xHelvetica.font 11 000
  273.     if $*ACTLV = 1
  274.         LVUSE #This 1
  275.         LVACTION DELETE ""
  276.     elseif $*ACTLV = 2
  277.         LVUSE #This 2
  278.         LVACTION DELETE ""
  279.     endif
  280.  
  281. XBUTTON 275 375 90 18 "Umbenennen"
  282.     GadFont xHelvetica.font 11 000
  283.     Update "InfoBar" 1 "Dateien umbenennen ..."
  284.     if $*ACTLV = 1
  285.         LVUSE #This 1
  286.         LVMulti First
  287.         while $$lv.line > ""
  288.             SetVar .htmlext.rqt "Umbennen ..."  ;Titel
  289.             SetVar .htmlext.rqb "Bitte Dateinamen ändern ...             "  ;Body
  290.             SetVar .htmlext.rqd "$$lv.rec"  ;Default
  291.             SetVar .htmlext.rqu "Ändern|Abbrechen"  ;Buttons
  292.             cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  293.             if $.htmlext.res = 1
  294.                 JoinFile $$lv.dir $$lv.rec file
  295.                 JoinFile $$lv.dir $.htmlext.tmp nfile
  296.                 CLI 'rename FROM $file TO $nfile'
  297.             endif
  298.             LVMulti OFF
  299.             LVMulti Show
  300.             LVMulti NEXT
  301.         EndWhile
  302.         LVDIR #$$LV.DIR
  303.         Update "InfoBar" 1 "Fertig!"
  304.     elseif $*ACTLV = 2
  305.         LVUSE #This 2
  306.         LVMulti First
  307.         while $$lv.line > ""
  308.             SetVar .htmlext.rqt "Umbennen ..."  ;Titel
  309.             SetVar .htmlext.rqb "Bitte Dateinamen ändern ...             "  ;Body
  310.             SetVar .htmlext.rqd "$$lv.rec"  ;Default
  311.             SetVar .htmlext.rqu "Ändern|Abbrechen"  ;Buttons
  312.             cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  313.             if $.htmlext.res = 1
  314.                 JoinFile $$lv.dir $$lv.rec file
  315.                 JoinFile $$lv.dir $.htmlext.tmp nfile
  316.                 CLI 'rename FROM $file TO $nfile'
  317.             endif
  318.             LVMulti OFF
  319.             LVMulti Show
  320.             LVMulti NEXT
  321.         EndWhile
  322.         LVDIR #$$LV.DIR
  323.         Update "InfoBar" 1 "Fertig!"
  324.     endif
  325.  
  326. XBUTTON 365 375 90 18 "Verz. erzeugen"
  327.     GadFont xHelvetica.font 11 000
  328.     SetVar .htmlext.rqt "Neues Verzeichnis anlegen:"  ;Titel
  329.     SetVar .htmlext.rqb "Bitte Name des zu erzeugenden Verzeichnis eingeben ..."  ;Body
  330.     SetVar .htmlext.rqd "Neu"  ;Default
  331.     SetVar .htmlext.rqu "Anlegen|Abbrechen"  ;Buttons
  332.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  333.     if $.htmlext.res = 1
  334.         if $*ACTLV = 1
  335.             LVUSE #This 1
  336.             Joinfile $$lv.dir $.htmlext.tmp tmp
  337.             FailAt 21
  338.             CLI 'makedir $tmp'
  339.             LVDIR #$$LV.DIR
  340.         elseif $*ACTLV = 2
  341.             LVUSE #This 2
  342.             Joinfile $$lv.dir $.htmlext.tmp tmp
  343.             FailAt 21
  344.             CLI 'makedir $tmp'
  345.             LVDIR #$$LV.DIR
  346.         endif
  347.     endif
  348.  
  349. XBUTTON 480 375 70 18 "Selektieren"
  350.     GadFont xHelvetica.font 11 000
  351.     GadHelp "Dateien nach Pattern selektieren (ohne #? oder * eingegeben!)"
  352.     if $*ACTLV = 1
  353.         GuiLoad "HTMLEXT:gui/FTPDIR.func.1"
  354.     elseif $*ACTLV = 2
  355.         GuiLoad "HTMLEXT:gui/FTPDIR.func.2"
  356.     endif
  357.  
  358. XBUTTON 550 375 40 18 "Alles"
  359.     GadFont xHelvetica.font 11 000
  360.     GadHelp "Alle Dateien/Verz selektieren"
  361.     if $*ACTLV = 1
  362.         LVUSE #This 1
  363.         LVDir All
  364.     elseif $*ACTLV = 2
  365.         LVUSE #This 2
  366.         LVDir All
  367.     endif
  368.  
  369. XBUTTON 590 375 40 18 "Nichts"
  370.     GadFont xHelvetica.font 11 000
  371.     GadHelp "Selektion aufheben"
  372.     if $*ACTLV = 1
  373.         LVUSE #This 1
  374.         LVDir None
  375.     elseif $*ACTLV = 2
  376.         LVUSE #This 2
  377.         LVDir None
  378.     endif
  379.  
  380. ;Schliessen Button
  381. XBUTTON 635 375 150 18 "[_X] Schliessen"
  382.     GadFont xHelvetica.font 11 000
  383.     GadKey "x"
  384.     GuiQuit #This
  385.  
  386.