home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL3.ZIP / MAILDIRS.INC < prev   
Encoding:
Text File  |  1987-04-26  |  1.4 KB  |  69 lines
  1.  
  2.  
  3. (*
  4.  * maildirs - library to get list of GT-HOST mail directories
  5.  *
  6.  *)
  7.  
  8. var
  9.    maillevel:    array[1..100] of char;
  10.    maildir:      array[1..100] of string[64];
  11.    maildirs:     integer;
  12.  
  13.  
  14. procedure get_maildir_list;
  15.    {build list of available mail directories}
  16. var
  17.    fd:       text;
  18.    gtmdir:   anystring;
  19.    line:     anystring;
  20.    i:        integer;
  21.  
  22. begin
  23.    maildirs := 0;
  24.  
  25.    gtmdir := locate_file_env('gtmdir.bbs','GTPATH=');
  26.    if exists(gtmdir) = false then
  27.    begin
  28.       writeln;
  29.       writeln(whoami,':  Can''t locate mail directory, ',gtmdir);
  30.       writeln('Check setting of GTPATH environment variable.');
  31.       halt;
  32.    end;
  33.  
  34.    assign(fd,gtmdir);
  35.    reset(fd);
  36.  
  37.    while not eof(fd) do
  38.    begin
  39.       readln(fd,line);
  40.       line := line + ' ';
  41.  
  42.       if line[1] <> ' ' then
  43.       begin
  44.          INCR(maildirs);
  45.          if line[1] in ['0','A'..'Z'] then
  46.             i := 1
  47.          else
  48.             i := 2;
  49.  
  50.          maillevel[maildirs] := line[i];
  51.  
  52.          i := pos(' ',line);
  53.          while (i < LEN(line)) and (line[i] = ' ') do
  54.             INCR(i);
  55.  
  56.          delete(line,1,i-1);
  57.          i := pos(' ',line);
  58.  
  59.          line := copy(line,1,i-1);
  60.          if line[LEN(line)] <> '\' then
  61.             line := line + '\';
  62.          maildir[maildirs] := line;
  63.       end;
  64.    end;
  65.  
  66.    close(fd);
  67. end;
  68.  
  69.