home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / siteprefs < prev    next >
Encoding:
Text File  |  2000-04-19  |  6.5 KB  |  228 lines
  1. G4C
  2. ; $VER: Siteprefs Rev.017 by Juan Manuel Wehrli 1999 - 2000
  3.  
  4. WINBIG -1 -1 400 390 "Web-Site Einstellungen"
  5. WinType 11010000
  6. ;WinOnMouse 5 5
  7. WinBackground IMAGE BG 0
  8. Winout "NIL:"
  9.  
  10. xOnLoad
  11.     lvuse HTMLEXT 1
  12.     EXTRACT %SiteName CLEAN name
  13.     Update #This 100 $name
  14.     EXTRACT %SitePath CLEAN lokdir
  15.     Update #This 1 $lokdir
  16.     EXTRACT %SiteFTPOL CLEAN  ftpoldir
  17.     Update #This 2 $ftpoldir
  18.     EXTRACT %SiteFTPWRK CLEAN ftpwrkdir
  19.     Update #This 3 $ftpwrkdir
  20.     EXTRACT %SiteServTyp CLEAN pstyp
  21.     if $pstyp = "EIN"
  22.         Update #This 4 "1"
  23.         SetVar servertyp "EIN"
  24.     else
  25.         Update #This 4 "0"
  26.         SetVar servertyp "AUS"
  27.     endif
  28.     EXTRACT %SiteURLOL CLEAN urlol
  29.     Update #This 5 $urlol
  30.     EXTRACT %SiteURLWRK CLEAN urlwrk
  31.     Update #This 6 $urlwrk
  32.     EXTRACT %SiteMail CLEAN mailadr
  33.     Update #This 8 $mailadr
  34.     EXTRACT %SiteSubj CLEAN subj
  35.     Update #This 9 $subj
  36.     EXTRACT %SiteHistfile CLEAN historyfile
  37.     Update #This 10 $historyfile
  38.     EXTRACT %SiteSpiegelDir CLEAN mirrordir
  39.     Update #This 11 $mirrordir
  40.     EXTRACT %SiteHistAuto CLEAN sha
  41.     if $sha = "EIN"
  42.         Update #This 12 "1"
  43.         SetVar historystat "EIN"
  44.     else
  45.         Update #This 12 "0"
  46.         SetVar historystat "AUS"
  47.     endif
  48.     EXTRACT %SiteSpiegelStat CLEAN sss
  49.     if $sss = "EIN"
  50.         Update #This 13 "1"
  51.         SetGad #This 11 ON
  52.         SetGad #This 18 ON
  53.         SetVar mirrorstat "EIN"
  54.     else
  55.         Update #This 13 "0"
  56.         SetGad #This 11 OFF
  57.         SetGad #This 18 OFF
  58.         SetVar mirrorstat "AUS"
  59.     endif
  60.  
  61.     EXTRACT %SiteBakArcDir CLEAN bakarcdir
  62.     Update #This 14 $bakarcdir
  63.  
  64.     EXTRACT %SiteDfue CLEAN sdfue
  65.     if $sdfue = "EIN"
  66.         Update #This 16 "1"
  67.         SetVar dfuestat "EIN"
  68.     else
  69.         Update #This 16 "0"
  70.         SetVar dfuestat "AUS"
  71.     endif
  72.  
  73.     EXTRACT %SiteDataPath CLEAN projdatadir
  74.     Update #This 17 $projdatadir
  75.  
  76.     EXTRACT %SiteDataMirror CLEAN projdatamirror
  77.     Update #This 18 $projdatamirror
  78.     GuiOpen #This
  79.  
  80. xOnClose
  81.     GuiWindow HTMLEXT RESUME
  82.     GuiWindow menu.Sites RESUME
  83.     GuiWindow #This RESUME
  84.  
  85. Text 100 5 288 18 "Sitename" 40 BOX
  86.     GadFont xHelvetica.font 13 010
  87.     GadID 100
  88.  
  89. xTextIn 100 25 270 18 "Lokaler Pfad:" lokdir "" 155
  90.     GadID 1
  91.     GadFont "xHelvetica.font" "11" 000
  92. xButton 370 25 18 18 "»"
  93.     GadFont "xHelvetica.font" "11" 000
  94.     ReqFile -1 -1 250 500 "Lokales Verzeichnis auswählen ..." DIR lokdir "$lokdir"
  95.     Update #This 1 $lokdir
  96.  
  97. xTextIn 100 45 270 18 "Spiegel Pfad:" mirrordir "" 155
  98.     GadID 11
  99.     GadFont "xHelvetica.font" "11" 000
  100. xButton 370 45 18 18 "»"
  101.     GadFont "xHelvetica.font" "11" 000
  102.     ReqFile -1 -1 250 500 "Spiegel Pfad (Wie Zip-Medium usw..)" DIR mirrordir "$mirrordir"
  103.     Update #This 11 $mirrordir
  104.  
  105. xTextIn 100 65 270 18 "FTP Online:" ftpoldir "" 155
  106.     GadID 2
  107.     GadFont "xHelvetica.font" "11" 000
  108. xButton 370 65 18 18 "»"
  109.     GadFont "xHelvetica.font" "11" 000
  110.     ReqFile -1 -1 250 500 "FTP Online Verzeichnis auswählen ..." DIR ftpoldir "$ftpoldir"
  111.     Update #This 2 $ftpoldir
  112.  
  113. xTextIn 100 85 270 18 "FTP Work:" ftpwrkdir "" 155
  114.     GadID 3
  115.     GadFont "xHelvetica.font" "11" 000
  116. xButton 370 85 18 18 "»"
  117.     GadFont "xHelvetica.font" "11" 000
  118.     ReqFile -1 -1 250 500 "FTP Online Verzeichnis auswählen ..." DIR ftpwrkdir "$ftpwrkdir"
  119.     Update #This 3 $ftpwrkdir
  120.  
  121. xCheckbox 100 105 18 18 "DFÜ Netzwerk:" dfuestat "EIN" "AUS" OFF
  122.     GadID 16
  123.     GadFont "xHelvetica.font" "11" 000
  124.  
  125. xCheckbox 370 105 18 18 "Server Typ (Daten serverseitig vorher löschen):" servertyp "EIN" "AUS" OFF
  126.     GadID 4
  127.     GadFont "xHelvetica.font" "11" 000
  128.  
  129. xTextIn 100 125 288 18 "URL Online:" urlol "" 155
  130.     GadID 5
  131.     GadFont "xHelvetica.font" "11" 000
  132.  
  133. xTextIn 100 145 288 18 "URL Work:" urlwrk "" 155
  134.     GadID 6
  135.     GadFont "xHelvetica.font" "11" 000
  136.  
  137. xTextIn 100 175 288 18 "EMail Adressen:" mailadr "" 155
  138.     GadID 8
  139.     GadFont "xHelvetica.font" "11" 000
  140.  
  141. xTextIn 100 195 288 18 "EMail Subjekt:" subj "" 155
  142.     GadID 9
  143.     GadFont "xHelvetica.font" "11" 000
  144.  
  145. xTextIn 100 225 270 18 "Historie Datei:" historyfile "" 155
  146.     GadID 10
  147.     GadFont "xHelvetica.font" "11" 000
  148. xButton 370 225 18 18 "»"
  149.     GadFont "xHelvetica.font" "11" 000
  150.     ReqFile -1 -1 250 500 "History Datei auswählen ..." LOAD historyfile "$historyfile"
  151.     Update #This 10 $historyfile
  152.  
  153. xTextIn 100 255 270 18 "BackupArc Pfad:" bakarcdir "" 155
  154.     GadID 14
  155.     GadFont "xHelvetica.font" "11" 000
  156. xButton 370 255 18 18 "»"
  157.     GadFont "xHelvetica.font" "11" 000
  158.     ReqFile -1 -1 250 500 "Backup Pfad (Hier werden LhA Archive erstellt." DIR bakarcdir "$bakarcdir"
  159.     Update #This 14 $bakarcdir
  160.  
  161. xTextIn 100 285 270 18 "Proj. Daten Pfad:" projdatadir "" 155
  162.     GadID 17
  163.     GadFont "xHelvetica.font" "11" 000
  164. xButton 370 285 18 18 "»"
  165.     GadFont "xHelvetica.font" "11" 000
  166.     ReqFile -1 -1 250 500 "Projektdaten Pfad ..." DIR projdatadir "$projdatadir"
  167.     Update #This 17 $projdatadir
  168.  
  169. xTextIn 100 305 270 18 "Spiegel Pfad:" projdatamirror "" 155
  170.     GadID 18
  171.     GadFont "xHelvetica.font" "11" 000
  172. xButton 370 305 18 18 "»"
  173.     GadFont "xHelvetica.font" "11" 000
  174.     ReqFile -1 -1 250 500 "Projektdaten Spiegel Pfad ..." DIR projdatamirror "$projdatamirror"
  175.     Update #This 18 $projdatamirror
  176.  
  177. xCheckbox 100 335 18 18 "Auto Historie:" historystat "EIN" "AUS" OFF
  178.     GadID 12
  179.     GadFont "xHelvetica.font" "11" 000
  180.  
  181. xCheckbox 370 335 18 18 "Spiegel Funktionen aktivieren:" mirrorstat "EIN" "AUS" OFF
  182.     GadID 13
  183.     GadFont "xHelvetica.font" "11" 000
  184.     if $mirrorstat = "EIN"
  185.         SetGad #This 11 ON
  186.         SetGad #This 18 ON
  187.     elseif $mirrorstat = "AUS"
  188.         SetGad #This 11 OFF
  189.         SetGad #This 18 OFF
  190.     endif
  191.  
  192. xButton 185 365 100 18 "_Speichern"
  193.     GadFont "xHelvetica.font" "11" 000
  194.     GadKey "s"
  195.     lvuse HTMLEXT 1
  196.     lvdel -1
  197.     lvadd ''
  198.     %SiteName = $name
  199.     %SitePath = $lokdir
  200.     %SiteFTPOL = $ftpoldir
  201.     %SiteFTPWRK = $ftpwrkdir
  202.     %SiteURLOL = $urlol
  203.     %SiteURLWRK = $urlwrk
  204.     %SiteServTyp = $servertyp
  205.     %SiteDfue = $dfuestat
  206.     %SiteMail = $mailadr
  207.     %SiteSubj = $subj
  208.     %SiteBakArcDir = $bakarcdir
  209.     %SiteSpiegelDir = $mirrordir
  210.     %SiteHistFile = $historyfile
  211.     %SiteHistAuto = $historystat
  212.     %SiteSpiegelStat = $mirrorstat
  213.     %SiteDataPath = $projdatadir
  214.     %SiteDataMirror = $projdatamirror
  215.     lvsort asc
  216.     lvsave "htmlext:Settings/Sites.prefs"
  217.     GuiWindow HTMLEXT RESUME
  218.     GuiWindow #This RESUME
  219.     GuiQuit #This
  220.  
  221. xButton 288 365 100 18 "[_X] Abbrechen"
  222.     GadFont "xHelvetica.font" "11" 000
  223.     GadKey "x"
  224.     GuiWindow HTMLEXT RESUME
  225.     GuiWindow #This RESUME
  226.     GuiQuit #This
  227.  
  228.