home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / elm / elm2.4 / utils / mailrc.awk < prev    next >
Encoding:
AWK Script  |  1992-10-03  |  1.3 KB  |  66 lines
  1. #
  2. # @(#)$Id: mailrc.awk,v 5.1 1992/10/04 00:46:45 syd Exp $
  3. #        Copyright (c) 1988-1992 USENET Community Trust
  4. #         Copyright (c) 1986,1987 Dave Taylor
  5. # Bug reports, patches, comments, suggestions should be sent to:
  6. #
  7. #    Syd Weinstein, Elm Coordinator - elm@DSI.COM
  8. #                     dsinc!elm
  9. #
  10. # $Log: mailrc.awk,v $
  11. # Revision 5.1  1992/10/04  00:46:45  syd
  12. # Initial checkin as of 2.4 Release at PL0
  13. #
  14. # 
  15. #
  16.  
  17.  
  18. BEGIN { 
  19.     print "# MSG alias_text file, from a .mailrc file..." 
  20.     print ""
  21.       }
  22.  
  23. next_line == 1 { 
  24.  
  25.     next_line = 0;
  26.         group = ""
  27.     for (i = 1; i <= NF; i++) {
  28.       if (i == NF && $i == "\\") sep = ""
  29.       else                       sep = ", "
  30.     
  31.       if ($i == "\\") {
  32.         group = sprintf("%s,", group)
  33.         next_line = 1;
  34.       }
  35.       else if (length(group) > 0)
  36.         group = sprintf("%s%s%s", group, sep, $i);
  37.       else
  38.         group = $i;
  39.       }
  40.       print "\t" group
  41.  
  42.     }
  43.  
  44. $1 ~ /[Aa]lias|[Gg]roup/ { 
  45.  
  46.     if ( NF == 3)
  47.       print $2 " = user alias = " $3;
  48.     else {
  49.       group = ""
  50.       for (i = 3; i <= NF; i++) {
  51.         if (i == NF && $i == "\\") sep = ""
  52.         else        sep = ", "
  53.     
  54.         if ($i == "\\") {
  55.            group = sprintf("%s,", group)
  56.            next_line = 1;
  57.         }
  58.         else if (length(group) > 0) 
  59.            group = sprintf("%s%s%s", group, sep, $i);
  60.         else
  61.            group = $i;
  62.         }
  63.         print $2 " = group alias = " group;
  64.       }
  65.      }
  66.