(prompt "In welchem Verzeichnis soll \"MailFilter\" installiert werden? Alle n÷tigen Dateien werden direkt in dieses Verzeichnis kopiert!")
(help @askdir-help)
(default progdir)
)
)
)
)
(set @default-dest progdir)
(if copyprefs
(copyfiles
(prompt "Kopieren der Programmdateien")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "MailFilter#?")
(infos)
(files)
(confirm)
)
(
(copyfiles
(prompt "Kopieren der Programmdateien. Die Datei \"MailFilter.prefs\" wird, falls n÷tig, in ein neues Format konvertiert. Die alte Datei bleibt dann unter dem Namen \"MailFilter.prefs.old\" erhalten.")
(help @copyfiles-help)
(source "")
(dest progdir)
(pattern "(MailFilter|MailFilter.guide)")
(infos)
(files)
(confirm)
)
(run "ConvertPrefs MAILFILTER:MailFilter.prefs")
)
)
(set screenname
(askstring
(prompt "Welchen Namen hat der PublicScreen von \"MicroDot\"?")
(prompt "Soll MailFilter nach jedem Reset automatisch gestartet werden? Wenn Sie jetzt \"Ja\" wΣhlen wird ein Projekt-Piktogramm nach \"SYS:Wbstartup\" kopiert!")
(help "Keine Hilfe verfⁿgbar.")
(choices "Ja" "Nein")
(default 0)
)
)
)
(if auswahl
(
(copyfiles
(prompt "Kopieren des Piktogramms \"Start_MailFilter.info\" nach \"SYS:Wbstartup\".")
(help @copyfiles-help)
(source "")
(dest "SYS:Wbstartup")
(pattern "Start_MailFilter.info")
(files)
(confirm)
)
(tooltype
(prompt "")
(dest "SYS:Wbstartup/Start_MailFilter")
(setdefaulttool tool)
(noposition)
)
)
)
(set auswahl
(askbool
(prompt "\"Mailfilter\" kann ⁿber ARexx mit \"MicroDot\" zusammenarbeiten! Sollen die n÷tigen ARexx-Scripts jetzt installiert werden?")
(help "Keine Hilfe verfⁿgbar.")
(choices "Ja" "Nein")
(default 0)
)
)
(if auswahl
(
(set lhaprog
(askfile
(prompt "LhA mu▀ aus den ARexx-Scripts heraus gestartet werden k÷nnen. Dazu mu▀ der Pfad von LhA bekannt sein. WΣhlen Sie jetzt bitte den LhA Befehl aus!")
(help @askfile-help)
(default "LhA")
)
)
(set pathname (pathonly (expandpath lhaprog)))
(set lzxprog (tackon pathname "LZX"))
(set lzxprog
(askfile
(prompt "LZX mu▀ aus den ARexx-Scripts heraus gestartet werden k÷nnen. Dazu mu▀ der Pfad von LhA bekannt sein. WΣhlen Sie jetzt bitte den LZX Befehl aus!")
(help @askfile-help)
(default lzxprog)
)
)
(set pathname (pathonly (expandpath lzxprog)))
(set unzipprog (tackon pathname "UnZip"))
(set unzipprog
(askfile
(prompt "UnZip mu▀ aus den ARexx-Scripts heraus gestartet werden k÷nnen. Dazu mu▀ der Pfad von LhA bekannt sein. WΣhlen Sie jetzt bitte den UnZip Befehl aus!")
(help @askfile-help)
(default unzipprog)
)
)
(set tempdir
(askdir
(prompt "Zum Entpacken der Netcall-Archive wird ein temporΣres Verzeichnis ben÷tigt. In diesem Verzeichnis mu▀ genug Platz fⁿr den gesamten, entpackten Puffer sein! Welches Verzeichnis soll verwendet werden?")
(help @askdir-help)
(default "T:")
)
)
(textfile
(prompt "Erstellen des ARexx-Scripts, das zum automatischen Filtern der Netcall-Puffer ben÷tigt wird.")
(help "Keine Hilfe verfⁿgbar.")
(dest "REXX:FilterPuffer.rexx")
(confirm)
(append "/* ARexx - Script fⁿr MicroDot und MailFilter */\n")
(append "** Erkennt automatisch ob der angekommene Puffer ein LHA-, LZX-,\n")
(append "** ZIP-Archiv, oder ungepackt ist, entpackt oder kopiert diesen\n")
(append "** entsprechend nach 'T:WILAM-04431-92081' und filtert dann alle\n")
(append "** enthaltenen Einzelpuffer. Die gefilterten Puffer werden im\n")
(append "** aktuellen Verzeichnis gespeichert und k÷nnen danach einsortiert\n")
(append "** werden.\n")
(append "**\n")
(append "** FilterPuffer.rexx mu▀ nach REXX: kopiert werden\n")
(append "*/\n")
(append "\n")
(append "/*\n")
(append "** Hier mⁿssen die kompletten Pfade der Packer LHA, LZX und UNZIP\n")
(append "** eingetragen werden. Fⁿr Packer, die nicht verwendet werden, mu▀\n")
(append "** nichts angegeben werden. Alle Pfade mⁿssen in Anfⁿhrungszeichen\n")
(append "** oder Hochkommas stehen.\n")
(append "*/\n")
(append "\n")
(append "lha = '")
(append lhaprog)
(append "'\n")
(append "lzx = '")
(append lzxprog)
(append "'\n")
(append "unzip = '")
(append unzipprog)
(append "'\n")
(append "\n")
(append "\n")
(append "/*\n")
(append "** Hier wird ein Verzeichnis fⁿr temporΣre Daten angegeben. Auf\n")
(append "** dem DatentrΣger, der dieses Verzeichnis enthΣlt mu▀ genⁿgend\n")
(append "** Speicherplatz fⁿr den gesamten, entpackten Puffer vorhanden\n")
(append "** sein. Der Pfad mu▀ in Anfⁿhrungszeichen oder Hochkommas stehen.\n")
(append "*/\n")
(append "\n")
(append "tempdir = '")
(append tempdir)
(append "'\n")
(append "\n")
(append "\n")
(include "MicroDot/rexx/FilterPuffer.install")
)
(if (exists "MD:Rexx" (noreq))
(
(set rexxdir "MD:Rexx")
)
(
(if (exists "MICRODOT:Rexx" (noreq))
(
(set rexxdir "MICRODOT:Rexx")
)
(
(set rexxdir @default-dest)
)
)
)
)
(set rexxdir
(askdir
(prompt "Einige ARexx-Scripts mⁿssen in das Verzeichnis \"MicroDot/Rexx\" kopiert werden! WΣhlen Sie jetzt bitte dieses Verzeichnis als Zielverzeichnis!")
(help @askdir-help)
(default rexxdir)
)
)
(copyfiles
(prompt "Kopieren der ARexx-Scripts fⁿr das automatische Eintragen von Absendern, Betreffs und Headern in die Filterliste.")
(help @copyfiles-help)
(source "MicroDot")
(dest rexxdir)
(pattern "#?.mdmrexx")
(files)
(confirm)
)
)
)
(if (not update)
(
(startup @app-name
(prompt "Die Anweisung:\n\"Assign MAILFILTER: " progdir "\"\nmu▀ zur \"S:User-Startup\" hinzugefⁿgt werden.\n\n Das logische Verzeichnis \"MAILFILTER:\" ist n÷tig damit das Programm aus den ARexx-Scripts gestartet werden kann. Die Voreinstellungen werden ebenfalls in diesem Verzeichnis gesucht.")
(help @startup-help)
(command "Assign MAILFILTER: \"" progdir "\"\n")
)
(makeassign "MAILFILTER" progdir)
)
)
(exit "Damit das empfangene Archiv beim Netcall automatisch gefiltert wird mⁿssen Sie \"MicroDot\" starten und den Menⁿpunkt \"Konfiguration/Point/Allgemeines\" aufrufen. Im Eingabefeld fⁿr den \"Entpacker\" tragen Sie bitte folgendes ein: sys:rexxc/rx filterpuffer %s\n\nViel Spa▀ beim Filtern! :-)")