home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / dfue / terminal / microdot / mdinstall / rexx / routemap.mdmrexx < prev   
Encoding:
Text File  |  1994-12-24  |  1.6 KB  |  52 lines
  1. /* RouteMap-ARexx-Skript für MicroDot und RouteMap V2.0
  2.    erstellt mit Hilfe von Christoph Teuber
  3.  
  4.    Dieses Skript zeigt den RouteString mit dem Programm RouteMap an
  5.    und startet, wenn RouteMap noch nicht laufen sollte, vorher
  6.    RouteMap.
  7.  
  8.    Das Skript kümmert sich für Sie komplett um RouteMap.  Das
  9.    einzige, was Sie noch selbst machen müssen, ist RouteMap ins
  10.    aktuelle Verzeichnis von MicroDot zu kopieren und dieses Skript
  11.    unter dem Namen "RouteMap.mdrexx" in das Verzeichnis "Rexx/", das
  12.    sich im aktuelles Verzeichnis von MicroDot befindet, auszulagern.
  13.  
  14.    MicroDot sucht im aktuellen Verzeichnis im Directory "Rexx/" nach
  15.    Rexx-Skripten mit der Endung *.mdmrexx.  Kopieren Sie diese Datei
  16.    unter dem Namen "RouteMap.mdmrexx" dorthin, so erscheint im Menü
  17.    ARexx-Nachrichten-Makros ein Eintrag RouteMap, der dieses Skript
  18.    startet.
  19.  
  20. */
  21.  
  22. /* Aufräumen */
  23.  
  24. address command
  25. delete 'T:MicroDot-ARexx-Temp-File quiet'
  26.  
  27. /* RexxSupport-Library laden, wenn diese noch nicht vorhanden ist */
  28.  
  29. if show("l","rexxsupport.library")=0 then
  30.   addlib("rexxsupport.library",0,-30,0)
  31.  
  32. /* RouteMap starten, falls es noch nicht läuft */
  33.  
  34. if show("p","RouteMap_REXX")=0 then
  35.   'run MD:RouteMap3 DEFHEADER=ROT: NOICON PUBSCREEN=MICRODOT'
  36. address command 'SYS:REXXC/WaitforPort RouteMap_REXX'
  37.  
  38. /* aktuelle Nachricht von MicroDot extrahieren lassen */
  39.  
  40. address 'MICRODOT'
  41. extractcurrentmail 'T:MicroDot-ARexx-Temp-File' header
  42.  
  43. /* Route anzeigen */
  44.  
  45. address 'RouteMap_REXX'
  46. showroute 'T:MicroDot-ARexx-Temp-File'
  47.  
  48. /* Aufräumen */
  49.  
  50. address command
  51. delete 'T:MicroDot-ARexx-Temp-File quiet'
  52.