[pmmail-list] Migrating filters

[Lueko Willms]

--_=_=_=IMA.BOUNDARY.GRELTU138764=_=_=_
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit

On Mon, 11 Feb 2002 16:56:58 -0400, PMMail OS/2 Support wrote:

> 
> I think Lueko might have been mistaken, unless you understood
> something different than I did from his explanation. The info you're
> looking for is in the folder.ini files, not in an OS/2 INI file.
> 

   Sorry, yes, I was mistaken. But this explanation makes it easier. 

   Here is a REXX script to list the correspondence of Directory, 
Folder name and Folder ID number sorted by each of them (sorting requires RxExtra). 
The script is included again as a file attachment. 

------ cut here -------------

/* REXX */ 
/* This REXX script is to list the correspondence of Directory names, 
   Folder names and Folder ID numbers of a given PMMail/2 installation. 
   It is supposed that the current directory for the execution of this script 
   is the PMMail directory. 
   */


  CALL RxFuncAdd  'SysFileTree',   'RexxUtil', 'SysFileTree'

  /* RxExtras.DLL is required for sorting a Stem. */
  CALL RxFuncAdd  'RxSort',  'RxExtras', 'RxSort'

  CALL SysFileTree "FOLDER.INI","DirTree","SFO"
  CALL RxSort "DirTree."

  Tab = '09'x
  Space = '20'x
  FormFeed = '0C'x


  FolderNameStem.0 = 0
  FolderID_Stem.0 = 0

  SAY "======== PMMail folders by Directory name  ========"
  SAY
  DO i = 1 TO DirTree.0 
     ergebnis = STREAM(DirTree.i,"C","OPEN READ")
     FolderInfo = LINEIN(DirTree.i)
     ergebnis = STREAM(DirTree.i,"C","CLOSE")
     PARSE VAR FolderInfo FolderName 'DE'x FolderNumber 'DE'x Rest . 
     SAY FolderName Tab FolderNumber Tab FileSpec("PATH",DirTree.i)
     FolderNumber = FORMAT(FolderNumber,5)
     FolderNameStem.i = FolderName||Tab||FolderNumber||Tab||FileSpec("PATH",DirTree.i)
     FolderNameStem.0 = FolderNameStem.0 + 1
     FolderID_Stem.i = FolderNumber||Tab||FolderName||Tab||FileSpec("PATH",DirTree.i)
     FolderID_Stem.0 = FolderID_Stem.0 + 1
  end /* do */
  
  SAY FormFeed "======== PMMail folders by Folder Name ========"
  SAY
  CALL RxSort "FolderNameStem."
  DO i=1 TO FolderNameStem.0 
     SAY FolderNameStem.i
  END /* DO */

  SAY FormFeed "======== PMMail folders by Folder Number ========"
  SAY
  CALL RxSort "FolderID_Stem."
  DO i= 1 TO FolderID_Stem.0 
     SAY FolderID_Stem.i
  END /* DO */

EXIT

----------- cut off -------------------------


Yours, 
Lüko Willms 
Frankfurt/Main 
/ Lueko.Willms@T-Online.de 



- pmmail-list - The PMMail Dicussion List ---------------------------
To POST to the list, send your message to:
pmmail-list@blueprintsoftwareworks.com

To UNSUBSCRIBE, send a message to mdaemon@bmtmicro.com with the first 
line of the message body being...
UNSUBSCRIBE pmmail-list@blueprintsoftwareworks.com
---------------------------------------------------------------------
--_=_=_=IMA.BOUNDARY.GRELTU138764=_=_=_
Content-Type: application/octet-stream; name="folderlst.cmd"
Content-Transfer-Encoding: base64

LyogUkVYWCAqLyANCi8qIFRoaXMgUkVYWCBzY3JpcHQgaXMgdG8gbGlzdCB0aGUgY29ycmVzcG9u
ZGVuY2Ugb2YgRGlyZWN0b3J5IG5hbWVzLCBGb2xkZXIgbmFtZXMgYW5kIEZvbGRlciBJRCBudW1i
ZXJzIG9mIGEgZ2l2ZW4gUE1NYWlsLzIgaW5zdGFsbGF0aW9uLiANCiAgIEl0IGlzIHN1cHBvc2Vk
IHRoYXQgdGhlIGN1cnJlbnQgZGlyZWN0b3J5IGZvciB0aGUgZXhlY3V0aW9uIG9mIHRoaXMgc2Ny
aXB0IGlzIHRoZSBQTU1haWwgZGlyZWN0b3J5LiANCiAgICovDQoNCg0KICBDQUxMIFJ4RnVuY0Fk
ZCAgJ1N5c0ZpbGVUcmVlJywgICAnUmV4eFV0aWwnLCAnU3lzRmlsZVRyZWUnDQoNCiAgLyogUnhF
eHRyYXMuRExMIGlzIHJlcXVpcmVkIGZvciBzb3J0aW5nIGEgU3RlbS4gKi8NCiAgQ0FMTCBSeEZ1
bmNBZGQgICdSeFNvcnQnLCAgJ1J4RXh0cmFzJywgJ1J4U29ydCcNCg0KICBDQUxMIFN5c0ZpbGVU
cmVlICJGT0xERVIuSU5JIiwiRGlyVHJlZSIsIlNGTyINCiAgQ0FMTCBSeFNvcnQgIkRpclRyZWUu
Ig0KDQogIFRhYiA9ICcwOSd4DQogIFNwYWNlID0gJzIwJ3gNCiAgRm9ybUZlZWQgPSAnMEMneA0K
DQoNCiAgRm9sZGVyTmFtZVN0ZW0uMCA9IDANCiAgRm9sZGVySURfU3RlbS4wID0gMA0KDQogIFNB
WSAiPT09PT09PT0gUE1NYWlsIGZvbGRlcnMgYnkgRGlyZWN0b3J5IG5hbWUgID09PT09PT09Ig0K
ICBTQVkNCiAgRE8gaSA9IDEgVE8gRGlyVHJlZS4wIA0KICAgICBlcmdlYm5pcyA9IFNUUkVBTShE
aXJUcmVlLmksIkMiLCJPUEVOIFJFQUQiKQ0KICAgICBGb2xkZXJJbmZvID0gTElORUlOKERpclRy
ZWUuaSkNCiAgICAgZXJnZWJuaXMgPSBTVFJFQU0oRGlyVHJlZS5pLCJDIiwiQ0xPU0UiKQ0KICAg
ICBQQVJTRSBWQVIgRm9sZGVySW5mbyBGb2xkZXJOYW1lICdERSd4IEZvbGRlck51bWJlciAnREUn
eCBSZXN0IC4gDQogICAgIFNBWSBGb2xkZXJOYW1lIFRhYiBGb2xkZXJOdW1iZXIgVGFiIEZpbGVT
cGVjKCJQQVRIIixEaXJUcmVlLmkpDQogICAgIEZvbGRlck51bWJlciA9IEZPUk1BVChGb2xkZXJO
dW1iZXIsNSkNCiAgICAgRm9sZGVyTmFtZVN0ZW0uaSA9IEZvbGRlck5hbWV8fFRhYnx8Rm9sZGVy
TnVtYmVyfHxUYWJ8fEZpbGVTcGVjKCJQQVRIIixEaXJUcmVlLmkpDQogICAgIEZvbGRlck5hbWVT
dGVtLjAgPSBGb2xkZXJOYW1lU3RlbS4wICsgMQ0KICAgICBGb2xkZXJJRF9TdGVtLmkgPSBGb2xk
ZXJOdW1iZXJ8fFRhYnx8Rm9sZGVyTmFtZXx8VGFifHxGaWxlU3BlYygiUEFUSCIsRGlyVHJlZS5p
KQ0KICAgICBGb2xkZXJJRF9TdGVtLjAgPSBGb2xkZXJJRF9TdGVtLjAgKyAxDQogIGVuZCAvKiBk
byAqLw0KICANCiAgU0FZIEZvcm1GZWVkICI9PT09PT09PSBQTU1haWwgZm9sZGVycyBieSBGb2xk
ZXIgTmFtZSA9PT09PT09PSINCiAgU0FZDQogIENBTEwgUnhTb3J0ICJGb2xkZXJOYW1lU3RlbS4i
DQogIERPIGk9MSBUTyBGb2xkZXJOYW1lU3RlbS4wIA0KICAgICBTQVkgRm9sZGVyTmFtZVN0ZW0u
aQ0KICBFTkQgLyogRE8gKi8NCg0KICBTQVkgRm9ybUZlZWQgIj09PT09PT09IFBNTWFpbCBmb2xk
ZXJzIGJ5IEZvbGRlciBOdW1iZXIgPT09PT09PT0iDQogIFNBWQ0KICBDQUxMIFJ4U29ydCAiRm9s
ZGVySURfU3RlbS4iDQogIERPIGk9IDEgVE8gRm9sZGVySURfU3RlbS4wIA0KICAgICBTQVkgRm9s
ZGVySURfU3RlbS5pDQogIEVORCAvKiBETyAqLw0KDQpFWElUDQoNCg==

--_=_=_=IMA.BOUNDARY.GRELTU138764=_=_=_--