Part 2 of 3  (FTAG.422)
Commander Riker #1 @7751
3Saturday, April 10, 1993  1 6:52 am
ΝΝΝ[ Step 7        ]ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ

Open "XFER.C" and let the fun begin <g>...

Find int ratio_ok and add the following:

=   if (!(thisuser.exempt & exempt_ratio))
=     if ((syscfg.req_ratio>0.0001) && (ratio()<syscfg.req_ratio)) {
=       ok=0;
      if (!in_tag) {  /* FT422 */
=       nl();
=       nl();
=       sprintf(s,"%s %-5.3f.  %s %-5.3f %s.",
=               get_string(730), ratio(),
=               get_string(731), syscfg.req_ratio,
=               get_string(732));
=       pl(s);
=       nl();
=       }
=     }
=
=   if (!(thisuser.exempt & exempt_post))
=     if ((syscfg.post_call_ratio>0.0001) && (post_ratio()<syscfg.post_call_rat

io)) {
=       ok=0;
      if (!in_tag) {  /* FT422 */
=       nl();
=       nl();
=       sprintf(s,"%s %-5.3f.  %s %-5.3f %s.",
=               get_string(733), post_ratio(),
=               get_string(731), syscfg.post_call_ratio,


Add these lines to printinfo

=  int i,next,fc;

=  fc=thisuser.sysstatus & sysstatus_funky_colors;

+  if (file_ptr>=MAX_FILES)
+      file_ptr=0;
+  if ((in_tag) && !(thisuser.sysstatus&sysstatus_no_tag) && (!x_only)) {
+    file_index[file_ptr].directory=udir[curdir].subnum;
+    strcpy(file_index[file_ptr].filename,u->filename);
+    if (fc)
+        sprintf(s,"7[%c%2d7] ",0
+                  (check_batch_queue(u->filename))?'1':'2', file_ptr+1);
+      else
+       sprintf(s,"[%2d] ",file_ptr+1);
+     file_ptr++;
+     osan(s,abort,&next);
+  }


Go futher down into printinfo

=  if (fc)
=    ansic(5);
-  pla(u->description,abort);
+  strcpy(s,u->description);
+  if ((in_tag) && !(thisuser.sysstatus&sysstatus_no_tag) && (!x_only))
+     if (strlen(s)>53)
+        s[53]=0;
+  pla(s,abort);
=  if ((!*abort) && (thisuser.num_extended) && (u->mask & mask_extended))

Find listfiles and add the following:


=   char s[81];
=   int i,abort,next=0;
+   uploadsrec u;

+   in_tag=1;
+   file_ptr=0;
=   dliscan();
=   file_mask(s);
=   abort=0;
=   num_listed=0;
=   printtitle(&abort);
=   for (i=1; (i<=numf) && (!abort) && (!hangup); i++) {
=     SETREC(i);
=     read(dlf,(void *)&u,sizeof(uploadsrec));
=     if (compare(s,u.filename))
=       printinfo(&u,&abort);
=     else if (!empty())
=       checka(&abort,&next);
=   }
+   tag_files();  /* FT422 */
=   closedl();
=   if (!abort) {
=     nl();
=     nl();
=     sprintf(s,"%s: %d",get_string(744), num_listed);
=     pl(s);
=     nl();
=   }
+   in_tag=0;  /* FT422 */
= }


Next look for nscandir...

=   if ((dir_dates[udir[d].subnum]) && (dir_dates[udir[d].subnum]<nscandate))
=     return;
=
+   in_tag=1;  /* FT422 */
+   file_ptr=0;  /* FT422 */
=   od=curdir;
=   curdir=d;
=   dt=title;
=   dliscan();
=   if (this_date>=nscandate) {
=     for (i=1; (i<=numf) && (!(*abort)) && (!hangup); i++) {
=       SETREC(i);
=       read(dlf,(void *)&u,sizeof(uploadsrec));
=       if (u.daten>=nscandate) {
=         if (dt) {
=           printtitle(abort);
=           dt=0;
=         }
=         printinfo(&u,abort);
=       } else if (!empty())
=         checka(abort,&next);
=
=     }
=
=   }
+   tag_files();  /* FT422 */
=   closedl();
=   curdir=od;
+   in_tag=0;  /* FT422 */
= }


Next find "void searchall()"

= void searchall(void)
= {
=   int i,i1,pts,abort,pty,ocd,next=0;
=   char s[81],s1[81];
=   uploadsrec u;
=
=   abort=0;
=   ocd=curdir;
=   if (x_only) {
=     strcpy(s,"*.*");
=     align(s);
=   } else {
+     in_tag=1;  /* FT422 */
+     file_ptr=0;  /* FT422 */
=     nl();
=     nl();
=     pl(get_string(745));
=     file_mask(s);
=   }
=   num_listed=0;
=   for (i=0; (i<num_dirs) && (!abort) && (!hangup) && (udir[i].subnum!=-1); i+

+) {
=     i1=udir[i].subnum;
=     pts=0;
=     if (qsc_n[i1/32]&(1L<<(i1%32)))
=       pts=1;
=     pts=1;
=     /* remove pts=1 to search only marked directories */
=     if (pts) {
=       curdir=i;
=       dliscan();
=       pty=1;
=       for (i1=1; (i1<=numf) && (!abort) && (!hangup); i1++) {
=         SETREC(i1);
=         read(dlf,(void *)&u,sizeof(uploadsrec));
=         if (compare(s,u.filename)) {
=           if (pty) {
=             printtitle(&abort);
=             pty=0;
=           }
=           printinfo(&u,&abort);
=         } else if (!empty())
=           checka(&abort,&next);
=       }
+       tag_files();  /* FT422 */
=       closedl();
=     }
=   }
=   curdir=ocd;
=   if ((num_listed) && (!abort)) {
=     nl();
=     nl();
=     sprintf(s,"%s: %d",get_string(744), num_listed);
=     pl(s);
=     nl();
=   }
+   in_tag=0;  /* FT422 */
= }


Next find "void finddescription"

=  nl();
=  nl();
+  in_tag=1;
+  file_ptr=0;
=  pl("Find description -");

and near the end of that one add

=  }
+  in_tag=0;
=}
= void finddescription(void)
= {
=   uploadsrec u;
=   int i,i1,i2,abort,pty,d,ocd,pts,next=0;
=   char s[81],s1[81];
=
=   nl();
=   nl();
+   in_tag=1;  /* FT422 */
+   file_ptr=0;  /* FT422 */
=   pl(get_string(793));
=   nl();
=   pl(get_string(794));
=   outstr(":");
=   input(s1,58);
=   if (s1[0]==0)
=     return;

and a little further down...

=         strcpy(s,u.description);
=         for (i2=0; i2<strlen(s); i2++)
=           s[i2]=upcase(s[i2]);
=         if (strstr(s,s1)!=NULL) {
=           if (pty) {
=             printtitle(&abort);
=             pty=0;
=           }
=           printinfo(&u,&abort);
=         } else if (!empty())
=           checka(&abort,&next);
=       }
+       tag_files();  /* FT422 */
=       closedl();
=     }
=   }
=   curdir=ocd;
=   if ((num_listed) && (!abort)) {
=     nl();
=     nl();
=     sprintf(s,"%s: %d",get_string(744), num_listed);
=     pl(s);
=     nl();
=   }
+   in_tag=0;  /* FT422 */
= }

Almost there.... Find "void xfer_defaults()" and do the following...

=   do {
=     outchr(12);
=     pl(get_string(804));
=     pl(get_string(805));
=     outstr(get_string(806));
=     npr(" (%s).\r\n", thisuser.sysstatus & sysstatus_nscan_file_system?
=                     str_yes:str_no);    /* NOTE */
=     outstr(get_string(807));
=     npr(" (%d %s%s).\r\n", thisuser.num_extended, get_string(808),
=                     thisuser.num_extended==1?"":"s");   /* NOTE */
+    npr("5. %sable file tagging.\r\n",thisuser.sysstatus & sysstatus_no_tag?
                    "En":"Dis");  /* FT422  -   NOTE*/
=     pl(get_string(809));
=     nl();
=     prt(2,get_string(297));
=     helpl=32;
@    ch=onek("Q12345");  /* FT422 */
=     switch(ch) {
=       case 'Q':
=         done=1;

add the following inside that switch statement...

=          thisuser.num_extended=i;
=      }
=      break;
+    case '5':  /* FT422 */
+      if (thisuser.sysstatus & sysstatus_no_tag)  /* FT422 */
+         thisuser.sysstatus -= sysstatus_no_tag;  /* FT422 */
+       else  /* FT422 */
+        thisuser.sysstatus += sysstatus_no_tag;  /* FT422 */
+      break;  /* FT422 */
 Close "XFER.C"