home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ALLMODS.ZIP / FMD-17A.ZIP / FMD-17A.MOD
Encoding:
Text File  |  1995-06-09  |  5.4 KB  |  154 lines
  1. Nicolas Leblanc #2 @20302
  2. Tue Jun 06 02:04:32 1995
  3. 0R 34 06/09 07:13 WWIVNET 4051->8421
  4. 0R 34 06/08 18:18 WWIVNet 4001->4051
  5. 0R 34 06/08 14:07 WWIVnet 4000->4001
  6. 0R 34 06/08 05:34 WWIVnet ->4000
  7. 0R 34 06/07 01:09 WWIVnet 4001->4000
  8. 0R 34 06/07 07:32 WWIVnet 20001->4001
  9. 0R 34 06/06 02:14 WWIVnet 20302->20001
  10. 0R 34 06/06 02:10 WWIVnet ->20302
  11.  
  12.    ┌┬─── ──  ─   ─  ── ───────────────────────────────────────────────────┬─ ∙∙
  13.    ││                    Alternative Worlds Presents                      │
  14.    └┼─────────────────────────────────────────────────────────────────────┐
  15.    ││ Mod Name       » FMD-17a.MOD                                        │∙
  16.    ││ Difficulty     » ██▒▒▒▒▒▒▒▒▒ (1/10)                                 │:
  17.    ││ WWIV Version   » 4.24                                               ││
  18.    ││ Date Affected  » 06/01/95                                           ││
  19.    :│ Files Affected » LILO.C                                             ││
  20.    ∙│ Description    » New Mailbox Scan With New and Old Mail.            ││
  21.     └─────────────────────────────────────────────────────────────────────┼┐
  22.     │       A French Mod Division Release - (C) 1995 FMD Software         ││
  23. ∙∙ ─┴─────────────────────────────────────────────────── ──  ─   ─  ── ───└┘
  24.  
  25.  ┌┬══════════════════┐
  26.  ││ Long Description ││
  27.   └══════════════════┴┘
  28.  
  29.    This modification will allow you, the SysOp, to stop being bugged by the
  30. annoying situation that WWIV is always asking to you if you want to read your
  31. mail or not, but there is no new mail in your mailbox, so instead of having
  32. a second mailbox, you can use this modification. That is just a situation,
  33. your user will love it also! This modification will ask you if you want to
  34. read your mail ONLY when you have NEW mail waiting, else it will only put
  35. a notice that you have mail in your mailbox. Of course it will always tell
  36. you how many new mail or how many old mail is in your mailbox.
  37.  
  38. Revision A:
  39.  
  40.  - Updated for WWIV v4.24
  41.  
  42.  ┌┬═══════┐
  43.  ││ Tests ││
  44.   └═══════┴┘
  45.  
  46.   This modification has been tested on a virgin WWIV v4.24 source using
  47.   Borland C++ v4.5
  48.  
  49. ──────────────────────────────────────────────────────────────────────────────
  50.                                    Legend
  51.                           ╔═══╤══════════════════┐
  52.                           │ + │ Add This Line    │
  53.                           │ - │ Delete This Line │
  54.                           │ * │ Modify This Line │
  55.                           │ = │ Existing Line    │
  56.                           └═══╧══════════════════╝
  57. ───[Step 1]────────────────────────────────────────────────────────────────────
  58.  
  59. Load LILO.C, search for this line in function void logon(); and make the changes
  60. yourself (change the code there). Be sure to delete the part of readmail
  61. already there between the 2 existing lines.
  62.  
  63.  
  64. = void logon(void)
  65. = {
  66. =   char s[255],s1[181],s2[81],*ss;
  67. =   char speed[40],ch;
  68. *   int i,i1,dv,win,f,mw,mfl,newmail;
  69. =   long len,pos;
  70. =   long l;
  71. +   mailrec m;
  72. =
  73.  
  74. And then lower in the code...
  75.  
  76. =    topscreen();
  77. =    create_chain_file();
  78. =    rsm(usernum,&thisuser,1);
  79. +    npr("9Scanning For 1Personnal Mail9...");
  80. =    if (thisuser.waiting) {
  81. +      newmail=0;
  82. +      f=open_email(0);
  83. +      mfl=filelength(f)/sizeof(mailrec);
  84. +      mw=0;
  85. +      for (i=0; (i<mfl) && (mw<MAXMAIL); i++)
  86. +      {
  87. +        sh_lseek(f,((long) (i)) * (sizeof(mailrec)), SEEK_SET);
  88. +        sh_read(f,(void *)(&m),sizeof(mailrec));
  89. +        if ((m.tosys==0) && (m.touser==usernum))
  90. +        {
  91. +          if (!(m.status & status_seen))
  92. +            newmail++;
  93. +        }
  94. +      }
  95. +      f=sh_close(f);
  96. +      pl("1 Found some!");
  97. +      if (newmail)
  98. +      {
  99. +        npr("9You Have 1%d 9New E-Mail Waiting.\r\n\r\n",newmail);
  100. =        if (menu_on()) {
  101. =           printmenu(324);
  102. =           rip_popup = 0;      /* Disable the Yes/No prompt */
  103. =        } else
  104. =          prt(9,get_string(377));
  105. *        if (ny()) {
  106. =          if (rip_on()) {
  107. =            rip_cls();
  108. =            //rmenu = 300;
  109. =          }
  110. =          readmail();
  111. =        }
  112. *      } else {
  113. +        npr("9You have 1%d 9old messages in your mailbox.\r\n",thisuser.waiting);
  114. +        npr("9Use the mailbox command in the main menu to read it.\r\n");
  115. +      }
  116. +    } else
  117. +      pl(" 9None found.");
  118. =  }
  119. =  if (rip_on()) {
  120. =    rip_popup = -1;      /* Re-enable */
  121. =    cleared = -1;
  122. =  }
  123. =  nscandate=thisuser.daten;
  124. =  batchtime=0.0;
  125.  
  126.  
  127. Save LILO.C
  128.  
  129.  
  130. ───[Step 6]────────────────────────────────────────────────────────────────────
  131.  
  132.  
  133. Just compile back your source and enjoy the change. A nice and easy
  134. modification once again to enhance your bulletin board. You need to compile
  135. the whole board (sorry).
  136.  
  137. French Proverb: Après la pluie, le beau temps.
  138.  
  139. For comments, bug report and suggestion, e-mail at the following address:
  140.  
  141. Nicolas LeBlanc  2@20302.WWIVnet (aka Spotnick)
  142.                  -> spotnick@gamemaster.qc.ca
  143. Martin Bourdages 242@20306 / 3@20302.WWIVnet (aka Dark Shadow)
  144.                  -> martin.bourdages@radio.magicnet.com
  145.  
  146.                  =>   French Mod Division Support Sub   <=
  147.                                 SubType: FMD
  148.                            Host: @20302 (WWIVnet)
  149.                       Scan sublist for other networks
  150.  
  151.         Read PRODUCTS.FMD for the full list of our support systems.
  152.  
  153. ───[EOF]──────────────────────────────────────────────────────────────────────
  154.