home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / DOA-03.ZIP / DOA-03.MOD next >
Text File  |  1996-11-21  |  10KB  |  341 lines
  1. ╒═════════════════════════════════════════════════════════╕
  2. │ File Name: DOA-03.MOD                                   │
  3. │                                                         │
  4. │ Description: An e-mail matrix, replaces M, K, F,        │
  5. │              and /E                                     │
  6. │                                                         │
  7. │ Version: WWIV 4.24                                      │
  8. │                                                         │
  9. │ Difficulty: █▒▒▒▒▒▒▒▒▒ (1/10)                           │
  10. │                                                         │
  11. │ Files Affected: MISCCMD.C / MMENU.C                     │
  12. │                                                         │
  13. │ Author: John Doa of Area Fifty-One (410)-319-9245       │
  14. ╘═════════════════════════════════════════════════════════╛
  15.  
  16. ■ Extended Description ■
  17.  
  18. This was originally made by Terminator X
  19. I re-explained the mod because it wasn't
  20. explained well, and it was confusing. I also
  21. changed a few commands...
  22. **YOU NEED COMMON INSTALLED**
  23.  
  24. ╒═[Legend]═══════════╕
  25. │ = existing line    │
  26. │ + add this line    │
  27. │ - delete this line │
  28. │ * modify this line │
  29. ╘════════════════════╛
  30.  
  31.  
  32.  
  33. ──────────────────────────────────────────────────────────────────────────────
  34. ■ Step One ■
  35. ──────────────────────────────────────────────────────────────────────────────
  36.  
  37. Back up your source!!!
  38.  
  39.  
  40. ──────────────────────────────────────────────────────────────────────────────
  41. ■ Step Two ■
  42. ──────────────────────────────────────────────────────────────────────────────
  43.  
  44. Load MISCCMD.C
  45.  
  46. Block copy this to the end of it...
  47.  
  48.  
  49. /* DOA-03.MOD */
  50.  
  51. char *mailmenu_str [] = {
  52.   "E-Mail Someone",
  53.   "Read Your E-Mail",
  54.   "Delete An E-Mail",
  55.   "Configure Mailbox",
  56.   "MultiMail People",
  57.   "Feedback To Sysops",
  58.   "Send SSM To User",
  59.   "Upload An E-Mail",
  60.   "Quit"
  61. };
  62.  
  63. #define MAILMENU_OPTIONS  9  /* Number of options on matrix */
  64. #define HIGHLIGHT 1          /* Highlighted Lightbar Color */
  65. #define UNHIGHLIGHT  31      /* Regular Lightbar Color */
  66.  
  67. void mailmenu(void)
  68. {
  69.   int i,i1,done,done1,f,ok;
  70.   char s[150],s1[150],ch,ch1,*ss,s2[150],s3[81];
  71.  
  72.   showtextrec opt[MAILMENU_OPTIONS];
  73.   varimenurec *menu=NULL, newmenu;
  74.   varimenuinfo info={HIGHLIGHT, UNHIGHLIGHT, UNHIGHLIGHT, HIGHLIGHT,
  75.              DARKGRAY+(BLUE<<4),
  76.              COMMON_FULL, 0, 0, 0, 0, 0};
  77.  
  78.  
  79.   for (i=0; i<MAILMENU_OPTIONS; i++)
  80.   {
  81.     build_showtextrec(&opt[i], 25, 7+i, 35, mailmenu_str[i], JUSTIFY_CENTER, ' ');
  82.     fillvarimenurec(&newmenu, &opt[i], SHOW_TEXT_TYPE, mailmenu_str[i][0],
  83.     mailmenu_str[i][0], COMMON_ACTIVE);
  84.     menu=addvarimenu(menu, &newmenu);
  85.   }
  86.  
  87.   done=0;
  88.   topdata=0;
  89.  
  90.   while((!done) && (!hangup))
  91.   {
  92.     CLS();
  93.     _setcursortype(_NOCURSOR);
  94.     existprint("MAILMENU");
  95.  
  96.     info.redraw=COMMON_FULL;
  97.     varimenu(menu, &info);
  98.  
  99.     switch(info.event)
  100.     {
  101.       case EXECUTE:
  102.     _setcursortype(_NORMALCURSOR);
  103.     switch(info.returnvalue)
  104.     {
  105.         case 'E':                      /* Send E-mail */
  106.           CLS();
  107.       send_email();
  108.       done=1;
  109.       break;
  110.         case 'F':                      /* Send Feedback to Sysops */
  111.           CLS();
  112.       write_inst(INST_LOC_FEEDBACK,0,INST_FLAGS_ONLINE);
  113.       feedback(0);
  114.       done=1;
  115.       break;
  116.         case 'M':                      /* Multi-mail */
  117.           CLS();
  118.       slash_e();
  119.       done=1;
  120.       break;
  121.         case 'U':                      /* Upload Post For Mail Or Message */
  122.           CLS();
  123.       upload_post();
  124.       done=1;
  125.       break;
  126.         case 'R':                      /* Read Mail */
  127.           CLS();
  128.       readmail();
  129.       break;
  130.         case 'D':                      /* Delete Mail Sent */
  131.           CLS();
  132.       helpl=8;
  133.       write_inst(INST_LOC_KILLEMAIL,0,INST_FLAGS_ONLINE);
  134.       kill_old_email();
  135.       break;
  136.         case 'C':                      /* Configure Mailbox */
  137.           CLS();
  138.       modify_mailbox();
  139.       break;
  140.         case 'S':                      /* Send SSM to user/net */
  141.           CLS();
  142.       send_ssm();
  143.       done=1;
  144.       break;
  145.           case 'Q':                    /* Quit */
  146.         CLS();
  147.         done=1;
  148.         break;
  149.     }
  150.       break;
  151.       case GET_OUT:
  152.     _setcursortype(_NORMALCURSOR);
  153.     CLS();
  154.     done=1;
  155.       break;
  156.     }
  157.   }
  158.   killvarimenu(menu);
  159. }
  160.  
  161.  
  162. void send_ssm(void)
  163. {
  164.   char s1[161],s2[81];
  165.   unsigned short un,sy;
  166.  
  167.   nl();
  168.   prt(1,"Send SSM To Another User? ");
  169.   if (ny()) {
  170.     outchr(12);
  171.     prt(1,"Send SSM To :");
  172.     mpl(30);
  173.     input(s1,30);
  174.     nl();
  175.     if (s1[0]==NULL) {
  176.       prt(6,"Aborted!");
  177.       nl();
  178.       return;
  179.     }
  180.     parse_email_info(s1,&un,&sy);
  181.     nl();
  182.     if ((!un && !sy) || !un) {
  183.       prt(1,"That is not a valid 6LOCAL 1nor 6NETWORK 1address!");
  184.       pausescr();
  185.       return;
  186.     } else {
  187.       prt(1,"Please Enter Your SSM Text Now! 7(975 charactors7):");
  188.       nl();
  189.       mpl(75);
  190.       inli(s1,"",160,1);
  191.       if (s1[0]==NULL) {
  192.       prt(6,"Aborted!");
  193.     nl();
  194.     return;
  195.       }
  196.       nl();
  197.       if ((thisuser.restrict & restrict_net) && (sy)) {
  198.     nl();
  199.         npr("1You Are Restricted From Sending SSM's Off 9%s.",syscfg.systemname);
  200.     return;
  201.       } else {
  202.         sprintf(s2,"1This SSM Is From: 9%s 7(9%s7)",
  203.            (sy) ? nam1(&thisuser,usernum,net_sysnum) :
  204.               nam(&thisuser,usernum),
  205.            (sy) ? net_name :
  206.               syscfg.systemname);
  207.     ssm(un,sy,s2);
  208.     ssm(un,sy,s1);
  209.     npr("%s",
  210.             (sy) ? "1Your SSM Was Sent Over The Networks!\r\n":
  211.                    "1Your SSM Was Sent Locally!\r\n");
  212.       }
  213.     }
  214.   }
  215. }
  216.  
  217. /* DOA-03.MOD */
  218.  
  219. Save MISCCMD.C
  220. Close MISCCMD.C
  221.  
  222. ──────────────────────────────────────────────────────────────────────────────
  223. ■ Step Three ■
  224. ──────────────────────────────────────────────────────────────────────────────
  225.  
  226. Load MMENU.C
  227.  
  228. Remove/Modify the following lines...
  229.  
  230. =      tmp_disable_conf(1);
  231. =    }
  232. =    nscan(0);
  233. =    if (ac)
  234. =      tmp_disable_conf(0);
  235. =  }
  236. -  if (strcmp(s,"/E")==0)
  237. -    slash_e();
  238. =  if (strcmp(s,"/N")==0)
  239. =    nscan(cursub);
  240. =  if (strcmp(s,"/O")==0)
  241. =    hangup=1;
  242.  
  243. Down...
  244.  
  245. *      case 'E':
  246. *        mailmenu();
  247. *       break;
  248. -      case 'F':
  249. -        write_inst(INST_LOC_FEEDBACK,0,INST_FLAGS_ONLINE);
  250. -        feedback(0);
  251. -        break;
  252. =      case 'G':
  253. =        helpl=28;
  254. =        write_inst(INST_LOC_GFILES,0,INST_FLAGS_ONLINE);
  255. =        existprint(get_string(1032));
  256. =        gfiles();
  257. =        break;
  258. =      case 'H':
  259. =        hop_sub();
  260. =        break;
  261. =      case 'I':
  262. =        nl();
  263. =        npr("%s   (%s)\r\n",wwiv_version, wwiv_date);
  264. =        nl();
  265. =        existprint(get_string(1033));
  266. =        existprint(get_string(1034));
  267. =        break;
  268. =      case 'J':
  269. =        if (okconf(&thisuser))
  270. =          jump_conf(CONF_SUBS);
  271. =        break;
  272. -      case 'K':
  273. -        helpl=8;
  274. -        write_inst(INST_LOC_KILLEMAIL,0,INST_FLAGS_ONLINE);
  275. -        kill_old_email();
  276. -        break;
  277. =      case 'L':
  278. =        existprint(get_string(1035));
  279. =        break;
  280. -      case 'M':
  281. -        mainmenu();                                
  282. -        break;
  283. =      case 'N':
  284. =        write_inst(INST_LOC_SUBS,65535,INST_FLAGS_ONLINE);
  285. =        express=0;
  286. =        expressabort=0;
  287. =        nscan(0);
  288. =        break;
  289.  
  290. Save MMENU.C
  291. Close MMENU.C
  292.  
  293. ──────────────────────────────────────────────────────────────────────────────
  294. ■ Step Four ■
  295. ──────────────────────────────────────────────────────────────────────────────
  296.  
  297. Make FCNS
  298. then MAKE the bbs
  299.  
  300. UUDecode the file at the end and copy it to your GFILES dir.
  301. Thats it!!!
  302.  
  303. ──────────────────────────────────────────────────────────────────────────────
  304. ■ UUEncoded File ■
  305. ──────────────────────────────────────────────────────────────────────────────
  306.  
  307. section 1 of uuencode 5.25 of file mailmenu.msg    by R.E.M.
  308.  
  309. begin 644 mailmenu.msg
  310. M&UL_-V@;6S(U-40;6S0P;0T*&ULP.S%M&ULR-T,;6S0T;2`;6S,V;4%R&ULT
  311. M,&T;6T$-"AM;,S!#&ULT-&UE82!&:69T>2U/;F4@11M;-#!M&UM!#0H;6S0T
  312. M0QM;-#1M+6UA:6P@365N=2`;6S0P;0T*#0H;6S$V0QM;-#9MW]_?W]_?W]_?
  313. MW]_?W]\;6S0P;1M;00T*&ULS,$,;6S0V;=_?W]_?W]_?W]_?W]_?&ULT,&T;
  314. M6T$-"AM;-#1#&ULT-FW?W]_?W]_?W]_?W]_?WQM;-#!M&UM!#0H;6S4X0QM;
  315. M-#9MW]_?W]_?W]L;6S0P;0T*&ULQ-D,;6S,P.S0V;;`@&ULT-D,@&ULT,&T;
  316. M6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*&ULQ-D,;6S,P.S0V;;$@&ULT
  317. M-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*&ULQ-D,;6S,P
  318. M.S0V;;(@&ULT-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*
  319. M&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V
  320. M;=L;6S0P;0T*&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;6T$-"AM;-C5#
  321. M&ULT-FT;6S,V;=L;6S0P;0T*&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;
  322. M6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*&ULQ-D,;6S,P.S0V;=L@&ULT
  323. M-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*&ULQ-D,;6S,P
  324. M.S0V;=L@&ULT-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V;=L;6S0P;0T*
  325. M&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;6T$-"AM;-C5#&ULT-FT;6S,V
  326. M;;(;6S0P;0T*&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;6T$-"AM;-C5#
  327. M&ULT-FT;6S,V;;$;6S0P;0T*&ULQ-D,;6S,P.S0V;=L@&ULT-D,@&ULT,&T;
  328. M6T$-"AM;-C5#&ULT-FT;6S,V;;`;6S0P;0T*&ULQ-D,;6S,P.S0V;=O<W-S<
  329. MW-S<W-S<&ULT,&T;6T$-"AM;,C=#&ULT-FW<W-S<W-S<W-S<W-S<W!M;-#!M
  330. M&UM!#0H;6S0Q0QM;-#9MW-S<W-S<W-S<W-S<W-P;6S0P;1M;00T*&ULU-4,;
  331. @6S0V;=S<W-S<W-S<W-S<&ULT,&T-"AM;,&T;6S(U-40U
  332. `
  333. end
  334. sum -r/size 47791/1377 section (from "begin" to "end")
  335. sum -r/size 25645/977 entire input file
  336.  
  337. ──────────────────────────────────────────────────────────────────────────────
  338. ■ E.O.F. ■
  339. ──────────────────────────────────────────────────────────────────────────────
  340.  
  341.