home *** CD-ROM | disk | FTP | other *** search
- 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 (1@10213.wwivnet)
- ─[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: uaslabs@bmn.net
- or : swan0322@maroon.tc.umn.edu
- WWIVnet : 1@10141
- ICEnet : 1@6293
-
- /┤lpha-1 Republic: 612-988-0828
-