home *** CD-ROM | disk | FTP | other *** search
Wrap
G4C ; $VER: menu.suites Rev.019 © by Juan Manuel Wehrli 1999 - 2000 WINBIG -1 -1 100 220 "Suite" WinType 00001000 WinOnMouse 95 5 WinBackGround IMAGE BG 0 Winout "NIL:" xOnLoad if $*ADMIN = 0 SetGad #This 1 OFF SetGad #This 2 OFF SetGad #This 3 OFF endif lvuse HTMLEXT 1 EXTRACT %SuiteSpiegelStat CLEAN spstat if $spstat = "AUS" SetGad #This 4 OFF SetGad #This 5 OFF SetGad #This 6 OFF else SetGad #This 4 ON SetGad #This 5 ON SetGad #This 6 ON endif EXTRACT %SuiteBakArcDir CLEAN bakdir if $bakdir = "" SetGad #This 7 OFF SetGad #This 8 OFF else SetGad #This 7 ON SetGad #This 8 ON endif GuiOpen #This ;=== Abbruch Button XButton 0 0 100 15 "Abbrechen [_X]" GadFont xHelvetica.font 11 010 GadKey "x" GuiQuit #This XButton 0 15 100 15 "Besuchen" GadFont xHelvetica.font 11 000 GuiClose #This EZReq "Suite Besuchen: Welche wollen Sie besuchen?" "_1 Online|_2 Work|_3 Lokale|[_X] Abbrechen" bes if $bes = 1 lvuse HTMLEXT 1 EXTRACT %SuiteURLOL CLEAN urlol cli 'rx $*BROWSER OPENURL $urlol' elseif $bes = 2 lvuse HTMLEXT 1 EXTRACT %SuiteURLWRK CLEAN urlwrk cli 'rx $*BROWSER OPENURL $urlwrk' elseif $bes = 3 lvuse HTMLEXT 1 Joinfile $*SUITEDIR "default.htm" sf1 Joinfile $*SUITEDIR "default.html" sf2 Joinfile $*SUITEDIR "index.htm" sf3 Joinfile $*SUITEDIR "index.html" sf4 ifexists file $sf1 cli 'rx $*BROWSER OPEN $sf1' elseifexists file $sf2 cli 'rx $*BROWSER OPEN $sf2' elseifexists file $sf3 cli 'rx $*BROWSER OPEN $sf13' elseifexists file $sf4 cli 'rx $*BROWSER OPEN $sf4' endif endif GuiQuit #This XButton 0 30 100 15 "History" GadFont xHelvetica.font 11 000 GuiClose #This GuiLoad htmlext:gui/func.history GuiQuit #This XButton 0 45 100 15 "Notitzen" GadFont xHelvetica.font 11 000 GuiClose #This SetVar note $*SUITEDIR AppVar note "_hxt/note." AppVar note $*USER cli 'EditPad $note' GuiQuit #This XButton 0 60 100 15 "Rapport" GadFont xHelvetica.font 11 000 GuiClose #This SetVar rap $*SUITEDIR AppVar rap "_hxt/rap." AppVar rap $*USER ifexists file $rap cli 'EditPad $rap' else copy "htmlext:settings/_defs/Rapport.txt" $rap cli 'EditPad $rap' endif GuiQuit #This XButton 0 75 100 15 "Umfang in kB" GadFont xHelvetica.font 11 000 GuiClose #This Update "Infobar" 1 "Berechne Suite-Grösse ... bitte haben Sie Geduld!" cli 'rx htmlext:mod/htmlext.smod SUITESIZE $*SUITEDIR' Update "Infobar" 1 "" GuiQuit #This XButton 0 95 100 15 "Backup: Suite" GadFont xHelvetica.font 11 000 GadID 7 GuiClose #This lvuse HTMLEXT 1 EXTRACT %SuiteBakArcDir CLEAN bakdir JoinFile $bakdir $*SUITENAME bakfile AppVar bakfile ".lha" ifexists file "t:htmlext/backup.list" delete t:htmlext/backup.list endif cli 'echo "$*SUITENAME HomePage Backup" >t:htmlext/backup.list' cli 'echo "====================================================================" >>t:htmlext/backup.list' cli 'echo " " >>t:htmlext/backup.list' cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list' cli 'echo " " >>t:htmlext/backup.list' ifexists file $bakfile cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp' SetVar filedat $.htmlext.tmp cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp' SetVar filesize $.htmlext.tmp cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp' SetVar filetime $.htmlext.tmp cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp' SetVar filecom $.htmlext.tmp 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 if $bakreq = 1 Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!" cli 'lha -r u $bakfile $*SUITEDIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' elseif $bakreq = 2 Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..." cli 'delete $bakfile FORCE' Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!" cli 'lha -r a $bakfile $*SUITEDIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' elseif $bakreq = 3 Update "Infobar" 1 "Sichere Archiv zurück nach $*SUITEDIR ... bitte haben Sie etwas Geduld!" cli 'lha x $bakfile $*SUITEDIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' endif else EZReq "Suite Backup erstellen/rücksichern:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq if $bakreq = 1 cli 'delete $bakfile FORCE' cli 'lha -r a $bakfile $*SUITEDIR >>t:htmlext/backup.list' cli 'multiview t:htmlext/backup.list' endif endif GuiQuit #This XButton 0 110 100 15 "Backup: Proj." GadFont xHelvetica.font 11 000 GadID 8 GuiClose #This lvuse HTMLEXT 1 EXTRACT %SuiteBakArcDir CLEAN bakdir JoinFile $bakdir $*SUITENAME bakfile AppVar bakfile "_pjdata.lha" ifexists file "t:htmlext/backup.list" delete t:htmlext/backup.list endif cli 'echo "$*SUITENAME HomePage Projectdata Backup" >t:htmlext/backup.list' cli 'echo "====================================================================" >>t:htmlext/backup.list' cli 'echo " " >>t:htmlext/backup.list' cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list' cli 'echo " " >>t:htmlext/backup.list' ifexists file $bakfile cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp' SetVar filedat $.htmlext.tmp cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp' SetVar filesize $.htmlext.tmp cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp' SetVar filetime $.htmlext.tmp cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp' SetVar filecom $.htmlext.tmp 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 if $bakreq = 1 Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!" cli 'lha -r u $bakfile $*SUITEDATADIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' elseif $bakreq = 2 Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..." cli 'delete $bakfile FORCE' Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!" cli 'lha -r a $bakfile $*SUITEDATADIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' elseif $bakreq = 3 Update "Infobar" 1 "Sichere Archiv zurück nach $*SUITEDATADIR ... bitte haben Sie etwas Geduld!" cli 'lha x $bakfile $*SUITEDATADIR >>t:htmlext/backup.list' Update "Infobar" 1 " " cli 'multiview t:htmlext/backup.list' endif else EZReq "Suite Projectdata Backup erstellen:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq if $bakreq = 1 cli 'delete $bakfile FORCE' cli 'lha -r a $bakfile $*SUITEDATADIR >>t:htmlext/backup.list' cli 'multiview t:htmlext/backup.list' endif endif GuiQuit #This XButton 0 125 100 15 "Spiegel: Alles" GadFont xHelvetica.font 11 000 GadID 4 GuiClose #This EZREQ "Suite & Projektdaten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod if $spmod = 1 GoSub #This "AllToMed" elseif $spmod = 2 GoSub #This "AllToLoc" endif GuiQuit #This XButton 0 140 100 15 "Spiegel: Suite" GadFont xHelvetica.font 11 000 GadID 5 GuiClose #This EZREQ "Suite Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod if $spmod = 1 GoSub #This "SuiteToMed" elseif $spmod = 2 GoSub #This "SuiteToLoc" endif GuiQuit #This XButton 0 155 100 15 "Spiegel: Proj." GadFont xHelvetica.font 11 000 GadID 6 GuiClose #This EZREQ "Projekt Daten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod if $spmod = 1 GoSub #This "ProjToMed" elseif $spmod = 2 GoSub #This "ProjToLoc" endif GuiQuit #This XButton 0 175 100 15 "Neu" GadFont xHelvetica.font 11 000 GadID 1 GuiClose #This SetVar .htmlext.rqt "Neue Suite aufnehmen ..." ;Titel SetVar .htmlext.rqb "Geben Sie den gewünschten NAmen ein:" ;Body SetVar .htmlext.rqd $aktsuitename ;Default SetVar .htmlext.rqu "Weiter|Abbrechen" ;Buttons cli 'rx htmlext:mod/htmlext.smod REQSTRING' if $.htmlext.res = 1 ReqFile -1 -1 250 500 "Bitte Suite Verzeichnis wählen ..." DIR sdir "" SetVar aktsuitename $.htmlext.tmp lvuse HTMLEXT 1 lvadd '' %SuiteName = $aktsuitename %SuitePath = $sdir %SuiteMail = "" %SuiteSubj = "" %SuiteFTPOL = "" %SuiteFTPWRK = "" %SuiteHistFile = "" %SuiteHistAuto = "" %SuiteServTyp = "" %SuiteSpiegelDir = "" %SuiteSpiegelStat = "" %SuiteHistAuto = "" %SuiteURLOL = "" %SuiteURLWRK = "" lvsort %SuiteName lvsave htmlext:Settings/Suites.prefs SetVar ndir $sdir AppVar ndir "_hxt" SetVar nproj $ndir AppVar nproj "/marks.hp" ifexists file $nproj ;Nichts else cli 'makedir $ndir' cli 'copy htmlext:settings/_defs/proj.prefs to $nproj' SetVar nprojdata $ndir AppVar nprojdata "/marks.pd" cli 'copy htmlext:settings/_defs/projdata.prefs to $nprojdata' endif endif GuiQuit #This XButton 0 190 100 15 "Einstellungen" GadFont xHelvetica.font 11 000 GadID 2 GuiClose #This GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Guiload htmlext:gui/suiteprefs GuiQuit #This XButton 0 205 100 15 "Löschen" GadFont xHelvetica.font 11 000 GadID 3 GuiClose #This 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" if $wirkl = 1 lvuse HTMLEXT 1 LVDel -1 lvsort %SuiteName lvsave htmlext:Settings/Suites.prefs elseif $wirkl = 2 cli 'delete $*SUITEPROJ $*SUITEPROJDATA' SetVar aktnote $*SUITEDIR AppVar aktnote "_" AppVar aktnote $*SUITENAME AppVar aktnote ".note.#?" cli 'delete $aktrap' SetVar aktrap $*SUITEDIR AppVar aktrap "_" AppVar aktrap $*SUITENAME AppVar aktrap ".rap.#?" cli 'delete $aktrap' lvuse HTMLEXT 1 LVDel -1 lvsort %SuiteName lvsave htmlext:Settings/Suites.prefs elseif $wirkl = 3 cli 'delete $*SUITEPROJ $*SUITEPROJDATA' SetVar aktnote $*SUITEDIR AppVar aktnote "_" AppVar aktnote $*SUITENAME AppVar aktnote ".note.#?" cli 'delete $aktrap' SetVar aktrap $*SUITEDIR AppVar aktrap "_" AppVar aktrap $*SUITENAME AppVar aktrap ".rap.#?" cli 'delete $aktrap' cli 'delete $*SUITEDIR' lvuse HTMLEXT 1 LVDel -1 lvsort %SuiteName lvsave htmlext:Settings/Suites.prefs endif GuiQuit #This ;Spiegel Routinen: Sichern xRoutine "AllToMed" lvuse HTMLEXT 1 EXTRACT %SuiteSpiegelDir CLEAN mirrordir EXTRACT %SuitePath CLEAN suitedir EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel if $spdel = 1 guiload htmlext:gui/func.mirror Update func.mirror 2 "Alles Spiegeln" Update func.mirror 1 "Erstelle Suite Rapport" GuiWindow HTMLEXT WAIT GuiWindow #This WAIT cli 'echo "$*SUITENAME : Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $suitedir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "func.mirror" 1 "Kopiere Suite Daten ..." Update "Infobar" 1 "Kopiere $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!" cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir Update "func.mirror" 1 "Erstelle Daten Raport ..." cli 'echo " " >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "$*SUITENAME : Project Data Spiegel Rapport" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $pjddir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "func.mirror" 1 "Kopiere Projekt Daten ..." Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!" cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' run 'multiview t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME elseif $spdel = 2 GuiWindow HTMLEXT WAIT GuiWindow #This WAIT guiload htmlext:gui/func.mirror Update "func.mirror" 2 "Suitedaten Spiegelung ..." Update func.mirror 1 "Erstelle Suite Rapport" cli 'echo "$*SUITENAME : Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $suitedir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Suite Daten ..." cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten ..." cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir Update "func.mirror" 2 "Projetdaten Spiegelung ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo " " >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "$*SUITENAME : Projectdata Spiegel Rapport" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $pjddir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche bestehende Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Komplett Sicherung erfolgreich abgeschlossen!" guiquit func.mirror xRoutine "SuiteToMed" lvuse HTMLEXT 1 EXTRACT %SuiteSpiegelDir CLEAN mirrordir EXTRACT %SuitePath CLEAN suitedir EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel if $spdel = 1 guiload htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Spiegelung ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $suitedir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "func.mirror" 1 "Kopiere Daten ..." Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!" cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' cli 'multiview t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME elseif $spdel = 2 guiload htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Spiegelung ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $suitedir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten ..." cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "Spiegle $suitedir nach $mirrordir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten ..." cli 'copy $suitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Suite Spiegelung erfolgreich abgeschlossen!" guiquit func.mirror xRoutine "ProjToMed" lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir EZREQ "Destinations Dateien vorher löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel if $spdel = 1 GuiLoad htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Projektdaten Speigelung" Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Project Data Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $pjddir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' elseif $spdel = 2 guiload htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Projektdaten Speigelung" Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Projectdata Spiegel Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Von: $pjddir" >>t:htmlext/mirror.list' cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Projektdaten Spiegelung erfolgreich abgeschlossen!" GuiQuit func.mirror ;Spiegel Routinen: Rücksichern xRoutine "AllToLoc" lvuse HTMLEXT 1 EXTRACT %SuiteSpiegelDir CLEAN mirrordir EXTRACT %SuitePath CLEAN suitedir EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel if $spdel = 1 GuiLoad htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Rücksichern ..." Update "func.mirror" 1 "Estelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Spiegle $mirrordir nach $suitedir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list' lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir Update "func.mirror" 2 "Projektdaten rücksichern ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo " " >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' elseif $spdel = 2 GuiLoad htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Rücksichern ..." Update "func.mirror" 1 "Estelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $suitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "func.mirror" 1 "Kopiere Daten" Update "Infobar" 1 "$mirrordir nach $suitedir rücksichern ... bitte haben Sie etwas Geduld!" cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list' lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir Update "func.mirror" 2 "Projektdaten rücksichern ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo " " >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Suite Rücksicherung erfolgreich abgeschlossen!" GuiQuit func.mirror xRoutine "SuiteToLoc" lvuse HTMLEXT 1 EXTRACT %SuiteSpiegelDir CLEAN mirrordir EXTRACT %SuitePath CLEAN suitedir EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel if $spdel = 1 GuiLoad htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Rücksichern ..." Update "func.mirror" 1 "Estelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Spiegle $mirrordir nach $suitedir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' elseif $spdel = 2 guiload htmlext:gui/func.mirror GuiWindow HTMLEXT WAIT GuiWindow #This WAIT Update "func.mirror" 2 "Suite Rücksichern ..." Update "func.mirror" 1 "Estelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $suitedir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $suitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "func.mirror" 1 "Kopiere Daten" Update "Infobar" 1 "$mirrordir nach $suitedir rücksichern ... bitte haben Sie etwas Geduld!" cli 'copy $mirrordir $suitedir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Suite Rücksicherung erfolgreich abgeschlossen!" GuiQuit func.mirror xRoutine "ProjToLoc" lvuse HTMLEXT 1 EXTRACT %SuiteDataMirror CLEAN mirrordir EXTRACT %SuiteDataPath CLEAN pjddir EZREQ "Sollen die lokalen Dateien vorher gelöscht werde?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel if $spdel = 1 GuiWindow HTMLEXT WAIT GuiWindow #This WAIT guiload htmlext:gui/func.mirror Update "func.mirror" 2 "Projektdaten rücksichern ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' elseif $spdel = 2 GuiWindow HTMLEXT WAIT GuiWindow #This WAIT guiload htmlext:gui/func.mirror Update "func.mirror" 2 "Projektdaten rücksichern ..." Update "func.mirror" 1 "Erstelle Rapport" cli 'echo "$*SUITENAME : Rücksicherungs Rapport" >t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list' cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' cli 'echo "===============================================" >>t:htmlext/mirror.list' cli 'echo " " >>t:htmlext/mirror.list' Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!" cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist' Update "func.mirror" 1 "Lösche Daten" cli 'execute t:htmlext/mirror.dellist' cli 'delete t:htmlext/mirror.dellist FORCE' Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!" Update "func.mirror" 1 "Kopiere Daten" cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list' GuiWindow HTMLEXT RESUME GuiWindow #This RESUME run 'multiview t:htmlext/mirror.list' endif Update Infobar 1 "Projektdaten Rücksicherung erfolgreich abgeschlossen!" GuiQuit func.mirror