home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / vms / 14730 < prev    next >
Encoding:
Text File  |  1992-09-08  |  17.1 KB  |  651 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!decwrl!deccrl!news.crl.dec.com!rdg.dec.com!vogon.enet.dec.com!millson
  3. From: millson@vogon.enet.dec.com (Martin "Morgul" Millson)
  4. Subject: Re: Disk quota report facility wanted?
  5. Message-ID: <1992Sep8.081004.15882@rdg.dec.com>
  6. Lines: 638
  7. Sender: news@rdg.dec.com (Mr News)
  8. Reply-To: millson@vogon.enet.dec.com (Martin "Morgul" Millson)
  9. Organization: International Systems Engineering/Reading ,Digital Equipment Corp
  10. References:  <01GO15DW2CPE9EDHKB@RCNVMS.RCN.MASS.EDU>
  11. Date: Tue, 8 Sep 1992 08:10:04 GMT
  12.  
  13.  
  14. I have written some software to report on disk quota's. The following is
  15. the source the cld and actual C code
  16.  
  17. ------ DISKMONITOR.CLD------------
  18. MODULE DISKMON
  19. IDENT "V1.0"
  20. !++
  21. ! Facility:
  22. !   Disk Monitor - Diskmon
  23. ! 
  24. ! Abstract:
  25. !   The CLD file for the Disk Monitor
  26. ! 
  27. ! Author:
  28. !   Martin Millson
  29. ! 
  30. ! Creation Date: 10-JAN-1992
  31. ! 
  32. ! Modification History:
  33. !--
  34.  
  35. DEFINE VERB DISKMONITOR
  36.     PARAMETER P1, LABEL=SUBCOMMAND,
  37.                 PROMPT="Command",
  38.                 VALUE(REQUIRED,TYPE=SUBCOMMAND_KEYWORDS)
  39.  
  40. DEFINE TYPE SUBCOMMAND_KEYWORDS
  41.     KEYWORD USAGE,
  42.                 LABEL=USAGE,
  43.                 SYNTAX=USAGE_SYNTAX
  44.     KEYWORD BACKUP_CHECK,
  45.                 LABEL=BACKUP_CHECK,
  46.                 SYNTAX=BACKUP_CHECK_SYNTAX
  47.  
  48.  
  49. DEFINE SYNTAX USAGE_SYNTAX
  50.     IMAGE DISKMON$USAGE.EXE
  51.     PARAMETER P1, LABEL=SUBCOMMAND,
  52.                 VALUE(REQUIRED)
  53.     PARAMETER P2, LABEL=USAGEFILE,
  54.                 PROMPT="Usage File",
  55.                 VALUE(REQUIRED,TYPE=$INFILE)
  56.     QUALIFIER MAILTO,
  57.                 LABEL=MAILTO,
  58.                 NONNEGATABLE,
  59.                 VALUE(REQUIRED)
  60.     QUALIFIER FILES,
  61.             LABEL=FILES,
  62.             NEGATABLE
  63.     QUALIFIER TOTALS,
  64.             LABEL=TOTALS,
  65.             NEGATABLE,
  66.             DEFAULT
  67.     QUALIFIER OUTPUT,
  68.             VALUE(TYPE=$OUTFILE)
  69.             
  70. DEFINE SYNTAX BACKUP_CHECK_SYNTAX
  71.     IMAGE DISKMON$BACKUP_CHECK.EXE
  72.     PARAMETER P1, LABEL=SUBCOMMAND,
  73.                 VALUE(REQUIRED)
  74.     PARAMETER P2, LABEL=DISK,
  75.                 PROMPT="Disk",
  76.                 VALUE(REQUIRED)
  77.     QUALIFIER MAILTO,
  78.                 LABEL=MAILTO,
  79.                 NONNEGATABLE,
  80.                 VALUE(REQUIRED)
  81.     QUALIFIER OUTPUT,
  82.             VALUE(TYPE=$OUTFILE)
  83.  
  84. ---- DISKMON$USAGE.C-------------
  85.  
  86. /*
  87. **++
  88. **  Facility:
  89. **
  90. **    Disk Monitor - Diskmon
  91. **
  92. **  Version: V1.0-0
  93. **
  94. **  Abstract:
  95. **
  96. **    Generates a Report from a disk usage file
  97. **
  98. **
  99. **  Author:
  100. **    Martin Millson,        International Systems Engineering,
  101. **                Reading UK,
  102. **                Digital Equipement Corp.
  103. **
  104. **  Creation Date:  8-JAN-1992
  105. **
  106. **  Modification History:
  107. **--
  108. */
  109.  
  110. /*
  111. **  Include Files
  112. */
  113. #include <stdio.h>
  114. #include <nam.h>
  115. #include <rmsdef.h>
  116. #include <maildef>
  117. #include <ssdef.h>
  118. #include <climsgdef.h>
  119. #include <descrip.h>
  120. #include <usgdef.h>
  121. /*                                        */
  122. /* Defines                                    */
  123. /*                                        */
  124. #define VERSION "V1.0-0"
  125. #define IS_GENERAL_ID  80000000  /* When identifiers are created,        */
  126.                                  /* GENERAL identifiers automatically        */
  127.                                  /* have %x80000000 added to the identifier */
  128.                                  /* value.                    */
  129.                                  /* This differentiates them from        */
  130.                                  /* UIC identifiers.                */
  131. #define NODIR_FILES_UIC    0    /* UIC used for total of files with        */
  132.                 /* directory spec of []                */
  133. #define VMS_UIC        65537    /* UIC used by VMS when init disks        */
  134. #define TRUE 1
  135. #define FALSE 0
  136. /*                                        */
  137. /* Typedefs                                    */
  138. /*                                        */
  139. typedef struct itmlst
  140.     {
  141.         short buffer_length;
  142.         short item_code;
  143.         long buffer_address;
  144.         long return_length_address;
  145.     } ITMLST;
  146.     
  147. struct list
  148. {
  149.     struct list *next;
  150.     unsigned long int uic;
  151.     unsigned long int running_total_used;
  152.     unsigned long int running_total_alloc;
  153.     struct list *top;
  154. };
  155.  
  156.  
  157. void add_to_total(struct list *list_header,
  158.          unsigned long int uic,
  159.          unsigned long int used,
  160.          unsigned long int allocated)
  161. {
  162.  
  163.     struct list *top_of_list;
  164.  
  165.     top_of_list = list_header -> top;
  166.     if (list_header -> uic == uic)
  167.     {
  168.     list_header -> running_total_used += used;
  169.     list_header -> running_total_alloc += allocated;
  170.     }
  171.     else
  172.     {
  173.     if (list_header -> next == NULL)
  174.     {
  175.         list_header -> next = malloc (sizeof(struct list));
  176.         list_header -> next -> uic = uic;
  177.         list_header -> next -> running_total_used = used;
  178.         list_header -> next -> running_total_alloc = allocated;
  179.         list_header -> next -> top = top_of_list;
  180.         list_header -> next -> next = NULL;
  181.     }
  182.     else
  183.     {
  184.         add_to_total(list_header -> next,uic,used,allocated);
  185.     }
  186.     }
  187. }
  188.  
  189. void PutTotals(FILE *output_file,struct list *list_header)
  190. {
  191.  
  192.     struct list *top_of_list;
  193.     unsigned long int grand_total_used  = 0;
  194.     unsigned long int grand_total_alloc  = 0;
  195.     char namebuf[100];           
  196.     unsigned int rights_id  = 0, attrib  = 0;
  197.     int context = 0, status = 0;
  198.     short namlen  = 0;
  199.     char id_string[14];
  200.     char title1[6] = "Owner";
  201.     char title2[3] = "Id";
  202.     char title3[5] = "Used";
  203.     char title4[6] = "Alloc";
  204.     $DESCRIPTOR(nambuf_dsc,namebuf);
  205.     
  206.     top_of_list = list_header -> top;
  207.     fprintf(output_file,"\n");
  208.     fprintf(output_file,"Disk Usage Totals\n");
  209.     fprintf(output_file,"-----------------\n");
  210.     fprintf(output_file,"%-32s\t%-14s\t%-6s\t%-7s\n",
  211.                         title1,
  212.                         title2,
  213.                         title3,
  214.                         title4);
  215.     while(top_of_list != NULL)
  216.     {
  217.         nambuf_dsc.dsc$w_length = sizeof(namebuf)-1;
  218.         status = SYS$IDTOASC(top_of_list -> uic, &namlen, &nambuf_dsc,
  219.                              &rights_id,&attrib,&context);
  220.     switch (status)
  221.     {
  222.         case SS$_NORMAL: namebuf[namlen] = 0; break;
  223.         case SS$_IVIDENT:
  224.         case SS$_NOSUCHID:  {
  225.                     switch (top_of_list -> uic)
  226.                     {
  227.                     case NODIR_FILES_UIC:
  228.                         sprintf(namebuf,"<NO DIRECTORY>");
  229.                         break;
  230.                     case VMS_UIC:
  231.                         sprintf(namebuf,"<VMS>");
  232.                         break;
  233.                     default:
  234.                         sprintf(namebuf,"<NOSUCHID>");
  235.                         break;
  236.                     }
  237.                 }; break;
  238.         case SS$_ACCVIO: 
  239.         case SS$_INSFMEM:
  240.         case RMS$_PRV:
  241.         case SS$_NOIOCHAN:
  242.         default: lib$signal(status); break; 
  243.     }
  244.     if (rights_id >= IS_GENERAL_ID)
  245.     {
  246.         sprintf(id_string,"%x",rights_id);
  247.     }
  248.     else
  249.     {
  250.         sprintf(id_string,"[%o,%o]",(top_of_list -> uic / 65536),
  251.                     (top_of_list -> uic % 65536));
  252.     }
  253.     fprintf(output_file,"%-32s\t%-14s\t%d\t%d \n",
  254.                     namebuf,
  255.                     id_string,
  256.                     top_of_list -> running_total_used,
  257.                     top_of_list -> running_total_alloc);
  258.     grand_total_used += top_of_list -> running_total_used;
  259.     grand_total_alloc += top_of_list -> running_total_alloc;
  260.     top_of_list = top_of_list -> next;
  261.     }
  262.     status = SYS$FINISH_RDB(&context);
  263.     fprintf(output_file,"Grand Total is %d Used Blocks\n",grand_total_used);
  264.     fprintf(output_file,"            is %d Allocated
  265. Blocks\n",grand_total_alloc);
  266. }
  267.  
  268. int GetHeaderRec(FILE *InFp, struct usgdef *HeaderRec)
  269. {
  270.     memset(HeaderRec,NULL,sizeof(struct usgdef));
  271.     fread(HeaderRec,sizeof(struct usgdef),1,InFp);
  272.     return(TRUE);
  273. }
  274.  
  275. int GetFileRec(FILE *InFp, struct usgdef1 *FileRec)
  276. {
  277.     memset(FileRec,NULL,sizeof(struct usgdef1));
  278.     if (fgetc(InFp)==EOF) return (FALSE);
  279.     fread(&(FileRec->usg$l_fileowner),sizeof(char),4,InFp);
  280.     fread(&(FileRec->usg$l_allocated),sizeof(char),4,InFp);
  281.     fread(&(FileRec->usg$l_used),sizeof(char),4,InFp);
  282.     fread(&(FileRec->usg$w_dir_len),sizeof(char),2,InFp);
  283.     fread(&(FileRec->usg$w_spec_len),sizeof(char),2,InFp);
  284.     fread(&(FileRec->usg$t_filespec),sizeof(char),
  285.         FileRec->usg$w_spec_len,InFp);
  286.     return (TRUE);
  287. }
  288.  
  289. PutHeader(FILE *output_file,struct usgdef headerrec)
  290. {
  291.     char timbuf[24];
  292.     unsigned short timlen;
  293.  
  294.     $DESCRIPTOR(TIME_DESC,timbuf);
  295.  
  296.     fprintf(output_file,"\n");    
  297.     fprintf(output_file,"Volume Details\n");    
  298.     fprintf(output_file,"--------------\n");    
  299.     fprintf(output_file,"Volume Set Name : %.12s\tVolume One Name : %.12s\n",
  300.                         headerrec.usg$t_strucname,
  301.                         headerrec.usg$t_volname);
  302.     fprintf(output_file,"Volume Owner    : %.12s\tVolume Format   : %.12s\n",
  303.                         headerrec.usg$t_ownername,
  304.                         headerrec.usg$t_format);
  305.     sys$asctim (
  306.         &timlen, 
  307.         &TIME_DESC, 
  308.         &headerrec.usg$q_time, 
  309.         0);
  310.     timbuf[timlen] = 0;
  311.     fprintf(output_file,"Volume Serial # : %011d\tData Collected  : %s\n",
  312.                         headerrec.usg$l_serialnum,
  313.                         timbuf);
  314. }
  315. PutFile(FILE *output_file,struct usgdef1 filerec)
  316. {
  317.     char namebuf[100];           
  318.     unsigned int rights_id  = 0, attrib  = 0;
  319.     int context = 0, status = 0;
  320.     short namlen  = 0;
  321.     char id_string[14];
  322.     $DESCRIPTOR(nambuf_dsc,namebuf);
  323.     
  324.     nambuf_dsc.dsc$w_length = sizeof(namebuf)-1;
  325.  
  326.     if (filerec.usg$w_dir_len == 2)
  327.     {
  328.     /* Set lost files to no directory files uic                */
  329.     filerec.usg$l_fileowner = NODIR_FILES_UIC;
  330.     }
  331.     
  332.     status = SYS$IDTOASC(filerec.usg$l_fileowner, &namlen, &nambuf_dsc,
  333.                              &rights_id,&attrib,&context);
  334.  
  335.     switch (status)
  336.     {
  337.     case SS$_NORMAL: namebuf[namlen] = 0; break;
  338.     case SS$_IVIDENT:
  339.     case SS$_NOSUCHID:  {
  340.                 switch (filerec.usg$l_fileowner)
  341.                 {
  342.                     case NODIR_FILES_UIC:
  343.                         sprintf(namebuf,"<NO DIRECTORY>");
  344.                         break;
  345.                     case VMS_UIC:
  346.                         sprintf(namebuf,"<VMS>");
  347.                         break;
  348.                     default:
  349.                         sprintf(namebuf,"<NOSUCHID>");
  350.                         break;
  351.                 }
  352.                 }; break;
  353.     case SS$_ACCVIO: 
  354.     case SS$_INSFMEM:
  355.     case RMS$_PRV:
  356.     case SS$_NOIOCHAN:
  357.     default: lib$signal(status); break; 
  358.     }
  359.  
  360.     if (rights_id >= IS_GENERAL_ID)
  361.     {
  362.     sprintf(id_string,"%x",rights_id);
  363.     }
  364.     else
  365.     {
  366.     sprintf(id_string,"[%o,%o]",(filerec.usg$l_fileowner / 65536),
  367.                     (filerec.usg$l_fileowner % 65536));
  368.     }
  369.     fprintf(output_file,"%-32s\t%-14s\t%d\t%d\t%-*.s\n",
  370.                     namebuf,
  371.                     id_string,
  372.                     filerec.usg$l_used,
  373.                     filerec.usg$l_allocated,
  374.                     filerec.usg$w_spec_len,
  375.                     filerec.usg$t_filespec);
  376.     status = SYS$FINISH_RDB(&context);
  377. }
  378.  
  379. int mail_send_message (
  380.             struct dsc$descriptor_s *to_user,
  381.             struct dsc$descriptor_s *subject,
  382.             struct dsc$descriptor_s *file_name)
  383. {
  384.  
  385.     int send_context = 0;
  386.  
  387.     char resultspec[NAM$C_MAXRSS],
  388.      c_to_user[NAM$C_MAXRSS],
  389.      c_subject[NAM$C_MAXRSS],
  390.      c_file_name[NAM$C_MAXRSS];
  391.     long resultspeclen;
  392.     int     status = SS$_NORMAL,
  393.      file_len = 0,
  394.      subject_line_len = 0,
  395.      to_user_len =0;
  396.     ITMLST
  397.     nulllist[] = {
  398.         {0, MAIL$_NOSIGNAL , 0, 0},
  399.         {0,0,0,0} },
  400.     address_itmlst[] = {
  401.         {sizeof(c_to_user), MAIL$_SEND_USERNAME , c_to_user, &to_user_len},
  402.         {0, MAIL$_NOSIGNAL , 0, 0},
  403.         {0,0,0,0}},
  404.     bodypart_itmlst[] = {
  405.         {sizeof(c_file_name), MAIL$_SEND_FILENAME, c_file_name, &file_len},
  406.         {0, MAIL$_NOSIGNAL , 0, 0},
  407.         {0,0,0,0}},
  408.     out_bodypart_itmlst[] = {
  409.         {sizeof(resultspec), MAIL$_SEND_RESULTSPEC, resultspec,
  410.         &resultspeclen},
  411.         {0, MAIL$_NOSIGNAL , 0, 0},
  412.         {0,0,0,0}},
  413.     attribute_itmlst[] = {
  414.         {sizeof(c_to_user), MAIL$_SEND_TO_LINE, c_to_user, &to_user_len},
  415.         {sizeof(c_subject), MAIL$_SEND_SUBJECT,c_subject,&subject_line_len},
  416.         {0, MAIL$_NOSIGNAL , 0, 0},
  417.         {0,0,0,0}};
  418.     
  419.     status = mail$send_begin(&send_context,&nulllist,&nulllist);
  420.     if (status != SS$_NORMAL)
  421.     return (status);
  422.  
  423.     memset(c_to_user,NULL,sizeof(c_to_user));
  424.     sprintf (c_to_user, "%s\0", to_user -> dsc$a_pointer);
  425.     address_itmlst[0].buffer_length = strlen(c_to_user);
  426.     address_itmlst[0].buffer_address = c_to_user;
  427.     
  428.     status = mail$send_add_address(&send_context,&address_itmlst,&nulllist);
  429.     if (status != SS$_NORMAL)
  430.     return (status);
  431.  
  432.  
  433.     attribute_itmlst[0].buffer_length = strlen(c_to_user);
  434.     attribute_itmlst[0].buffer_address = c_to_user;
  435.  
  436.     memset(c_subject,NULL,sizeof(c_subject));
  437.     sprintf (c_subject, "%s\0", subject -> dsc$a_pointer);
  438.     attribute_itmlst[1].buffer_length = strlen(c_subject);
  439.     attribute_itmlst[1].buffer_address = c_subject;
  440.  
  441.     
  442.     status =
  443. mail$send_add_attribute(&send_context,&attribute_itmlst,&nulllist);
  444.     if (status != SS$_NORMAL)
  445.     return (status);
  446.     
  447.     sprintf (c_file_name, "%s\0", file_name -> dsc$a_pointer);
  448.     bodypart_itmlst[0].buffer_length = strlen(c_file_name);
  449.     bodypart_itmlst[0].buffer_address = c_file_name;
  450.     
  451.     status = mail$send_add_bodypart(&send_context,&bodypart_itmlst,
  452.                      &out_bodypart_itmlst);
  453.     if (status != SS$_NORMAL)
  454.     return (status);    
  455.  
  456.     resultspec[resultspeclen] = '\0';
  457.     status = mail$send_message(&send_context,&nulllist,
  458.                      &nulllist);
  459.     if (status != SS$_NORMAL)
  460.     return (status);
  461.     
  462.     status = mail$send_end(&send_context,&nulllist,
  463.                      &nulllist);
  464.     if (status != SS$_NORMAL)
  465.     return (status);
  466.  
  467.     return(status);
  468.  
  469. }
  470.  
  471. int main(void)
  472. {
  473.     struct list *place_in_list;
  474.     FILE *usage_file;
  475.     FILE *output_file;
  476.     unsigned short retlen;
  477.     unsigned long ret_status;
  478.     int m_status;
  479.     int first_title = TRUE;
  480.     int display_totals = TRUE;
  481.     int display_files = FALSE;
  482.     int send_mail = FALSE;
  483.     struct usgdef headerrec;
  484.     struct usgdef1 filerec;
  485.     char title1[6] = "Owner";
  486.     char title2[3] = "Id";
  487.     char title3[5] = "Used";
  488.     char title4[6] = "Alloc";
  489.     char title5[5] = "File";
  490.     
  491.     char output_file_name[NAM$C_MAXRSS];
  492.     char usage_file_name[NAM$C_MAXRSS];
  493.     char mailto_string[NAM$C_MAXRSS];
  494.     char subject_string[NAM$C_MAXRSS];
  495.     char result_time[24];
  496.  
  497.     $DESCRIPTOR(MAIL_DESC,"MAILTO");
  498.     $DESCRIPTOR(USAGE_DESC,"USAGEFILE");
  499.     $DESCRIPTOR(OUTPUT_DESC,"OUTPUT");
  500.     $DESCRIPTOR(FILE_DESC,"FILES");
  501.     $DESCRIPTOR(TOTALS_DESC,"TOTALS");
  502.  
  503.     $DESCRIPTOR(INPUT_FILE_DESC,usage_file_name);
  504.     $DESCRIPTOR(OUTPUT_FILE_DESC,output_file_name);
  505.     $DESCRIPTOR(MAILTO_STRING_DESC,mailto_string);
  506.     $DESCRIPTOR(SUBJECT_STRING_DESC,subject_string);
  507.     
  508.     $DESCRIPTOR(time_desc,result_time);
  509.     
  510.     place_in_list = malloc(sizeof(struct list));
  511.     place_in_list -> uic = 0;
  512.     place_in_list -> running_total_used = 0;
  513.     place_in_list -> running_total_alloc = 0;
  514.     place_in_list -> next = NULL;
  515.     place_in_list -> top  = place_in_list;
  516.  
  517.     /* Input file from ANA/DISK/USAGE */
  518.     
  519.     ret_status = cli$present( &USAGE_DESC );
  520.     if (ret_status == CLI$_PRESENT)
  521.     {
  522.         ret_status = cli$get_value(&USAGE_DESC,
  523.                        &INPUT_FILE_DESC,
  524.                        &retlen);
  525.         usage_file_name[retlen] = '\0';
  526.     }
  527.     else
  528.     sprintf(usage_file_name,"USAGE.DAT");
  529.  
  530.     /* Output file for report */
  531.     
  532.     ret_status = cli$present( &OUTPUT_DESC );
  533.     if (ret_status == CLI$_PRESENT)
  534.     {
  535.         ret_status = cli$get_value(&OUTPUT_DESC,
  536.                        &OUTPUT_FILE_DESC,
  537.                        &retlen);
  538.         output_file_name[retlen] = '\0';
  539.     }
  540.     else
  541.     sprintf(output_file_name,"SYS$OUTPUT");
  542.  
  543.     ret_status = cli$present( &MAIL_DESC );
  544.     if (ret_status == CLI$_PRESENT)
  545.     {
  546.         ret_status = cli$get_value(&MAIL_DESC,
  547.                        &MAILTO_STRING_DESC,
  548.                        &retlen);
  549.         mailto_string[retlen] = '\0';
  550.         send_mail = TRUE;
  551.     }
  552.     else
  553.     send_mail = FALSE;
  554.         
  555.     switch (cli$present(&FILE_DESC))
  556.     {
  557.         case CLI$_PRESENT: display_files = TRUE; break;
  558.         case CLI$_DEFAULTED:
  559.     case CLI$_ABSENT:
  560.         case CLI$_NEGATED: display_files = FALSE; break;
  561.     default: break;
  562.     }
  563.  
  564.     switch (cli$present(&TOTALS_DESC))
  565.     {
  566.     case CLI$_ABSENT:
  567.         case CLI$_DEFAULTED:
  568.         case CLI$_PRESENT: display_totals = TRUE; break;
  569.         case CLI$_NEGATED: display_totals = FALSE; break;
  570.     default: break;
  571.     }
  572.     if ((usage_file = fopen(usage_file_name, "rb")) == NULL)
  573.     {
  574.     perror(usage_file_name);
  575.     return(1);
  576.     }
  577.     if ((output_file = fopen(output_file_name, "w+")) == NULL)
  578.     {
  579.     perror(output_file_name);
  580.     return(1);
  581.     }
  582.     sys$asctim(&retlen, &time_desc, 0, 0);
  583.     result_time[retlen] = 0;    
  584.     fprintf(output_file,"Diskmon Disk Usage %s at %s\n",
  585.                             VERSION,
  586.                             result_time);
  587.     fprintf(output_file,"\n");
  588.     GetHeaderRec(usage_file,&headerrec);
  589.     PutHeader(output_file,headerrec);
  590.     sprintf(subject_string,"Diskmon Disk Usage %s on %.12s at %s",
  591.                             VERSION,
  592.                             headerrec.usg$t_volname,
  593.                             result_time);
  594.     while(GetFileRec(usage_file,&filerec))
  595.     {
  596.     if (display_files)
  597.     {
  598.         /* Display Files                            */
  599.         if (first_title)
  600.         {
  601.         first_title = FALSE;
  602.         fprintf(output_file,"\n");
  603.         fprintf(output_file,"File List\n");
  604.         fprintf(output_file,"---------\n");
  605.         fprintf(output_file,"%-32s\t%-14s\t%-6s\t%-7s\t%-6s\n",
  606.                                 title1,
  607.                                 title2,
  608.                                 title3,
  609.                                 title4,
  610.                                 title5);
  611.         }
  612.         PutFile(output_file,filerec);
  613.     }
  614.     /* Checking for Lost files as then have a directory length of 2 eg  */
  615.     /* file spec is []file.type                        */
  616.     if (filerec.usg$w_dir_len == 2)
  617.     {
  618.         /* Set lost files to no directory files uic                */
  619.         filerec.usg$l_fileowner = NODIR_FILES_UIC;
  620.     }
  621.     add_to_total(place_in_list,
  622.              filerec.usg$l_fileowner,
  623.              filerec.usg$l_used,
  624.              filerec.usg$l_allocated); 
  625.     }
  626.     fclose(usage_file);
  627.     if (display_totals) PutTotals(output_file,place_in_list);
  628.     fclose(output_file);
  629.     if (send_mail)
  630.     {
  631.     if((m_status = mail_send_message(&MAILTO_STRING_DESC,
  632.                      &SUBJECT_STRING_DESC,
  633.                      &OUTPUT_FILE_DESC)) != SS$_NORMAL)
  634.     {
  635.         lib$signal(m_status);
  636.     }
  637.     }
  638.     return;
  639. }
  640.  
  641.  
  642. --
  643. +-----------------------------------------------------------------------+
  644. Martin Millson (Morgul)           | Easynet: vogon::millson
  645. International Systems Engineering | Internet: millson@vogon.enet.dec.com 
  646. Digital Equipment Corporation     | Phone: +44 734 203258
  647. "Out of the Storm rode the black nine"
  648. Disclaimer:
  649. "This is me talking not Digital Equipment Corp."
  650. +-----------------------------------------------------------------------+
  651.