home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / APOG015.MOD < prev    next >
Text File  |  1995-06-24  |  3KB  |  112 lines
  1. Charlie La Guardia #1 @9053 7<1Maybe, Maybe Just Once7>
  2. Wed Jun 14 18:35:12 1995
  3. ╓───────────────────────────────────────────────────────────────╖
  4. ║  MODname: APOG015 .MOD         Author: Charlie La Guardia     ║
  5. ║  Difficulty:█░░░░░░░░░                    1 @1    AstralNET   ║
  6. ║  Version: v4.24                           1 @3    LOCnet      ║
  7. ║  Description:                             1 @6    HOINet      ║
  8. ║  Replaces the /V function built-in to     1 @2302 Cyberia     ║
  9. ║  WWIV with one that validates EVERYTHING, 1 @4100 IceNET      ║
  10. ║  no questions asked, so you aren't asked  1 @4100 TerraNET    ║
  11. ║  what you want to validate or delete      1 @4100 SierraLink  ║
  12. ║  on every single unvalidated post.        1 @9053 WWIVnet     ║
  13. ╙───────────────────────────────────────────────────────────────╜
  14.  
  15. Key:
  16.  
  17. /*==*/    Existing Line
  18. /*++*/    Add This Line
  19. /*--*/    Comment Out This Line
  20. /*%%*/    Change This Line
  21.  
  22. Step (1) - Back up your source.  I am not responsible if your BBS gives the
  23. police officer down the road access to your kiddie porn section as a result of
  24. this mod.
  25.  
  26. Step (2) - Load up GFILES.C.  Replace the valscan() function with the below.
  27.  
  28.  
  29. void valscan(void)
  30. {  /* kcc */
  31.   int os, ac, sn, i, i1, done, val, next;
  32.   userrec tu;
  33.   postrec *p1, p2;
  34.   char s[81], ch;
  35.   unsigned long sq;
  36.  
  37.   /* Must be local cosysop or better */
  38.   if (!lcs())
  39.     return;
  40.  
  41.   ac=done=0; os=cursub;
  42.  
  43.   if ((uconfsub[1].confnum!=-1) && (okconf(&thisuser))) {
  44.     ac=1;
  45.     tmp_disable_conf(1);
  46.   }
  47.  
  48.   done=0;
  49.   for (sn=0; (sn<num_subs) && (!hangup) && (!done); sn++) {
  50.     if (!iscan(sn))
  51.       continue;
  52.     if (curlsub<0)
  53.       return;
  54.  
  55.     sq=qsc_p[sn];
  56.  
  57.     /* Must be sub with validation "on" */
  58.     if ((!(xsubs[curlsub].num_nets)) || (!(subboards[curlsub].anony & anony_val_net)))
  59.       continue;
  60.  
  61.     nl();
  62.     ansic(2);
  63.     npr("{{ %s %s }}",get_string(1623), subboards[curlsub].name);
  64.     nl();
  65.  
  66.     for (i=0; (i<=nummsgs) && (!hangup) && (!done); i++) {
  67.       if (get_post(i)->status & status_pending_net) {
  68.     checkhangup();
  69.     tleft(1);
  70.     if ((i>0) && (i<=nummsgs)) {
  71.       read_message(i,&next,&val);
  72.       open_sub(1);
  73.       resynch(curlsub, &i, NULL);
  74.       p1=get_post(i);
  75.       p1->status &= ~status_pending_net;
  76.       write_post(i, p1);
  77.       close_sub();
  78.       send_net_post(p1, subboards[curlsub].filename, curlsub);
  79.       nl();
  80.       pl(get_string(1500));
  81.       nl();
  82.     }
  83.       }
  84.     }
  85.     qsc_p[sn]=sq;
  86.   }
  87.  
  88.   if (ac)
  89.     tmp_disable_conf(0);
  90.  
  91.   cursub=os;
  92. }
  93.  
  94. Step (3) - Compile your source.  You're done.
  95.  
  96.      If you use this mod, please send mail to one of the following addresses:
  97.  
  98.                 1 @1     AstralNET
  99.                 1 @3     LOCnet
  100.                 1 @6     HOINet
  101.                 1 @2302  Cyberia
  102.                 1 @4100  IceNET
  103.                 1 @4100  TerraNET
  104.                 1 @4100  SierraLink
  105.                 1 @9053  WWIVnet
  106.   
  107.                 Thanks!
  108.  
  109.  
  110. 7President 2CHARLIE!0
  111. 7La Guardia0
  112.