home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume9 / elm2 / part01 / utils / mailrc.awk < prev    next >
Encoding:
AWK Script  |  1987-03-08  |  930 b   |  49 lines
  1. BEGIN { 
  2.     print "# MSG alias_text file, from a .mailrc file..." 
  3.     print ""
  4.       }
  5.  
  6. next_line == 1 { 
  7.  
  8.     next_line = 0;
  9.         group = ""
  10.     for (i = 1; i <= NF; i++) {
  11.       if (i == NF && $i == "\\") sep = ""
  12.       else                       sep = ", "
  13.     
  14.       if ($i == "\\") {
  15.         group = sprintf("%s,", group)
  16.         next_line = 1;
  17.       }
  18.       else if (length(group) > 0)
  19.         group = sprintf("%s%s%s", group, sep, $i);
  20.       else
  21.         group = $i;
  22.       }
  23.       print "\t" group
  24.  
  25.     }
  26.  
  27. $1 ~ /[Aa]lias|[Gg]roup/ { 
  28.  
  29.     if ( NF == 3)
  30.       print $2 " : user alias : " $3;
  31.     else {
  32.       group = ""
  33.       for (i = 3; i <= NF; i++) {
  34.         if (i == NF && $i == "\\") sep = ""
  35.         else        sep = ", "
  36.     
  37.         if ($i == "\\") {
  38.            group = sprintf("%s,", group)
  39.            next_line = 1;
  40.         }
  41.         else if (length(group) > 0) 
  42.            group = sprintf("%s%s%s", group, sep, $i);
  43.         else
  44.            group = $i;
  45.         }
  46.         print $2 " : group alias : " group;
  47.       }
  48.      }
  49.