alpine/brk2pine.sh

   1 #!/bin/sh
   2 #
   3 # $Id: brk2pine.sh 761 2007-10-23 22:35:18Z hubert@u.washington.edu $
   4 #
   5 #            T H E    P I N E    M A I L   S Y S T E M
   6 #
   7 #   Laurence Lundblade and Mike Seibel
   8 #   Networks and Distributed Computing
   9 #   Computing and Communications
  10 #   University of Washington
  11 #   Administration Building, AG-44
  12 #   Seattle, Washington, 98195, USA
  13 #   Internet: lgl@CAC.Washington.EDU
  14 #             mikes@CAC.Washington.EDU
  15 #
  16 #   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
  17 #
  18 #
  19 #   Pine and Pico are registered trademarks of the University of Washington.
  20 #   No commercial use of these trademarks may be made without prior written
  21 #   permission of the University of Washington.
  22 #
  23 #   Pine, Pico, and Pilot software and its included text are Copyright
  24 #   1989-1996 by the University of Washington.
  25 #
  26 #   The full text of our legal notices is contained in the file called
  27 #   CPYRIGHT, included with this distribution.
  28 #
  29 #
  30 #   Pine is in part based on The Elm Mail System:
  31 #    ***********************************************************************
  32 #    *  The Elm Mail System  -  Revision: 2.13                             *
  33 #    *                                                                     *
  34 #    *                  Copyright (c) 1986, 1987 Dave Taylor               *
  35 #    *                  Copyright (c) 1988, 1989 USENET Community Trust    *
  36 #    ***********************************************************************
  37 #
  38 #
  39
  40
  41 #
  42 # A filter to convert personal mail aliases in a .mailrc file into
  43 # pine address book format.
  44 #
  45 # Usage: program [.mailrc] >> .addressbook
  46 #
  47 # Corey Satten, corey@cac.washington.edu, 9/25/91
  48 #
  49 sed -n '
  50 # first fold continued lines (ending in \) into a single long line
  51     /\\[        ]*$/ {
  52             : more
  53             s/\\//g
  54             N
  55             s/\n/ /
  56             /\\/b more
  57             }
  58 # next convert all sequences of whitespace into single space
  59     s/[         ][      ]*/ /g
  60 # finally, reformat and print lines containing alias as the first word
  61     /^ *alias / {
  62             s/^ *alias \([!-~][!-~]*\) \(.*\)$/\1       \1      (\2)/
  63             s/ /,/g
  64             s/(\([^,]*\))/\1/
  65             p
  66             }
  67 ' ${*-$HOME/.mailrc}