home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / OTHERUTI / WWIV412S.ZIP / GFLEDIT.C < prev    next >
C/C++ Source or Header  |  1990-07-25  |  8KB  |  364 lines
  1.  
  2. /*****************************************************************************
  3.  
  4.                 WWIV Version 4
  5.               Copyright (C) 1988 by Wayne Bell
  6.  
  7. Distribution of the source code for WWIV, in any form, modified or unmodified,
  8. without PRIOR, WRITTEN APPROVAL by the author, is expressly prohibited.
  9. Distribution of compiled versions of WWIV is limited to copies compiled BY
  10. THE AUTHOR.  Distribution of any copies of WWIV not compiled by the author
  11. is expressly prohibited.
  12.  
  13.  
  14. *****************************************************************************/
  15.  
  16.  
  17.  
  18. #include "vardec.h"
  19. #include "fcns.h"
  20. #include "net.h"
  21. #include <string.h>
  22. #include <stdlib.h>
  23. #include <stdio.h>
  24. #include <io.h>
  25. #include <dir.h>
  26. #include <fcntl.h>
  27. #include <sys\stat.h>
  28. #include <alloc.h>
  29. #include <dos.h>
  30.  
  31.  
  32. extern gfiledirrec *gfilesec;
  33. extern int num_sec,hangup,userfile,echo,useron,userfile,usernum,using_modem;
  34. extern int incom,fwaiting,userfile;
  35. extern configrec syscfg;
  36. extern statusrec status;
  37. extern char ctypes[NUM_CTYPES][18];
  38. extern char cdir[81];
  39. extern userrec thisuser;
  40. extern int numextrn, numchain;
  41. extern chainfilerec *chains;
  42. extern externalrec *externs;
  43. extern smalrec *smallist;
  44. extern int num_call_sys,num_ncn,num_sys_list,global_xx;
  45. extern net_contact_rec *ncn;
  46. extern net_call_out_rec *con;
  47. extern net_interconnect_rec *cnn;
  48. extern messagerec helps[50],menus[30],menus1[30],menus2[30];
  49. extern long last_time_c;
  50. extern unsigned char realsl;
  51. extern net_system_list_rec *csn;
  52.  
  53.  
  54. #define utoa(s,v,r) ultoa((unsigned long)(s),v,r)
  55.  
  56.  
  57. void gfiledata(int n, char *s)
  58. {
  59.   char x,y,k,i;
  60.   gfiledirrec r;
  61.  
  62.   r=gfilesec[n];
  63.   if (r.ar==0)
  64.     x=32;
  65.   else {
  66.     for (i=0; i<16; i++)
  67.       if ((1 << i) & r.ar)
  68.         x='A'+i;
  69.   }
  70.   sprintf(s,"%2d %1c  %-40s  %-8s %-3d %-3d %-3d",
  71.             n,x,r.name,r.filename,r.sl,r.age,r.maxfiles);
  72. }
  73.  
  74. void showsec()
  75. {
  76.   int abort,i;
  77.   char s[180];
  78.  
  79.   outchr(12);
  80.   abort=0;
  81.   pla("NN AR Name                                      FN       SL  AGE MAX",
  82.       &abort);
  83.   pla("-- == ----------------------------------------  ======== --- === ---",
  84.       &abort);
  85.   for (i=0; (i<num_sec) && (!abort); i++) {
  86.     gfiledata(i,s);
  87.     pla(s,&abort);
  88.   }
  89. }
  90.  
  91.  
  92. int exist_dir(char *s)
  93. {
  94.   int ok;
  95.  
  96.   cd_to(syscfg.gfilesdir);
  97.   if (chdir(s))
  98.     ok=0;
  99.   else
  100.     ok=1;
  101.   cd_to(cdir);
  102.   return(ok);
  103. }
  104.  
  105.  
  106. void modify_sec(int n)
  107. {
  108.   gfiledirrec r;
  109.   char s[81],s1[81],ch,ch2;
  110.   int i,i1,done;
  111.  
  112.   r=gfilesec[n];
  113.   done=0;
  114.   do {
  115.     outchr(12);
  116.     print("A. Name       : ",r.name,"");
  117.     print("B. Filename   : ",r.filename,"");
  118.     itoa(r.sl,s,10);
  119.     print("C. SL         : ",s,"");
  120.     itoa(r.age,s,10);
  121.     print("D. Min. Age   : ",s,"");
  122.     itoa(r.maxfiles,s,10);
  123.     print("E. Max Files  : ",s,"");
  124.     strcpy(s,"None.");
  125.     if (r.ar!=0) {
  126.       for (i=0; i<16; i++)
  127.         if ((1 << i) & r.ar)
  128.           s[0]='A'+i;
  129.       s[1]=0;
  130.     }
  131.     print("F. AR         : ",s,"");
  132.     nl();
  133.     prt(2,"Which (A-F,Q) ? ");
  134.     ch=onek("QABCDEF");
  135.     switch(ch) {
  136.       case 'Q':done=1; break;
  137.       case 'A':
  138.         nl();
  139.         prt(2,"New Name? ");
  140.         inputl(s,40);
  141.         if (s[0])
  142.           strcpy(r.name,s);
  143.         break;
  144.       case 'B':
  145.     nl();
  146.     if (exist_dir(r.filename)) {
  147.           nl();
  148.       pl("There is currently a directory for this g-file section.");
  149.       pl("If you change the filename, the directory will still be there.");
  150.       nl();
  151.     }
  152.         nl();
  153.         prt(2,"New Filename? ");
  154.         input(s,8);
  155.         if ((s[0]!=0) && (strchr(s,'.')==0)) {
  156.           strcpy(r.filename,s);
  157.       if (!exist_dir(r.filename)) {
  158.             nl();
  159.         prt(5,"Create directory for this section? ");
  160.         if (yn()) {
  161.           cd_to(syscfg.gfilesdir);
  162.           mkdir(r.filename);
  163.           cd_to(cdir);
  164.         } else {
  165.           nl();
  166.           pl("You will have to create the directory manually, then.");
  167.           nl();
  168.         }
  169.       } else {
  170.         nl();
  171.         pl("A directory already exists under this filename.");
  172.         nl();
  173.       }
  174.       pausescr();
  175.     }
  176.         break;
  177.       case 'C':
  178.         nl();
  179.         prt(2,"New SL? ");
  180.         input(s,3);
  181.         i=atoi(s);
  182.         if ((i>=0) && (i<256) && (s[0]))
  183.           r.sl=i;
  184.         break;
  185.       case 'D':
  186.         nl();
  187.         prt(2,"New Min Age? ");
  188.         input(s,3);
  189.         i=atoi(s);
  190.         if ((i>=0) && (i<128) && (s[0]))
  191.           r.age=i;
  192.         break;
  193.       case 'E':
  194.         nl();
  195.         pl("Max 99 files/section.");
  196.         prt(2,"New Max Files? ");
  197.         input(s,3);
  198.         i=atoi(s);
  199.         if ((i>=0) && (i<99) && (s[0]))
  200.           r.maxfiles=i;
  201.         break;
  202.       case 'F':
  203.         nl();
  204.         prt(2,"New AR (<SPC>=None) ? ");
  205.         ch2=onek("ABCDEFGHIJKLMNOP ");
  206.         if (ch2==32)
  207.           r.ar=0;
  208.         else
  209.           r.ar=1 << (ch2-'A');
  210.         break;
  211.     }
  212.   } while ((!done) && (!hangup));
  213.   gfilesec[n]=r;
  214. }
  215.  
  216.  
  217. void insert_sec(int n)
  218. {
  219.   gfiledirrec r;
  220.   int i,i1,nu;
  221.  
  222.   for (i=num_sec-1; i>=n; i--)
  223.     gfilesec[i+1]=gfilesec[i];
  224.   strcpy(r.name,"** NEW SECTION **");
  225.   strcpy(r.filename,"NONAME");
  226.   r.sl=10;
  227.   r.age=0;
  228.   r.maxfiles=99;
  229.   r.ar=0;
  230.   gfilesec[n]=r;
  231.   ++num_sec;
  232.   modify_sec(n);
  233. }
  234.  
  235.  
  236. void delete_sec(int n)
  237. {
  238.   int i,i1,nu;
  239.  
  240.   for (i=n; i<num_sec; i++)
  241.     gfilesec[i]=gfilesec[i+1];
  242.   --num_sec;
  243. }
  244.  
  245.  
  246. void gfileedit()
  247. {
  248.   int i,i1,i2,done,f;
  249.   char s[81],s1[81],s2[81],ch;
  250.  
  251.   if (!checkpw())
  252.     return;
  253.   showsec();
  254.   done=0;
  255.   do {
  256.     nl();
  257.     prt(2,"G-files: D:elete, I:nsert, M:odify, Q:uit, ? : ");
  258.     ch=onek("QDIM?");
  259.     switch(ch) {
  260.       case '?':
  261.         showsec();
  262.         break;
  263.       case 'Q':
  264.         done=1;
  265.         break;
  266.       case 'M':
  267.         nl();
  268.         prt(2,"Section number? ");
  269.         input(s,2);
  270.         i=atoi(s);
  271.         if ((s[0]!=0) && (i>=0) && (i<num_sec))
  272.           modify_sec(i);
  273.         break;
  274.       case 'I':
  275.         if (num_sec<32) {
  276.           nl();
  277.           prt(2,"Insert before which section? ");
  278.           input(s,2);
  279.           i=atoi(s);
  280.           if ((s[0]!=0) && (i>=0) && (i<=num_sec))
  281.             insert_sec(i);
  282.         }
  283.         break;
  284.       case 'D':
  285.         nl();
  286.         prt(2,"Delete which section? ");
  287.         input(s,2);
  288.         i=atoi(s);
  289.         if ((s[0]!=0) && (i>=0) && (i<num_sec)) {
  290.           nl();
  291.           strcpy(s1,"Delete ");
  292.           strcat(s1,gfilesec[i].name);
  293.           strcat(s1,"? ");
  294.           prt(5,s1);
  295.           if (yn())
  296.             delete_sec(i);
  297.         }
  298.         break;
  299.     }
  300.   } while ((!done) && (!hangup));
  301.   sprintf(s,"%sGFILE.DAT",syscfg.datadir);
  302.   f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  303.   write(f,(void *)(&gfilesec[0]), num_sec * sizeof(gfiledirrec));
  304.   close(f);
  305. }
  306.  
  307.  
  308. int fill_sec(int sn)
  309. {
  310.   gfilerec *g,g1;
  311.   int f1,nf,ok,i,i1,i2,chd;
  312.   char s[81],s1[81];
  313.   struct ffblk ff;
  314.  
  315.   g=read_sec(sn,&nf);
  316.   sprintf(s1,"%s%s\\*.*",syscfg.gfilesdir,gfilesec[sn].filename);
  317.   f1=findfirst(s1,&ff,0);
  318.   ok=1;
  319.   chd=0;
  320.   while ((f1==0) && (!hangup) && (nf<gfilesec[sn].maxfiles) && (ok)) {
  321.     strcpy(s,(ff.ff_name));
  322.     align(s);
  323.     i=1;
  324.     for (i1=0; i1<nf; i1++)
  325.       if (compare(s,g[i1].filename))
  326.     i=0;
  327.     if (i) {
  328.       strcpy(s1,s);
  329.       strcat(s1," : ");
  330.       prt(2,s1);
  331.       inputl(s1,60);
  332.       if (s1[0]) {
  333.     chd=1;
  334.     i=0;
  335.     while ((strcmp(s1,g[i].description)>0) && (i<nf))
  336.       ++i;
  337.     for (i1=nf; i1>i; i1--)
  338.       g[i1]=g[i1-1];
  339.     ++nf;
  340.     strcpy(g1.filename,s);
  341.     strcpy(g1.description,s1);
  342.     time(&(g1.daten));
  343.     g[i]=g1;
  344.       } else
  345.     ok=0;
  346.     }
  347.     f1=findnext(&ff);
  348.   }
  349.   if (!ok)
  350.     pl("Aborted.");
  351.   if (nf>=gfilesec[sn].maxfiles)
  352.     pl("Section full.");
  353.   if (chd) {
  354.     sprintf(s,"%s%s.GFL",syscfg.datadir,gfilesec[sn].filename);
  355.     i=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  356.     write(i,(void *)g,nf*sizeof(gfilerec));
  357.     close(i);
  358.   }
  359.   farfree(g);
  360.   return(!ok);
  361. }
  362.  
  363.  
  364.