home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Tools / tables / compat / ali_o2n next >
Encoding:
Text File  |  1991-12-18  |  885 b   |  39 lines
  1. #! /bin/sh
  2.  
  3. #
  4. # convert old style alias table to new style
  5. #
  6.  
  7. sed 's/:[     ]*/:/' $* |
  8. awk '
  9. BEGIN { OFS = " " }
  10. /^#/ || NF == 0    { print; next }
  11. {
  12.     n = split ($1, parts, ":")
  13.     if (n != 2) {
  14.         print "Bad line ", $0, "at", $NR | "cat 1>&2"
  15.         next
  16.     }
  17.     key = parts[1]
  18.     val1 = parts[2]
  19.     $1 = ""
  20.     if (val1 == "alias")
  21.         printf "%s:%s %s\n", key, val1, $0
  22.     else if (val1 == "synonym")
  23.         printf "%s:%s %s\n", key, val1, $0
  24.     else if (val1 == "822")
  25.         printf "%s:alias %s 822\n", key, $0
  26.     else if (val1 == "x400")
  27.         printf "%s:alias %s x400\n", key, $0
  28.     else if (val1 == "822-synonym")
  29.         printf "%s:synonym %s 822\n", key, $0
  30.     else if (val1 == "x400-synonym")
  31.         printf "%s:synonym %s x400\n", key, $0
  32.     else if (val1 == "x400-alias")
  33.         printf "%s:alias %s\n", key, $0
  34.     else if (val1 == "822-synonym")
  35.         printf "%s:alias %s 822\n", key, $0
  36.     else print "Unknown key", val1, "at", NR | "cat 1>&2"
  37. }
  38. '
  39.