home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / menu.suites < prev    next >
Encoding:
Text File  |  2000-02-03  |  32.8 KB  |  757 lines

  1. G4C
  2. ; $VER: menu.suites Rev.019 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 220 "Suite"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     if $*ADMIN = 0
  11.         SetGad #This 1 OFF
  12.         SetGad #This 2 OFF
  13.         SetGad #This 3 OFF
  14.     endif
  15.     lvuse HTMLEXT 1
  16.     EXTRACT %SuiteSpiegelStat CLEAN spstat
  17.     if $spstat = "AUS"
  18.         SetGad #This 4 OFF
  19.         SetGad #This 5 OFF
  20.         SetGad #This 6 OFF
  21.     else
  22.         SetGad #This 4 ON
  23.         SetGad #This 5 ON
  24.         SetGad #This 6 ON
  25.     endif
  26.     EXTRACT %SuiteBakArcDir CLEAN bakdir
  27.     if $bakdir = ""
  28.         SetGad #This 7 OFF
  29.         SetGad #This 8 OFF
  30.     else
  31.         SetGad #This 7 ON
  32.         SetGad #This 8 ON
  33.     endif
  34.     GuiOpen #This
  35.  
  36. ;=== Abbruch Button
  37. XButton 0 0 100 15 "Abbrechen [_X]"
  38.     GadFont xHelvetica.font 11 010
  39.     GadKey "x"
  40.     GuiQuit #This
  41.  
  42. XButton 0 15 100 15 "Besuchen"
  43.     GadFont xHelvetica.font 11 000
  44.     GuiClose #This
  45.     EZReq "Suite Besuchen: Welche wollen Sie besuchen?" "_1 Online|_2 Work|_3 Lokale|[_X] Abbrechen" bes
  46.     if $bes = 1
  47.         lvuse HTMLEXT 1
  48.         EXTRACT %SuiteURLOL CLEAN urlol
  49.         cli 'rx $*BROWSER OPENURL $urlol'
  50.     elseif $bes = 2
  51.         lvuse HTMLEXT 1
  52.         EXTRACT %SuiteURLWRK CLEAN urlwrk
  53.         cli 'rx $*BROWSER OPENURL $urlwrk'
  54.     elseif $bes = 3
  55.         lvuse HTMLEXT 1
  56.         Joinfile $*SUITEDIR "default.htm" sf1
  57.         Joinfile $*SUITEDIR "default.html" sf2
  58.         Joinfile $*SUITEDIR "index.htm" sf3
  59.         Joinfile $*SUITEDIR "index.html" sf4
  60.         ifexists file $sf1
  61.             cli 'rx $*BROWSER OPEN $sf1'
  62.         elseifexists file $sf2
  63.             cli 'rx $*BROWSER OPEN $sf2'
  64.         elseifexists file $sf3
  65.             cli 'rx $*BROWSER OPEN $sf13'
  66.         elseifexists file $sf4
  67.             cli 'rx $*BROWSER OPEN $sf4'
  68.         endif
  69.     endif
  70.     GuiQuit #This
  71.  
  72. XButton 0 30 100 15 "History"
  73.     GadFont xHelvetica.font 11 000
  74.     GuiClose #This
  75.     GuiLoad htmlext:gui/func.history
  76.     GuiQuit #This
  77.  
  78. XButton 0 45 100 15 "Notitzen"
  79.     GadFont xHelvetica.font 11 000
  80.     GuiClose #This
  81.     SetVar note $*SUITEDIR
  82.     AppVar note "_hxt/note."
  83.     AppVar note $*USER
  84.     cli 'EditPad $note'
  85.     GuiQuit #This
  86.  
  87. XButton 0 60 100 15 "Rapport"
  88.     GadFont xHelvetica.font 11 000
  89.     GuiClose #This
  90.     SetVar rap $*SUITEDIR
  91.     AppVar rap "_hxt/rap."
  92.     AppVar rap $*USER
  93.     ifexists file $rap
  94.         cli 'EditPad $rap'
  95.     else
  96.         copy "htmlext:settings/_defs/Rapport.txt" $rap
  97.         cli 'EditPad $rap'
  98.     endif
  99.     GuiQuit #This
  100.  
  101. XButton 0 75 100 15 "Umfang in kB"
  102.     GadFont xHelvetica.font 11 000
  103.     GuiClose #This
  104.     Update "Infobar" 1 "Berechne Suite-Grösse ... bitte haben Sie Geduld!"
  105.     cli 'rx htmlext:mod/htmlext.smod SUITESIZE $*SUITEDIR'
  106.     Update "Infobar" 1 ""
  107.     GuiQuit #This
  108.  
  109. XButton 0 95 100 15 "Backup: Suite"
  110.     GadFont xHelvetica.font 11 000
  111.     GadID 7
  112.     GuiClose #This
  113.     lvuse HTMLEXT 1
  114.     EXTRACT %SuiteBakArcDir CLEAN bakdir
  115.     JoinFile $bakdir $*SUITENAME bakfile
  116.     AppVar bakfile ".lha"
  117.     ifexists file "t:htmlext/backup.list"
  118.         delete t:htmlext/backup.list
  119.     endif
  120.     cli 'echo "$*SUITENAME HomePage Backup" >t:htmlext/backup.list'
  121.     cli 'echo "====================================================================" >>t:htmlext/backup.list'
  122.     cli 'echo " " >>t:htmlext/backup.list'
  123.     cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list'
  124.     cli 'echo " " >>t:htmlext/backup.list'
  125.     ifexists file $bakfile
  126.         cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp'
  127.         SetVar filedat $.htmlext.tmp
  128.         cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp'
  129.         SetVar filesize $.htmlext.tmp
  130.         cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp'
  131.         SetVar filetime $.htmlext.tmp
  132.         cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp'
  133.         SetVar filecom $.htmlext.tmp
  134.         EZReq "Suite Backup erstellen/rücksichern, letztes Backup:\n\nDatei: $bakfile\nGrösse: $filesize bytes\nDatum: $filedat\nZeit: $filetime\nKommentar: $filecom" "_1 Updaten|_2 Neues Backup|_3 Rücksichern|[_X] Abbrechen" bakreq
  135.         if $bakreq = 1
  136.             Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!"
  137.             cli 'lha -r u $bakfile $*SUITEDIR >>t:htmlext/backup.list'
  138.             Update "Infobar" 1 " "
  139.             cli 'multiview t:htmlext/backup.list'
  140.         elseif $bakreq = 2
  141.             Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..."
  142.             cli 'delete $bakfile FORCE'
  143.             Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!"
  144.             cli 'lha -r a $bakfile $*SUITEDIR >>t:htmlext/backup.list'
  145.             Update "Infobar" 1 " "
  146.             cli 'multiview t:htmlext/backup.list'
  147.         elseif $bakreq = 3
  148.             Update "Infobar" 1 "Sichere Archiv zurück nach $*SUITEDIR ... bitte haben Sie etwas Geduld!"
  149.             cli 'lha x $bakfile $*SUITEDIR >>t:htmlext/backup.list'
  150.             Update "Infobar" 1 " "
  151.             cli 'multiview t:htmlext/backup.list'
  152.         endif
  153.     else
  154.         EZReq "Suite Backup erstellen/rücksichern:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq
  155.         if $bakreq = 1
  156.             cli 'delete $bakfile FORCE'
  157.             cli 'lha -r a $bakfile $*SUITEDIR >>t:htmlext/backup.list'
  158.             cli 'multiview t:htmlext/backup.list'
  159.         endif
  160.     endif
  161.     GuiQuit #This
  162.  
  163. XButton 0 110 100 15 "Backup: Proj."
  164.     GadFont xHelvetica.font 11 000
  165.     GadID 8
  166.     GuiClose #This
  167.     lvuse HTMLEXT 1
  168.     EXTRACT %SuiteBakArcDir CLEAN bakdir
  169.     JoinFile $bakdir $*SUITENAME bakfile
  170.     AppVar bakfile "_pjdata.lha"
  171.     ifexists file "t:htmlext/backup.list"
  172.         delete t:htmlext/backup.list
  173.     endif
  174.     cli 'echo "$*SUITENAME HomePage Projectdata Backup" >t:htmlext/backup.list'
  175.     cli 'echo "====================================================================" >>t:htmlext/backup.list'
  176.     cli 'echo " " >>t:htmlext/backup.list'
  177.     cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list'
  178.     cli 'echo " " >>t:htmlext/backup.list'
  179.     ifexists file $bakfile
  180.         cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp'
  181.         SetVar filedat $.htmlext.tmp
  182.         cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp'
  183.         SetVar filesize $.htmlext.tmp
  184.         cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp'
  185.         SetVar filetime $.htmlext.tmp
  186.         cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp'
  187.         SetVar filecom $.htmlext.tmp
  188.         EZReq "Suite Backup erstellen/rücksichern, letztes Backup:\n\nDatei: $bakfile\nGrösse: $filesize bytes\nDatum: $filedat\nZeit: $filetime\nKommentar: $filecom" "_1 Updaten|_2 Neues Backup|_3 Rücksichern|[_X] Abbrechen" bakreq
  189.         if $bakreq = 1
  190.             Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!"
  191.             cli 'lha -r u $bakfile $*SUITEDATADIR >>t:htmlext/backup.list'
  192.             Update "Infobar" 1 " "
  193.             cli 'multiview t:htmlext/backup.list'
  194.         elseif $bakreq = 2
  195.             Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..."
  196.             cli 'delete $bakfile FORCE'
  197.             Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!"
  198.             cli 'lha -r a $bakfile $*SUITEDATADIR >>t:htmlext/backup.list'
  199.             Update "Infobar" 1 " "
  200.             cli 'multiview t:htmlext/backup.list'
  201.         elseif $bakreq = 3
  202.             Update "Infobar" 1 "Sichere Archiv zurück nach $*SUITEDATADIR ... bitte haben Sie etwas Geduld!"
  203.             cli 'lha x $bakfile $*SUITEDATADIR >>t:htmlext/backup.list'
  204.             Update "Infobar" 1 " "
  205.             cli 'multiview t:htmlext/backup.list'
  206.         endif
  207.     else
  208.         EZReq "Suite Projectdata Backup erstellen:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq
  209.         if $bakreq = 1
  210.             cli 'delete $bakfile FORCE'
  211.             cli 'lha -r a $bakfile $*SUITEDATADIR >>t:htmlext/backup.list'
  212.             cli 'multiview t:htmlext/backup.list'
  213.         endif
  214.     endif
  215.     GuiQuit #This
  216.  
  217. XButton 0 125 100 15 "Spiegel: Alles"
  218.     GadFont xHelvetica.font 11 000
  219.     GadID 4
  220.     GuiClose #This
  221.     EZREQ "Suite & Projektdaten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  222.     if $spmod = 1
  223.         GoSub #This "AllToMed"
  224.     elseif $spmod = 2
  225.         GoSub #This "AllToLoc"
  226.     endif
  227.     GuiQuit #This
  228.  
  229. XButton 0 140 100 15 "Spiegel: Suite"
  230.     GadFont xHelvetica.font 11 000
  231.     GadID 5
  232.     GuiClose #This
  233.     EZREQ "Suite Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  234.     if $spmod = 1
  235.         GoSub #This "SuiteToMed"
  236.     elseif $spmod = 2
  237.         GoSub #This "SuiteToLoc"
  238.     endif
  239.     GuiQuit #This
  240.  
  241.  
  242. XButton 0 155 100 15 "Spiegel: Proj."
  243.     GadFont xHelvetica.font 11 000
  244.     GadID 6
  245.     GuiClose #This
  246.     EZREQ "Projekt Daten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  247.     if $spmod = 1
  248.         GoSub #This "ProjToMed"
  249.     elseif $spmod = 2
  250.         GoSub #This "ProjToLoc"
  251.     endif
  252.     GuiQuit #This
  253.  
  254. XButton 0 175 100 15 "Neu"
  255.     GadFont xHelvetica.font 11 000
  256.     GadID 1
  257.     GuiClose #This
  258.     SetVar .htmlext.rqt "Neue Suite aufnehmen ..."  ;Titel
  259.     SetVar .htmlext.rqb "Geben Sie den gewünschten NAmen ein:"  ;Body
  260.     SetVar .htmlext.rqd $aktsuitename       ;Default
  261.     SetVar .htmlext.rqu "Weiter|Abbrechen"  ;Buttons
  262.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  263.     if $.htmlext.res = 1
  264.         ReqFile -1 -1 250 500 "Bitte Suite Verzeichnis wählen ..." DIR sdir ""
  265.         SetVar aktsuitename $.htmlext.tmp
  266.         lvuse HTMLEXT 1
  267.         lvadd ''
  268.         %SuiteName = $aktsuitename
  269.         %SuitePath = $sdir
  270.         %SuiteMail = ""
  271.         %SuiteSubj = ""
  272.         %SuiteFTPOL = ""
  273.         %SuiteFTPWRK = ""
  274.         %SuiteHistFile = ""
  275.         %SuiteHistAuto = ""
  276.         %SuiteServTyp = ""
  277.         %SuiteSpiegelDir = ""
  278.         %SuiteSpiegelStat = ""
  279.         %SuiteHistAuto = ""
  280.         %SuiteURLOL = ""
  281.         %SuiteURLWRK = ""
  282.         lvsort %SuiteName
  283.         lvsave htmlext:Settings/Suites.prefs
  284.         SetVar ndir $sdir
  285.         AppVar ndir "_hxt"
  286.         SetVar nproj $ndir
  287.         AppVar nproj "/marks.hp"
  288.         ifexists file $nproj
  289.             ;Nichts
  290.         else
  291.             cli 'makedir $ndir'
  292.             cli 'copy htmlext:settings/_defs/proj.prefs to $nproj'
  293.             SetVar nprojdata $ndir
  294.             AppVar nprojdata "/marks.pd"
  295.             cli 'copy htmlext:settings/_defs/projdata.prefs to $nprojdata'
  296.         endif
  297.     endif
  298.     GuiQuit #This
  299.  
  300. XButton 0 190 100 15 "Einstellungen"
  301.     GadFont xHelvetica.font 11 000
  302.     GadID 2
  303.     GuiClose #This
  304.     GuiWindow HTMLEXT WAIT
  305.     GuiWindow #This WAIT
  306.     Guiload htmlext:gui/suiteprefs
  307.     GuiQuit #This
  308.  
  309. XButton 0 205 100 15 "Löschen"
  310.     GadFont xHelvetica.font 11 000
  311.     GadID 3
  312.     GuiClose #This
  313.     EZReq "Suite löschen: Was wollen Sie löschen?\n\nNur Eintrag:\nNur der Eintrag in der Suitenliste wird entfernt,\ndabei gehen jedoch die Einstellungen verloren!\n\nEintrag & Markierungen:\nWie oben, zus. alle dazugehörigen Projektdaten\n\nAlles:\nWie Punkt 2, zusätzlich noch die\nreal existierenden HomePage Dateien!" "_1 Eintrag|_2 Eintrag & Markierungen|_3 Alles|[_X] Nein" "wirkl"
  314.     if $wirkl = 1
  315.         lvuse HTMLEXT 1
  316.         LVDel -1
  317.         lvsort %SuiteName
  318.         lvsave htmlext:Settings/Suites.prefs
  319.     elseif $wirkl = 2
  320.         cli 'delete $*SUITEPROJ $*SUITEPROJDATA'
  321.         SetVar aktnote $*SUITEDIR
  322.         AppVar aktnote "_"
  323.         AppVar aktnote $*SUITENAME
  324.         AppVar aktnote ".note.#?"
  325.         cli 'delete $aktrap'
  326.         SetVar aktrap $*SUITEDIR
  327.         AppVar aktrap "_"
  328.         AppVar aktrap $*SUITENAME
  329.         AppVar aktrap ".rap.#?"
  330.         cli 'delete $aktrap'
  331.         lvuse HTMLEXT 1
  332.         LVDel -1
  333.         lvsort %SuiteName
  334.         lvsave htmlext:Settings/Suites.prefs
  335.     elseif $wirkl = 3
  336.         cli 'delete $*SUITEPROJ $*SUITEPROJDATA'
  337.         SetVar aktnote $*SUITEDIR
  338.         AppVar aktnote "_"
  339.         AppVar aktnote $*SUITENAME
  340.         AppVar aktnote ".note.#?"
  341.         cli 'delete $aktrap'
  342.         SetVar aktrap $*SUITEDIR
  343.         AppVar aktrap "_"
  344.         AppVar aktrap $*SUITENAME
  345.         AppVar aktrap ".rap.#?"
  346.         cli 'delete $aktrap'
  347.         cli 'delete $*SUITEDIR'
  348.         lvuse HTMLEXT 1
  349.         LVDel -1
  350.         lvsort %SuiteName
  351.         lvsave htmlext:Settings/Suites.prefs
  352.     endif
  353.     GuiQuit #This
  354.  
  355. ;Spiegel Routinen: Sichern
  356. xRoutine "AllToMed"
  357.     lvuse HTMLEXT 1
  358.     EXTRACT %SuiteSpiegelDir CLEAN mirrordir
  359.     EXTRACT %SuitePath CLEAN suitedir
  360.     EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  361.     if $spdel = 1
  362.         guiload htmlext:gui/func.mirror
  363.         Update func.mirror 2 "Alles Spiegeln"
  364.         Update func.mirror 1 "Erstelle Suite Rapport"
  365.         GuiWindow HTMLEXT WAIT
  366.         GuiWindow #This WAIT
  367.         cli 'echo "$*SUITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  368.         cli 'echo " " >>t:htmlext/mirror.list'
  369.         cli 'echo "Von:  $suitedir" >>t:htmlext/mirror.list'
  370.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  371.         cli 'echo " " >>t:htmlext/mirror.list'
  372.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  373.         cli 'echo " " >>t:htmlext/mirror.list'
  374.         Update "func.mirror" 1 "Kopiere Suite Daten ..."
  375.         Update "Infobar" 1 "Kopiere $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  376.         cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  377.  
  378.         lvuse HTMLEXT 1
  379.         EXTRACT %SuiteDataMirror CLEAN mirrordir
  380.         EXTRACT %SuiteDataPath CLEAN pjddir
  381.         Update "func.mirror" 1 "Erstelle Daten Raport ..."
  382.         cli 'echo " " >>t:htmlext/mirror.list'
  383.         cli 'echo " " >>t:htmlext/mirror.list'
  384.         cli 'echo "$*SUITENAME :  Project Data Spiegel Rapport" >>t:htmlext/mirror.list'
  385.         cli 'echo " " >>t:htmlext/mirror.list'
  386.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  387.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  388.         cli 'echo " " >>t:htmlext/mirror.list'
  389.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  390.         cli 'echo " " >>t:htmlext/mirror.list'
  391.         Update "func.mirror" 1 "Kopiere Projekt Daten ..."
  392.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  393.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  394.         run 'multiview t:htmlext/mirror.list'
  395.         GuiWindow HTMLEXT RESUME
  396.         GuiWindow #This RESUME
  397.     elseif $spdel = 2
  398.         GuiWindow HTMLEXT WAIT
  399.         GuiWindow #This WAIT
  400.         guiload htmlext:gui/func.mirror
  401.         Update "func.mirror" 2 "Suitedaten Spiegelung ..."
  402.         Update func.mirror 1 "Erstelle Suite Rapport"
  403.         cli 'echo "$*SUITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  404.         cli 'echo " " >>t:htmlext/mirror.list'
  405.         cli 'echo "Von:  $suitedir" >>t:htmlext/mirror.list'
  406.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  407.         cli 'echo " " >>t:htmlext/mirror.list'
  408.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  409.         cli 'echo " " >>t:htmlext/mirror.list'
  410.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  411.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  412.         Update "func.mirror" 1 "Lösche Suite Daten ..."
  413.         cli 'execute t:htmlext/mirror.dellist'
  414.         cli 'delete t:htmlext/mirror.dellist FORCE'
  415.         Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  416.         Update "func.mirror" 1 "Kopiere Daten ..."
  417.         cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  418.  
  419.         lvuse HTMLEXT 1
  420.         EXTRACT %SuiteDataMirror CLEAN mirrordir
  421.         EXTRACT %SuiteDataPath CLEAN pjddir
  422.  
  423.         Update "func.mirror" 2 "Projetdaten Spiegelung ..."
  424.         Update "func.mirror" 1 "Erstelle Rapport"
  425.  
  426.         cli 'echo " " >>t:htmlext/mirror.list'
  427.         cli 'echo " " >>t:htmlext/mirror.list'
  428.         cli 'echo "$*SUITENAME :  Projectdata Spiegel Rapport" >>t:htmlext/mirror.list'
  429.         cli 'echo " " >>t:htmlext/mirror.list'
  430.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  431.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  432.         cli 'echo " " >>t:htmlext/mirror.list'
  433.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  434.         cli 'echo " " >>t:htmlext/mirror.list'
  435.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  436.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  437.         Update "func.mirror" 1 "Lösche bestehende Daten"
  438.         cli 'execute t:htmlext/mirror.dellist'
  439.         cli 'delete t:htmlext/mirror.dellist FORCE'
  440.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  441.         Update "func.mirror" 1 "Kopiere Daten"
  442.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  443.         GuiWindow HTMLEXT RESUME
  444.         GuiWindow #This RESUME
  445.         run 'multiview t:htmlext/mirror.list'
  446.     endif
  447.     Update Infobar 1 "Komplett Sicherung erfolgreich abgeschlossen!"
  448.     guiquit func.mirror
  449.  
  450. xRoutine "SuiteToMed"
  451.     lvuse HTMLEXT 1
  452.     EXTRACT %SuiteSpiegelDir CLEAN mirrordir
  453.     EXTRACT %SuitePath CLEAN suitedir
  454.     EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  455.     if $spdel = 1
  456.         guiload htmlext:gui/func.mirror
  457.         GuiWindow HTMLEXT WAIT
  458.         GuiWindow #This WAIT
  459.         Update "func.mirror" 2 "Suite Spiegelung ..."
  460.         Update "func.mirror" 1 "Erstelle Rapport"
  461.         cli 'echo "$*SUITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  462.         cli 'echo " " >>t:htmlext/mirror.list'
  463.         cli 'echo "Von:  $suitedir" >>t:htmlext/mirror.list'
  464.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  465.         cli 'echo " " >>t:htmlext/mirror.list'
  466.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  467.         cli 'echo " " >>t:htmlext/mirror.list'
  468.         Update "func.mirror" 1 "Kopiere Daten ..."
  469.         Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  470.         cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  471.         cli 'multiview t:htmlext/mirror.list'
  472.         GuiWindow HTMLEXT RESUME
  473.         GuiWindow #This RESUME
  474.     elseif $spdel = 2
  475.         guiload htmlext:gui/func.mirror
  476.         GuiWindow HTMLEXT WAIT
  477.         GuiWindow #This WAIT
  478.         Update "func.mirror" 2 "Suite Spiegelung ..."
  479.         Update "func.mirror" 1 "Erstelle Rapport"
  480.         cli 'echo "$*SUITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  481.         cli 'echo " " >>t:htmlext/mirror.list'
  482.         cli 'echo "Von:  $suitedir" >>t:htmlext/mirror.list'
  483.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  484.         cli 'echo " " >>t:htmlext/mirror.list'
  485.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  486.         cli 'echo " " >>t:htmlext/mirror.list'
  487.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  488.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  489.         Update "func.mirror" 1 "Lösche Daten ..."
  490.         cli 'execute t:htmlext/mirror.dellist'
  491.         cli 'delete t:htmlext/mirror.dellist FORCE'
  492.         Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  493.         Update "func.mirror" 1 "Kopiere Daten ..."
  494.         cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  495.         GuiWindow HTMLEXT RESUME
  496.         GuiWindow #This RESUME
  497.         run 'multiview t:htmlext/mirror.list'
  498.     endif
  499.     Update Infobar 1 "Suite Spiegelung erfolgreich abgeschlossen!"
  500.     guiquit func.mirror
  501.  
  502. xRoutine "ProjToMed"
  503.     lvuse HTMLEXT 1
  504.     EXTRACT %SuiteDataMirror CLEAN mirrordir
  505.     EXTRACT %SuiteDataPath CLEAN pjddir
  506.     EZREQ "Destinations Dateien vorher löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  507.     if $spdel = 1
  508.         GuiLoad htmlext:gui/func.mirror
  509.         GuiWindow HTMLEXT WAIT
  510.         GuiWindow #This WAIT
  511.         Update "func.mirror" 2 "Projektdaten Speigelung"
  512.         Update "func.mirror" 1 "Erstelle Rapport"
  513.         cli 'echo "$*SUITENAME :  Project Data Spiegel Rapport" >t:htmlext/mirror.list'
  514.         cli 'echo " " >>t:htmlext/mirror.list'
  515.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  516.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  517.         cli 'echo " " >>t:htmlext/mirror.list'
  518.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  519.         cli 'echo " " >>t:htmlext/mirror.list'
  520.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  521.         Update "func.mirror" 1 "Kopiere Daten"
  522.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  523.         GuiWindow HTMLEXT RESUME
  524.         GuiWindow #This RESUME
  525.         run 'multiview t:htmlext/mirror.list'
  526.     elseif $spdel = 2
  527.         guiload htmlext:gui/func.mirror
  528.         GuiWindow HTMLEXT WAIT
  529.         GuiWindow #This WAIT
  530.         Update "func.mirror" 2 "Projektdaten Speigelung"
  531.         Update "func.mirror" 1 "Erstelle Rapport"
  532.         cli 'echo "$*SUITENAME :  Projectdata Spiegel Rapport" >t:htmlext/mirror.list'
  533.         cli 'echo " " >>t:htmlext/mirror.list'
  534.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  535.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  536.         cli 'echo " " >>t:htmlext/mirror.list'
  537.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  538.         cli 'echo " " >>t:htmlext/mirror.list'
  539.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  540.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  541.         Update "func.mirror" 1 "Lösche Daten"
  542.         cli 'execute t:htmlext/mirror.dellist'
  543.         cli 'delete t:htmlext/mirror.dellist FORCE'
  544.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  545.         Update "func.mirror" 1 "Kopiere Daten"
  546.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  547.         GuiWindow HTMLEXT RESUME
  548.         GuiWindow #This RESUME
  549.         run 'multiview t:htmlext/mirror.list'
  550.     endif
  551.     Update Infobar 1 "Projektdaten Spiegelung erfolgreich abgeschlossen!"
  552.     GuiQuit func.mirror
  553.  
  554.  
  555. ;Spiegel Routinen: Rücksichern
  556. xRoutine "AllToLoc"
  557.     lvuse HTMLEXT 1
  558.     EXTRACT %SuiteSpiegelDir CLEAN mirrordir
  559.     EXTRACT %SuitePath CLEAN suitedir
  560.     EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel
  561.     if $spdel = 1
  562.         GuiLoad htmlext:gui/func.mirror
  563.         GuiWindow HTMLEXT WAIT
  564.         GuiWindow #This WAIT
  565.         Update "func.mirror" 2 "Suite Rücksichern ..."
  566.         Update "func.mirror" 1 "Estelle Rapport"
  567.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  568.         cli 'echo " " >>t:htmlext/mirror.list'
  569.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  570.         cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list'
  571.         cli 'echo " " >>t:htmlext/mirror.list'
  572.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  573.         cli 'echo " " >>t:htmlext/mirror.list'
  574.         Update "Infobar" 1 "Spiegle $mirrordir nach $suitedir ... bitte haben Sie etwas Geduld!"
  575.         Update "func.mirror" 1 "Kopiere Daten"
  576.         cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  577.  
  578.         lvuse HTMLEXT 1
  579.         EXTRACT %SuiteDataMirror CLEAN mirrordir
  580.         EXTRACT %SuiteDataPath CLEAN pjddir
  581.  
  582.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  583.         Update "func.mirror" 1 "Erstelle Rapport"
  584.         cli 'echo " " >>t:htmlext/mirror.list'
  585.         cli 'echo " " >>t:htmlext/mirror.list'
  586.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >>t:htmlext/mirror.list'
  587.         cli 'echo " " >>t:htmlext/mirror.list'
  588.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  589.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  590.         cli 'echo " " >>t:htmlext/mirror.list'
  591.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  592.         cli 'echo " " >>t:htmlext/mirror.list'
  593.         Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!"
  594.         Update "func.mirror" 1 "Kopiere Daten"
  595.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  596.         GuiWindow HTMLEXT RESUME
  597.         GuiWindow #This RESUME
  598.         run 'multiview t:htmlext/mirror.list'
  599.     elseif $spdel = 2
  600.         GuiLoad htmlext:gui/func.mirror
  601.         GuiWindow HTMLEXT WAIT
  602.         GuiWindow #This WAIT
  603.         Update "func.mirror" 2 "Suite Rücksichern ..."
  604.         Update "func.mirror" 1 "Estelle Rapport"
  605.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  606.         cli 'echo " " >>t:htmlext/mirror.list'
  607.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  608.         cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list'
  609.         cli 'echo " " >>t:htmlext/mirror.list'
  610.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  611.         cli 'echo " " >>t:htmlext/mirror.list'
  612.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  613.         cli 'list $suitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  614.         Update "func.mirror" 1 "Lösche Daten"
  615.         cli 'execute t:htmlext/mirror.dellist'
  616.         cli 'delete t:htmlext/mirror.dellist FORCE'
  617.         Update "func.mirror" 1 "Kopiere Daten"
  618.         Update "Infobar" 1 "$mirrordir nach $suitedir rücksichern ... bitte haben Sie etwas Geduld!"
  619.         cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  620.  
  621.         lvuse HTMLEXT 1
  622.         EXTRACT %SuiteDataMirror CLEAN mirrordir
  623.         EXTRACT %SuiteDataPath CLEAN pjddir
  624.  
  625.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  626.         Update "func.mirror" 1 "Erstelle Rapport"
  627.         cli 'echo " " >>t:htmlext/mirror.list'
  628.         cli 'echo " " >>t:htmlext/mirror.list'
  629.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >>t:htmlext/mirror.list'
  630.         cli 'echo " " >>t:htmlext/mirror.list'
  631.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  632.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  633.         cli 'echo " " >>t:htmlext/mirror.list'
  634.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  635.         cli 'echo " " >>t:htmlext/mirror.list'
  636.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  637.         cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  638.         Update "func.mirror" 1 "Lösche Daten"
  639.         cli 'execute t:htmlext/mirror.dellist'
  640.         cli 'delete t:htmlext/mirror.dellist FORCE'
  641.         Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!"
  642.         Update "func.mirror" 1 "Kopiere Daten"
  643.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  644.         
  645.         GuiWindow HTMLEXT RESUME
  646.         GuiWindow #This RESUME
  647.         run 'multiview t:htmlext/mirror.list'
  648.     endif
  649.     Update Infobar 1 "Suite Rücksicherung erfolgreich abgeschlossen!"
  650.     GuiQuit func.mirror
  651.  
  652. xRoutine "SuiteToLoc"
  653.     lvuse HTMLEXT 1
  654.     EXTRACT %SuiteSpiegelDir CLEAN mirrordir
  655.     EXTRACT %SuitePath CLEAN suitedir
  656.     EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel
  657.     if $spdel = 1
  658.         GuiLoad htmlext:gui/func.mirror
  659.         GuiWindow HTMLEXT WAIT
  660.         GuiWindow #This WAIT
  661.         Update "func.mirror" 2 "Suite Rücksichern ..."
  662.         Update "func.mirror" 1 "Estelle Rapport"
  663.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  664.         cli 'echo " " >>t:htmlext/mirror.list'
  665.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  666.         cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list'
  667.         cli 'echo " " >>t:htmlext/mirror.list'
  668.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  669.         cli 'echo " " >>t:htmlext/mirror.list'
  670.         Update "Infobar" 1 "Spiegle $mirrordir nach $suitedir ... bitte haben Sie etwas Geduld!"
  671.         Update "func.mirror" 1 "Kopiere Daten"
  672.         cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  673.         GuiWindow HTMLEXT RESUME
  674.         GuiWindow #This RESUME
  675.         run 'multiview t:htmlext/mirror.list'
  676.     elseif $spdel = 2
  677.         guiload htmlext:gui/func.mirror
  678.         GuiWindow HTMLEXT WAIT
  679.         GuiWindow #This WAIT
  680.         Update "func.mirror" 2 "Suite Rücksichern ..."
  681.         Update "func.mirror" 1 "Estelle Rapport"
  682.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  683.         cli 'echo " " >>t:htmlext/mirror.list'
  684.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  685.         cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list'
  686.         cli 'echo " " >>t:htmlext/mirror.list'
  687.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  688.         cli 'echo " " >>t:htmlext/mirror.list'
  689.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  690.         cli 'list $suitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  691.         Update "func.mirror" 1 "Lösche Daten"
  692.         cli 'execute t:htmlext/mirror.dellist'
  693.         cli 'delete t:htmlext/mirror.dellist FORCE'
  694.         Update "func.mirror" 1 "Kopiere Daten"
  695.         Update "Infobar" 1 "$mirrordir nach $suitedir rücksichern ... bitte haben Sie etwas Geduld!"
  696.         cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  697.         GuiWindow HTMLEXT RESUME
  698.         GuiWindow #This RESUME
  699.         run 'multiview t:htmlext/mirror.list'
  700.     endif
  701.     Update Infobar 1 "Suite Rücksicherung erfolgreich abgeschlossen!"
  702.     GuiQuit func.mirror
  703.  
  704. xRoutine "ProjToLoc"
  705.     lvuse HTMLEXT 1
  706.     EXTRACT %SuiteDataMirror CLEAN mirrordir
  707.     EXTRACT %SuiteDataPath CLEAN pjddir
  708.     EZREQ "Sollen die lokalen Dateien vorher gelöscht werde?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  709.     if $spdel = 1
  710.         GuiWindow HTMLEXT WAIT
  711.         GuiWindow #This WAIT
  712.         guiload htmlext:gui/func.mirror
  713.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  714.         Update "func.mirror" 1 "Erstelle Rapport"
  715.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  716.         cli 'echo " " >>t:htmlext/mirror.list'
  717.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  718.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  719.         cli 'echo " " >>t:htmlext/mirror.list'
  720.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  721.         cli 'echo " " >>t:htmlext/mirror.list'
  722.         Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!"
  723.         Update "func.mirror" 1 "Kopiere Daten"
  724.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  725.         GuiWindow HTMLEXT RESUME
  726.         GuiWindow #This RESUME
  727.         run 'multiview t:htmlext/mirror.list'
  728.     elseif $spdel = 2
  729.         GuiWindow HTMLEXT WAIT
  730.         GuiWindow #This WAIT
  731.         guiload htmlext:gui/func.mirror
  732.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  733.         Update "func.mirror" 1 "Erstelle Rapport"
  734.         cli 'echo "$*SUITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  735.         cli 'echo " " >>t:htmlext/mirror.list'
  736.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  737.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  738.         cli 'echo " " >>t:htmlext/mirror.list'
  739.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  740.         cli 'echo " " >>t:htmlext/mirror.list'
  741.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  742.         cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  743.         Update "func.mirror" 1 "Lösche Daten"
  744.         cli 'execute t:htmlext/mirror.dellist'
  745.         cli 'delete t:htmlext/mirror.dellist FORCE'
  746.         Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!"
  747.         Update "func.mirror" 1 "Kopiere Daten"
  748.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  749.         GuiWindow HTMLEXT RESUME
  750.         GuiWindow #This RESUME
  751.         run 'multiview t:htmlext/mirror.list'
  752.     endif
  753.     Update Infobar 1 "Projektdaten Rücksicherung erfolgreich abgeschlossen!"
  754.     GuiQuit func.mirror
  755.  
  756.  
  757.