home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / Setup < prev    next >
Encoding:
Text File  |  2000-04-19  |  8.9 KB  |  385 lines
  1. G4C
  2. ; $VER: Setup Rev.012 © by Juan Manuel Wehrli 2000
  3. TEXTFILE t:hxt_dmmy
  4. -
  5. ###
  6. TEXTFILE htmlext:data/Setup/HTMLEXT
  7. ; $VER: HTMLEXTStarter V 006 by Juan Manuel Wehrli 1999 - 2000
  8. ; HTMLEXT ist eine HTML Projekt-Verwaltungs-Erweiterung zu GoldED V6 & Webworld
  9. ; Alle Rechte liegen bei Juan Manuel Wehrli 1999/2000
  10. assign HTMLEXT: ""
  11. rx htmlext:mod/htmlext.smod START
  12.  
  13. ###
  14. TEXTFILE htmlext:Settings/defaults/libtag.txt
  15.  
  16.   === Neuer HTMLLIB Eintrag ===
  17.  
  18. ###
  19. TEXTFILE htmlext:Settings/defaults/rapport.txt
  20. HomePage Rapport
  21. Ausgeführt durch:
  22. ====================================================
  23.  
  24. 01.01.2000    09.30 - 24.00 Uhr    100 min
  25. Rapport Demo Eintrag ...
  26.  
  27.  
  28. ###
  29. TEXTFILE htmlext:Settings/defaults/vorlage.txt
  30. <HTML>
  31. <HEAD>
  32. <TITLE>
  33. Neues Dokument
  34. </TITLE>
  35. </HEAD>
  36. <BODY BGCOLOR="#FFFFFF">
  37. Inhalt ...
  38. </BODY>
  39. </HTML>
  40.  
  41. ###
  42. TEXTFILE htmlext:Settings/defaults/mrep.prefs
  43. GCDB
  44. 0
  45. 2
  46. %OLDSTRING 45 S
  47. %NEWSTRING 45 S
  48. ###
  49. TEXTFILE htmlext:Settings/defaults/Action.prefs
  50. GCDB
  51. 0
  52. 2
  53. %Name 45 S
  54. %Befehl 75 S
  55. ###
  56. TEXTFILE htmlext:Settings/defaults/Users.prefs
  57. GCDB
  58. 0
  59. 4
  60. %UserLogin 5 S
  61. %UserName 75 S
  62. %UserAdr 75 S
  63. %UserMail 75 S
  64. ###
  65. TEXTFILE htmlext:Settings/defaults/HTMLEXT.prefs
  66. GCDB
  67. 0
  68. 13
  69. %Screen 45 S
  70. %ScreenOpt 45 S
  71. %Browser 55 S
  72. %BrowserWin 45 S
  73. %Editor 55 S
  74. %EditorWin 45 S
  75. %Mailer 55 S
  76. %Tcp 55 S
  77. %TcpIf 55 S
  78. %Os 5 S
  79. %Admin 5 S
  80. %User 55 S
  81. %Winbg 75 S
  82. ###
  83. TEXTFILE htmlext:Settings/defaults/Proj.prefs
  84. GCDB
  85. 0
  86. 2
  87. %DirName 35 S
  88. %DirPath 70 S
  89. ###
  90. TEXTFILE htmlext:Settings/defaults/Projdata.prefs
  91. GCDB
  92. 0
  93. 2
  94. %DirName 35 S
  95. %DirPath 70 S
  96. ###
  97. TEXTFILE htmlext:Settings/defaults/Sites.prefs
  98. GCDB
  99. 0
  100. 17
  101. %SiteName 35 S
  102. %SitePath 70 S
  103. %SiteSpiegelDir 50 S
  104. %SiteFTPOL 50 S
  105. %SiteFTPWRK 50 S
  106. %SiteURLOL 50 S
  107. %SiteURLWRK 50 S
  108. %SiteDfue 5 S
  109. %SiteServTyp 5 S
  110. %SiteSpiegelStat 5 S
  111. %SiteMail 50 S
  112. %SiteSubj 50 S
  113. %SiteHistFile 50 S
  114. %SiteHistAuto 5 S
  115. %SiteBakArcDir 50 S
  116. %SiteDataPath 70 S
  117. %SiteDataMirror 70 S
  118. ###
  119. WINBIG -1 -1 200 100 "HTMLEXT 2 Setup"
  120. WinType 11010000
  121. Winout "CON:0/18/600/100/HTMLEXT2 Output/AUTO/CLOSE/SCREEN$*SCREEN"
  122. WinBackground IMAGE BG 0
  123. Winout "NIL:"
  124.  
  125. xONLOAD
  126.     cli 'multiview "htmlext:help/Setup.txt"'
  127.     SetGad #This 1 HIDE
  128.     SetGad #This 3 HIDE
  129.     SetGad #This 99 HIDE
  130.     LoadImage "htmlext:gui/bg/bg.11" BG Workbench
  131.     LoadImage "htmlext:gui/images/Setup.jpg" setuplogo Workbench
  132.     Set LVFILL OFF
  133.     guiopen #This
  134.  
  135. xOnClose
  136.     guiquit #This
  137.  
  138.  
  139. xMenu "Projekt" "Info" "" "?"
  140.     EZREQ "HTMLEXT 2 Setup Revision 015" "Weiter" nil
  141.  
  142. xMenu "Projekt" "Beenden" "" ""
  143.     GuiQuit #This
  144.  
  145.  
  146. Gauge 5 80 190 15 IN BUTTON 2 1 0
  147.     gadid 99
  148.  
  149. XLISTVIEW 0 0 200 50 "" setupdb "" 0 SHOW
  150.     gadid 1
  151.  
  152. Text 5 0 190 18 "Willkommen beim" 100 NOBOX
  153.     GadFont xHelvetica.font 13 010
  154.     gadid 4
  155.  
  156. Text 5 20 190 18 "" 100 NOBOX
  157.     GadFont xHelvetica.font 11 000
  158.     gadid 5
  159.  
  160. Image 25 20 setuplogo
  161.     gadid 6
  162.  
  163. XBUTTON 5 80 190 18 "_Starten"
  164.     GadID 2
  165.     gadkey "s"
  166.     SetGad #This 6 HIDE
  167.     SetGad #This 2 HIDE
  168.     SetGad #This 99 SHOW
  169.     Redraw #This
  170.     Update #This 99 "10"
  171.     Update #This 4 "Abfragen der ..."
  172.     Update #This 5 "Benutzer Verwaltungs Daten"
  173.     lvuse #This 1
  174.     lvchange "htmlext:Settings/defaults/Users.prefs"
  175.  
  176.     Update #This 99 "20"
  177.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  178.     SetVar .htmlext.rqb "Bitte geben Sie ihren Kürzel ein wie ... (bis 4 Zeichen)"    ;Body
  179.     SetVar .htmlext.rqd "jh"                                                ;Default
  180.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  181.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  182.     setvar userlogin $.htmlext.tmp
  183.     
  184.     Update #This 99 "30"
  185.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  186.     SetVar .htmlext.rqb "Nun Ihr Name wie ..."    ;Body
  187.     SetVar .htmlext.rqd "John Holdenstein"                                              ;Default
  188.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  189.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  190.     setvar username $.htmlext.tmp
  191.  
  192.     Update #This 99 "40"
  193.     SetVar .htmlext.rqt "Benutzerdaten ..."              ;Titel
  194.     SetVar .htmlext.rqb "Nun Ihre Adresse wie ..."        ;Body
  195.     SetVar .htmlext.rqd "Autobahn N1, 8000 Zürich"        ;Default
  196.     SetVar .htmlext.rqu "Weiter|Abbrechen"                ;Buttons
  197.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  198.     setvar useradr $.htmlext.tmp
  199.  
  200.     Update #This 99 "50"
  201.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  202.     SetVar .htmlext.rqb "Nun Ihre EMail Adresse wie ..."    ;Body
  203.     SetVar .htmlext.rqd "jh@welt.com"                                                 ;Default
  204.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  205.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  206.     setvar usermail $.htmlext.tmp
  207.  
  208.     if $.htmlext.res = 1
  209.         lvuse #This 1
  210.         lvadd ''
  211.         %UserLogin = $userlogin
  212.         %UserName  = $username
  213.         %UserMail  = $usermail
  214.         %UserAdr   = $useradr
  215.         lvsort %UserName
  216.         lvsave "htmlext:settings/defaults/Users.prefs"
  217.     else
  218.         guiquit #This
  219.     endif
  220.  
  221.     Update #This 99 "60"
  222.     Update #This 4 "Erstelle Grundeinstellungen ..."
  223.     Update #This 5 "HTMLEXT Einstellungen setzten"
  224.     EZREQ "Welchen Browser benutzen Sie? AWeb wird bevorzugt!" "AWeb|IBrowse|Voyager" brtyp
  225.     if $brtyp = 1
  226.         SetVar tmpbrowser "htmlext:mod/browser/aweb.mod"
  227.     elseif $brtyp = 2
  228.         SetVar tmpbrowser "htmlext:mod/browser/ibrowse.mod"
  229.     elseif $brtyp = 0
  230.         SetVar tmpbrowser "htmlext:mod/browser/voyager.mod"
  231.     endif
  232.     lvuse #This 1
  233.     lvclear
  234.     lvchange "htmlext:settings/defaults/HTMLEXT.prefs"
  235.     lvadd ''
  236.     %Admin = "1"
  237.     %User = $userlogin
  238.     %Winbg = "htmlext:gui/bg/BG.11"
  239.     %Screen = "HTMLEXT"
  240.     %ScreenOpt = "16"
  241.     %BrowserWin = "0,16,994,512"
  242.     %Browser = $tmpbrowser
  243.     %Editor = "htmlext:mod/editor/golded.mod"
  244.     %EditorWin = "X 0 Y 528 WIDTH 994 HEIGHT 356"
  245.     %Mailer = "htmlext:mod/mailer/yam.mod"
  246.     %Tcp = "htmlext:mod/network/miami.mod"
  247.     %TcpIf = ""
  248.     %Os = "35"
  249.     lvsort %User
  250.     lvsave "htmlext:settings/defaults/HTMLEXT.prefs"
  251.  
  252.     Update #This 99 "70"
  253.     Update #This 5 "Site Markierungs Daten ..."
  254.     lvuse #This 1
  255.     lvclear
  256.     lvchange "htmlext:settings/defaults/Proj.prefs"
  257.     lvadd ''
  258.     %DirName = "Site"
  259.     %DirPath = ""
  260.     lvsort %DirName
  261.     lvsave "htmlext:settings/defaults/Proj.prefs"
  262.  
  263.     Update #This 99 "75"
  264.     Update #This 5 "Projektdaten Markierungs Daten ..."
  265.     lvuse #This 1
  266.     lvclear
  267.     lvchange "htmlext:settings/defaults/Projdata.prefs"
  268.     lvadd ''
  269.     %DirName = "Projektdaten"
  270.     %DirPath = ""
  271.     lvsort %DirName
  272.     lvsave "htmlext:settings/defaults/Projdata.prefs"
  273.  
  274.     Update #This 99 "80"
  275.     Update #This 5 "Bearbeitungs Funktionen ..."
  276.     lvuse #This 1
  277.     lvclear
  278.     lvchange "htmlext:settings/defaults/Action.prefs"
  279.     lvadd ''
  280.     %Name = "B AWeb"
  281.     %Befehl = "rx htmlext:mod/browser/aweb.mod OPEN"
  282.  
  283.     lvadd ''
  284.     %Name = "V CyberShow"
  285.     %Befehl = "rx htmlext:mod/viewer/CyberShow.mod HTMLEXT"
  286.  
  287.     lvadd ''
  288.     %Name = "V Multiview"
  289.     %Befehl = "multiview"
  290.  
  291.     lvadd ''
  292.     %Name = "G ArtEffect"
  293.     %Befehl = "rx htmlext:mod/addon/arteffect.mod OPENNEW"
  294.  
  295.     lvadd ''
  296.     %Name = "G ImageEngineer"
  297.     %Befehl = "rx htmlext:mod/addon/imageengineer.mod OPENNEW"
  298.  
  299.     lvadd ''
  300.     %Name = "G ImageFX"
  301.     %Befehl = "rx htmlext:mod/addon/imagefx.mod OPENNEW"
  302.  
  303.     lvadd ''
  304.     %Name = "G ImageMAP"
  305.     %Befehl = "HTMLEXT:c/ImageMap/ImageMap"
  306.  
  307.     lvadd ''
  308.     %Name = "G Photogenics2"
  309.     %Befehl = "rx htmlext:mod/addon/photogenics2.mod OPENNEW"
  310.  
  311.     lvadd ''
  312.     %Name = "G PPaint"
  313.     %Befehl = "rx htmlext:mod/addon/ppaint.mod OPENNEW"
  314.  
  315.     lvadd ''
  316.     %Name = "W AWeb"
  317.     %Befehl = "rx htmlext:mod/browser/aweb.mod OPEN"
  318.  
  319.     lvadd ''
  320.     %Name = "W IBrowse"
  321.     %Befehl = "rx htmlext:mod/browser/IBrowse.mod OPEN"
  322.  
  323.     lvadd ''
  324.     %Name = "W Voyager"
  325.     %Befehl = "rx htmlext:mod/browser/Voyager.mod OPEN"
  326.  
  327.     lvsort %Name
  328.     lvsave "htmlext:settings/defaults/Action.prefs"
  329.     lvclear
  330.     lvchange "t:hxt_dummy"
  331.  
  332.     Update #This 99 "90"
  333.     ifexists file "htmlext:settings/htmlext.prefs"
  334.         ;Nichts
  335.     else
  336.         Update #This 5 "Kopiere Htmlext.prefs ..."
  337.         cli 'copy htmlext:settings/defaults/HTMLEXT.prefs to htmlext:settings/htmlext.prefs'
  338.     endif
  339.  
  340.     Update #This 99 "92"
  341.     ifexists file "htmlext:settings/Users.prefs"
  342.         ;Nichts
  343.     else
  344.         Update #This 5 "Kopiere Users.prefs ..."
  345.         cli 'copy htmlext:settings/defaults/USERS.prefs to htmlext:settings/users.prefs'
  346.     endif
  347.  
  348.     Update #This 99 "94"
  349.     ifexists file "htmlext:settings/Action.prefs"
  350.         ;Nichts
  351.     else
  352.         Update #This 5 "Kopiere Action.prefs ..."
  353.         cli 'copy htmlext:settings/defaults/Action.prefs to htmlext:settings/action.prefs'
  354.     endif
  355.  
  356.     Update #This 99 "96"
  357.     ifexists file "htmlext:HTMLEXT.info"
  358.         ;Nichts
  359.     else
  360.         Update #This 5 "Kopiere HTMLEXT Icon ..."
  361.         cli 'copy htmlext:data/Setup/HTMLEXT.info to htmlext:HTMLEXT.info'
  362.     endif
  363.  
  364.     Update #This 99 "98"
  365.     ifexists file "htmlext:HTMLEXT"
  366.         ;Nichts
  367.     else
  368.         Update #This 5 "Kopiere HTMLEXT Starter ..."
  369.         cli 'copy htmlext:data/Setup/HTMLEXT to htmlext:HTMLEXT'
  370.     endif
  371.     cli 'wait 1'
  372.  
  373.     Update #This 99 "100"
  374.     Update #This 4 "Setup erfolgreich beendet."
  375.     Update #This 5 "Bitte akt. Sie den WB Fensterinhalt!"
  376.     SetGad #This 3 SHOW
  377.     Redraw #This
  378.  
  379. XBUTTON 5 80 190 18 "B_eenden"
  380.     GadFont xHelvetica.font 13 000
  381.     gadkey "e"
  382.     GadID 3
  383.     GuiQuit #This
  384.  
  385.