functions/common

   1 #!/usr/bin/bash
   2 ################################################################################
   3 #
   4 # File:         common
   5 # Description:  Common functions for Korn Shell Scripts
   6 # Author:       Andrew@DeFaria.com
   7 # Created:      Tue Apr 15 14:20:02 PDT 1997
   8 # Modified:
   9 # Language:     Korn Shell
  10 #
  11 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
  12 #
  13 ################################################################################
  14 adm_fpath=${adm_fpath:-$adm_base/functions}
  15
  16 case "$(uname -s)" in
  17   HP-UX)
  18     export VENDOR=HP
  19     ;;
  20
  21   Sun*)
  22     export VENDOR=Sun
  23     ;;
  24
  25   *)
  26     export VENDOR=Unknown
  27     ;;
  28 esac
  29
  30 modules="\
  31  display\
  32  utils\
  33  "
  34
  35 for module in $modules; do
  36   if [ -f "$adm_fpath/$module" ]; then
  37     . "$adm_fpath/$module"
  38   else
  39     echo "Internal Error: Function Module $adm_path/$module not found!"
  40     exit 1
  41   fi
  42 done