home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / FECV156.RAR / FE2MAX.CMD next >
Encoding:
Text File  |  1996-01-05  |  7.3 KB  |  150 lines
  1. /* Script um Areas.Temp nach Msgarea.Ctl zu konvertieren     */
  2. /* -----------------------------------------------------     */
  3. /* 1995 by A. Schoeller using Rexx/2 :-)       */
  4.  
  5. /* Aufbau der AREAS.TMP:         */
  6. /* ---------------------         */
  7. /* <group> <path> <areatag> <maxmsg> <addr> <read> <write> <number> <mtype> <desc>   */
  8.  
  9. /* 1.01 by Jens Holm                                                         */
  10. /* Added some minor changes to the naming to ensure that the QWK part of MAX */
  11. /* Don't screw up, done by using FE numbers to name the areas (%f in feconv) */
  12. /* Added detecting of readonly areas if read <> write                        */
  13. /* Added very primitive Echo/Local detecting based on group                  */
  14. /* TODO: Determing the style (Echo, local ect) Volker please...              */
  15. /* TODO: More intelligent readonly/writeaccess detection                     */
  16. /* TODO: Make this  sucker run more than one area under REXX/DOS             */
  17.  
  18. /* 1.02 by Jens Holm                                                         */
  19. /* Added simple override on areas with different read/write security         */
  20. /* Not sure about max's reaction to this, but it seems to work here          */
  21.  
  22. /* 1.03 by Jens Holm                                                         */
  23. /* Added mailtype (Local/Echo) Tnx for %K Volker                             */
  24. /* Added private status on netmail, badmail ect.                             */
  25. /* Added UGLY screen output when run, mainly for debugging purpose           */
  26. /* Probably a bug in rexx/DOS. Anyone using personal rexx?                   */
  27.  
  28.  
  29. areatmp = 'g:\fastecho\msg.tmp'
  30. maxtmp = 'g:\max\msgarea.ctl'
  31.  
  32. '@del 'maxtmp
  33.  
  34. sollich=0
  35. lastgroup="."
  36. count = 1
  37.  
  38. do while Lines(areatmp)
  39.  il = LineIn(areatmp)
  40.  parse var il group path tag msgs addr read write number mtype desc /* JH Added Numbers and msgtype */
  41.  
  42. /* Check for Netmail, badmail and dupemail, change to local */
  43.  
  44.   if mtype = "Netmail"  then status = "pvt"     /* JH add private to 'funny types' */
  45.   if mtype = "Badmail"  then status = "pvt"     /* JH add private to 'funny types' */
  46.   if mtype = "Dupemail" then status = "pvt"     /* JH add private to 'funny types' */
  47.   if mtype = "Echomail" then status = "pub"     /* JH add private to 'funny types' */
  48.   if mtype = "Local"    then status = "pub"     /* JH add private to 'funny types' */
  49.  
  50.   if mtype = "Echomail" then msgtype = "echomail" /* JH add a maximus valid type */
  51.   if mtype = "Local"    then msgtype = "local"    /* JH add a maximus valid type */
  52.   if mtype = "Netmail"  then msgtype = "local"    /* JH add a maximus valid type */
  53.   if mtype = "Dupemail" then msgtype = "local"    /* JH add a maximus valid type */
  54.   if mtype = "Badmail"  then msgtype = "local"    /* JH add a maximus valid type */
  55.  
  56. /* Hier kann man die Securitylevel entsprechend den Maximusleveln
  57. anpassen */
  58. /* Leselevel           */
  59.  
  60.  if read =  "0" then readl = "Transient"
  61.  if read =  "5" then readl = "Demoted"
  62.  if read = "10" then readl = "Limited"
  63.  if read = "15" then readl = "Normal"
  64.  if read = "20" then readl = "Worthy"
  65.  if read = "25" then readl = "Privil"
  66.  if read = "30" then readl = "Favored"
  67.  if read = "35" then readl = "Extra"
  68.  if read = "40" then readl = "Clerk"
  69.  if read = "45" then readl = "AsstSysop"
  70.  if read = "50" then readl = "Sysop"
  71.  if read = "100" then readl = "Sysop"
  72.  if read = "101" then readl = "worthy/t"
  73.  if read = "500" then readl = "Sysop"
  74.  if read = "1000" then readl = "Sysop"
  75.  
  76.  if write =  "0" then writel = "Transient"
  77.  if write =  "5" then writel = "Demoted"
  78.  if write = "10" then writel = "Limited"
  79.  if write = "15" then writel = "Normal"
  80.  if write = "20" then writel = "Worthy"
  81.  if write = "25" then writel = "Privil"
  82.  if write = "30" then writel = "Favored"
  83.  if write = "35" then writel = "Extra"
  84.  if write = "40" then writel = "Clerk"
  85.  if write = "45" then writel = "AsstSysop"
  86.  if write = "50" then writel = "Sysop"
  87.  if write = "100" then writel = "Sysop"
  88.  if write = "101" then writel = "worthy/t"
  89.  if write = "500" then writel = "Sysop"
  90.  if write = "1000" then writel = "Sysop"
  91.  
  92. /* Gruppenzuweisungen an Keys         */
  93.  
  94.  if group = "A" then division = "Auto Sysop . -> Auto Add"
  95.  if group = "B" then division = "Begr SysOp . -> Begrænset"
  96.  if group = "C" then division = "Net238 AsstSysOp . -> Net 238 related"
  97.  if group = "D" then division = "LOKAL Demoted . -> Lokale Bretter"
  98.  if group = "E" then division = "Eznet Demoted . -> Eznet"
  99.  if group = "F" then division = "Misc sysOp . -> Blandet"
  100.  if group = "G" then division = "Elnet Demoted . -> Electronet"
  101.  if group = "H" then division = "GAMESNET Demoted . -> Gamesnet"
  102.  if group = "I" then division = "Int Limited . -> International"
  103.  if group = "J" then division = "USENET Limited . -> Usenet"
  104.  if group = "K" then division = "XNET Sysop . -> XNet"
  105.  if group = "L" then division = "Locp AsstSysOp . -> Point's"
  106.  if group = "M" then division = "TWINET Demoted . -> TwiNet"
  107.  if group = "N" then division = "TWINET Demoted . -> TwiNet"
  108.  if group = "O" then division = "FidoDk Demoted . -> FidoNet Danmark"
  109.  if group = "P" then division = "Pirat  AsstSysOp . -> Pirat"
  110.  if group = "Q" then division = "Point  Clerk   . -> Fidodk"
  111.  if group = "R" then division = "Point_R/O  Demoted . -> Fidonet"
  112.  if group = "S" then division = "SysOp SysOp  . -> SysOp"
  113.  if group = "T" then division = "OS2 Limited . -> OS2 Net"
  114.  if group = "U" then division = "Sat Limited . -> Satnet"
  115.  if group = "V" then division = "Virnet Clerk   . -> Virnet"
  116.  if group = "W" then division = "TEAMET! Clerk/T . -> Team OS/2 DK!"
  117.  if group = "X" then division = "Local Twit . -> Local Post"
  118.  if group = "Y" then division = "TWINET SysOp . -> TwiNet"
  119.  if group = "Z" then division = "TWINET SysOp . -> TwiNet"
  120.  
  121. /* Boeh ,-)           */
  122.  
  123.  rdlvl = format(read)
  124.  
  125.  if lastgroup<>group then count = 1
  126.  if lastgroup<>group & sollich<>0 then rc = LineOut(maxtmp,"MsgDivisionEnd ")
  127.  if lastgroup<>group & sollich<>0 then rc = LineOut(maxtmp,"")
  128.  say "Now processing:" tag status mtype msgtype division
  129.  if lastgroup<>group then rc = LineOut(maxtmp,"MsgDivisionBegin "division)
  130.  if lastgroup<>group then rc = LineOut(maxtmp,"")
  131.  rc = LineOut(maxtmp," MsgArea       "number) /* JH To ensure a unique name */
  132.  rc = LineOut(maxtmp,"     ACS       " readl)
  133.  if readl =  writel then rc = LineOut(maxtmp,"     Style      Squish " msgtype status ) /* JH Support for diff read/write */
  134.  if readl <> writel then rc = LineOut(maxtmp,"     Style      Squish " msgtype status "readonly ") /* JH Ditto */
  135.  rc = LineOut(maxtmp,"     Desc      " desc)
  136.  rc = LineOut(maxtmp,"     Tag       " tag)
  137.  rc = LineOut(maxtmp,"     Path      " path)
  138.  if readl <> writel then rc = LineOut(maxtmp,"     Override   Message Msg_Reply " writel) /* JH Test of Write security add */
  139.  if readl <> writel then rc = LineOut(maxtmp,"     Override   Message Msg_Enter " writel) /* JH Ditto */
  140.  if readl <> writel then rc = LineOut(maxtmp,"     Override   Message Msg_Upload " writel) /* JH Ditto */
  141.  rc = LineOut(maxtmp,"     Origin    " addr addr "Online at McBears Cave, the electronic heaven") /* This one too */
  142.  rc = LineOut(maxtmp,"     Renum Max " msgs)
  143.  rc = LineOut(maxtmp," End MsgArea")
  144.  rc = LineOut(maxtmp,"")
  145.  lastgroup=group
  146.  count = count + 1
  147.  sollich=1
  148. end
  149. rc = LineOut(maxtmp,"MsgDivisionEnd")
  150.