home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ALLMODS.ZIP / JIFF-10.ZIP / JIFF-10.MOD < prev   
Encoding:
Text File  |  1995-08-09  |  4.6 KB  |  154 lines
  1. Jiff #480 @12183
  2. Fri Aug 04 03:44:20 1995
  3. ╒════════════════════════════════════════════════════[Cow Header (Moo)]═══╕
  4. │ Mod Name: JIFF-10.MOD   Author: Jiff    - 4@7668 IceNET 1@7666 MicroNET │
  5. │ Difficulty: ██▓▒▒▒▒▒▒▒▒         Crave!  - 1@7668 IceNET 1@7668 MicroNET │
  6. │ WWIV Version: v4.24+    Date: 08/03/95  ╒═════────∙·.                   │
  7. │ Files Affected: BBSOVL1.C COM.C MMENU.C │ Chris Craver       1:260/152  │
  8. │ Description: Send FidoNet mail via WWIV │ Dave Hogan (Jiff)  FidoNet    │
  9. ╘═════════════════════════════════════════╧═══════════════════════════════╛
  10.  
  11.      This mod is intended for those of you on IceNET or MicroNET to send
  12. FidoNet e-mail via the @668 (1:260/152) gateway.  I'm assuming people in
  13. WWIVnet (or any other net with a Fido gateway) could set this up to work
  14. with that gateway.  In fact, I'll even mark what you'd need to change!
  15.      Also, if you're wondering why there are two authors, one is for the
  16. person that wrote the actual code I worked with, Chris Craver 1@12182 on
  17. WWIVnet, and the other is me, Jiff, the one that's writing this mod, and
  18. making this mod fit all the other JiffMods.  This is pretty simple.
  19.  
  20. = - Search for this line
  21. + - Add this line
  22. - - Remove this line
  23. % - Change this line
  24.  
  25.  
  26. .·∙──══ Step 1 ══──∙·.
  27. Open up any file, BBSOVL1.C or MODS.C is recomended, and plop this onto
  28. the end.
  29.  
  30. /* Start JIFF-10.MOD */
  31. void fidomail(void)
  32. {
  33.   char s[81],s1[81],s2[81],error[81];
  34.   unsigned short sy,un;
  35.   short i;
  36.  
  37.   outchr(12);
  38.   write_inst(INST_LOC_EMAIL,0,INST_FLAGS_NONE);
  39.   helpl=14;
  40.   if (okansi()) {
  41.     nln(4);
  42.     jiffbar("FidoNet E-mail");
  43.     pl("7╒═══════════────────∙·.");
  44.     pl("7│1 Enter the name of the person user you wish to e-mail.");
  45.     pl("7│1 Name: 4                              0");
  46.     pl("7│");
  47.     pl("7│1 Enter the FidoNet node of that person.");
  48.     pl("7│1 Node3: 4               0");
  49.     pl("7╘═══════════────────∙·.");
  50.   } else {
  51.     pl("FidoNet email");
  52.     pl("Enter the FULL name of the person you want to email.");
  53.     npr("Name: ");
  54.   }
  55.   if (okansi()) {
  56.     goxy(9,8);
  57.     mpl(30);
  58.   }
  59.   input(s1,30);
  60.   if (!s1[0]) {
  61.     goxy(1,15);
  62.     jiffbar("Aborted");
  63.     return;
  64.   }
  65.   if (!okansi()) {
  66.     pl("Enter the FidoNet node of that person");
  67.     npr("Node: ");
  68.   } else {
  69.     goxy(9,11);
  70.     mpl(15);
  71.   }
  72.   input(s2,15);
  73.   if (!s2[0]) {
  74.     goxy(1,15);
  75.     jiffbar("Aborted");
  76.     return;
  77.   }
  78.   goxy(1,17);
  79.   helpl=0;
  80.   irt[0]=0;
  81.   irt_name[0]=0;
  82.   sprintf(s,"%s (%s) ",s1,s2);
  83.   strcat(s,"@668");             // Edit this to the node of gateway, if
  84.                 // you aren't in IceNET or MicroNET
  85.   parse_email_info(s,&un,&sy);
  86.   grab_quotes(NULL, NULL);
  87.   if (un || sy)
  88.     email(un,sy,0,0);
  89.   else {
  90.     if (okansi())
  91.       goxy(1,16);
  92.     jiffbar("Invalid address format!");
  93.     pausescr();
  94.   }
  95. }
  96. /* End JIFF-10.MOD */
  97.  
  98.  
  99. .·∙──══ Step 2 ══──∙·.
  100. Open up COM.C and plop this at the end.  If you already have this, replace
  101. it because this is an update.  Thanks to Spotnick for the litebar mod that
  102. this is patterned after.
  103.  
  104. /* JiffMod Function */
  105. void jiffbar(char *fmt, ...)
  106. {
  107.   va_list ap;
  108.   char s[512], s2[250];
  109.  
  110.   va_start(ap, fmt);
  111.   vsprintf(s, fmt, ap);
  112.   va_end(ap);
  113.  
  114.   if (okansi())
  115.   {
  116.     sprintf(s2,"\x1b[0;34m░░▒▒▓▓\x1b[1;37;44m  %s  \x1b[0;34m▓▓▒▒░░",stripcolors(s));
  117.     pl(s2);
  118.   } else
  119.     pl(s);
  120.   ansic(0);
  121. }
  122. /* End JiffMod Function */
  123.  
  124.  
  125. .·∙──══ Step 3 ══──∙·.
  126. Open MMENU.C and do this:
  127.  
  128. =  if (strcmp(s,"/E")==0)
  129. =    slash_e();
  130. +  if (strcmp(s,"/F")==0)
  131. +    fidomail();
  132. =  if (strcmp(s,"/N")==0)
  133. =    nscan(cursub);
  134. =  if (strcmp(s,"/O")==0) {
  135.  
  136.  
  137. .·∙──══ Step 4 ══──∙·.
  138. Okay, well, now just make fcns, recompile, and e-mail me, Jiff, so I'll add
  139. you to the JiffMods Support list.  Then, (I'd suggest this, not needed) you
  140. should get the JiffMods Support Sub, subtype JIFMODS, in IceNET and WWIVnet
  141. hosted by The Pinnacle, and on all the nets The Cow Pasture BBS is in.  I'm
  142. done, and tired...  =)  This mod took a long time to write!  =)
  143.  
  144. //                           ─═[░▒▓J탃▓▒░]═─                            \\
  145.  
  146. JIFF-01  ■ Boxed DirEdit               JIFF-02  ■ Boxed SubEdit
  147. JIFF-03  ■ Better Pending @ Net Call   JIFF-04  ■ New G-Files Section
  148. JIFF-05  ■ Boxed ChainEdit             JIFF-06  ■ Boxed G-Files Edit
  149. JIFF-07  ■ Limit users off of a node   JIFF-08  ■ Boxed/Improved Uedit
  150. JIFF-09  ■ JiffMod Style YourInfo      JIFF-10  ■ FidoNet mail over IceNET
  151.  
  152.  JiffMods Support Sub - Subtype JIFMODS - Many nets - E-mail Jiff for info
  153. [][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][≈EOF≈][][][]
  154.