The Arcade BBS/arcadebbs.zip/arcadebbs/bbstools/MODS/ZF-6A.ZIP/ZF-6A.MOD

Text File | 1995-07-09 | 5.6 KB | 138 lines

Neue Regel (Or Silent Knight) #1 @10141
Wed Jul 05 12:44:15 1995
┌───────────────────────────────────────────────────────────────────────────┐
│ Mod Name      : ZF-6a.MOD      Mod Author: Neue Regel      1@10141 WWIVnet│
│ Difficulty    : ░░░░░░░░░░     /┤lpha-1 Republic [ASV/GSA] 1@6293  ICEnet │
│ WWIV Version  : 4.24                                                      │
│ Mod Date      : 6-28-95                                                   │
│ Files Affected: MSGBASE1.C READMAIL.C                                     │
│                                                                           │
│ Description   : Download a Message at MAIL/MESSAGE Prompt via "$"         │
└───────────────────────────────────────────────────────────────────────────┘

 ─[Legal Info]───────────────────────────────────────────────────────────────
 This modified code may contain some parts of WWIV source code, which is
 copyright 1988-1995 by Wayne Bell and licensed only to registered users of
 WWIV.  Use of WWIV source without registration constitutes a license
 violation, could lead to legal prosecution and is generally regarded as evil
 Shareware  distributors  and CD-ROM publishers may not distribute this
 modified code without express written permission of the Author or WWIV
 Software Services.

 ─[Extended Description]─────────────────────────────────────────────────────
 Well as a subscriber to MODNET, a few local sysops who do not subscribe to
 it on their own system call my BBS to capture mods.  Well one day Metalix,
 who kept asking me to extract and upload mods to his BBS, finally said.
 "Mod Idea, something to allow me to download messages so I won't have to keep
 asking you to send them to me."  I remember seeing mods like this for 4.23,
 but I never installed one... so I finally tinkered around and came up with
 this.  It may be a bit sloppy, but give me a break, I have about 5 mods and
 none of them are that complex:)

 Revision A:

    ■  Writes to sysoplog
    ■  Asks user what to name the file, instead of previous MSGxx.  This was
       suggested by Prince ([e-mail])
 ─[Disclaimer]───────────────────────────────────────────────────────────────
 Back up the code this is a ZF mod...

 ─[Step 1]───────────────────────────────────────────────────────────────────

Open up MSGBASE1.C

In "void scan(int msgnum, int optype, int *nextsub)" before "case '?':"
add this block of code:

/*zf-6 DL MSG*/
            case '$':
                p2=*get_post(msgnum);
                grab_quotes(&(p2.msg),subboards[curlsub].filename);
                sprintf(s, "%s\\QUOTES.TXT", syscfgovr.tempdir);
                npr("9Save message as1? 7");0
                input(s4,8);
                sprintf(s1, "%s\\%s.msg",syscfgovr.tempdir,s4);
                copy_file(s, s1);
                add_arc(s4, s1, 1);
                download_temp_arc(s4, 0);
                sprintf(s, "Downloaded Message: %s [%s]",irt,subboards[usub[cur

sub].subnum].name);
                sysoplog(s);
                sprintf(s, "%s.*",s4);
                remove_from_temp(s, syscfgovr.tempdir, 0);
                resynch(cursub, &msgnum, &p2);
                grab_quotes(NULL, NULL);
                restore_msg_menu();
                break;
/*zf-6:end block*/

─[Step 2]────────────────────────────────────────────────────────────────────

Open up READMAIL.C

Under "void readmail(void)" insert this case after "case '?':"

/*zf-6 DL MAIL*/
        case '$':
            grab_quotes(&(m.msg),"EMAIL");
            sprintf(s, "%s\\QUOTES.TXT", syscfgovr.tempdir);
            npr("9Save message as1? 7");0
            input(s2,8);
            sprintf(s1, "%s\\%s.eml",syscfgovr.tempdir,s2);
            copy_file(s, s1);
            add_arc(s2, s1, 1);
            download_temp_arc(s2, 0);
            sprintf(s, "Downloaded E-mail: %s",m.title);
            sysoplog(s);
            sprintf(s, "%s.*",s2);
            remove_from_temp(s, syscfgovr.tempdir, 0);
            grab_quotes(NULL, NULL);
            break;
/*zf-6:end block*/

─[Step 3]────────────────────────────────────────────────────────────────────

Still in READMAIL.C

Towards the beginning of "void readmail(void)" where the commands are listed
moddify code as such:

=      if (so()) {
=        if (sysinfo.flags & OP_FLAGS_MAIL_PROMPT)
=          npr(get_string(1365));
*        ch=onek("QSRIDAMF$?-+GEZPVUOLCN"); //add "$"
=      } else {
=        if (cs()) {
=          if (sysinfo.flags & OP_FLAGS_MAIL_PROMPT)
=            npr(get_string(1366));
*          ch=onek("QSRIDAMF$?-+GZPVUOC"); //add "$"
=        } else {
=          if (!okmail) {
=            if (sysinfo.flags & OP_FLAGS_MAIL_PROMPT)
=              npr(get_string(1367));
=            ch=onek("QI?-+G");
=          } else {
=            if (sysinfo.flags & OP_FLAGS_MAIL_PROMPT)
=              npr(get_string(1368));
*            ch=onek("QSRIDAMF$?+-G"); //add "$"
=          }
=        }
=      }
=      if (okmail && !read_same_email(mloc, mw, curmail, &m, 0, 0)) {

─[Step 4]────────────────────────────────────────────────────────────────────

Do a MAKE.  You finish... can go home now...

─[Closing]───────────────────────────────────────────────────────────────────
Please E-mail me if you use this mod.  If you need me to modify it
specifically for you or you need help I can help you just e-mail me at one
of the addresses below (ehh it's in order from favorite to least).

Internet: [e-mail]
or      : [e-mail]
WWIVnet : 1@10141
ICEnet  : 1@6293

/┤lpha-1 Republic: 612-988-0828