home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / SPV-059.MOD < prev    next >
Text File  |  1995-05-04  |  6KB  |  117 lines
  1. Papa Bear #1 @11579
  2. 7Wednesday1, 7May 31, 71995 2126:220 am
  3. 0R 34 05/03 10:04 WWIVnet 4001->4000
  4. 0R 34 05/01 16:43 WWIVnet 11579->4001
  5. 0R 34 05/03 00:22 WWIVnet ->11579
  6. 4Msg. Status:9▄ 5Please reply!
  7. 9 ▀▀▀▀▀▀▀▀▀▀▀▀
  8. ┌────────────────────────────A CEREBRUM release!─────────────────────────────┐
  9. │ Mod Name: SPV-059.MOD      Mod Authors: Pâpâ ßêâr (11579.wwivnet)          │
  10. │ Difficulty: ▓░░░░░░░░░     First ----- [05/02/95] (15061.wwivlink)         │
  11. │ WWIV Version: 4.23         Last ------ [00/00/00] (2.sexnet) (11.norcalnet)│
  12. │ Files Affected: LILO.C  FCNS.H                    (5079.icenet)            │
  13. │ Description: Forces a user into reading their E-Mail, IF it was sent from  │
  14. │ a user with a specified SL or higher.                                      │
  15. ╞═────────────────────────────────────═╤═───────────────────────────────────═╡
  16. │ StarPort Valhalla [510]522-3583 ASV 28.8kbps  Home of the SPV mod series!  │
  17. └─────────────────────────────────────═╧═────────────────────────────────────┘
  18.  Word of Warning:  You installed it, you're responsible! Make back-ups BEFORE
  19.  attempting to install this modification!  Read all text before beginning.
  20. ─────────────────────────────────────────────────────────────────────────────
  21.  LEGEND:
  22.  ==  Original Code [use this to search on]
  23.  ++  Add this Line [mods ALWAYS add stuff, don't they?]
  24.  -+  Change this line
  25. ─────────────────────────────────────────────────────────────────────────────
  26.  LONG DESCRIPTION:  I won a government contract to set up a WWIV BBS for the
  27. local Navy base.  In the process of determining what they wanted in the way
  28. of modifications, they wanted the capability to force read E-Mail on users if
  29. the mail was sent from like the Commanding Officer.
  30.   So here it is...  If you wanna set it up for something other than SL, just
  31. let me know!
  32. ─────────────────────────────────────────────────────────────────────────────
  33. STEP 1: Make this change in LILO.C, void logon(void)
  34.  
  35. ==    create_chain_file();
  36. ==    rsm(usernum,&thisuser,1);
  37. -+    if (thisuser.waiting) {                              // SPV-059 added {
  38. ++      if (CheckForceEmail())                                     // SPV-059
  39. ==        readmail();
  40. ++      else {                                                     // SPV-059
  41. ++        prt(5,get_string(377));                                  // SPV-059
  42. ++        if (yn())                                                // SPV-059
  43. ++          readmail();                                            // SPV-059
  44. ++      }                                                          // SPV-059
  45. ++    }                                                            // SPV-059
  46. ==  }
  47. ==  nscandate=thisuser.daten;
  48. ─────────────────────────────────────────────────────────────────────────────
  49. STEP 2: Add this function to the end of LILO.C:
  50.  
  51. #define FORCE_SL 255                                                  // NOTE
  52.  
  53. // SPV-059 add block start
  54. unsigned char CheckForceEmail(void)
  55. {
  56.   mailrec Mail;
  57.   userrec User;
  58.   int File,NumberOfMails,MaxWaiting,i;
  59.   unsigned char Done=0;
  60.  
  61.   File=open_email(0);
  62.   NumberOfMails=filelength(File)/sizeof(mailrec);
  63.   for (i=0; (i<NumberOfMails) && (!Done); i++) {
  64.     sh_lseek(File,((long)(i))*(sizeof(mailrec)), SEEK_SET);
  65.     sh_read(File,(void *)(&Mail),sizeof(mailrec));
  66.     if ((Mail.tosys==0) && (Mail.touser==usernum)) {
  67.       if (Mail.fromsys==0) {
  68.         read_user(Mail.fromuser,&User);
  69.         if (User.sl>=FORCE_SL)
  70.           Done=1;
  71.       }
  72.     }
  73.   }
  74.   File=sh_close(File);
  75.   return(Done);
  76. }
  77. // SPV-059 add block end
  78.  
  79. NOTE: Set this #define the the MINIMUM SL that you want...  SO if you have
  80.       CoSysOps with 100 and you want them to be able to send forced E-Mail
  81.       set this to 100.
  82. ─────────────────────────────────────────────────────────────────────────────
  83. STEP 3: Add function prototype to FCNS.H
  84.  
  85. == void logon(void);
  86. == void logoff(void);
  87. ++ unsigned char CheckForceEmail(void);                            // SPV-059
  88. ==
  89. == /* File: misccmd.c */
  90. == void read_automessage(void);
  91. ─────────────────────────────────────────────────────────────────────────────
  92. STEP 4: Recompile
  93. ─────────────────────────────────────────────────────────────────────────────
  94.  
  95.   E-Mail me if you like this one...  The external UEDIT2 is coming along
  96. fantastically!
  97.  
  98.    This mod is copyright 1993,1994 by Tracy Baker, aka Papa Bear, and is
  99. distributed as freeware.  Permission is granted to distribute and post this
  100.   mod on BBS systems and online services, provided no alterations are made
  101.  (removal of message headers/taglines allowed).  This mod may contain some
  102.  parts of WWIV source code, which is copyright 1988-1994 by Wayne Bell and
  103.    licensed only to registered users of WWIV.  Use of WWIV source without
  104.     registration constitutes a license violation and could lead to legal
  105.                        prosecution and certain doom.
  106.   Shareware distributors and CD-ROM publishers may not distribute this mod
  107. without express written permission of the Author or WWIV Software Services.
  108.  
  109. 1-7=3*6>2Pâpâ ßêâr6<3*7=1-0
  110.  
  111. 8311579.wwivnet1· 2 ╪╫9≡8║7⌐¬4¥5╓╥╖1·     ·     2▒1 ·   2▒       3(510)522-35831    ·
  112. 732.sexnet  1∙   6 ·0░░▒▒▓▓6∞0▓▒░6·2 StarPort   ▒   ▒ 2 ▒1  ·2▒   ▒ ▒1 ·2 ▒   ▒1  ·2▒     ▒ 1·
  113. 6315061.wwivlink    0 ████1 ·     .       2  ▒ ▒  ▒ ▒  ▒1 · 2▒▒▒  ▒ ▒  ▒   ▒    ▒ ▒
  114. 535079.icenet 1.  .  0 │└6·0└6· 1     ∙         2 ▒  ▒   ▒ ▒▒▒ ▒ ▒ ▒1 ·2 ▒ ▒▒▒ ▒▒▒ ▒1 ∙ 2▒
  115. ---
  116. 5Jury: A group chosen to decide who has the best lawyer.
  117.