git.gag.com Git - debian/sudo/blob - pp

   1 #!/bin/sh
   2 # Copyright 2012 Quest Software, Inc. ALL RIGHTS RESERVED
   3 pp_revision="341"
   4  # Copyright 2012 Quest Software, Inc.  ALL RIGHTS RESERVED.
   5  #
   6  # Redistribution and use in source and binary forms, with or without
   7  # modification, are permitted provided that the following conditions
   8  # are met:
   9  #
  10  # 1. Redistributions of source code must retain the above copyright
  11  #    notice, this list of conditions and the following disclaimer.
  12  # 2. Redistributions in binary form must reproduce the above copyright
  13  #    notice, this list of conditions and the following disclaimer in the
  14  #    documentation and/or other materials provided with the distribution.
  15  # 3. Neither the name of Quest Software, Inc. nor the names of its
  16  #    contributors may be used to endorse or promote products derived from
  17  #    this software without specific prior written permission.
  18  #
  19  # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  20  # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  21  # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  22  # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  23  # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  24  # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
  25  # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  26  # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
  27  # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  28  # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  29  # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  30
  31  # Please see <http://rc.quest.com/topics/polypkg/> for more information
  32
  33 pp_version="1.0.0.$pp_revision"
  34 pp_copyright="Copyright 2012, Quest Software, Inc. ALL RIGHTS RESERVED."
  35
  36 pp_opt_debug=false
  37 pp_opt_destdir="$DESTDIR"
  38 pp_opt_install_script=
  39 pp_opt_list=false
  40 pp_opt_no_clean=false
  41 pp_opt_no_package=false
  42 pp_opt_only_front=false
  43 pp_opt_platform=
  44 pp_opt_probe=false
  45 pp_opt_strip=false
  46 pp_opt_save_unstripped=false
  47 pp_opt_vas_platforms=false
  48 pp_opt_wrkdir="`pwd`/pp.work.$$"
  49 pp_opt_verbose=false
  50 pp_opt_version=false
  51 pp_opt_input="-"
  52 pp_opt_init_vars=""
  53 pp_opt_eval=
  54
  55 test -n "$PP_NO_CLEAN" && pp_opt_no_clean=true
  56 test -n "$PP_DEBUG" && pp_opt_debug=true
  57 test -n "$PP_VERBOSE" && pp_opt_verbose=true
  58
  59 pp_main_cleanup () {
  60         pp_debug "main_cleanup"
  61         pp_remove_later_now
  62         if $pp_opt_no_clean || test x"$pp_platform" = x"unknown"; then
  63             : no cleanup
  64         else
  65             pp_backend_${pp_platform}_cleanup
  66             $pp_errors && pp_die "Errors during cleanup"
  67             if test -d "$pp_wrkdir"; then
  68                 if $pp_opt_debug; then
  69                     pp_debug "not removing $pp_wrkdir"
  70                 else
  71                     pp_verbose rm -rf "$pp_wrkdir"
  72                 fi
  73             fi
  74         fi
  75 }
  76
  77 pp_parseopts () {
  78         typeset a n _var _val
  79         while test $# -gt 0; do
  80
  81           # convert -[dilpv] to --long-options
  82           case "$1" in
  83             --?*=?*) n=`echo "$1" | sed -ne 's/^--\([^=]*\)=.*/\1/p'`
  84                    a=`echo "$1" | sed -ne 's/^--[^=]*=\(.*\)/\1/p'`
  85                    shift
  86                    set -- "--$n" "$a" "$@";;
  87             --?*) : ;;
  88
  89             -d)  shift; set -- "--debug" "$@";;
  90             -d*) a=`echo "$1" | sed -ne 's/^-.//'`
  91                  shift; set -- "--debug" "$@";;
  92
  93             -i) shift; set -- "--install-script" "$@";;
  94             -i*) a=`echo "$1" | sed -ne 's/^-.//'`
  95                  shift; set -- "--install-script" "$a" "$@";;
  96
  97             -l)  shift; set -- "--list" "$@";;
  98             -l*) a=`echo "$1" | sed -ne 's/^-.//'`
  99                  shift; set -- "--list" "$@";;
 100
 101             -p) shift; set -- "--platform" "$@";;
 102             -p*) a=`echo "$1" | sed -ne 's/^-.//'`
 103                  shift; set -- "--platform" "$a" "$@";;
 104
 105             -v)  shift; set -- "--verbose" "$@";;
 106             -v*) a=`echo "$1" | sed -ne 's/^-.//'`
 107                  shift; set -- "--verbose" "$@";;
 108
 109             -\?)  shift; set -- "--help" "$@";;
 110             -\?*) a=`echo "$1" | sed -ne 's/^-.//'`
 111                  shift; set -- "--help" "$@";;
 112           esac
 113
 114           case "$1" in
 115             --destdir|--eval|--install-script|--platform|--wrkdir)
 116                 test $# -ge 2 || pp_error "missing argument to $1";;
 117           esac
 118
 119           case "$1" in
 120             --)                                        shift;break;;
 121             --debug)           pp_opt_debug=true;      shift;;
 122             --destdir)         pp_opt_destdir="$2";    shift;shift;;
 123             --eval)            pp_opt_eval="$2";       shift;shift;; # undoc
 124             --install-script)  pp_opt_install_script="$2"; shift;shift;;
 125             --list)            pp_opt_list=true;       shift;;
 126             --no-clean)        pp_opt_no_clean=true;   shift;;
 127             --no-package)      pp_opt_no_package=true; shift;;
 128             --only-front)      pp_opt_only_front=true; shift;;
 129             --platform)        pp_opt_platform="$2";   shift;shift;;
 130             --probe)           pp_opt_probe=true;      shift;;
 131             --strip)           pp_opt_strip=true;      shift;;
 132             --save-unstripped) pp_opt_save_unstripped=true; shift;;
 133             --wrkdir)          pp_opt_wrkdir="$2";     shift;shift;;
 134             --vas-platforms)   pp_opt_vas_platforms=true; shift;;
 135             --verbose)         pp_opt_verbose=true;    shift;;
 136             --version)         pp_opt_version=true;    shift;;
 137             --help)            pp_errors=true;         shift;;
 138             -) break;;
 139             -*) pp_error "unknown option $1"; shift;;
 140             *) break;;
 141           esac
 142
 143         done
 144
 145         pp_opt_input=-
 146         if test $# -gt 0; then
 147             pp_opt_input="$1"
 148             shift
 149         fi
 150
 151         #-- extra arguments of the form Foo=bar alter *global* vars
 152         while test $# -gt 0; do
 153             case "$1" in
 154                 -*)     pp_error "unexpected option '$1'"
 155                         shift;;
 156                 *=*)    _val="${1#*=}"
 157                         _var=${1%="$_val"}
 158                         _val=`echo "$_val"|sed -e 's/[$"\\]/\\&/g'`
 159                         pp_debug "setting $_var = \"$_val\""
 160                         pp_opt_init_vars="$pp_opt_init_vars$_var=\"$_val\";"
 161                         shift;;
 162                 *)      pp_error "unexpected argument $1'"
 163                         shift;;
 164             esac
 165         done
 166
 167         test $# -gt 0 &&
 168             pp_error "unknown argument $1"
 169
 170         if $pp_errors; then
 171             cat <<. >&2
 172 polypkg $pp_version $pp_copyright
 173 usage: $0 [options] [input.pp] [var=value ...]
 174     -d --debug                  -- write copious info to stderr
 175        --destdir=path           -- file root, defaults to \$DESTDIR
 176     -? --help                   -- display this information
 177     -i --install-script=path    -- create an install helper script
 178     -l --list                   -- write package filenames to stdout
 179        --no-clean               -- don't remove temporary files
 180        --no-package             -- do everything but create packages
 181        --only-front             -- only perform front-end actions
 182     -p --platform=platform      -- defaults to local platform
 183        --probe                  -- print local system identifier, then exit
 184        --strip                  -- strip debug symbols from binaries before
 185                                    packaging (modifies files in destdir)
 186        --save-unstripped        -- save unstripped binaries to
 187                                    \$name-\$version-unstripped.tar.gz
 188        --wrkdir=path            -- defaults to subdirectory of \$TMPDIR or /tmp
 189     -v --verbose                -- write info to stderr
 190        --version                -- display version and quit
 191 .
 192             exit 1
 193         fi
 194 }
 195
 196 pp_drive () {
 197         # initialise the front and back ends
 198         pp_model_init
 199         pp_frontend_init
 200         $pp_opt_only_front || pp_backend_init
 201
 202         # run the front-end to generate the intermediate files
 203         # set $pp_input_dir to be the 'include dir' if needed
 204         pp_debug "calling frontend on $pp_opt_input"
 205         case "$pp_opt_input" in
 206             -)   pp_input_dir=.
 207                  test -t 1<&0 &&
 208                     pp_warn "reading directives from standard input"
 209                  pp_frontend
 210                  ;;
 211             */*) pp_input_dir=${pp_opt_input%/*}
 212                  pp_frontend <"$pp_opt_input"
 213                  ;;
 214             *)   pp_input_dir=.
 215                  pp_frontend <"$pp_opt_input"
 216                  ;;
 217         esac
 218
 219         pp_files_ignore_others
 220         pp_service_scan_groups
 221
 222         # some sanity checks after front-end processing
 223         if test x"$pp_platform" != x"null"; then
 224             pp_debug "sanity checks"
 225             test -n "$pp_components" || pp_error "No components?"
 226             pp_check_var_is_defined  "name"
 227             pp_check_var_is_defined  "version"
 228             pp_files_check_duplicates
 229             pp_files_check_coverage
 230             pp_die_if_errors "Errors during sanity checks"
 231         fi
 232
 233         # stop now if we're only running the front
 234         $pp_opt_only_front && return
 235
 236         if test x"$pp_opt_strip" = x"true"; then
 237             pp_strip_binaries
 238         fi
 239
 240         # run the back-end to generate the package
 241         pp_debug "calling backend"
 242         pp_backend
 243         pp_die_if_errors "Errors during backend processing"
 244
 245         # copy the resulting package files to PP_PKGDESTDIR or .
 246         for f in `pp_backend_names` -; do
 247            test x"$f" = x"-" && continue
 248            pp_debug "copying: $f to `pwd`"
 249            if pp_verbose cp -r $pp_wrkdir/$f ${PP_PKGDESTDIR:-.}; then
 250                echo "${PP_PKGDESTDIR:+$PP_PKGDESTDIR/}$f"
 251            else
 252                pp_error "$f: missing package"
 253            fi
 254         done
 255         pp_die_if_errors "Errors during package copying"
 256 }
 257
 258 pp_install_script () {
 259         pp_debug "writing install script to $pp_opt_install_script"
 260         rm -f $pp_opt_install_script
 261         pp_backend_install_script > $pp_opt_install_script
 262         pp_die_if_errors "Errors during package install script"
 263         chmod +x $pp_opt_install_script
 264 }
 265
 266 pp_main () {
 267         # If PP_DEV_PATH is set, then jump to that script.
 268         # (Useful when working on polypkg source that isn't installed)
 269         if test -n "$PP_DEV_PATH" -a x"$PP_DEV_PATH" != x"$0"; then
 270             pp_warn "switching from $0 to $PP_DEV_PATH ..."
 271             exec "$PP_DEV_PATH" "$@" || exit 1
 272         fi
 273
 274         pp_set_expand_converter_or_reexec "$@"
 275         pp_parseopts "$@"
 276
 277         if $pp_opt_version; then
 278             #-- print version and exit
 279             echo "polypkg $pp_version"
 280             exit 0
 281         fi
 282
 283         pp_set_platform
 284
 285         trap 'pp_main_cleanup' 0
 286
 287         pp_wrkdir="$pp_opt_wrkdir"
 288         pp_debug "pp_wrkdir = $pp_wrkdir"
 289         rm -rf "$pp_wrkdir"
 290         mkdir -p "$pp_wrkdir"
 291
 292         pp_destdir="$pp_opt_destdir"
 293         pp_debug "pp_destdir = $pp_destdir"
 294
 295         if $pp_opt_probe; then
 296             pp_backend_init
 297             pp_backend_probe
 298         elif $pp_opt_vas_platforms; then
 299             pp_backend_init
 300             pp_backend_vas_platforms
 301         elif test -n "$pp_opt_eval"; then
 302             #-- execute a shell command
 303             eval "$pp_opt_eval" || exit
 304         else
 305             pp_drive
 306             if test -n "$pp_opt_install_script"; then
 307                 pp_install_script
 308             fi
 309         fi
 310
 311         exit 0
 312 }
 313
 314
 315 pp_errors=false
 316
 317 if test -n "$TERM" -a -t 1 && (tput op) >/dev/null 2>/dev/null; then
 318    pp_col_redfg=`tput setf 4` 2>/dev/null
 319    pp_col_bluefg=`tput setf 1` 2>/dev/null
 320    pp_col_reset=`tput op` 2>/dev/null
 321 else
 322    pp_col_redfg='['
 323    pp_col_bluefg='['
 324    pp_col_reset=']'
 325 fi
 326
 327 pp__warn () {
 328         if test x"" = x"$pp_lineno"; then
 329             echo "$1 $2" >&2
 330         else
 331             echo "$1 line $pp_lineno: $2" >&2
 332         fi
 333 }
 334
 335 pp_warn () {
 336         pp__warn "pp: ${pp_col_redfg}warning${pp_col_reset}" "$*"
 337 }
 338
 339 pp_error () {
 340         pp__warn "pp: ${pp_col_redfg}error${pp_col_reset}" "$*"
 341         pp_errors=true
 342 }
 343
 344 pp_die () {
 345         pp_error "$@"
 346         exit 1
 347 }
 348
 349 pp_die_if_errors () {
 350         $pp_errors && pp_die "$@"
 351 }
 352
 353 pp_debug () {
 354         $pp_opt_debug && echo "${pp_col_bluefg}debug${pp_col_reset} $*" >&2
 355 }
 356
 357 pp_verbose () {
 358         $pp_opt_verbose && echo "pp: ${pp_col_bluefg}info${pp_col_reset} $*" >&2
 359         "$@";
 360 }
 361
 362 pp_substitute () {
 363   sed -e 's,%(\([^)]*\)),\16\15`\1`\16,g' \
 364       -e 's,%{\([^}]*\)},\16\15${\1}\16,g' \
 365       -e 's,$,\17,' |
 366   tr '\16' '\012' |
 367   sed -e '/^[^\15]/s/["$`\\]/\\&/g' \
 368       -e 's/^\15//' \
 369       -e '1s/^/echo "/' \
 370       -e '$s,\17$,",' \
 371       -e 's,\17,"\16echo ",g' |
 372   tr -d '\012' |
 373   tr '\16' '\012'
 374   echo
 375 }
 376
 377 pp_incr () {
 378     eval "$1=\`expr \$$1 + 1\`"
 379 }
 380
 381 pp_decr () {
 382     eval "$1=\`expr \$$1 - 1\`"
 383 }
 384
 385 pp_check_var_is_defined () {
 386     if eval test -z "\"\$$1\""; then
 387         pp_error "\$$1: not set"
 388         eval "$1=undefined"
 389     fi
 390 }
 391
 392 pp_contains () {
 393     case " $1 " in
 394        *" $2 "*) return 0;;
 395        *) return 1;;
 396     esac
 397 }
 398
 399 pp_contains_all () {
 400     typeset _s _c
 401     _l="$1"; shift
 402     for _w
 403     do
 404         pp_contains "$_l" "$_w" || return 1
 405     done
 406     return 0
 407 }
 408
 409 pp_contains_any () {
 410     typeset _s _c
 411     _l="$1"; shift
 412     for _w
 413     do
 414         pp_contains "$_l" "$_w" && return 0
 415     done
 416     return 1
 417 }
 418
 419 pp_add_to_list () {
 420     if eval test -z \"\$$1\"; then
 421         eval $1='"$2"'
 422     elif eval pp_contains '"$'$1'"' '"$2"'; then
 423         : already there
 424     else
 425         eval $1='"$'$1' $2"'
 426     fi
 427 }
 428
 429 pp_unique () {
 430     typeset result element
 431     result=
 432     for element
 433     do
 434         pp_add_to_list result $element
 435     done
 436     echo $result
 437 }
 438
 439 pp_mode_strip_altaccess () {
 440     case "$1" in
 441         ??????????[+.])
 442             echo `echo "$1" | cut -b -10`;;
 443         *)
 444             echo "$1";;
 445     esac
 446 }
 447
 448 pp_mode_from_ls () {
 449    typeset umode gmode omode smode
 450
 451    set -- `pp_mode_strip_altaccess "$1"`
 452
 453    case "$1" in
 454         ?--[-X]??????) umode=0;;
 455         ?--[xs]??????) umode=1;;
 456         ?-w[-X]??????) umode=2;;
 457         ?-w[xs]??????) umode=3;;
 458         ?r-[-X]??????) umode=4;;
 459         ?r-[xs]??????) umode=5;;
 460         ?rw[-X]??????) umode=6;;
 461         ?rw[xs]??????) umode=7;;
 462         *) pp_error "bad user mode $1";;
 463    esac
 464
 465    case "$1" in
 466         ????--[-S]???) gmode=0;;
 467         ????--[xs]???) gmode=1;;
 468         ????-w[-S]???) gmode=2;;
 469         ????-w[xs]???) gmode=3;;
 470         ????r-[-X]???) gmode=4;;
 471         ????r-[xs]???) gmode=5;;
 472         ????rw[-X]???) gmode=6;;
 473         ????rw[xs]???) gmode=7;;
 474         *) pp_error "bad group mode $1";;
 475    esac
 476
 477    case "$1" in
 478         ???????--[-T]) omode=0;;
 479         ???????--[xt]) omode=1;;
 480         ???????-w[-T]) omode=2;;
 481         ???????-w[xt]) omode=3;;
 482         ???????r-[-T]) omode=4;;
 483         ???????r-[xt]) omode=5;;
 484         ???????rw[-T]) omode=6;;
 485         ???????rw[xt]) omode=7;;
 486         *) pp_error "bad other mode $1";;
 487    esac
 488
 489    case "$1" in
 490         ???[-x]??[-x]??[-x]) smode=;;
 491         ???[-x]??[-x]??[tT]) smode=1;;
 492         ???[-x]??[Ss]??[-x]) smode=2;;
 493         ???[-x]??[Ss]??[tT]) smode=3;;
 494         ???[Ss]??[-x]??[-x]) smode=4;;
 495         ???[Ss]??[-x]??[tT]) smode=5;;
 496         ???[Ss]??[Ss]??[-x]) smode=6;;
 497         ???[Ss]??[Ss]??[tT]) smode=7;;
 498         *) pp_error "bad set-id mode $1";;
 499    esac
 500
 501    echo "$smode$umode$gmode$omode"
 502 }
 503
 504 pp_find_recurse () {
 505   pp_debug "find: ${1#$pp_destdir}/"
 506   for f in "$1"/.* "$1"/*; do
 507     case "$f" in */.|*/..) continue;; esac  # should never happen!
 508     if test -d "$f" -o -f "$f" -o -h "$f"; then
 509         if test -d "$f" -a ! -h "$f"; then
 510             echo "${f#$pp_destdir}/"
 511             pp_find_recurse "$f"
 512         else
 513             echo "${f#$pp_destdir}"
 514         fi
 515     fi
 516   done
 517 }
 518
 519 pp_prepend () {
 520     #test -t && pp_warn "pp_prepend: stdin is a tty?"
 521     if test -f $1; then
 522         pp_debug "prepending to $1"
 523         mv $1 $1._prepend
 524         cat - $1._prepend >$1
 525         rm -f $1._prepend
 526     else
 527         pp_debug "prepend: creating $1"
 528         cat >$1
 529     fi
 530 }
 531
 532 pp_note_file_used() {
 533     echo "$1" >> $pp_wrkdir/all.files
 534 }
 535
 536 pp_create_dir_if_missing () {
 537     case "$1" in
 538         */) pp_error "pp_create_dir_if_missing: trailing / forbidden";;
 539         "") return 0;;
 540         *)  if test ! -d "$pp_destdir$1"; then
 541                 pp_debug "fabricating directory $1/"
 542                 pp_create_dir_if_missing "${1%/*}"
 543                 mkdir "$pp_destdir$1" &&
 544                     pp_note_file_used "$1/"
 545                 pp_remove_later "$1" &&
 546                 chmod ${2:-755} "$pp_destdir$1"
 547             fi;;
 548     esac
 549 }
 550
 551 pp_add_file_if_missing () {
 552     typeset dir
 553     #-- check that the file isn't already declared in the component
 554     if test -s $pp_wrkdir/%files.${2:-run}; then
 555       awk "\$6 == \"$1\" {exit 1}" < $pp_wrkdir/%files.${2:-run} || return 1
 556     fi
 557
 558     pp_create_dir_if_missing "${1%/*}"
 559     pp_debug "fabricating file $1"
 560     echo "f ${3:-755} - - ${4:--} $1" >> $pp_wrkdir/%files.${2:-run}
 561     pp_note_file_used "$1"
 562     pp_remove_later "$1"
 563     return 0
 564 }
 565
 566 pp_add_transient_file () {
 567     test -f "$pp_destdir$1" && pp_die "$pp_destdir$1: exists"
 568     pp_create_dir_if_missing "${1%/*}"
 569     pp_debug "transient file $1"
 570     pp_note_file_used "$1"
 571     pp_remove_later "$1"
 572 }
 573
 574 pp_remove_later () {
 575    {
 576         echo "$1"
 577         test -s $pp_wrkdir/pp_cleanup && cat $pp_wrkdir/pp_cleanup
 578    } > $pp_wrkdir/pp_cleanup.new
 579    mv $pp_wrkdir/pp_cleanup.new $pp_wrkdir/pp_cleanup
 580 }
 581
 582 pp_ls_readlink () {
 583     if test -h "$1"; then
 584         ls -1ld "$1" | sed -ne 's,.* -> ,,p'
 585     else
 586         echo "$1: not a symbolic link" >&2
 587         return 1
 588     fi
 589 }
 590
 591 pp_remove_later_now () {
 592     typeset f
 593     if test -s $pp_wrkdir/pp_cleanup; then
 594         pp_debug "pp_remove_later_now"
 595         while read f; do
 596             pp_debug "removing $pp_destdir$f"
 597             if test -d $pp_destdir$f; then
 598                 rmdir $pp_destdir$f
 599             else
 600                 rm $pp_destdir$f
 601             fi
 602         done < $pp_wrkdir/pp_cleanup
 603         rm $pp_wrkdir/pp_cleanup
 604     fi
 605 }
 606
 607 pp_readlink() {
 608
 609 pp_debug "&& pp_readlink_fn=$pp_readlink_fn"
 610
 611     if test -n "$pp_readlink_fn"; then
 612 pp_debug "&& calling $pp_readlink_fn $*"
 613         "$pp_readlink_fn" "$@"
 614     else
 615         readlink "$@"
 616     fi
 617 }
 618
 619
 620 pp_install_script_common () {
 621         cat <<-.
 622
 623             # Automatically generated for
 624             #    $name $version ($pp_platform)
 625             # by PolyPackage $pp_version
 626
 627             usage () {
 628               case "$1" in
 629               "list-services")
 630                 echo "usage: \$0 list-services" ;;
 631               "list-components")
 632                 echo "usage: \$0 list-components" ;;
 633               "list-files")
 634                 echo "usage: \$0 list-files {cpt...|all}" ;;
 635               "install")
 636                 echo "usage: \$0 install {cpt...|all}" ;;
 637               "uninstall")
 638                 echo "usage: \$0 uninstall {cpt...|all}" ;;
 639               "start")
 640                 echo "usage: \$0 start {svc...}" ;;
 641               "stop")
 642                 echo "usage: \$0 stop {svc...}" ;;
 643               "print-platform")
 644                 echo "usage: \$0 print-platform" ;;
 645               *)
 646                 echo "usage: \$0 [-q] command [args]"
 647                 echo "   list-services"
 648                 echo "   list-components"
 649                 echo "   list-files {cpt...|all}"
 650                 echo "   install {cpt...|all}"
 651                 echo "   uninstall {cpt...|all}"
 652                 echo "   start {svc...}"
 653                 echo "   stop {svc...}"
 654                 echo "   print-platform"
 655                 ;;
 656               esac >&2
 657               exit 1
 658             }
 659
 660             if test x"\$1" = x"-q"; then
 661                 shift
 662                 verbose () { "\$@"; }
 663                 verbosemsg () { : ; }
 664             else
 665                 verbose () { echo "+ \$*"; "\$@"; }
 666                 verbosemsg () { echo "\$*"; }
 667             fi
 668 .
 669 }
 670
 671
 672 pp_functions () {
 673     typeset func deps allfuncs
 674     allfuncs=
 675     while test $# -gt 0; do
 676         pp_add_to_list allfuncs "$1"
 677         deps=`pp_backend_function "$1:depends"`
 678         shift
 679         set -- `pp_unique "$@" $deps`
 680     done
 681
 682     for func in $allfuncs
 683     do
 684         pp_debug "generating function code for '$1'"
 685         echo ""
 686         echo "$func () {"
 687         case "$func" in
 688             pp_mkgroup|pp_mkuser|pp_havelib) echo <<.;;
 689                 if test \$# -lt 1; then
 690                     echo "$func: not enough arguments" >&2
 691                     return 1
 692                 fi
 693 .
 694         esac
 695         pp_backend_function "$func" || cat <<.
 696                 echo "$func: not implemented" >&2
 697                 return 1
 698 .
 699         echo "}"
 700     done
 701 }
 702
 703 pp_function () {
 704     pp_functions "$1"
 705 }
 706
 707 pp_makevar () {
 708     #-- convert all non alpha/digits to underscores
 709     echo "$*" | tr -c '[a-z][A-Z][0-9]\012' '[_*]'
 710 }
 711
 712 pp_getpwuid () {
 713     awk -F: '$3 == uid { if (!found) print $1; found=1; } END { if (!found) exit 1; }' uid="$1" \
 714         < /etc/passwd || pp_error "no local username for uid $1"
 715 }
 716
 717 pp_getgrgid () {
 718     awk -F: '$3 == gid { if (!found) print $1; found=1; } END { if (!found) exit 1; }' gid="$1" \
 719         < /etc/group || pp_error "no local group for gid $1"
 720 }
 721
 722 pp_backend_function_getopt () {
 723     cat <<'..'
 724 pp_getopt () {
 725      _pp_optstring="$1"; shift; eval `_pp_getopt "$_pp_optstring"`
 726 }
 727 _pp_getopt_meta=s,[\\\\\"\'\`\$\&\;\(\)\{\}\#\%\ \      ],\\\\\&,g
 728 _pp_protect () {
 729     sed "$_pp_getopt_meta" <<. | tr '\012' ' '
 730 $*
 731 .
 732 }
 733 _pp_protect2 () {
 734     sed "s,^..,,$pp_getopt_meta" <<. | tr '\012' ' '
 735 $*
 736 .
 737 }
 738 _pp_nonl () {
 739     tr '\012' ' ' <<.
 740 $*
 741 .
 742 }
 743 _pp_getopt () {
 744     _pp_nonl '_pp_nonl set --; while test $# -gt 0; do case "$1" in "--") shift; break;;'
 745     sed 's/\([^:        ]:*\)/<@<\1>@>/g;
 746          s/<@<\(.\):>@>/"-\1")  _pp_nonl -"\1"; _pp_protect "$2"; shift; shift;; "-\1"*) _pp_nonl -"\1"; _pp_protect2 "$1"; shift;;/g;s/<@<\(.\)>@>/ "-\1")  _pp_nonl -"\1"; shift;; "-\1"*) _pp_nonl -"\1"; _pp_tmp="$1"; shift; set -- -`_pp_protect2 "$_pp_tmp"` "$@";;/g' <<.
 747 $1
 748 .
 749     _pp_nonl '-*) echo "$1: unknown option">&2; return 1;; *) break;; esac; done; _pp_nonl --; while test $# -gt 0; do _pp_nonl "$1"; shift; done; echo'
 750     echo
 751 }
 752 ..
 753 }
 754
 755 pp_copy_unstripped () {
 756     typeset filedir realdir
 757     filedir="`dirname ${1#$pp_destdir}`"
 758     realdir="$pp_wrkdir/unstripped/$filedir"
 759
 760     mkdir -p "$realdir"
 761     # Can't use hardlinks because `strip` modifies the original file in-place
 762     cp "$1" "$realdir"
 763 }
 764
 765 pp_package_stripped_binaries () {
 766     (cd "$pp_wrkdir/unstripped" && tar -c .) \
 767      | gzip > "$name-dbg-$version.tar.gz"
 768     rm -rf "$pp_wrkdir/unstripped"
 769 }
 770
 771 pp_strip_binaries () {
 772     if test x"$pp_opt_save_unstripped" = x"true"; then
 773         rm  -rf "$pp_wrkdir/unstripped"
 774         mkdir "$pp_wrkdir/unstripped"
 775     fi
 776
 777     for f in `find "$pp_destdir" -type f`; do
 778         if file "$f" | awk '{print $2}' | grep ^ELF >/dev/null 2>&1; then
 779             if test x"$pp_opt_save_unstripped" = x"true"; then
 780                 if file "$f" | LC_MESSAGES=C grep 'not stripped' >/dev/null 2>&1; then
 781                     pp_debug "Saving unstripped binary $f"
 782                     pp_copy_unstripped "$f"
 783                 else
 784                     pp_debug "$f is already stripped; not saving a copy"
 785                 fi
 786             fi
 787             pp_debug "Stripping unnecessary symbols from $f"
 788             strip "$f"
 789         fi
 790     done
 791
 792     if test x"$pp_opt_save_unstripped" = x"true"; then
 793         pp_package_stripped_binaries
 794     fi
 795 }
 796
 797 pp_if_true=0
 798 pp_if_false=0
 799
 800 pp_frontend_init () {
 801     name=
 802     version=
 803     summary="no summary"
 804     description="No description"
 805     copyright="Copyright 2012 Quest Software, Inc. ALL RIGHTS RESERVED."
 806
 807     #-- if the user supplied extra arguments on the command line
 808     #   then load them now.
 809     pp_debug "pp_opt_init_vars=$pp_opt_init_vars"
 810     test -n "$pp_opt_init_vars" && eval "$pp_opt_init_vars"
 811 }
 812
 813 pp_is_qualifier () {
 814     typeset ret
 815
 816     case "$1" in
 817         "["*"]") ret=true;;
 818         *)       ret=false;;
 819     esac
 820     pp_debug "is_qualifier: $* -> $ret"
 821     test $ret = true
 822 }
 823
 824 pp_eval_qualifier () {
 825     typeset ret
 826
 827     case "$1" in
 828         "[!$pp_platform]"| \
 829          "[!"*",$pp_platform]"| \
 830          "[!$pp_platform,"*"]"| \
 831          "[!"*",$pp_platform,"*"]") ret=false;;
 832         "[!"*"]") ret=true;;
 833         "[$pp_platform]"| \
 834          "["*",$pp_platform]"| \
 835          "[$pp_platform,"*"]"| \
 836          "["*",$pp_platform,"*"]") ret=true;;
 837         "["*"]") ret=false;;
 838         *) pp_die "pp_eval_qualifier: bad qualifier '$1'"
 839     esac
 840     pp_debug "eval: $* -> $ret"
 841     test true = $ret
 842 }
 843
 844 pp_frontend_if () {
 845     typeset ifcmd ifret
 846     ifcmd="$1";
 847     shift
 848     case "$ifcmd" in
 849         %if) if test 0 = $pp_if_false; then
 850                 case "$*" in
 851                     true |1) pp_incr pp_if_true;;
 852                     false|0) pp_incr pp_if_false;;
 853                     *)
 854                         ifret=true
 855                         if pp_is_qualifier "$*"; then
 856                             pp_eval_qualifier "$*" || ifret=false
 857                         else
 858                             eval test "$@" || ifret=false
 859                             pp_debug "evaluating test $* -> $ifret"
 860                         fi
 861                         pp_incr pp_if_$ifret
 862                         ;;
 863                 esac
 864              else
 865                 pp_incr pp_if_false
 866              fi;;
 867         %else)  test $# = 0 || pp_warn "ignoring argument to %else"
 868                 if test $pp_if_false -gt 1; then
 869                   : no change
 870                 elif test $pp_if_false = 1; then
 871                   pp_incr pp_if_true
 872                   pp_decr pp_if_false
 873                 elif test $pp_if_true = 0; then
 874                   pp_die "unmatched %else"
 875                 else
 876                   pp_incr pp_if_false
 877                   pp_decr pp_if_true
 878                 fi;;
 879         %endif) test $# = 0 || pp_warn "ignoring argument to %endif"
 880                 if test $pp_if_false -gt 0; then
 881                   pp_decr pp_if_false
 882                 elif test $pp_if_true -gt 0; then
 883                   pp_decr pp_if_true
 884                 else
 885                   pp_die "unmatched %endif"
 886                 fi;;
 887         *) pp_die "frontend_if: unknown cmd $ifcmd";;
 888     esac
 889 }
 890
 891
 892 pp_frontend () {
 893   typeset section newsection sed_word sed_ws line cpt svc
 894   typeset section_enabled newsection_enabled s sed sed_candidate
 895
 896   section='%_initial'
 897   newsection='%_initial'
 898   section_enabled=:
 899   newsection_enabled=:
 900   sed_word="[a-zA-Z_][a-zA-Z_0-9]*"
 901   sed_ws="[     ]"
 902
 903   #-- not all seds are created equal
 904   sed=
 905   for sed_candidate in ${PP_SED:-sed} /usr/xpg4/bin/sed; do
 906       if echo 'foo' | $sed_candidate -ne '/^\(x\)*foo/p' | grep foo > /dev/null
 907       then
 908         sed="$sed_candidate"
 909         break
 910       fi
 911   done
 912   test -z "$sed" &&
 913         pp_die "sed is broken on this system"
 914
 915   pp_lineno=0
 916
 917   #-- Note: this sed script should perform similar to pp_eval_qualifier()
 918   $sed -e "/^#/s/.*//" \
 919        -e "/^\\[!\\($sed_word,\\)*$pp_platform\\(,$sed_word\\)*\\]/s/.*//" \
 920        -e "s/^\\[\\($sed_word,\\)*$pp_platform\\(,$sed_word\\)*\\]$sed_ws*//" \
 921        -e "s/^\\[!\\($sed_word,\\)*$sed_word\\]$sed_ws*//" \
 922        -e "/^\\[\\($sed_word,\\)*$sed_word\\]/s/.*//" \
 923        -e "s/^%$sed_ws*/%/" \
 924        -e "s/^$sed_ws/%\\\\&/" \
 925      > $pp_wrkdir/frontend.tmp
 926
 927   #-- add an ignore section at the end to force section completion
 928   echo '%ignore' >> $pp_wrkdir/frontend.tmp
 929   echo  >> $pp_wrkdir/frontend.tmp
 930
 931   exec 0<$pp_wrkdir/frontend.tmp
 932   : > $pp_wrkdir/tmp
 933   : > $pp_wrkdir/%fixup
 934   while read -r line; do
 935      #-- Convert leading double-% to single-%, or switch sections
 936      pp_incr pp_lineno
 937
 938      pp_debug "line $pp_lineno: $line"
 939      set -f
 940      set -- $line
 941      set +f
 942      #pp_debug "line $pp_lineno: $*"
 943
 944      case "$line" in %*)
 945         case "$1" in
 946            %if|%else|%endif)
 947                 pp_debug "processing if directive $1"
 948                 pp_frontend_if "$@"
 949                 continue;;
 950         esac
 951         test 0 -ne $pp_if_false && continue     # ignore lines %if'd out
 952
 953         case "$1" in
 954           %set|%fixup|%ignore)
 955              pp_debug "processing new section $1"
 956              newsection="$1"; shift
 957              newsection_enabled=:
 958              if pp_is_qualifier "$1"; then
 959                 pp_eval_qualifier "$1" || newsection_enabled=false
 960                 shift
 961              fi
 962              test $# -eq 0 || pp_warn "ignoring extra arguments: $line"
 963              continue;;
 964           %pre|%post|%preun|%postup|%postun|%files|%depend|%check|%conflict)
 965              pp_debug "processing new component section $*"
 966              s="$1"; shift
 967              if test $# -eq 0 || pp_is_qualifier "$1"; then
 968                 cpt=run
 969              else
 970                 cpt="$1"
 971                 shift
 972              fi
 973              newsection="$s.$cpt"
 974              newsection_enabled=:
 975              if test $# -gt 0 && pp_is_qualifier "$1"; then
 976                 pp_eval_qualifier "$1" || newsection_enabled=false
 977                 shift
 978              fi
 979              test $# -eq 0 ||
 980                 pp_warn "ignoring extra arguments: $line"
 981              case "$cpt" in
 982                 run|dbg|doc|dev)
 983                     $newsection_enabled && pp_add_component "$cpt";;
 984                 x-*) :;;    # useful for discarding stuff
 985                 *) pp_error "unknown component: $1 $cpt";;
 986              esac
 987              continue;;
 988           %pp)
 989             newsection="%ignore"; shift
 990             if test $# -gt 0; then
 991                 pp_set_api_version "$1"
 992                 shift
 993             else
 994                 pp_error "%pp: missing version"
 995             fi
 996             test $# -gt 0 &&
 997                 pp_error "%pp: too many arguments"
 998             continue;;
 999           %service)
1000              pp_debug "processing new service section $1 $2"
1001              s="$1"; shift
1002              if test $# -eq 0 || pp_is_qualifier "$1"; then
1003                 pp_error "$s: service name required"
1004                 svc=unknown
1005              else
1006                 svc="$1"; shift
1007              fi
1008
1009              newsection="$s.$svc"
1010              newsection_enabled=:
1011              if test $# -gt 0 && pp_is_qualifier "$1"; then
1012                 pp_eval_qualifier "$1" || newsection_enabled=false
1013                 shift
1014              fi
1015              test $# -eq 0 ||
1016                 pp_warn "ignoring extra arguments: $line"
1017              $newsection_enabled && pp_add_service "$svc"
1018              continue;;
1019           %\\*)
1020              pp_debug "removing leading %\\"
1021              line="${line#??}"
1022              pp_debug "  result is <$line>"
1023              set -f
1024              set -- $line
1025              set +f
1026              ;;
1027           %%*)
1028              pp_debug "removing leading %"
1029              line="${line#%}"
1030              set -f
1031              set -- $line
1032              set +f
1033              ;;
1034           %*)
1035              pp_error "unknown section $1"
1036              newsection='%ignore'
1037              newsection_enabled=:
1038              continue;;
1039         esac;;
1040      esac
1041
1042      test 0 != $pp_if_false && continue # ignore lines %if'd out
1043
1044      pp_debug "section=$section (enabled=$section_enabled) newsection=$newsection (enabled=$newsection_enabled)"
1045
1046      #-- finish processing a previous section
1047      if test x"$newsection" != x""; then
1048       $section_enabled && case "$section" in
1049         %ignore|%_initial)
1050                 pp_debug "leaving ignored section $section"
1051                 : ignore  # guaranteed to be the last section
1052                 ;;
1053         %set)
1054                 pp_debug "leaving $section: sourcing $pp_wrkdir/tmp"
1055                 $pp_opt_debug && cat $pp_wrkdir/tmp >&2
1056                 . $pp_wrkdir/tmp
1057                 : > $pp_wrkdir/tmp
1058                 ;;
1059         %pre.*|%preun.*|%post.*|%postup.*|%postun.*|%depend.*|%check.*|%conflict.*|%service.*|%fixup)
1060                 pp_debug "leaving $section: substituting $pp_wrkdir/tmp"
1061                 # cat $pp_wrkdir/tmp >&2    # debugging
1062                 $pp_opt_debug && pp_substitute < $pp_wrkdir/tmp >&2
1063                 pp_substitute < $pp_wrkdir/tmp > $pp_wrkdir/tmp.sh
1064                 . $pp_wrkdir/tmp.sh >> $pp_wrkdir/$section ||
1065                     pp_error "shell error in $section"
1066                 rm -f $pp_wrkdir/tmp.sh
1067                 : > $pp_wrkdir/tmp
1068                 ;;
1069       esac
1070       section="$newsection"
1071       section_enabled="$newsection_enabled"
1072       newsection=
1073      fi
1074
1075      #-- ignore section content that is disabled
1076      $section_enabled || continue
1077
1078      #-- process some lines in-place
1079      case "$section" in
1080         %_initial)
1081                 case "$line" in "") continue;; esac # ignore non-section blanks
1082                 pp_die "Ignoring text before % section introducer";;
1083         %set|%pre.*|%preun.*|%post.*|%postup.*|%postun.*|%check.*|%service.*|%fixup)
1084                 pp_debug "appending line to \$pp_wrkdir/tmp"
1085                 echo "$line" >> $pp_wrkdir/tmp
1086                 ;;
1087         %files.*)
1088                 test $# -eq 0 && continue;
1089                 pp_files_expand "$@" >> $pp_wrkdir/$section
1090                 ;;
1091         %depend.*)
1092                 pp_debug "Adding explicit dependency $@ to $cpt"
1093                 echo "$@" >> $pp_wrkdir/%depend.$cpt
1094                 ;;
1095         %conflict.*)
1096                 pp_debug "Adding explicit conflict $@ to $cpt"
1097                 echo "$@" >> $pp_wrkdir/%conflict.$cpt
1098                 ;;
1099      esac
1100   done
1101   exec <&-
1102
1103   if test $pp_if_true != 0 -o $pp_if_false != 0; then
1104         pp_die "missing %endif at end of file"
1105   fi
1106
1107   pp_lineno=
1108
1109   pp_debug " name        = $name"
1110   pp_debug " version     = $version"
1111   pp_debug " summary     = $summary"
1112   pp_debug " description = $description"
1113   pp_debug " copyright   = $copyright"
1114   pp_debug ""
1115   pp_debug "\$pp_components: $pp_components"
1116   pp_debug "\$pp_services:   $pp_services"
1117 }
1118
1119 pp_set_api_version() {
1120     case "$1" in
1121         1.0)    : ;;
1122         *)      pp_error "This version of polypackage is too old";;
1123     esac
1124 }
1125
1126 pp_platform=
1127
1128 pp_set_platform () {
1129     if test -n "$pp_opt_platform"; then
1130         pp_contains "$pp_platforms" "$pp_opt_platform" ||
1131                 pp_die "$pp_opt_platform: unknown platform"
1132         pp_platform="$pp_opt_platform"
1133     else
1134         uname_s=`uname -s 2>/dev/null`
1135         pp_platform=
1136         for p in $pp_platforms; do
1137             pp_debug "probing for platform $p"
1138             if eval pp_backend_${p}_detect "$uname_s"; then
1139                 pp_platform="$p"
1140                 break;
1141             fi
1142         done
1143         test -z "$pp_platform" &&
1144                 pp_die "cannot detect platform (supported: $pp_platforms)"
1145     fi
1146     pp_debug "pp_platform = $pp_platform"
1147 }
1148
1149 pp_expand_path=
1150
1151 pp_expand_test_usr_bin () {
1152         awk '$1 == "/usr" || $2 == "/usr" {usr++}
1153              $1 == "/bin" || $2 == "/bin" {bin++}
1154              END { if (usr == 1 && bin == 1) exit(0); else exit(1); }'
1155 }
1156
1157 pp_set_expand_converter_or_reexec () {
1158     test -d /usr -a -d /bin ||
1159         pp_die "missing /usr or /bin"
1160     echo /usr /bin | pp_expand_test_usr_bin || pp_die "pp_expand_test_usr_bin?"
1161     if (eval "echo /{usr,bin}" | pp_expand_test_usr_bin) 2>/dev/null; then
1162         pp_expand_path=pp_expand_path_brace
1163     elif (eval "echo /@(usr|bin)" | pp_expand_test_usr_bin) 2>/dev/null; then
1164         pp_expand_path=pp_expand_path_at
1165     else
1166         test x"$pp_expand_rexec" != x"true" ||
1167             pp_die "problem finding shell that can do brace expansion"
1168         for shell in ksh ksh93 bash; do
1169             if ($shell -c 'echo /{usr,bin}' |
1170                         pp_expand_test_usr_bin) 2>/dev/null ||
1171                ($shell -c 'echo /@(usr|bin)' |
1172                         pp_expand_test_usr_bin) 2>/dev/null
1173             then
1174                 pp_debug "switching to shell $shell"
1175                 pp_expand_rexec=true exec $shell "$0" "$@"
1176             fi
1177         done
1178         pp_die "cannot find a shell that does brace expansion"
1179     fi
1180 }
1181
1182 pp_expand_path_brace () {
1183         typeset f
1184         eval "for f in $1; do echo \"\$f\"; done|sort -u"
1185 }
1186
1187 pp_expand_path_at () {
1188         typeset f
1189         eval "for f in `
1190             echo "$1" | sed -e 's/{/@(/g' -e 's/}/)/g' -e 's/,/|/g'
1191                 `; do echo \"\$f\"; done|sort -u"
1192 }
1193
1194 pp_shlib_suffix='.so*'
1195
1196 pp_model_init () {
1197     #@ $pp_components: whitespace-delimited list of components seen in %files
1198     pp_components=
1199     #@ $pp_services: whitespace-delimited list of %service seen
1200     pp_services=
1201
1202     rm -f $pp_wrkdir/%files.* \
1203           $pp_wrkdir/%post.* \
1204           $pp_wrkdir/%pre.* \
1205           $pp_wrkdir/%preun.* \
1206           $pp_wrkdir/%postup.* \
1207           $pp_wrkdir/%postun.* \
1208           $pp_wrkdir/%service.* \
1209           $pp_wrkdir/%set \
1210           $pp_wrkdir/%fixup
1211 }
1212
1213
1214 pp_have_component () {
1215         pp_contains "$pp_components" "$1"
1216 }
1217
1218 pp_have_all_components () {
1219         pp_contains_all "$pp_components" "$@"
1220 }
1221
1222 pp_add_component () {
1223         pp_add_to_list 'pp_components' "$1"
1224 }
1225
1226 pp_add_service () {
1227         pp_add_to_list 'pp_services' "$1"
1228 }
1229
1230 pp_service_init_vars () {
1231         cmd=
1232         pidfile=
1233         stop_signal=15          # SIGTERM
1234         user=root
1235         group=
1236         enable=yes              # make it so the service starts on boot
1237         optional=no             # Whether installing this service is optional
1238         pp_backend_init_svc_vars
1239 }
1240
1241 pp_service_check_vars () {
1242         test -n "$cmd" ||
1243                 pp_error "%service $1: cmd not defined"
1244         case "$enable" in
1245             yes|no) : ;;
1246             *) pp_error "%service $1: \$enable must be set to yes or no";;
1247         esac
1248 }
1249
1250 pp_load_service_vars () {
1251         pp_service_init_vars
1252         . "$pp_wrkdir/%service.$1"
1253         pp_service_check_vars "$1"
1254 }
1255
1256 pp_files_expand () {
1257     typeset _p _mode _group _owner _flags _path _optional _has_target _tree
1258     typeset _path _file _tgt _m _o _g _f _type _lm _ll _lo _lg _ls _lx
1259     typeset _ignore _a
1260
1261     test $# -eq 0 && return
1262
1263     pp_debug "pp_files_expand: path is: $1"
1264
1265     case "$1" in "#"*) return;; esac
1266     _p="$1"; shift
1267
1268     pp_debug "pp_files_expand: other arguments: $*"
1269
1270     #-- the mode must be an octal number of at least three digits
1271     _mode="="
1272     _a=`eval echo \"$1\"`
1273     case "$_a" in
1274         *:*) :;;
1275         -|=|[01234567][01234567][01234567]*) _mode="$_a"; shift;;
1276     esac
1277
1278     #-- the owner:group field may have optional parts
1279     _a=`eval echo \"$1\"`
1280     case "$_a" in
1281         *:*) _group=${_a#*:}; _owner=${_a%:*}; shift;;
1282         =|-) _group=$_a;      _owner=$_a; shift;;
1283         *)   _group=;         _owner=;;
1284     esac
1285
1286     #-- process the flags argument
1287     _flags=
1288     _optional=false
1289     _has_target=false
1290     _ignore=false
1291     if test $# -gt 0; then
1292         _a=`eval echo \"$1\"`
1293         case ",$_a," in *,volatile,*) _flags="${_flags}v";; esac
1294         case ",$_a," in *,optional,*) _optional=true;; esac
1295         case ",$_a," in *,symlink,*) _has_target=true;; esac
1296         case ",$_a," in *,ignore-others,*) _flags="${_flags}i";; esac
1297         case ",$_a," in *,ignore,*) _ignore=true;; esac
1298         shift
1299     fi
1300
1301     #-- process the target argument
1302     if $_has_target; then
1303         test $# -ne 0 || pp_error "$_p: missing target"
1304         _a=`eval echo \"$1\"`
1305         _target="$_a"
1306         shift
1307     fi
1308
1309     pp_debug "pp_files_expand: $_mode|$_owner:$_group|$_flags|$_target|$*"
1310
1311     test $# -eq 0 || pp_error "$_p: too many arguments"
1312
1313     #-- process speciall suffixes
1314     tree=
1315     case "$_p" in
1316         *"/**")  _p="${_p%"/**"}"; tree="**";;
1317         *".%so") _p="${_p%".%so"}$pp_shlib_suffix";;
1318     esac
1319
1320     #-- expand the path using the shell glob
1321     pp_debug "expanding .$_p ... with $pp_expand_path"
1322     (cd ${pp_destdir} && $pp_expand_path ".$_p") > $pp_wrkdir/tmp.files.exp
1323
1324     #-- expand path/** by rewriting the glob output file
1325     case "$tree" in
1326         "") : ;;
1327         "**")
1328             pp_debug "expanding /** tree ..."
1329             while read _path; do
1330                 _path="${_path#.}"
1331                 pp_find_recurse "$pp_destdir${_path%/}"
1332             done < $pp_wrkdir/tmp.files.exp |
1333                  sort -u > $pp_wrkdir/tmp.files.exp2
1334             mv $pp_wrkdir/tmp.files.exp2 $pp_wrkdir/tmp.files.exp
1335             ;;
1336     esac
1337
1338     while read _path; do
1339         _path="${_path#.}"
1340         _file="${pp_destdir}${_path}"
1341         _tgt=
1342         _m="$_mode"
1343         _o="${_owner:--}"
1344         _g="${_group:--}"
1345         _f="$_flags"
1346
1347         case "$_path" in
1348             /*) :;;
1349             *)  pp_warn "$_path: inserting leading /"
1350                 _path="/$_path";;  # ensure leading /
1351         esac
1352
1353         #-- sanity checks
1354         case "$_path" in
1355             */../*|*/..) pp_error "$_path: invalid .. in path";;
1356             */./*|*/.)   pp_warn  "$_path: invalid component . in path";;
1357             *//*)        pp_warn  "$_path: redundant / in path";;
1358         esac
1359
1360         #-- set the type based on the real file's type
1361         if $_ignore; then
1362            _type=f _m=_ _o=_ _g=_
1363         elif test -h "$_file"; then
1364            case "$_path" in
1365                 */) pp_warn "$_path (symlink $_file): removing trailing /"
1366                     _path="${_path%/}"
1367                     ;;
1368            esac
1369            _type=s
1370            if test x"$_target" != x"=" -a -n "$_target"; then
1371                _tgt="$_target"
1372 pp_debug "symlink target is $_tgt"
1373            else
1374                _tgt=`pp_readlink "$_file"`;
1375                test -z "$_tgt" && pp_error "can't readlink $_file"
1376                case "$_tgt" in
1377                     ${pp_destdir}/*)
1378                        pp_warn "stripped \$destdir from symlink ($_path)"
1379                        _tgt="${_tgt#$pp_destdir}";;
1380                esac
1381            fi
1382            _m=777
1383         elif test -d "$_file"; then
1384            #-- display a warning if the user forgot the trailing /
1385            case "$_path" in
1386                 */) :;;
1387                 *) pp_warn "$_path (matching $_file): adding trailing /"
1388                    _path="$_path/";;
1389            esac
1390            _type=d
1391            $_has_target && pp_error "$_file: not a symlink"
1392         elif test -f "$_file"; then
1393            case "$_path" in
1394                 */) pp_warn "$_path (matching $_file): removing trailing /"
1395                     _path="${_path%/}"
1396                     ;;
1397            esac
1398            _type=f
1399            $_has_target && pp_error "$_file: not a symlink"
1400         else
1401            $_optional && continue
1402            pp_error "$_file: missing"
1403            _type=f
1404         fi
1405
1406         #-- convert '=' shortcuts into mode/owner/group from ls
1407         case ":$_m:$_o:$_g:" in *:=:*)
1408             if LS_OPTIONS=--color=never /bin/ls -ld "$_file" \
1409                     > $pp_wrkdir/ls.tmp
1410             then
1411                 read _lm _ll _lo _lg _ls _lx < $pp_wrkdir/ls.tmp
1412                 test x"$_m" = x"=" && _m=`pp_mode_from_ls "$_lm"`
1413                 test x"$_o" = x"=" && _o="$_lo"
1414                 test x"$_g" = x"=" && _g="$_lg"
1415             else
1416                 pp_error "cannot read $_file"
1417                 test x"$_m" = x"=" && _m=-
1418                 test x"$_o" = x"=" && _o=-
1419                 test x"$_g" = x"=" && _g=-
1420             fi
1421             ;;
1422         esac
1423
1424         test -n "$_f" || _f=-
1425
1426         #-- sanity checks
1427         test -n "$_type" || pp_die "_type empty"
1428         test -n "$_path" || pp_die "_path empty"
1429         test -n "$_m" || pp_die "_m empty"
1430         test -n "$_o" || pp_die "_o empty"
1431         test -n "$_g" || pp_die "_g empty"
1432
1433         #-- setuid/gid files must be given an explicit owner/group (or =)
1434         case "$_o:$_g:$_m" in
1435             -:*:[4657][1357]??|-:*:[4657]?[1357]?|-:*:[4657]??[1357])
1436                 pp_error "$_path: setuid file ($_m) missing explicit owner";;
1437             *:-:[2367][1357]??|*:-:[2367]?[1357]?|*:-:[2367]??[1357])
1438                 pp_error "$_path: setgid file ($_m) missing explicit group";;
1439         esac
1440
1441         # convert numeric uids into usernames; only works for /etc/passwd
1442         case "$_o" in [0-9]*) _o=`pp_getpwuid $_o`;; esac
1443         case "$_g" in [0-9]*) _g=`pp_getgrgid $_g`;; esac
1444
1445         pp_debug "$_type $_m $_o $_g $_f $_path" $_tgt
1446         $_ignore || echo "$_type $_m $_o $_g $_f $_path" $_tgt
1447         pp_note_file_used "$_path"
1448         case "$_f" in *i*) echo "$_path" >> $pp_wrkdir/ign.files;; esac
1449     done < $pp_wrkdir/tmp.files.exp
1450 }
1451
1452 pp_files_check_duplicates () {
1453     typeset _path
1454     if test -s $pp_wrkdir/all.files; then
1455         sort < $pp_wrkdir/all.files | uniq -d > $pp_wrkdir/duplicate.files
1456         if test -f $pp_wrkdir/ign.awk; then
1457             # Remove ignored files
1458             mv $pp_wrkdir/duplicate.files $pp_wrkdir/duplicate.files.ign
1459             sed -e 's/^/_ _ _ _ _ /' < $pp_wrkdir/duplicate.files.ign |
1460                 awk -f $pp_wrkdir/ign.awk |
1461                 sed -e 's/^_ _ _ _ _ //' > $pp_wrkdir/duplicate.files
1462         fi
1463         while read _path; do
1464             pp_warn "$_path: file declared more than once"
1465         done <$pp_wrkdir/duplicate.files
1466     fi
1467 }
1468
1469 pp_files_check_coverage () {
1470     pp_find_recurse "$pp_destdir" | sort > $pp_wrkdir/coverage.avail
1471     if test -s $pp_wrkdir/all.files; then
1472         sort -u < $pp_wrkdir/all.files
1473     else
1474         :
1475     fi > $pp_wrkdir/coverage.used
1476     join -v1 $pp_wrkdir/coverage.avail $pp_wrkdir/coverage.used \
1477         > $pp_wrkdir/coverage.not-packaged
1478     if test -s $pp_wrkdir/coverage.not-packaged; then
1479         pp_warn "The following files/directories were found but not packaged:"
1480         sed -e 's,^,    ,' <  $pp_wrkdir/coverage.not-packaged >&2
1481     fi
1482     join -v2 $pp_wrkdir/coverage.avail $pp_wrkdir/coverage.used \
1483         > $pp_wrkdir/coverage.not-avail
1484     if test -s $pp_wrkdir/coverage.not-avail; then
1485         pp_warn "The following files/directories were named but not found:"
1486         sed -e 's,^,    ,' <  $pp_wrkdir/coverage.not-avail >&2
1487     fi
1488 }
1489
1490 pp_files_ignore_others () {
1491     typeset p f
1492
1493     test -s $pp_wrkdir/ign.files || return
1494
1495     #-- for each file in ign.files, we remove it from all the
1496     #   other %files.* lists, except where it has an i flag.
1497     #   rather than scan each list multiple times, we build
1498     #   an awk script
1499
1500     pp_debug "stripping ignore files"
1501
1502     while read p; do
1503         echo '$6 == "'"$p"'" && $5 !~ /i/ { next }'
1504     done < $pp_wrkdir/ign.files > $pp_wrkdir/ign.awk
1505     echo '{ print }' >> $pp_wrkdir/ign.awk
1506
1507     $pp_opt_debug && cat $pp_wrkdir/ign.awk
1508
1509     for f in $pp_wrkdir/%files.*; do
1510         mv $f $f.ign
1511         awk -f $pp_wrkdir/ign.awk < $f.ign > $f || pp_error "awk"
1512     done
1513 }
1514
1515 pp_service_scan_groups () {
1516     typeset svc
1517
1518     #-- scan for "group" commands, and build a list of groups
1519     pp_service_groups=
1520     if test -n "$pp_services"; then
1521         for svc in $pp_services; do
1522             group=
1523             . $pp_wrkdir/%service.$svc
1524             if test -n "$group"; then
1525                 pp_contains "$pp_services" "$group" && pp_error \
1526                     "%service $svc: group name $group in use by a service"
1527                 pp_add_to_list 'pp_service_groups' "$group"
1528                 echo "$svc" >> $pp_wrkdir/%svcgrp.$group
1529             fi
1530         done
1531     fi
1532 }
1533
1534 pp_service_get_svc_group () {
1535     (tr '\012' ' ' < $pp_wrkdir/%svcgrp.$1 ; echo) | sed -e 's/ $//'
1536 }
1537
1538 for _sufx in _init '' _names _cleanup _install_script \
1539     _init_svc_vars _function _probe _vas_platforms
1540 do
1541  eval "pp_backend$_sufx () { pp_debug pp_backend$_sufx; pp_backend_\${pp_platform}$_sufx \"\$@\"; }"
1542 done
1543
1544
1545 pp_platforms="$pp_platforms aix"
1546
1547 pp_backend_aix_detect () {
1548         test x"$1" = x"AIX"
1549 }
1550
1551 pp_backend_aix_init () {
1552         pp_aix_detect_arch
1553         pp_aix_detect_os
1554
1555         pp_aix_bosboot=         # components that need bosboot
1556         pp_aix_lang=en_US
1557         pp_aix_copyright=
1558         pp_aix_start_services_after_install=false
1559         pp_aix_init_services_after_install=true
1560
1561         pp_aix_sudo=sudo        # AIX package tools must run as root
1562
1563         case "$pp_aix_os" in
1564             *) pp_readlink_fn=pp_ls_readlink;;  # XXX
1565         esac
1566
1567         pp_aix_abis_seen=
1568 }
1569
1570 pp_aix_detect_arch () {
1571         pp_aix_arch_p=`uname -p 2>/dev/null`
1572         case "$pp_aix_arch_p"  in
1573            "")      pp_debug "can't get processor type from uname -p"
1574                     pp_aix_arch_p=powerpc
1575                     pp_aix_arch=R;;  # guess (lsattr -l proc0 ??)
1576            powerpc) pp_aix_arch=R;;
1577            *)       pp_aix_arch_p=intel
1578                     pp_aix_arch=I;;  # XXX? verify
1579         esac
1580
1581         case "`/usr/sbin/lsattr -El proc0 -a type -F value`" in
1582             PowerPC_POWER*) pp_aix_arch_std=ppc64;;
1583             PowerPC*) pp_aix_arch_std=ppc;;
1584             *) pp_aix_arch_std=unknown;;
1585         esac
1586 }
1587
1588 pp_aix_detect_os () {
1589         typeset r v
1590
1591         r=`uname -r`
1592         v=`uname -v`
1593         pp_aix_os=aix$v$r
1594 }
1595
1596 pp_aix_version_fix () {
1597     typeset v
1598     v=`echo $1 | tr -c -d '[0-9].\012'`
1599     if test x"$v" != x"$1"; then
1600         pp_warn "stripped version '$1' to '$v'"
1601     fi
1602     case $v in
1603         ""|*..*|.*|*.) pp_error "malformed '$1'"
1604                  echo "0.0.0.0";;
1605         *.*.*.*.*)
1606                  # 5 components are only valid for fileset updates, not base
1607                  # filesets (full packages). We trim 5+ components down to 4.
1608                  pp_warn "version '$1' has too many dots for AIX, truncating"
1609                  echo "$v" | cut -d. -f1-4;;
1610         *.*.*.*) echo "$v";;
1611         *.*.*) echo "$v.0";;
1612         *.*) echo "$v.0.0";;
1613         *) echo "$v.0.0.0";;
1614     esac
1615 }
1616
1617 pp_aix_select () {
1618         case "$1" in
1619             -user) op="";;
1620             -root) op="!";;
1621             *) pp_die "pp_aix_select: bad argument";;
1622         esac
1623         #pp_debug awk '$5 '$op' /^\/(usr|opt)(\/|$)/ { print; }'
1624         #awk '$5 '$op' /^\/(usr|opt)(\/|$)/ { print; }'
1625         awk $op'($6 ~ /^\/usr\// || $6 ~ /^\/opt\//) { print; }'
1626 }
1627
1628 pp_aix_copy_root () {
1629     typeset t m o g f p st target
1630     while read t m o g f p st; do
1631         case "$t" in
1632            d) pp_create_dir_if_missing "$1${p%/}";;
1633            f) pp_add_transient_file "$1$p"
1634               pp_verbose ln "$pp_destdir$p" "$pp_destdir$1$p" ||
1635                 pp_error "can't link $p into $1";;
1636            *) pp_warn "pp_aix_copy_root: filetype $t not handled";;
1637         esac
1638     done
1639 }
1640
1641
1642 pp_aix_size () {
1643     typeset prefix t m o g f p st
1644
1645     prefix="$1"
1646     while read t m o g f p st; do
1647       case "$t" in f) du -a "$pp_destdir$p";; esac
1648     done | sed -e 's!/[^/]*$!!' | sort +1 |
1649     awk '{ if ($2 != d)
1650            { if (sz) print d,sz;
1651              d=$2; sz=0 }
1652            sz += $1; }
1653          END { if (sz) print d,sz }' |
1654     sed -n -e "s!^$pp_destdir!$prefix!p"
1655 }
1656
1657 pp_aix_list () {
1658     awk '{ print "." pfx $6; }' pfx="$1"
1659 }
1660
1661 pp_aix_make_liblpp () {
1662     typeset out dn fl f
1663
1664     out="$1"; shift
1665     dn=`dirname "$2"`
1666     fl=
1667     for f
1668     do
1669         case "$f" in "$dn/"*) fl="$fl `basename $f`" ;;
1670                      *) pp_die "liblpp name $f not in $dn/";; esac
1671     done
1672     (cd "$dn" && pp_verbose  ar -c -g -r "$out" $fl) || pp_error "ar error"
1673 }
1674
1675 pp_aix_make_script () {
1676     rm -f "$1"
1677     echo "#!/bin/sh" > "$1"
1678     cat >> "$1"
1679     echo "exit 0" >> "$1"
1680     chmod +x "$1"
1681 }
1682
1683 pp_aix_inventory () {
1684     typeset fileset t m o g f p st type
1685
1686     fileset="$1"
1687     while read t m o g f p st; do
1688       case "$p" in *:*) pp_error "path $p contains colon";; esac
1689       echo "$p:"
1690       case "$t" in
1691         f)   type=FILE;      defm=644 ;;
1692         s)   type=SYMLINK;   defm=777 ;;
1693         d)   type=DIRECTORY; defm=755 ;;
1694       esac
1695       echo " type = $type"
1696       echo " class = inventory,apply,$fileset"
1697       if test x"$m" = x"-"; then m="$defm"; fi
1698       if test x"$o" = x"-"; then o="root"; fi
1699       if test x"$g" = x"-"; then g="system"; fi
1700       echo " owner = $o"
1701       echo " group = $g"
1702
1703       case "$m" in ????)
1704         m=`echo $m|sed -e 's/^1/TCB,/' \
1705                        -e 's/^[23]/TCB,SGID,/' \
1706                        -e 's/^[45]/TCB,SUID,/' \
1707                        -e 's/^[67]/TCB,SUID,SGID,/'`;;  # vtx bit ignored
1708       esac
1709       echo " mode = $m"
1710       case "$t" in
1711         f) if test ! -f "$pp_destdir$p"; then
1712                 pp_error "$p: missing file"
1713            fi
1714            case "$flags" in
1715             *v*)
1716               echo " size = VOLATILE"
1717               echo " checksum = VOLATILE"
1718               ;;
1719             *)
1720               if test -r "$pp_destdir$p"; then
1721                 echo " size = $size"
1722                 pp_verbose  sum -r < "$pp_destdir$p" |
1723                   sed -e 's/.*/ checksum = "&"/'
1724               fi
1725               ;;
1726            esac;;
1727         s)
1728            echo " target = $st"
1729            ;;
1730       esac
1731
1732       #-- Record ABI types seen
1733       case "$t" in
1734         f) if test -r "$pp_destdir$p"; then
1735             case "`file "$pp_destdir$p"`" in
1736                 *"executable (RISC System/6000)"*) abi=ppc;;
1737                 *"64-bit XCOFF executable"*)       abi=ppc64;;
1738                 *) abi=;;
1739             esac
1740             if test -n "$abi"; then
1741                 pp_add_to_list pp_aix_abis_seen $abi
1742             fi
1743            fi;;
1744       esac
1745
1746     done
1747 }
1748
1749 pp_aix_depend ()
1750 {
1751     if test -s "$1"; then
1752        pp_warn "aix dependencies not implemented"
1753     fi
1754 }
1755
1756 pp_aix_add_service () {
1757         typeset svc cmd_cmd cmd_arg f
1758         svc="$1"
1759
1760         pp_load_service_vars $svc
1761
1762         set -- $cmd
1763         cmd_cmd="$1"; shift
1764         cmd_arg="$*";
1765
1766         case "$stop_signal" in
1767                 HUP) stop_signal=1;;
1768                 INT) stop_signal=2;;
1769                 QUIT) stop_signal=3;;
1770                 KILL) stop_signal=9;;
1771                 TERM) stop_signal=15;;
1772                 USR1) stop_signal=30;;
1773                 USR2) stop_signal=31;;
1774                 "")
1775                   pp_error "%service $svc: stop_signal not set";;
1776                 [a-zA-Z]*)
1777                   pp_error "%service $svc: bad stop_signal ($stop_signal)";;
1778         esac
1779
1780         test -z "$pidfile" || pp_error "aix requires empty pidfile (non daemon)"
1781
1782         pp_add_component run
1783         if test "$user" = "root"; then
1784             uid=0
1785         else
1786             uid="\"\`/usr/bin/id -u $user\`\""
1787         fi
1788
1789
1790         #-- add command text to create/remove the service
1791         cat <<-. >> $pp_wrkdir/%post.$svc
1792 svc=$svc
1793 uid=0
1794 cmd_cmd="$cmd_cmd"
1795 cmd_arg="$cmd_arg"
1796 stop_signal=$stop_signal
1797 force_signal=9
1798 srcgroup="$pp_aix_mkssys_group"
1799
1800 lssrc -s \$svc > /dev/null 2>&1
1801 if [ \$? -eq 0 ]; then
1802   lssrc -s \$svc | grep "active" > /dev/null 2>&1
1803   if [ \$? -eq 0 ]; then
1804     stopsrc -s \$svc > /dev/null 2>&1
1805   fi
1806   rmsys -s \$svc > /dev/null 2>&1
1807 fi
1808
1809 mkssys -s \$svc -u \$uid -p "\$cmd_cmd" \${cmd_arg:+-a "\$cmd_arg"} -S -n \$stop_signal -f 9 ${pp_aix_mkssys_args} \${srcgroup:+-G \$srcgroup}
1810 .
1811
1812         #-- add code to start the service on reboot
1813         ${pp_aix_init_services_after_install} &&
1814           cat <<-. >> $pp_wrkdir/%post.$svc
1815 id=\`echo "\$svc" | cut -c1-14\`
1816 mkitab "\$id:2:once:/usr/bin/startsrc -s \$svc" > /dev/null 2>&1
1817 .
1818
1819         ${pp_aix_start_services_after_install} &&
1820           cat <<-. >> $pp_wrkdir/%post.$svc
1821 startsrc -s \$svc
1822 .
1823
1824 if [ -f "$pp_wrkdir/%post.run" ];then
1825     cat $pp_wrkdir/%post.run >> $pp_wrkdir/%post.$svc
1826 fi
1827 mv $pp_wrkdir/%post.$svc $pp_wrkdir/%post.run
1828
1829
1830         ${pp_aix_init_services_after_install} &&
1831            pp_prepend $pp_wrkdir/%preun.$svc <<-.
1832 rmitab `echo "$svc" | cut -c1-14` > /dev/null 2>&1
1833 .
1834         pp_prepend $pp_wrkdir/%preun.$svc <<-.
1835 stopsrc -s $svc >/dev/null 2>&1
1836 rmssys -s $svc
1837 .
1838
1839 if [ -f "$pp_wrkdir/%preun.run" ];then
1840     cat $pp_wrkdir/%preun.run >> $pp_wrkdir/%preun.$svc
1841 fi
1842 mv $pp_wrkdir/%preun.$svc $pp_wrkdir/%preun.run
1843 }
1844
1845 pp_backend_aix () {
1846         typeset briefex instuser instroot svc cmp outbff
1847         typeset user_wrkdir root_wrkdir
1848         typeset user_files root_files
1849
1850         test -n "$pp_destdir" ||
1851            pp_error "AIX backend requires the '--destdir' option"
1852
1853         instuser="/usr/lpp/$name"
1854         instroot="$instuser/inst_root"
1855         pp_aix_bff_name=${pp_aix_bff_name:-$name}
1856
1857         # Here is the component mapping:
1858         #  run -> $pp_aix_bff_name.rte ('Run time environment')
1859         #  doc -> $pp_aix_bff_name.doc (non-standard)
1860         #  dev -> $pp_aix_bff_name.adt ('Application developer toolkit')
1861         #  dbg -> $pp_aix_bff_name.diag ('Diagnostics')
1862
1863         test `echo "$summary" | wc -c ` -gt 40 && pp_error "\$summary too long"
1864
1865         user_wrkdir=$pp_wrkdir/u
1866         root_wrkdir=$pp_wrkdir/r
1867         pp_verbose  rm -rf $user_wrkdir $root_wrkdir
1868         pp_verbose  mkdir -p $user_wrkdir $root_wrkdir
1869
1870         for svc in $pp_services .; do
1871             test . = "$svc" && continue
1872             pp_aix_add_service $svc
1873         done
1874
1875         {
1876           echo "4 $pp_aix_arch I $name {"
1877
1878           for cmp in $pp_components; do
1879             case "$cmp" in
1880                 run) ex=rte  briefex="runtime";;
1881                 doc) ex=doc  briefex="documentation";;
1882                 dev) ex=adt  briefex="developer toolkit";;
1883                 dbg) ex=diag briefex="diagnostics";;
1884             esac
1885
1886             user_files=$pp_wrkdir/%files.$cmp.u
1887             root_files=$pp_wrkdir/%files.$cmp.r
1888
1889             pp_aix_select -user < $pp_wrkdir/%files.$cmp > $user_files
1890             pp_aix_select -root < $pp_wrkdir/%files.$cmp > $root_files
1891
1892             # Default to USR only unless there are root files,
1893             # or a post/pre/check script associated
1894             content=U
1895             if test -s $root_files \
1896                     -o -s $pp_wrkdir/%pre.$cmp \
1897                     -o -s $pp_wrkdir/%post.$cmp \
1898                     -o -s $pp_wrkdir/%preun.$cmp \
1899                     -o -s $pp_wrkdir/%postun.$cmp \
1900                     -o -s $pp_wrkdir/%check.$cmp
1901             then
1902                 content=B
1903             fi
1904
1905             if $pp_opt_debug; then
1906                 echo "$cmp USER %files:"
1907                 cat $user_files
1908                 echo "$cmp ROOT %files:"
1909                 cat $root_files
1910             fi >&2
1911
1912             bosboot=N; pp_contains_any "$pp_aix_bosboot" $cmp && bosboot=b
1913
1914             echo $pp_aix_bff_name.$ex \
1915                  ${pp_aix_version:-`pp_aix_version_fix "$version"`} \
1916                  1 $bosboot $content \
1917                  $pp_aix_lang "$summary $briefex"
1918             echo "["
1919
1920             pp_aix_depend $pp_wrkdir/%depend.$cmp
1921
1922             echo "%"
1923
1924             # generate per-directory size information
1925             pp_aix_size < $user_files
1926             pp_aix_size $instroot < $root_files
1927
1928             pp_aix_list            < $user_files  > $user_wrkdir/$pp_aix_bff_name.$ex.al
1929             pp_aix_list $instroot  < $root_files >> $user_wrkdir/$pp_aix_bff_name.$ex.al
1930             pp_aix_list            < $root_files  > $root_wrkdir/$pp_aix_bff_name.$ex.al
1931
1932             if $pp_opt_debug; then
1933                 echo "$cmp USER $pp_aix_bff_name.$ex.al:"
1934                 cat $user_wrkdir/$pp_aix_bff_name.$ex.al
1935                 echo "$cmp ROOT $pp_aix_bff_name.$ex.al:"
1936                 cat $root_wrkdir/$pp_aix_bff_name.$ex.al
1937             fi >&2
1938
1939             pp_aix_inventory $pp_aix_bff_name.$ex < $user_files \
1940                                        > $user_wrkdir/$pp_aix_bff_name.$ex.inventory
1941             pp_aix_inventory $pp_aix_bff_name.$ex < $root_files \
1942                                        > $root_wrkdir/$pp_aix_bff_name.$ex.inventory
1943
1944             if $pp_opt_debug; then
1945                 pp_debug "$cmp USER $pp_aix_bff_name.$ex.inventory:"
1946                 cat $user_wrkdir/$pp_aix_bff_name.$ex.inventory
1947                 pp_debug "$cmp ROOT $pp_aix_bff_name.$ex.inventory:"
1948                 cat $root_wrkdir/$pp_aix_bff_name.$ex.inventory
1949             fi >&2
1950
1951             if test x"" != x"${pp_aix_copyright:-$copyright}"; then
1952                 echo "${pp_aix_copyright:-$copyright}" > $user_wrkdir/$pp_aix_bff_name.$ex.copyright
1953                 echo "${pp_aix_copyright:-$copyright}" > $root_wrkdir/$pp_aix_bff_name.$ex.copyright
1954             fi
1955
1956             #-- assume that post/pre uninstall scripts only make
1957             #   sense when installed in a root context
1958
1959             if test -r $pp_wrkdir/%pre.$cmp; then
1960                         pp_aix_make_script $user_wrkdir/$pp_aix_bff_name.$ex.pre_i \
1961                 < $pp_wrkdir/%pre.$cmp
1962             fi
1963
1964             if test -r $pp_wrkdir/%post.$cmp; then
1965                 pp_aix_make_script $root_wrkdir/$pp_aix_bff_name.$ex.post_i \
1966                         < $pp_wrkdir/%post.$cmp
1967             fi
1968
1969             if test -r $pp_wrkdir/%preun.$cmp; then
1970                 pp_aix_make_script $root_wrkdir/$pp_aix_bff_name.$ex.unpost_i \
1971                         < $pp_wrkdir/%preun.$cmp
1972             fi
1973
1974             if test -r $pp_wrkdir/%postun.$cmp; then
1975                 pp_aix_make_script $root_wrkdir/$pp_aix_bff_name.$ex.unpre_i \
1976                         < $pp_wrkdir/%postun.$cmp
1977             fi
1978
1979             # remove empty files
1980             for f in $user_wrkdir/$pp_aix_bff_name.$ex.* $root_wrkdir/$pp_aix_bff_name.$ex.*; do
1981               if test ! -s "$f"; then
1982                 pp_debug "removing empty $f"
1983                 rm -f "$f"
1984               fi
1985             done
1986
1987             # copy/link the root files so we can do an easy backup later
1988             pp_aix_copy_root $instroot < $root_files
1989
1990             echo "%"
1991             echo "]"
1992           done
1993           echo "}"
1994         } > $pp_wrkdir/lpp_name
1995
1996         if $pp_opt_debug; then
1997             echo "/lpp_name :"
1998             cat $pp_wrkdir/lpp_name
1999         fi >&2
2000
2001         #-- copy the /lpp_name file to the destdir
2002         pp_add_transient_file /lpp_name
2003         cp $pp_wrkdir/lpp_name $pp_destdir/lpp_name
2004
2005         #-- copy the liblpp.a files under destdir for packaging
2006         (cd $user_wrkdir && pp_verbose  ar -c -g -r liblpp.a $name.*) ||
2007                 pp_error "ar error"
2008         if test -s $user_wrkdir/liblpp.a; then
2009            pp_add_transient_file $instuser/liblpp.a
2010            pp_verbose cp $user_wrkdir/liblpp.a $pp_destdir$instuser/liblpp.a ||
2011                 pp_error "cannot create user liblpp.a"
2012         fi
2013         (cd $root_wrkdir && pp_verbose  ar -c -g -r liblpp.a $name.*) ||
2014                 pp_error "ar error"
2015         if test -s $root_wrkdir/liblpp.a; then
2016            pp_add_transient_file $instroot/liblpp.a
2017            pp_verbose cp $root_wrkdir/liblpp.a $pp_destdir$instroot/liblpp.a ||
2018                 pp_error "cannot create root liblpp.a"
2019         fi
2020
2021         { echo ./lpp_name
2022           test -s $user_wrkdir/liblpp.a && echo .$instuser/liblpp.a
2023           test -s $root_wrkdir/liblpp.a && echo .$instroot/liblpp.a
2024           cat $user_wrkdir/$name.*.al   # includes the relocated root files!
2025         } > $pp_wrkdir/bff.list
2026
2027         if test -n "$pp_aix_abis_seen" -a x"$pp_aix_arch_std" = x"auto"; then
2028             case "$pp_aix_abis_seen" in
2029                 "ppc ppc64"|"ppc64 ppc")
2030                     pp_aix_arch_std=ppc64
2031                     ;;
2032                 ppc|ppc64)
2033                     pp_aix_arch_std=$pp_aix_abis_seen
2034                     ;;
2035                 *" "*)
2036                     pp_warn "multiple architectures detected: $pp_aix_abis_seen"
2037                     pp_aix_arch_std=unknown
2038                     ;;
2039                 "")
2040                     pp_warn "no binary executables detected; using noarch"
2041                     pp_aix_arch_std=noarch
2042                     ;;
2043                 *)
2044                     pp_warn "unknown architecture detected $pp_aix_abis_seen"
2045                     pp_aix_arch_std=$pp_aix_abis_seen
2046                     ;;
2047             esac
2048         fi
2049
2050         . $pp_wrkdir/%fixup
2051
2052         outbff=`pp_backend_aix_names`
2053         pp_debug "creating: $pp_wrkdir/$outbff"
2054         (cd $pp_destdir && pp_verbose  /usr/sbin/backup -i -q -p -f -) \
2055           < $pp_wrkdir/bff.list \
2056           > $pp_wrkdir/$outbff || pp_error "backup failed"
2057         $pp_aix_sudo /usr/sbin/installp -l -d $pp_wrkdir/$outbff
2058 }
2059
2060 pp_backend_aix_cleanup () {
2061     :
2062 }
2063
2064 pp_backend_aix_names () {
2065         echo "$name.${pp_aix_version:-`pp_aix_version_fix "$version"`}.bff"
2066 }
2067
2068 pp_backend_aix_install_script () {
2069         typeset pkgname platform
2070         #
2071         # The script should take a first argument being the
2072         # operation; further arguments refer to components or services
2073         #
2074         # list-components           -- lists components in the pkg
2075         # install component...      -- installs the components
2076         # uninstall component...    -- uninstalles the components
2077         # list-services             -- lists the services in the pkg
2078         # start service...          -- starts the name service
2079         # stop service...           -- stops the named services
2080         # print-platform            -- prints the platform group
2081         #
2082         pkgname="`pp_backend_aix_names`"
2083         platform="`pp_backend_aix_probe`"   # XXX should be derived from files
2084
2085         fsets=
2086         for cmp in $pp_components; do
2087             case "$cmp" in
2088                 run) ex=rte;;
2089                 doc) ex=doc;;
2090                 dev) ex=adt;;
2091                 dbg) ex=diag;;
2092             esac
2093             fsets="$fsets $name.$ex"
2094         done
2095
2096         echo '#!/bin/sh'
2097         pp_install_script_common
2098
2099         cat <<-.
2100
2101             cpt_to_fileset () {
2102                 test x"\$*" = x"all" &&
2103                     set -- $pp_components
2104                 for cpt
2105                 do
2106                     case "\$cpt" in
2107                         run) echo "$name.rte";;
2108                         doc) echo "$name.doc";;
2109                         dev) echo "$name.adt";;
2110                         dbg) echo "$name.diag";;
2111                         *) usage;;
2112                     esac
2113                 done
2114             }
2115
2116             test \$# -eq 0 && usage
2117             op="\$1"; shift
2118
2119             case "\$op" in
2120                 list-components)
2121                     test \$# -eq 0 || usage \$op
2122                     echo "$pp_components"
2123                     ;;
2124                 list-services)
2125                     test \$# -eq 0 || usage \$op
2126                     echo "$pp_services"
2127                     ;;
2128                 list-files)
2129                     test \$# -ge 1 || usage \$op
2130                     echo \${PP_PKGDESTDIR:-.}/$pkgname
2131                     ;;
2132                 install)
2133                     test \$# -ge 1 || usage \$op
2134                     verbose /usr/sbin/installp -acX -V0 -F \
2135                         -d \${PP_PKGDESTDIR:-.}/$pkgname \
2136                         \`cpt_to_fileset "\$@"\`
2137                     ;;
2138                 uninstall)
2139                     test \$# -ge 1 || usage \$op
2140                     verbose /usr/sbin/installp -u -e/dev/null \
2141                         -V0 \`cpt_to_fileset "\$@"\`
2142                     ;;
2143                 start|stop)
2144                     test \$# -ge 1 || usage \$op
2145                     ec=0
2146                     for svc
2147                     do
2148                         verbose \${op}src -s \$svc || ec=1
2149                     done
2150                     exit \$ec
2151                     ;;
2152                 print-platform)
2153                     echo "$platform"
2154                     ;;
2155                 *)
2156                     usage;;
2157             esac
2158 .
2159 }
2160
2161 pp_backend_aix_init_svc_vars () {
2162     :
2163 }
2164
2165 pp_backend_aix_probe () {
2166         echo "${pp_aix_os}-${pp_aix_arch_std}"
2167 }
2168
2169 pp_backend_aix_vas_platforms () {
2170     case "${pp_aix_arch_std}" in
2171         ppc*)   :;;
2172         *)      pp_die "unknown architecture ${pp_aix_arch_std}";;
2173     esac
2174     case "${pp_aix_os}" in
2175         aix43)  echo "aix-43";;
2176         aix51)  echo "aix-51 aix-43";;
2177         aix52)  echo "aix-51 aix-43";;
2178         aix53)  echo "aix-53 aix-51 aix-43";;
2179         aix61)  echo "aix-53 aix-51 aix-43";;
2180         *)      pp_die "unknown system ${pp_aix_os}";;
2181     esac
2182 }
2183 pp_backend_aix_function () {
2184     case $1 in
2185     pp_mkgroup) cat <<'.';;
2186             /usr/sbin/lsgroup "$1" >/dev/null &&
2187                 return 0
2188             echo "Creating group $1"
2189             /usr/bin/mkgroup -A "$1"
2190 .
2191     pp_mkuser:depends) echo pp_mkgroup;;
2192     pp_mkuser) cat <<'.';;
2193             /usr/sbin/lsuser "$1" >/dev/null &&
2194                 return 0
2195             pp_mkgroup "${2:-$1}" || return 1
2196             echo "Creating user $1"
2197             /usr/bin/mkuser \
2198                 login=false \
2199                 rlogin=false \
2200                 account_locked=true \
2201                 home="${3:-/nohome.$1}" \
2202                 pgrp="${2:-$1}" \
2203                 "$1"
2204 .
2205     pp_havelib) cat <<'.';;
2206             case "$2" in
2207                 "")    pp_tmp_name="lib$1.so";;
2208                 *.*.*) pp_tmp_name="lib$1.so.$2";;
2209                 *.*)   pp_tmp_name="lib$1.so.$2.0";;
2210                 *)     pp_tmp_name="lib$1.so.$2";;
2211             esac
2212             for pp_tmp_dir in `echo "/usr/lib:/lib${3:+:$3}" | tr : ' '`; do
2213                 test -r "$pp_tmp_dir/$pp_tmp_name" -a \
2214                     -r "$pp_tmp_dir/lib$1.so" && return 0
2215             done
2216             return 1
2217 .
2218     *) false;;
2219     esac
2220 }
2221
2222 pp_platforms="$pp_platforms sd"
2223
2224 pp_backend_sd_detect () {
2225     test x"$1" = x"HP-UX"
2226 }
2227
2228 pp_backend_sd_init () {
2229     pp_sd_sudo=
2230     pp_sd_startlevels=2
2231     pp_sd_stoplevels=auto
2232     pp_sd_config_file=
2233     pp_sd_vendor=
2234     pp_sd_vendor_tag=Quest
2235     pp_sd_default_start=1           # config_file default start value
2236
2237     pp_readlink_fn=pp_ls_readlink   # HPUX has no readlink
2238     pp_shlib_suffix='.sl'           # .so on most other platforms
2239
2240     pp_sd_detect_os
2241 }
2242
2243 pp_sd_detect_os () {
2244     typeset revision
2245
2246     revision=`uname -r`
2247     pp_sd_os="${revision#?.}"
2248     test -z "$pp_sd_os" &&
2249         pp_warn "cannot detect OS version"
2250     pp_sd_os_std="hpux`echo $pp_sd_os | tr -d .`"
2251
2252     case "`uname -m`" in
2253         9000/[678]??) pp_sd_arch_std=hppa;;
2254         ia64) pp_sd_arch_std=ia64;;
2255         *) pp_sd_arch_std=unknown;;
2256     esac
2257 }
2258
2259 pp_sd_write_files () {
2260     typeset t m o g f p st line dm
2261     while read t m o g f p st; do
2262         line="                file"
2263         case "$f" in *v*) line="$line -v";; esac    # FIXME for uninstall
2264         case ${pp_sd_os} in
2265             10.*)
2266                 case $t in
2267                     f) dm=644;;
2268                     d) p=${p%/}; dm=755;;
2269                 esac
2270                 ;;
2271             *)
2272                 case $t in
2273                     f) dm=644;;
2274                     d) line="$line -t d"; p=${p%/}; dm=755;;
2275                     s) line="$line -t s";;
2276                 esac
2277                 ;;
2278         esac
2279
2280         test x"$o" = x"-" && o=root
2281         test x"$g" = x"-" && g=sys
2282         test x"$m" = x"-" && m=$dm
2283
2284         case $t in
2285             s)
2286                 # swpackage will make unqualified links relative to the
2287                 # current working (source) directory, not the destination;
2288                 # we need to qualify them to prevent this.
2289                 case "$st" in
2290                     /*) echo "$line $st $p";;
2291                     *) echo "$line `dirname $p`/$st $p";;
2292                 esac
2293                 ;;
2294             *)
2295                 echo "$line -o $o -g $g -m $m $pp_destdir$p $p"
2296                 ;;
2297         esac
2298
2299     done
2300 }
2301
2302 pp_sd_service_group_script () {
2303     typeset grp svcs scriptpath out
2304     grp="$1"
2305     svcs="$2"
2306     scriptpath="/sbin/init.d/$grp"
2307     out="$pp_destdir$scriptpath"
2308
2309     pp_add_file_if_missing $scriptpath run 755 || return 0
2310
2311     cat <<-. > $out
2312         #!/sbin/sh
2313         # generated by pp $pp_version
2314         svcs="$svcs"
2315 .
2316
2317     cat <<-'.' >> $out
2318         #-- starts services in order.. stops them all if any break
2319         pp_start () {
2320             undo=
2321             for svc in \$svcs; do
2322                 /sbin/init.d/\$svc start
2323                 case \$? in
2324                   0|4)
2325                     undo="\$svc \$undo"
2326                     ;;
2327                   *)
2328                     if test -n "\$undo"; then
2329                         for svc in \$undo; do
2330                             /sbin/init.d/\$svc stop
2331                         done
2332                         return 1
2333                     fi
2334                     ;;
2335                 esac
2336             done
2337             return 0
2338         }
2339
2340         #-- stops services in reverse
2341         pp_stop () {
2342             reverse=
2343             for svc in \$svcs; do
2344                 reverse="\$svc \$reverse"
2345             done
2346             rc=0
2347             for svc in \$reverse; do
2348                 /sbin/init.d/\$svc stop || rc=\$?
2349             done
2350             return \$rc
2351         }
2352
2353         case \$1 in
2354             start_msg) echo "Starting \$svcs";;
2355             stop_msg)  echo "Stopping \$svcs";;
2356             start)     pp_start;;
2357             stop)      pp_stop;;
2358             *)         echo "usage: \$0 {start|stop|start_msg|stop_msg}"
2359                        exit 1;;
2360         esac
2361 .
2362 }
2363
2364 pp_sd_service_script () {
2365     typeset svc config_file config_value scriptpath out
2366
2367     svc="$1"
2368     scriptpath="/sbin/init.d/$svc"
2369
2370     config_file=${pp_sd_config_file:-/etc/rc.config.d/$svc}
2371     sd_config_var=`echo run-$svc | tr '[a-z]-' '[A-Z]_'`
2372     sd_config_value=${pp_sd_default_start:-0}
2373     pp_load_service_vars "$svc"
2374
2375     test -n "$user" -a x"$user" != x"root" &&
2376         cmd="SHELL=/usr/bin/sh /usr/bin/su $user -c \"exec `echo $cmd | sed -e 's,[$\\\`],\\&,g'`\""
2377     if test -z "$pidfile"; then
2378         pidfile="/var/run/$svc.pid"
2379         cmd="$cmd & echo \$! > \$pidfile"
2380     fi
2381
2382     pp_debug "config file is $config_file"
2383
2384     pp_add_file_if_missing $scriptpath run 755
2385     pp_add_file_if_missing $config_file run 644 v
2386
2387     cat <<-. >> $pp_destdir$config_file
2388
2389         # Controls whether the $svc service is started
2390         $sd_config_var=$sd_config_value
2391 .
2392
2393     if test ! -f $pp_destdir$scriptpath; then
2394     cat <<-. > $pp_destdir$scriptpath
2395         #!/sbin/sh
2396         # generated by pp $pp_version
2397
2398         svc="$svc"
2399         pidfile="$pidfile"
2400         config_file="$config_file"
2401
2402         pp_start () {
2403             $cmd
2404         }
2405
2406         pp_disabled () {
2407             test \${$sd_config_var:-0} -eq 0
2408         }
2409
2410         pp_stop () {
2411             if test ! -s "\$pidfile"; then
2412                 echo "Unable to stop \$svc (no pid file)"
2413                 return 1
2414             else
2415                 read pid < "\$pidfile"
2416                 if kill -0 "\$pid" 2>/dev/null; then
2417                     if kill -${stop_signal:-TERM} "\$pid"; then
2418                         rm -f "\$pidfile"
2419                         return 0
2420                     else
2421                         echo "Unable to stop \$svc"
2422                         return 1
2423                     fi
2424                 else
2425                     rm -f "\$pidfile"
2426                     return 0
2427                 fi
2428             fi
2429         }
2430
2431         pp_running () {
2432             if test ! -s "\$pidfile"; then
2433                 return 1
2434             else
2435                 read pid < "\$pidfile"
2436                 kill -0 "\$pid" 2>/dev/null
2437             fi
2438         }
2439
2440         case \$1 in
2441             start_msg) echo "Starting the \$svc service";;
2442             stop_msg)  echo "Stopping the \$svc service";;
2443             start)
2444                     if test -f "\$config_file"; then
2445                         . \$config_file
2446                     fi
2447                     if pp_disabled; then
2448                         exit 2
2449                     elif pp_running; then
2450                         echo "\$svc already running";
2451                         exit 0
2452                     elif pp_start; then
2453                         echo "\$svc started";
2454                         # rc(1M) says we should exit 4, but nobody expects it!
2455                         exit 0
2456                     else
2457                         exit 1
2458                     fi;;
2459             stop)   if pp_stop; then
2460                         echo "\$svc stopped";
2461                         exit 0
2462                     else
2463                         exit 1
2464                     fi;;
2465             *) echo "usage: \$0 {start|stop|start_msg|stop_msg}"
2466                exit 1;;
2467         esac
2468 .
2469     fi
2470 }
2471
2472 pp_sd_make_service () {
2473         typeset level startpriority stoppriority startlevels stoplevels
2474         typeset svc svcvar symtype
2475
2476         svc="$1"
2477         svcvar=`pp_makevar $svc`
2478
2479         case ${pp_sd_os} in
2480             10.*) symtype="file";;
2481             *) symtype="file -t s";;
2482         esac
2483
2484         # TODO: Figure out why this check is here
2485         #-- don't do anything if the script exists
2486         #if test -s "$pp_destdir/sbin/init.d/$svc"; then
2487         #    pp_error "$pp_destdir/sbin/init.d/$svc exists"
2488         #    return
2489         #fi
2490
2491         # symlink the script, depending on the priorities chosen
2492         eval startpriority='${pp_sd_startpriority_'$svcvar'}'
2493         eval stoppriority='${pp_sd_stoppriority_'$svcvar'}'
2494         test -z "$startpriority" && startpriority="${pp_sd_startpriority:-50}"
2495         test -z "$stoppriority" && stoppriority="${pp_sd_stoppriority:-50}"
2496
2497         eval startlevels='${pp_sd_startlevels_'$svcvar'}'
2498         test -z "$startlevels" && startlevels="$pp_sd_startlevels"
2499
2500         eval stoplevels='${pp_sd_stoplevels_'$svcvar'}'
2501         test -z "$stoplevels" && stoplevels="$pp_sd_stoplevels"
2502
2503         # create the script and config file
2504         pp_sd_service_script $svc
2505
2506         # fix the priority up
2507         case "$startpriority" in
2508             ???) :;;
2509             ??) startpriority=0$startpriority;;
2510             ?) startpriority=00$startpriority;;
2511         esac
2512         case "$stoppriority" in
2513             ???) :;;
2514             ??) stoppriority=0$stoppriority;;
2515             ?) stoppriority=00$stoppriority;;
2516         esac
2517
2518         if test x"$stoplevels" = x"auto"; then
2519             stoplevels=
2520             test -z "$startlevels" || for level in $startlevels; do
2521                 stoplevels="$stoplevels `expr $level - 1`"
2522             done
2523         fi
2524
2525         # create the symlinks
2526         test -z "$startlevels" || for level in $startlevels; do
2527             echo "                ${symtype}" \
2528                     "/sbin/init.d/$svc" \
2529                     "/sbin/rc$level.d/S$startpriority$svc"
2530         done
2531         test -z "$stoplevels" || for level in $stoplevels; do
2532             echo "                ${symtype}" \
2533                     "/sbin/init.d/$svc" \
2534                     "/sbin/rc$level.d/K$stoppriority$svc"
2535         done
2536 }
2537
2538 pp_sd_control () {
2539     typeset ctrl script
2540     typeset cpt
2541
2542     ctrl="$1"; shift
2543     cpt="$1"; shift
2544     script="$pp_wrkdir/control.$ctrl.$cpt"
2545     cat <<. >$script
2546 .
2547     cat "$@" >> $script
2548     echo "exit 0" >> $script
2549     /usr/bin/chmod +x $script
2550     echo "                $ctrl $script"
2551 }
2552
2553 pp_sd_depend () {
2554     typeset _name _vers
2555     while read _name _vers; do
2556         case "$_name" in ""| "#"*) continue ;; esac
2557         echo "                prerequisites $_name ${_vers:+r>= $_vers}"
2558     done
2559 }
2560
2561 pp_sd_conflict () {
2562     typeset _name _vers
2563     while read _name _vers; do
2564         case "$_name" in ""| "#"*) continue ;; esac
2565         echo "                exrequisites $_name ${_vers:+r>= $_vers}"
2566     done
2567 }
2568
2569 pp_backend_sd () {
2570     typeset psf cpt svc outfile release swp_flags
2571
2572     psf=$pp_wrkdir/psf
2573     release="?.${pp_sd_os%.[0-9][0-9]}.*"
2574
2575     echo "depot" > $psf
2576     echo "layout_version 1.0" >>$psf
2577
2578     #-- vendor
2579     cat <<. >>$psf
2580         vendor
2581             tag             $pp_sd_vendor_tag
2582             title           "${pp_sd_vendor:-$vendor}"
2583         end
2584
2585         product
2586             tag             $name
2587             revision        $version
2588             vendor_tag      $pp_sd_vendor_tag
2589             is_patch        false
2590             title           "$summary"
2591             copyright       "$copyright"
2592             machine_type    *
2593             os_name         HP-UX
2594             os_release      $release
2595             os_version      ?
2596             directory       /
2597             is_locatable    false
2598 .
2599     test -n "$description" \
2600         && echo $description > $pp_wrkdir/description \
2601         && cat <<. >> $psf
2602             description     < $pp_wrkdir/description
2603 .
2604
2605     # make convenience service groups
2606     if test -n "$pp_service_groups"; then
2607         for grp in $pp_service_groups; do
2608             pp_sd_service_group_script \
2609                 $grp "`pp_service_get_svc_group $grp`"
2610         done
2611     fi
2612
2613     for cpt in $pp_components; do
2614         cat <<. >>$psf
2615             fileset
2616                 tag             ${pp_sd_fileset_tag:-$cpt}
2617                 title           "${summary:-cpt}"
2618                 revision        $version
2619 .
2620         test -s $pp_wrkdir/%depend.$cpt &&
2621               pp_sd_depend < $pp_wrkdir/%depend.$cpt >> $psf
2622         test -s $pp_wrkdir/%conflict.$cpt &&
2623               pp_sd_conflict < $pp_wrkdir/%conflict.$cpt >> $psf
2624
2625         #-- make sure services are shut down during uninstall
2626         if test $cpt = run -a -n "$pp_services"; then
2627             for svc in $pp_services; do
2628                 pp_prepend $pp_wrkdir/%preun.$cpt <<-.
2629                         /sbin/init.d/$svc stop
2630 .
2631             done
2632         fi
2633
2634         #-- we put the post/preun code into configure/unconfigure
2635         # and not postinstall/preremove, because configure/unconfigure
2636         # scripts are run on the hosts where the package is installed,
2637         # not loaded (a subtle difference).
2638         test -s $pp_wrkdir/%pre.$cpt &&
2639             pp_sd_control checkinstall $cpt $pp_wrkdir/%pre.$cpt >> $psf
2640         test -s $pp_wrkdir/%post.$cpt &&
2641             pp_sd_control configure $cpt $pp_wrkdir/%post.$cpt >> $psf
2642         test -s $pp_wrkdir/%preun.$cpt &&
2643             pp_sd_control unconfigure $cpt $pp_wrkdir/%preun.$cpt >> $psf
2644         test -s $pp_wrkdir/%postun.$cpt &&
2645             pp_sd_control postremove $cpt $pp_wrkdir/%postun.$cpt >> $psf
2646         test -s $pp_wrkdir/%check.$cpt &&
2647             pp_sd_control checkinstall $cpt $pp_wrkdir/%check.$cpt >> $psf
2648
2649         if test $cpt = run -a -n "$pp_services"; then
2650             for svc in $pp_services; do
2651                 #-- service names are 10 chars max on hpux
2652                 case "$svc" in ???????????*)
2653                     pp_warn "service name '$svc' is too long for hpux";;
2654                 esac
2655                 pp_sd_make_service $svc >> $psf
2656             done
2657             #pp_sd_make_service_config
2658         fi
2659
2660         pp_sd_write_files < $pp_wrkdir/%files.$cpt >> $psf
2661
2662         #-- end fileset clause
2663         cat <<. >>$psf
2664             end
2665 .
2666
2667     done
2668
2669     #-- end product clause
2670     cat <<. >>$psf
2671         end
2672 .
2673
2674     $pp_opt_debug && cat $psf >&2
2675
2676     test -s $pp_wrkdir/%fixup && . $pp_wrkdir/%fixup
2677
2678     outfile=`pp_backend_sd_names`
2679     case ${pp_sd_os} in
2680         10.*)
2681             swp_flags="-x target_type=tape"
2682             ;;
2683         *)
2684             swp_flags="-x media_type=tape"
2685             ;;
2686     esac
2687     if pp_verbose ${pp_sd_sudo} /usr/sbin/swpackage -s $psf $swp_flags \
2688         @ $pp_wrkdir/$outfile
2689     then
2690         pp_verbose ${pp_sd_sudo} /usr/sbin/swlist -l file -s $pp_wrkdir/$outfile
2691     else
2692         pp_error "swpackage failed"
2693     fi
2694 }
2695
2696 pp_backend_sd_cleanup () {
2697     :
2698 }
2699
2700 pp_backend_sd_names () {
2701     echo "$name-$version.$pp_sd_arch_std.depot"
2702 }
2703
2704 pp_backend_sd_install_script () {
2705     typeset pkgname platform
2706
2707     pkgname=`pp_backend_sd_names`
2708     platform="`pp_backend_sd_probe`"
2709
2710     echo "#!/bin/sh"
2711     pp_install_script_common
2712     cat <<.
2713
2714         cpt_to_tags () {
2715             test x"\$*" = x"all" && set -- $pp_components
2716             for cpt
2717             do
2718                 echo "$name.\$cpt"
2719             done
2720         }
2721
2722         test \$# -eq 0 && usage
2723         op="\$1"; shift
2724
2725         case "\$op" in
2726             list-components)
2727                 test \$# -eq 0 || usage \$op
2728                 echo "$pp_components"
2729                 ;;
2730             list-services)
2731                 test \$# -eq 0 || usage \$op
2732                 echo "$pp_services"
2733                 ;;
2734             list-files)
2735                 test \$# -ge 1 || usage \$op
2736                 echo \${PP_PKGDESTDIR:-.}/$pkgname
2737                 ;;
2738             install)
2739                 test \$# -ge 1 || usage \$op
2740                 verbose /usr/sbin/swinstall -x verbose=0 \
2741                     -s \${PP_PKGDESTDIR:-\`pwd\`}/$pkgname \
2742                     \`cpt_to_tags "\$@"\`
2743                 ;;
2744             uninstall)
2745                 test \$# -ge 1 || usage \$op
2746                 verbose /usr/sbin/swremove -x verbose=0 \
2747                     \`cpt_to_tags "\$@"\`
2748                 ;;
2749             start|stop)
2750                 test \$# -ge 1 || usage \$op
2751                 ec=0
2752                 for svc
2753                 do
2754                     verbose /sbin/init.d/\$svc \$op
2755                     [ \$? -eq 4 -o \$? -eq 0 ] || ec=1
2756                 done
2757                 exit \$ec
2758                 ;;
2759             print-platform)
2760                 echo "$platform"
2761                 ;;
2762             *)
2763                 usage
2764                 ;;
2765         esac
2766 .
2767 }
2768
2769 pp_backend_sd_probe () {
2770     echo "${pp_sd_os_std}-${pp_sd_arch_std}"
2771 }
2772
2773 pp_backend_sd_vas_platforms () {
2774     case "`pp_backend_sd_probe`" in
2775         hpux*-hppa) echo hpux-pa;;
2776         hpux*-ia64) echo hpux-ia64 hpux-pa;;
2777         *)          pp_die "unknown system `pp_backend_sd_probe`";;
2778     esac
2779 }
2780
2781 pp_backend_sd_init_svc_vars () {
2782     :
2783 }
2784 pp_backend_sd_function () {
2785     case $1 in
2786         pp_mkgroup) cat <<'.';;
2787             /usr/sbin/groupmod "$1" 2>/dev/null ||
2788                 /usr/sbin/groupadd "$1"
2789 .
2790         pp_mkuser:depends) echo pp_mkgroup;;
2791         pp_mkuser) cat <<'.';;
2792             pp_mkgroup "${2:-$1}" || return 1
2793             /usr/sbin/useradd \
2794                 -g "${2:-$1}" \
2795                 -d "${3:-/nonexistent}" \
2796                 -s "${4:-/bin/false}" \
2797                 "$1"
2798 .
2799         pp_havelib) cat <<'.';;
2800             for pp_tmp_dir in `echo /usr/lib${3:+:$3} | tr : ' '`; do
2801                 test -r "$pp_tmp_dir/lib$1${2:+.$2}.sl" && return 0
2802             done
2803             return 1
2804 .
2805         *) false;;
2806     esac
2807 }
2808
2809 pp_platforms="$pp_platforms solaris"
2810
2811 pp_backend_solaris_detect () {
2812         test x"$1" = x"SunOS"
2813 }
2814
2815 pp_backend_solaris_init () {
2816         pp_solaris_category=
2817         pp_solaris_istates="s S 1 2 3"  # run-states when install is ok
2818         pp_solaris_rstates="s S 1 2 3"  # run-states when remove is ok
2819         pp_solaris_maxinst=
2820         pp_solaris_vendor=
2821         pp_solaris_pstamp=
2822         pp_solaris_copyright=
2823         pp_solaris_name=
2824         pp_solaris_desc=
2825         pp_solaris_package_arch=auto
2826
2827         pp_solaris_detect_os
2828         pp_solaris_detect_arch
2829
2830         pp_solaris_init_svc
2831
2832         #-- readlink not reliably available on Solaris
2833         pp_readlink_fn=pp_ls_readlink
2834 }
2835
2836 pp_solaris_detect_os () {
2837         typeset osrel
2838
2839         osrel=`/usr/bin/uname -r`
2840         case "$osrel" in
2841             5.[0-6])    pp_solaris_os="sol2${osrel#5.}";;
2842             5.*)        pp_solaris_os="sol${osrel#5.}";;
2843         esac
2844         test -z "$pp_solaris_os" &&
2845              pp_warn "can't determine OS suffix from uname -r"
2846
2847 }
2848
2849 pp_solaris_detect_arch () {
2850         pp_solaris_arch=`/usr/bin/optisa amd64 sparcv9 i386 sparc`
2851         [ -z "$pp_solaris_arch" ] &&
2852             pp_error "can't determine processor architecture"
2853         case "$pp_solaris_arch" in
2854             amd64)   pp_solaris_arch_std=x86_64;;
2855             i386)    pp_solaris_arch_std=i386;;
2856             sparcv9) pp_solaris_arch_std=sparc64;;
2857             sparc)   pp_solaris_arch_std=sparc;;
2858             *)       pp_solaris_arch_std=unknown;;
2859         esac
2860 }
2861
2862 pp_solaris_is_request_script_necessary () {
2863     typeset has_optional_services
2864
2865     has_optional_services=no
2866     for _svc in $pp_services; do
2867         pp_load_service_vars $_svc
2868         if test "$optional" = "yes"; then
2869             has_optional_services=yes
2870         fi
2871     done
2872
2873     # If the package has no optional services and only one component, don't
2874     # create a request script at all.
2875     if test "$has_optional_services" = "no" &&
2876        test `echo $pp_components | wc -w` -eq 1; then
2877         return 1 # no
2878     fi
2879
2880     return 0 # yes
2881 }
2882
2883 pp_solaris_request () {
2884     typeset _cmp _svc
2885
2886     #-- The common part of the request script contains the ask() function
2887     #   and resets the CLASSES list to empty
2888     cat <<'.'
2889         trap 'exit 3' 15
2890         ask () {
2891            ans=`ckyorn -d "$1" \
2892                 -p "Do you want to $2"` \
2893             || exit $?
2894            case "$ans" in y*|Y*) return 0;; *) return 1;; esac
2895         }
2896         CLASSES=
2897 .
2898     #-- each of our components adds itself to the CLASSES list
2899     for _cmp in $pp_components; do
2900       case "$_cmp" in
2901             run) :;;
2902             doc) echo 'ask y "install the documentation files" &&';;
2903             dev) echo 'ask y "install the development files" &&';;
2904             dbg) echo 'ask n "install the diagnostic files" &&';;
2905       esac
2906       echo '    CLASSES="$CLASSES '$_cmp'"'
2907     done
2908
2909     #-- the request script writes the CLASSES var to its output
2910     cat <<'.'
2911         echo "CLASSES=$CLASSES" > $1
2912 .
2913
2914     if test -n "$pp_services"; then
2915         echo 'SERVICES='
2916         for _svc in $pp_services; do
2917             pp_load_service_vars $_svc
2918             if test "$enable" = "yes"; then
2919                 _default_prompt=y
2920             else
2921                 _default_prompt=n
2922             fi
2923             if test "$optional" = "yes"; then
2924                 echo 'ask '$_default_prompt' "install '$_svc' service" &&'
2925             fi
2926             echo '    SERVICES="$SERVICES '$_svc'"'
2927         done
2928         echo 'echo "SERVICES=$SERVICES" >> $1'
2929     fi
2930
2931 }
2932
2933 pp_solaris_procedure () {
2934     cat <<.
2935
2936         #-- $2 for $1 component of $name
2937         case " \$CLASSES " in *" $1 "*)
2938 .
2939     cat
2940     cat <<.
2941         ;; esac
2942 .
2943 }
2944
2945 pp_solaris_depend () {
2946     typeset _name _vers
2947     while read _name _vers; do
2948         if test -n "$_name"; then
2949             echo "P $_name $_name"
2950             test -n "$_vers" && echo " $_vers"
2951         fi
2952     done
2953 }
2954
2955 pp_solaris_conflict () {
2956     typeset _name _vers
2957     while read _name _vers; do
2958         if test -n "$_name"; then
2959             echo "I $_name $_name"
2960             test -n "$_vers" && echo " $_vers"
2961         fi
2962     done
2963 }
2964
2965 pp_solaris_space() {
2966     echo "$2:$3:$1" >> $pp_wrkdir/space.cumulative
2967 }
2968
2969 pp_solaris_sum_space () {
2970     if test -s $pp_wrkdir/space.cumulative; then
2971         sort -t: +2 < $pp_wrkdir/space.cumulative |
2972         awk -F: 'NR==1{n=$3}{if($3==n){b+=$1;i+=$2}else{print n" "b" "i;b=$1;i=$2;n=$3}}END{print n" "b" "i}' > $pp_wrkdir/space
2973     fi
2974 }
2975
2976 pp_solaris_proto () {
2977         typeset t m o g f p st
2978         typeset abi
2979
2980         while read t m o g f p st; do
2981           # Use Solaris default mode, owner and group if all unspecified
2982           if test x"$m$o$g" = x"---"; then
2983             m="?"; o="?"; g="?"
2984           fi
2985           test x"$o" = x"-" && o="root"
2986           case "$t" in
2987             f) test x"$g" = x"-" && g="bin"
2988                test x"$m" = x"-" && m=444
2989                case "$f" in
2990                 *v*) echo "v $1 $p=$pp_destdir$p $m $o $g";;
2991                 *)   echo "f $1 $p=$pp_destdir$p $m $o $g";;
2992                esac
2993                if test -r "$pp_destdir$p"; then
2994                   #-- Use file to record ABI types seen
2995                   case "`file "$pp_destdir$p"`" in
2996                     *"ELF 32"*80386*) abi=i386;;
2997                     *"ELF 64"*AMD*) abi=x86_64;;
2998                     *"ELF 32"*SPARC*) abi=sparc;;
2999                     *"ELF 64"*SPARC*) abi=sparc64;;
3000                     *) abi=;;
3001                   esac
3002                   if test -n "$abi"; then
3003                     pp_add_to_list pp_solaris_abis_seen $abi
3004                   fi
3005                fi
3006                ;;
3007             d) test x"$g" = x"-" && g="sys"
3008                test x"$m" = x"-" && m=555
3009                echo "d $1 $p $m $o $g"
3010                ;;
3011             s) test x"$g" = x"-" && g="bin"
3012                test x"$m" = x"-" && m=777
3013                if test x"$m" != x"777" -a x"$m" != x"?"; then
3014                   pp_warn "$p: invalid mode $m for symlink, should be 777 or -"
3015                fi
3016                echo "s $1 $p=$st $m $o $g"
3017                ;;
3018           esac
3019         done
3020 }
3021
3022 pp_backend_solaris () {
3023         typeset _cmp _svc _grp
3024
3025         prototype=$pp_wrkdir/prototype
3026         : > $prototype
3027
3028         pkginfo=$pp_wrkdir/pkginfo
3029         : > $pkginfo
3030         echo "i pkginfo=$pkginfo" >> $prototype
3031
3032         case "${pp_solaris_name:-$name}" in
3033             [0-9]*)
3034                 pp_error "Package name '${pp_solaris_name:-$name}'" \
3035                         "cannot start with a number"
3036                 ;;
3037             ???????????????*)
3038                 pp_warn "Package name '${pp_solaris_name:-$name}'" \
3039                         "too long for Solaris 2.6 or 2.7 (max 9 characters)"
3040                 ;;
3041             ??????????*)
3042                 pp_warn "Package name '${pp_solaris_name:-$name}'" \
3043                         "too long for 2.7 Solaris (max 9 characters)"
3044                 ;;
3045         esac
3046
3047         #-- generate the package info file
3048         echo "VERSION=$version" >> $pkginfo
3049         echo "PKG=${pp_solaris_name:-$name}" >> $pkginfo
3050         echo "CLASSES=$pp_components" >> $pkginfo
3051         echo "BASEDIR=/" >> $pkginfo
3052         echo "NAME=$name $version" >> $pkginfo
3053         echo "CATEGORY=${pp_solaris_category:-application}" >> $pkginfo
3054
3055         desc="${pp_solaris_desc:-$description}"
3056         test -n "$desc" &&
3057           echo "DESC=$desc" >> $pkginfo
3058
3059         test -n "$pp_solaris_rstates" &&
3060           echo "RSTATES=$pp_solaris_rstates" >> $pkginfo
3061         test -n "$pp_solaris_istates" &&
3062           echo "ISTATES=$pp_solaris_istates" >> $pkginfo
3063         test -n "$pp_solaris_maxinst" &&
3064           echo "MAXINST=$pp_solaris_maxinst" >> $pkginfo
3065         test -n "${pp_solaris_vendor:-$vendor}" &&
3066           echo "VENDOR=${pp_solaris_vendor:-$vendor}" >> $pkginfo
3067         test -n "$pp_solaris_pstamp" &&
3068           echo "PSTAMP=$pp_solaris_pstamp" >> $pkginfo
3069
3070         if test -n "${pp_solaris_copyright:-$copyright}"; then
3071             echo "${pp_solaris_copyright:-$copyright}" > $pp_wrkdir/copyright
3072             echo "i copyright=$pp_wrkdir/copyright" >> $prototype
3073         fi
3074
3075         #-- scripts to run before and after install
3076         : > $pp_wrkdir/postinstall
3077         : > $pp_wrkdir/preremove
3078         : > $pp_wrkdir/postremove
3079         for _cmp in $pp_components; do
3080         #-- add the preinstall scripts in definition order
3081         if test -s $pp_wrkdir/%pre.$_cmp; then
3082             pp_solaris_procedure $_cmp preinst < $pp_wrkdir/%pre.$_cmp \
3083                 >> $pp_wrkdir/preinstall
3084         fi
3085         #-- add the postinstall scripts in definition order
3086         if test -s $pp_wrkdir/%post.$_cmp; then
3087             pp_solaris_procedure $_cmp postinst < $pp_wrkdir/%post.$_cmp \
3088                 >> $pp_wrkdir/postinstall
3089         fi
3090         #-- add the preremove rules in reverse definition order
3091         if test -s $pp_wrkdir/%preun.$_cmp; then
3092             pp_solaris_procedure $_cmp preremove < $pp_wrkdir/%preun.$_cmp |
3093                     pp_prepend $pp_wrkdir/preremove
3094         fi
3095         #-- add the postremove scripts in definition order
3096         if test -s $pp_wrkdir/%postun.$_cmp; then
3097             pp_solaris_procedure $_cmp postremove < $pp_wrkdir/%postun.$_cmp \
3098                 >> $pp_wrkdir/postremove
3099         fi
3100         #-- Add the check script in definition order
3101         if test -s $pp_wrkdir/%check.$_cmp; then
3102             pp_solaris_procedure $_cmp checkinstall \
3103                         < $pp_wrkdir/%check.$_cmp \
3104                         >> $pp_wrkdir/checkinstall
3105         fi
3106         #-- All dependencies and conflicts are merged together for Solaris pkgs
3107         test -s $pp_wrkdir/%depend.$_cmp &&
3108               pp_solaris_depend < $pp_wrkdir/%depend.$_cmp >> $pp_wrkdir/depend
3109         test -s $pp_wrkdir/%conflict.$_cmp &&
3110               pp_solaris_conflict < $pp_wrkdir/%conflict.$_cmp >> $pp_wrkdir/depend
3111         done
3112
3113
3114         if pp_solaris_is_request_script_necessary; then
3115             pp_solaris_request > $pp_wrkdir/request
3116         fi
3117
3118         test -n "$pp_services" &&
3119             for _svc in $pp_services; do
3120                 pp_load_service_vars $_svc
3121                 pp_solaris_smf $_svc
3122                 pp_solaris_make_service $_svc
3123                 pp_solaris_install_service $_svc | pp_prepend $pp_wrkdir/postinstall
3124                 pp_solaris_remove_service $_svc | pp_prepend $pp_wrkdir/preremove
3125                 pp_solaris_remove_service $_svc | pp_prepend $pp_wrkdir/postremove
3126                 unset pp_svc_xml_file
3127             done
3128
3129         test -n "$pp_service_groups" &&
3130             for _grp in $pp_service_groups; do
3131                 pp_solaris_make_service_group \
3132                     $_grp "`pp_service_get_svc_group $_grp`"
3133             done
3134
3135         #-- if installf was used; we need to indicate a termination
3136         grep installf $pp_wrkdir/postinstall >/dev/null &&
3137             echo 'installf -f $PKGINST' >> $pp_wrkdir/postinstall
3138
3139         pp_solaris_sum_space
3140
3141         # NB: pkginfo and copyright are added earlier
3142         for f in compver depend space checkinstall \
3143                  preinstall request postinstall \
3144                  preremove postremove; do
3145             if test -s $pp_wrkdir/$f; then
3146                 case $f in
3147                     *install|*remove|request)
3148                         # turn scripts into a proper shell scripts
3149                         mv $pp_wrkdir/$f $pp_wrkdir/$f.tmp
3150                         { echo "#!/bin/sh";
3151                           echo "# $f script for ${pp_solaris_name:-$name}-$version"
3152                           cat $pp_wrkdir/$f.tmp
3153                           echo "exit 0"; } > $pp_wrkdir/$f
3154                         chmod +x $pp_wrkdir/$f
3155                         rm -f $pp_wrkdir/$f.tmp
3156                         ;;
3157                 esac
3158                 if $pp_opt_debug; then
3159                     pp_debug "contents of $f:"
3160                     cat $pp_wrkdir/$f >&2
3161                 fi
3162                 echo "i $f=$pp_wrkdir/$f" >> $prototype
3163             fi
3164         done
3165
3166         #-- create the prototype file which lists the files to install
3167         # do this as late as possible because files could be added
3168         pp_solaris_abis_seen=
3169         for _cmp in $pp_components; do
3170           pp_solaris_proto $_cmp < $pp_wrkdir/%files.$_cmp
3171         done >> $prototype
3172
3173         if test x"$pp_solaris_package_arch" = x"auto"; then
3174             if pp_contains "$pp_solaris_abis_seen" sparc64; then
3175                 pp_solaris_package_arch_std="sparc64"
3176                 echo "ARCH=sparcv9" >> $pkginfo
3177             elif pp_contains "$pp_solaris_abis_seen" sparc; then
3178                 pp_solaris_package_arch_std="sparc"
3179                 echo "ARCH=sparc" >> $pkginfo
3180             elif pp_contains "$pp_solaris_abis_seen" x86_64; then
3181                 pp_solaris_package_arch_std="x86_64"
3182                 echo "ARCH=amd64" >> $pkginfo
3183             elif pp_contains "$pp_solaris_abis_seen" i386; then
3184                 pp_solaris_package_arch_std="i386"
3185                 echo "ARCH=i386" >> $pkginfo
3186             else
3187                 pp_warn "No ELF files found: not supplying an ARCH type"
3188                 pp_solaris_package_arch_std="noarch"
3189             fi
3190         else
3191             pp_solaris_package_arch_std="$pp_solaris_package_arch"
3192             echo "ARCH=$pp_solaris_package_arch" >> $pkginfo
3193         fi
3194
3195         mkdir $pp_wrkdir/pkg
3196
3197         . $pp_wrkdir/%fixup
3198
3199 if $pp_opt_debug; then
3200   echo "$pkginfo::"; cat $pkginfo
3201   echo "$prototype::"; cat $prototype
3202 fi >&2
3203
3204         pkgmk -d $pp_wrkdir/pkg -f $prototype \
3205                 || { error "pkgmk failed"; return; }
3206         pkgtrans -s $pp_wrkdir/pkg \
3207                 $pp_wrkdir/`pp_backend_solaris_names` \
3208                 ${pp_solaris_name:-$name} \
3209                 || { error "pkgtrans failed"; return; }
3210 }
3211
3212 pp_backend_solaris_cleanup () {
3213         :
3214 }
3215
3216 pp_backend_solaris_names () {
3217         echo ${pp_solaris_name:-$name}-$version-${pp_solaris_package_arch_std:-$pp_solaris_arch}.pkg
3218 }
3219
3220 pp_backend_solaris_install_script () {
3221         typeset pkgname platform
3222
3223         platform="${pp_solaris_os:-solaris}-${pp_solaris_package_arch_std:-$pp_solaris_arch}"
3224
3225         echo "#! /sbin/sh"
3226         pp_install_script_common
3227         pkgname=`pp_backend_solaris_names`
3228
3229         cat <<.
3230             tmpnocheck=/tmp/nocheck\$\$
3231             tmpresponse=/tmp/response\$\$
3232             trap 'rm -f \$tmpnocheck \$tmpresponse' 0
3233
3234             make_tmpfiles () {
3235                 cat <<-.. > \$tmpresponse
3236                         CLASSES=\$*
3237                         SERVICES=$pp_services
3238 ..
3239                 cat <<-.. > \$tmpnocheck
3240                         mail=
3241                         instance=overwrite
3242                         partial=nocheck
3243                         runlevel=nocheck
3244                         idepend=nocheck
3245                         rdepend=nocheck
3246                         space=nocheck
3247                         setuid=nocheck
3248                         conflict=nocheck
3249                         action=nocheck
3250                         basedir=default
3251 ..
3252             }
3253
3254             test \$# -eq 0 && usage
3255             op="\$1"; shift
3256
3257             case "\$op" in
3258                 list-components)
3259                     test \$# -eq 0 || usage \$op
3260                     echo "$pp_components"
3261                     ;;
3262                 list-services)
3263                     test \$# -eq 0 || usage \$op
3264                     echo "$pp_services"
3265                     ;;
3266                 list-files)
3267                     test \$# -ge 1 || usage \$op
3268                     echo \${PP_PKGDESTDIR:-.}/$pkgname
3269                     ;;
3270                 install)
3271                     test \$# -ge 1 || usage \$op
3272                     make_tmpfiles "\$@"
3273                     verbose /usr/sbin/pkgadd -n -d \${PP_PKGDESTDIR:-.}/$pkgname \
3274                         -r \$tmpresponse \
3275                         -a \$tmpnocheck \
3276                         ${pp_solaris_name:-$name}
3277                     ;;
3278                 uninstall)
3279                     test \$# -ge 1 || usage \$op
3280                     make_tmpfiles "\$@"
3281                     verbose /usr/sbin/pkgrm -n \
3282                         -a \$tmpnocheck \
3283                         ${pp_solaris_name:-$name}
3284                     ;;
3285                 start|stop)
3286                     test \$# -ge 1 || usage \$op
3287                     ec=0
3288                     for svc
3289                     do
3290                         verbose /etc/init.d/\$svc \$op || ec=1
3291                     done
3292                     exit \$ec
3293                     ;;
3294                 print-platform)
3295                     echo "$platform"
3296                     ;;
3297                 *)
3298                     usage
3299                     ;;
3300             esac
3301 .
3302 }
3303
3304 pp_solaris_dynlib_depend () {
3305         xargs ldd 2>/dev/null |
3306         sed -e '/^[^    ]*:$/d' -e 's,.*=>[      ]*,,' -e 's,^[         ]*,,' |
3307         sort -u |
3308         grep -v '^/usr/platform/' | (
3309           set -- ""; shift
3310           while read p; do
3311             set -- "$@" -p "$p"
3312             if [ $# -gt 32 ]; then
3313                 echo "$# is $#" >&2
3314                 pkgchk -l "$@"
3315                 set -- ""; shift
3316             fi
3317           done
3318           [ $# -gt 0 ] && pkgchk -l "$@"
3319         )|
3320         awk '/^Current status:/{p=0} p==1 {print $1} /^Referenced by/ {p=1}' |
3321         sort -u |
3322         xargs -l32 pkginfo -x |
3323         awk 'NR % 2 == 1 { name=$1; } NR%2 == 0 { print name, $2 }'
3324 }
3325
3326 pp_solaris_add_dynlib_depends () {
3327     typeset tmp
3328     tmp=$pp_wrkdir/tmp.dynlib
3329
3330     for _cmp in $pp_components; do
3331         awk '{print destdir $6}' destdir="$pp_destdir" \
3332                 < $pp_wrkdir/%files.$_cmp |
3333         pp_solaris_dynlib_depend > $tmp
3334         if test -s $tmp; then
3335             cat $tmp >> $pp_wrkdir/%depend.$_cmp
3336         fi
3337         rm -f $tmp
3338     done
3339 }
3340
3341 pp_backend_solaris_probe () {
3342     echo "${pp_solaris_os}-${pp_solaris_arch_std}"
3343 }
3344
3345 pp_backend_solaris_vas_platforms () {
3346     case `pp_backend_solaris_probe` in
3347         sol10-sparc* | sol9-sparc* | sol8-sparc*)
3348                         echo solaris8-sparc solaris7-sparc solaris26-sparc;;
3349         sol7-sparc*)    echo                solaris7-sparc solaris26-sparc;;
3350         sol26-sparc*)   echo                               solaris26-sparc;;
3351         sol8-*86)       echo solaris8-x86;;
3352         sol10-*86 | sol10-x86_64)
3353                         echo solaris10-x64 solaris8-x86;;
3354         *)              pp_die "unknown system `pp_backend_solaris_probe`";;
3355     esac
3356 }
3357 pp_backend_solaris_function() {
3358     case $1 in
3359         pp_mkgroup) cat<<'.';;
3360             /usr/sbin/groupmod "$1" 2>/dev/null && return 0
3361             /usr/sbin/groupadd "$1"
3362 .
3363         pp_mkuser:depends) echo pp_mkgroup;;
3364         pp_mkuser) cat<<'.';;
3365             id "$1" >/dev/null 2>/dev/null && return 0
3366             pp_mkgroup "${2:-$1}" || return 1
3367             /usr/sbin/useradd \
3368                 -g "${2:-$1}" \
3369                 -d "${3:-/nonexistent}" \
3370                 -s "${4:-/bin/false}" \
3371                 "$1"
3372 .
3373     *) false;;
3374     esac
3375 }
3376
3377 pp_backend_solaris_init_svc_vars () {
3378     _smf_category=${pp_solaris_smf_category:-application}
3379     _smf_method_envvar_name=${smf_method_envvar_name:-"PP_SMF_SERVICE"}
3380     pp_solaris_service_shell=/sbin/sh
3381 }
3382
3383 pp_solaris_init_svc () {
3384     smf_version=1
3385     smf_type=service
3386     solaris_user=
3387     solaris_stop_signal=
3388     solaris_sysv_init_start=S70     # invocation order for start scripts
3389     solaris_sysv_init_kill=K30      # invocation order for kill scripts
3390     solaris_sysv_init_start_states="2" # states to install start link
3391     solaris_sysv_init_kill_states="S 0 1"  # states to install kill link
3392
3393     #
3394     # To have the service be installed to start automatically,
3395     #   %service foo
3396     #   solaris_sysv_init_start_states="S 0 1 2"
3397     #
3398 }
3399
3400 pp_solaris_smf () {
3401     typeset f _pp_solaris_service_script svc _pp_solaris_manpage
3402
3403     pp_solaris_name=${pp_solaris_name:-$name}
3404     pp_solaris_manpath=${pp_solaris_manpath:-"/usr/share/man"}
3405     pp_solaris_mansect=${pp_solaris_mansect:-1}
3406     smf_start_timeout=${smf_start_timeout:-60}
3407     smf_stop_timeout=${smf_stop_timeout:-60}
3408     smf_restart_timeout=${smf_restart_timeout:-60}
3409
3410     svc=${pp_solaris_smf_service_name:-$1}
3411     _pp_solaris_service_script=${pp_solaris_service_script:-"/etc/init.d/${pp_solaris_service_script_name:-$svc}"}
3412     _pp_solaris_manpage=${pp_solaris_manpage:-$svc}
3413
3414     if [ -z $pp_svc_xml_file ]; then
3415         pp_svc_xml_file="/var/svc/manifest/$_smf_category/$svc.xml"
3416         echo "## Generating the smf service manifest file for $pp_svc_xml_file"
3417     else
3418         echo "## SMF service manifest file already defined at $pp_svc_xml_file"
3419         if [ -z $pp_solaris_smf_service_name ] || [ -z $pp_solaris_smf_category ] || [ -z $pp_solaris_service_script ] || [ -z $smf_method_envvar_name ]; then
3420           pp_error "All required variables are not set.\n"\
3421                    "When using a custom manifest file all of the following variables must be set:\n"\
3422                    "pp_solaris_smf_service_name, pp_solaris_smf_category, pp_solaris_service_script and smf_method_envvar_name.\n\n"\
3423                    "Example:\n"\
3424                    " \$pp_solaris_smf_category=application\n"\
3425                    " \$pp_solaris_smf_service_name=pp\n\n"\
3426                    "  <service name='application/pp' type='service' version='1'>\n\n"\
3427                    "Example:\n"\
3428                    " \$pp_solaris_service_script=/etc/init.d/pp\n\n"\
3429                    "  <exec_method type='method' name='start' exec='/etc/init.d/pp' />\n\n"\
3430                    "Example:\n"\
3431                    " \$smf_method_envvar_name=PP_SMF_SERVICE\n\n"\
3432                    "  <method_environment>\n"\
3433                    "    <envvar name='PP_SMF_SERVICE' value='1'/>\n"\
3434                    "  </method_environment>\n"
3435
3436           return 1
3437         fi
3438         return 0
3439     fi
3440
3441     f=$pp_svc_xml_file
3442     pp_add_file_if_missing $f ||
3443         return 0
3444     pp_solaris_add_parent_dirs "$f"
3445
3446     _pp_solaris_smf_dependencies="
3447           <dependency name='pp_local_filesystems'
3448                 grouping='require_all'
3449                 restart_on='none'
3450                 type='service'>
3451                 <service_fmri value='svc:/system/filesystem/local'/>
3452           </dependency>
3453
3454           <dependency name='pp_single-user'
3455                 grouping='require_all'
3456                 restart_on='none'
3457                 type='service'>
3458                 <service_fmri value='svc:/milestone/single-user' />
3459           </dependency>
3460 "
3461     _pp_solaris_smf_dependencies=${pp_solaris_smf_dependencies:-$_pp_solaris_smf_dependencies}
3462
3463     cat <<-. >$pp_destdir$f
3464 <?xml version="1.0"?>
3465 <!DOCTYPE service_bundle SYSTEM '/usr/share/lib/xml/dtd/service_bundle.dtd.1'>
3466 <!--
3467         $copyright
3468         Generated by PolyPackage $pp_version
3469 -->
3470
3471     <service_bundle type='manifest' name='${pp_solaris_name}:${svc}' >
3472           <service name='$_smf_category/$svc'
3473                 type='$smf_type'
3474                 version='$smf_version'>
3475
3476           <create_default_instance enabled='false'/>
3477
3478           <single_instance />
3479
3480           $_pp_solaris_smf_dependencies
3481
3482           $pp_solaris_smf_additional_dependencies
3483
3484           <method_context>
3485                 <method_credential user='${solaris_user:-$user}' />
3486                 <method_environment>
3487                     <envvar name='$_smf_method_envvar_name' value='1'/>
3488                 </method_environment>
3489           </method_context>
3490
3491           <exec_method type='method' name='start'
3492                 exec='$_pp_solaris_service_script start'
3493                 timeout_seconds='$smf_start_timeout' />
3494
3495           <exec_method type='method' name='stop'
3496                 exec='$_pp_solaris_service_script stop'
3497                 timeout_seconds='$smf_stop_timeout' />
3498
3499           <exec_method type='method' name='restart'
3500                 exec='$_pp_solaris_service_script restart'
3501                 timeout_seconds='$smf_restart_timeout' />
3502
3503           <template>
3504               <common_name>
3505                   <loctext xml:lang='C'>$description</loctext>
3506               </common_name>
3507               <documentation>
3508                   <manpage title='$pp_solaris_manpage' section='$pp_solaris_mansect' manpath='$pp_solaris_manpath'/>
3509               </documentation>
3510           </template>
3511         </service>
3512     </service_bundle>
3513 .
3514 }
3515
3516 pp_solaris_make_service_group () {
3517     typeset group out file svcs svc
3518
3519     group="$1"
3520     svcs="$2"
3521     file="/etc/init.d/$group"
3522     out="$pp_destdir$file"
3523
3524     #-- return if the script is supplied already
3525     pp_add_file_if_missing "$file" run 755 || return 0
3526     pp_solaris_add_parent_dirs "$file"
3527
3528     echo "#! /sbin/sh" > $out
3529     echo "# polypkg service group script for these services:" >> $out
3530     echo "svcs=\"$svcs\"" >> $out
3531
3532     cat <<'.' >>$out
3533
3534         #-- starts services in order.. stops them all if any break
3535         pp_start () {
3536             undo=
3537             for svc in $svcs; do
3538                 if /etc/init.d/$svc start; then
3539                     undo="$svc $undo"
3540                 else
3541                     if test -n "$undo"; then
3542                         for svc in $undo; do
3543                            /etc/init.d/$svc stop
3544                         done
3545                         return 1
3546                     fi
3547                 fi
3548             done
3549             return 0
3550         }
3551
3552         #-- stops services in reverse
3553         pp_stop () {
3554             reverse=
3555             for svc in $svcs; do
3556                 reverse="$svc $reverse"
3557             done
3558             rc=0
3559             for svc in $reverse; do
3560                 /etc/init.d/$svc stop || rc=$?
3561             done
3562             return $rc
3563         }
3564
3565         #-- returns true only if all services return true status
3566         pp_status () {
3567             rc=0
3568             for svc in $svcs; do
3569                 /etc/init.d/$svc status || rc=$?
3570             done
3571             return $rc
3572         }
3573
3574         case "$1" in
3575             start)   pp_start;;
3576             stop)    pp_stop;;
3577             status)  pp_status;;
3578             restart) pp_stop && pp_start;;
3579             *)       echo "usage: $0 {start|stop|restart|status}" >&2; exit 1;;
3580         esac
3581 .
3582 }
3583
3584 pp_solaris_make_service () {
3585     typeset file out _cmd svc
3586
3587     svc="${pp_solaris_smf_service_name:-$1}"
3588     file=${pp_solaris_service_script:-"/etc/init.d/${pp_solaris_service_script_name:-$svc}"}
3589     out="$pp_destdir$file"
3590
3591     #-- return if we don't need to create the init script
3592     pp_add_file_if_missing "$file" run 755 ||
3593         return 0
3594     pp_solaris_add_parent_dirs "$file"
3595
3596     echo "#! /sbin/sh" >$out
3597     echo "#-- This service init file generated by polypkg" >>$out
3598
3599     #-- Start SMF integration.
3600     if [ -n "$pp_svc_xml_file" ] ; then
3601         cat <<_EOF >>$out
3602 if [ -x /usr/sbin/svcadm ] && [ "x\$1" != "xstatus" ] && [ "t\$$_smf_method_envvar_name" = "t" ] ; then
3603     case "\$1" in
3604         start)
3605             echo "starting $svc"
3606             /usr/sbin/svcadm clear svc:/$_smf_category/$svc:default >/dev/null 2>&1
3607             /usr/sbin/svcadm enable -s $_smf_category/$svc
3608             RESULT=\$?
3609             if [ "\$RESULT" -ne 0 ] ; then
3610                 echo "Error \$RESULT starting $svc" >&2
3611             fi
3612             ;;
3613         stop)
3614             echo "stopping $svc"
3615             /usr/sbin/svcadm disable -ts $_smf_category/$svc
3616             RESULT=0
3617             ;;
3618         restart)
3619             echo "restarting $svc"
3620             /usr/sbin/svcadm disable -ts $_smf_category/$svc
3621             /usr/sbin/svcadm clear svc:/$_smf_category/$svc:default >/dev/null 2>&1
3622             /usr/sbin/svcadm enable -s $_smf_category/$svc
3623             RESULT=\$?
3624             if [ "\$RESULT" -ne 0 ] ; then
3625                 echo "Error \$RESULT starting $svc" >&2
3626             fi
3627             ;;
3628         *)
3629             echo "Usage: $file {start|stop|restart|status}" >&2
3630             RESULT=1
3631     esac
3632     exit $RESULT
3633 fi
3634 _EOF
3635     fi
3636
3637     #-- construct a start command that builds a pid file as needed
3638     #   and forks the daemon
3639     _cmd="$cmd";
3640     if test -z "$pidfile"; then
3641         # The service does not define a pidfile, so we have to make
3642         # our own up. On Solaris systems where there is no /var/run
3643         # we must use /tmp to guarantee the pid files are removed after
3644         # a system crash.
3645         cat <<. >>$out
3646             pp_piddir="/var/run"
3647             test -d "\$pp_piddir/." || pp_piddir="/tmp"
3648             pidfile="\$pp_piddir/$svc.pid"
3649 .
3650         _cmd="$cmd & echo \$! > \$pidfile"
3651     else
3652         # The service is able to write its own PID file
3653         cat <<. >>$out
3654             pidfile="$pidfile"
3655 .
3656     fi
3657
3658     if test "${user:-root}" != "root"; then
3659         _cmd="su $user -c exec $_cmd";
3660     fi
3661
3662     cat <<. >>$out
3663         stop_signal="${stop_signal:-TERM}"
3664         svc="${svc}"
3665
3666         # generated command to run $svc as a daemon process
3667         pp_exec () { $_cmd; }
3668 .
3669
3670     #-- write the invariant section of the init script
3671     cat <<'.' >>$out
3672
3673         # returns true if $svc is running
3674         pp_running () {
3675             test -s "$pidfile" || return 1
3676             read pid junk < "$pidfile" 2>/dev/null
3677             test ${pid:-0} -gt 1 &&
3678             kill -0 "$pid" 2>/dev/null
3679         }
3680
3681         # prints a message describing $svc's running state
3682         pp_status () {
3683             if pp_running; then
3684                 echo "service $svc is running (pid $pid)"
3685                 return 0
3686             elif test -f "$pidfile"; then
3687                 echo "service $svc is not running, but pid file exists"
3688                 return 2
3689             else
3690                 echo "service $svc is not running"
3691                 return 1
3692             fi
3693         }
3694
3695         # starts $svc
3696         pp_start () {
3697             if pp_running; then
3698                 echo "service $svc already running" >&2
3699                 return 0
3700             fi
3701             echo "starting $svc... \c"
3702             if pp_exec; then
3703                 echo "done."
3704             else
3705                 echo "ERROR."
3706                 exit 1
3707             fi
3708         }
3709
3710         # stops $svc
3711         pp_stop () {
3712             if pp_running; then
3713                 echo "stopping $svc... \c"
3714                 if kill -$stop_signal $pid; then
3715                     rm -f "$pidfile"
3716                     echo "done."
3717                 else
3718                     echo "ERROR."
3719                     return 1
3720                 fi
3721             else
3722                 echo "service $svc already stopped" >&2
3723                 return 0
3724             fi
3725         }
3726
3727         umask 022
3728         case "$1" in
3729             start)   pp_start;;
3730             stop)    pp_stop;;
3731             status)  pp_status;;
3732             restart) pp_stop && pp_start;;
3733             *)       echo "usage: $0 {start|stop|restart|status}" >&2; exit 1;;
3734         esac
3735 .
3736 }
3737
3738 pp_solaris_remove_service () {
3739     typeset file svc
3740
3741     svc="${pp_solaris_smf_service_name:-$1}"
3742     file=${pp_solaris_service_script:-"/etc/init.d/${pp_solaris_service_script_name:-$svc}"}
3743
3744     echo '
3745 '$file' stop >/dev/null 2>/dev/null
3746 if [ "x${PKG_INSTALL_ROOT}" = 'x' ]; then
3747     if [ -x /usr/sbin/svcadm ] ; then
3748         # Likely un-needed, but just in case.
3749         /usr/sbin/svcadm disable -s '$svc' 2>/dev/null
3750         /usr/sbin/svccfg delete '$svc' 2>/dev/null
3751     fi
3752 fi
3753     '
3754 }
3755
3756 pp_solaris_install_service () {
3757     typeset s k l file svc
3758
3759     svc="${pp_solaris_smf_service_name:-$1}"
3760     file=${pp_solaris_service_script:-"/etc/init.d/${pp_solaris_service_script_name:-$svc}"}
3761
3762     s="${solaris_sysv_init_start}$svc"
3763     k="${solaris_sysv_init_kill}$svc"
3764
3765     echo '
3766 if [ "x${PKG_INSTALL_ROOT}" != "x" ]; then
3767   if [ -x ${PKG_INSTALL_ROOT}/usr/sbin/svcadm ]; then
3768     echo "/usr/sbin/svccfg import '$pp_svc_xml_file' 2>/dev/null" >> ${PKG_INSTALL_ROOT}/var/svc/profile/upgrade
3769   else'
3770     test -n "${solaris_sysv_init_start_states}" &&
3771         for state in ${solaris_sysv_init_start_states}; do
3772             l="/etc/rc$state.d/$s"
3773             echo "echo '$l'"
3774             echo "installf -c run \$PKGINST \$PKG_INSTALL_ROOT$l=$file s"
3775             pp_solaris_space /etc/rc$state.d 0 1
3776         done
3777     test -n "${solaris_sysv_init_kill_states}" &&
3778         for state in ${solaris_sysv_init_kill_states}; do
3779             l="/etc/rc$state.d/$k"
3780             echo "echo '$l'"
3781             echo "installf -c run \$PKGINST \$PKG_INSTALL_ROOT$l=$file s"
3782             pp_solaris_space /etc/rc$state.d 0 1
3783         done
3784     echo '
3785   fi
3786 else
3787     if [ -x /usr/sbin/svcadm ]; then
3788         echo "Registering '$svc' with SMF"
3789         /usr/sbin/svcadm disable -s '$svc' 2>/dev/null
3790         /usr/sbin/svccfg delete '$svc' 2>/dev/null
3791         /usr/sbin/svccfg import '$pp_svc_xml_file'
3792     else'
3793     test -n "${solaris_sysv_init_start_states}" &&
3794         for state in ${solaris_sysv_init_start_states}; do
3795             l="/etc/rc$state.d/$s"
3796             echo "echo '$l'"
3797             echo "installf -c run \$PKGINST \$PKG_INSTALL_ROOT$l=$file s"
3798             pp_solaris_space /etc/rc$state.d 0 1
3799         done
3800     test -n "${solaris_sysv_init_kill_states}" &&
3801         for state in ${solaris_sysv_init_kill_states}; do
3802             l="/etc/rc$state.d/$k"
3803             echo "echo '$l'"
3804             echo "installf -c run \$PKGINST \$PKG_INSTALL_ROOT$l=$file s"
3805             pp_solaris_space /etc/rc$state.d 0 1
3806         done
3807     echo '
3808     fi
3809 fi'
3810 }
3811
3812 pp_solaris_add_parent_dirs () {
3813     typeset dir
3814
3815     dir=${1%/*}
3816     while test -n "$dir"; do
3817         if awk "\$6 == \"$dir/\" {exit 1}" < $pp_wrkdir/%files.run; then
3818             echo "d - - - - $dir/" >> $pp_wrkdir/%files.run
3819         fi
3820         dir=${dir%/*}
3821     done
3822 }
3823
3824 pp_platforms="$pp_platforms deb"
3825
3826 pp_backend_deb_detect () {
3827     test -f /etc/debian_version
3828 }
3829
3830 pp_deb_cmp_full_name () {
3831     local prefix
3832     prefix="${pp_deb_name:-$name}"
3833     case "$1" in
3834         run) echo "${prefix}" ;;
3835         dbg) echo "${prefix}-${pp_deb_dbg_pkgname}";;
3836         dev) echo "${prefix}-${pp_deb_dev_pkgname}";;
3837         doc) echo "${prefix}-${pp_deb_doc_pkgname}";;
3838         *)   pp_error "unknown component '$1'";
3839     esac
3840 }
3841
3842 pp_backend_deb_init () {
3843     pp_deb_dpkg_version="2.0"
3844     pp_deb_name=
3845     pp_deb_version=
3846     pp_deb_release=
3847     pp_deb_arch=
3848     pp_deb_arch_std=
3849     pp_deb_maintainer=support@quest.com
3850     pp_deb_copyright=
3851     pp_deb_distro=
3852     pp_deb_control_description=
3853     pp_deb_summary=
3854     pp_deb_description=
3855     pp_deb_dbg_pkgname="dbg"
3856     pp_deb_dev_pkgname="dev"
3857     pp_deb_doc_pkgname="doc"
3858     pp_deb_section=contrib # Free software that depends on non-free software
3859
3860     # Detect the host architecture
3861     pp_deb_detect_arch
3862
3863     # Make sure any programs we require are installed
3864     pp_deb_check_required_programs
3865
3866     # Set generated/interrogated platforms variables
3867     pp_deb_munge_description
3868 }
3869
3870 pp_deb_check_required_programs () {
3871     local p needed notfound ok
3872     needed= notfound=
3873     for prog in dpkg dpkg-deb install md5sum fakeroot
3874     do
3875         if which $prog 2>/dev/null >/dev/null; then
3876             pp_debug "$prog: found"
3877         else
3878             pp_debug "$prog: not found"
3879             case "$prog" in
3880                 dpkg|dpkg-deb)  p=dpkg;;
3881                 install|md5sum) p=coreutils;;
3882                 fakeroot)       p=fakeroot;;
3883                 *)              pp_die "unexpected dpkg tool $prog";;
3884             esac
3885             notfound="$notfound $prog"
3886             pp_contains "$needed" "$p" || needed="$needed $p"
3887         fi
3888     done
3889     if [ -n "$notfound" ]; then
3890         pp_error "cannot find these programs: $notfound"
3891         pp_error "please install these packages: $needed"
3892     fi
3893 }
3894
3895 pp_deb_munge_description () {
3896     # Insert a leading space on each line, replace blank lines with a
3897     #space followed by a full-stop.
3898     pp_deb_control_description=`echo ${pp_deb_description:-$description} | \
3899         sed "s,^\(.*\)$, \1, " \
3900         | sed "s,^[ \t]*$, .,g"`
3901
3902 }
3903
3904 pp_deb_detect_arch () {
3905    pp_deb_arch=`dpkg --print-architecture`
3906    pp_deb_arch_std=`uname -m`
3907 }
3908
3909 pp_deb_sanitize_version() {
3910     echo "$@" | tr -d -c '[:alnum:].+-:~'
3911 }
3912
3913 pp_deb_version_final() {
3914     if test -n "$pp_deb_version"; then
3915         # Don't sanitize; assume the user is sane (hah!)
3916         echo "$pp_deb_version"
3917     else
3918         pp_deb_sanitize_version "$version"
3919     fi
3920 }
3921
3922 pp_deb_conflict () {
3923     local _name _vers _conflicts
3924
3925     _conflicts="Conflicts:"
3926     while read _name _vers; do
3927         case "$_name" in ""| "#"*) continue ;; esac
3928         _conflicts="$_conflicts $_name"
3929         test -n "$_vers" && _conflicts="$_conflicts $_name (>= $vers)"
3930         _conflicts="${_conflicts},"
3931     done
3932     echo "${_conflicts%,}"
3933 }
3934
3935 pp_deb_make_control() {
3936     package_name=`pp_deb_cmp_full_name "$1"`
3937     cat <<-.
3938         Package: ${package_name}
3939         Version: `pp_deb_version_final`-${pp_deb_release:-1}
3940         Section: ${pp_deb_section:-contrib}
3941         Priority: optional
3942         Architecture: ${pp_deb_arch}
3943         Maintainer: ${pp_deb_maintainer:-$maintainer}
3944         Description: ${pp_deb_summary:-$summary}
3945         ${pp_deb_control_description}
3946 .
3947     if test -s $pp_wrkdir/%depend."$1"; then
3948         sed -ne '/^[    ]*$/!s/^[       ]*/Depends: /p' \
3949             < $pp_wrkdir/%depend."$1"
3950     fi
3951     if test -s $pp_wrkdir/%conflict."$1"; then
3952         pp_deb_conflict < $pp_wrkdir/%conflict."$1"
3953     fi
3954 }
3955
3956 pp_deb_make_md5sums() {
3957     local cmp="$1"; shift
3958     local pkg_dir
3959
3960     pkg_dir=$pp_wrkdir/`pp_deb_cmp_full_name $cmp`
3961     (cd $pkg_dir && md5sum "$@") > $pkg_dir/DEBIAN/md5sums ||
3962         pp_error "cannot make md5sums"
3963 }
3964
3965 pp_deb_make_package_maintainer_script() {
3966     local output="$1"
3967     local source="$2"
3968     local desc="$3"
3969
3970     # See if we need to create this script at all
3971     if [ -s "$source" ]
3972     then
3973
3974         # Create header
3975         cat <<-. >$output || pp_error "Cannot create $output"
3976         #!/bin/sh
3977         # $desc
3978         # Generated by PolyPackage $pp_version
3979
3980 .
3981
3982         cat $source >> "$output" || pp_error "Cannot append to $output"
3983
3984         # Set perms
3985         chmod 755 "$output" || pp_error "Cannot chmod $output"
3986     fi
3987 }
3988
3989 pp_deb_handle_services() {
3990     local svc
3991
3992     #-- add service start/stop code
3993     if test -n "$pp_services"; then
3994         #-- record the uninstall commands in reverse order
3995         for svc in $pp_services; do
3996             pp_load_service_vars $svc
3997
3998             # Create init script (unless one exists)
3999             pp_deb_service_make_init_script $svc
4000
4001             #-- append %post code to install the svc
4002             test x"yes" = x"$enable" &&
4003             cat<<-. >> $pp_wrkdir/%post.run
4004                 # Install the service links
4005                 /usr/sbin/update-rc.d $svc defaults
4006 .
4007
4008             #-- prepend %preun code to stop svc
4009             cat<<-. | pp_prepend $pp_wrkdir/%preun.run
4010                 # Stop the $svc service
4011                 if test -x /usr/sbin/invoke-rc.d; then
4012                     /usr/sbin/invoke-rc.d $svc stop
4013                 else
4014                     /etc/init.d/$svc stop
4015                 fi
4016                 # Remove the service links
4017                 /usr/sbin/update-rc.d -f $svc remove
4018 .
4019         done
4020         #pp_deb_service_remove_common | pp_prepend $pp_wrkdir/%preun.run
4021     fi
4022
4023 }
4024 pp_deb_fakeroot () {
4025     if test -s $pp_wrkdir/fakeroot.save; then
4026         fakeroot -i $pp_wrkdir/fakeroot.save -s $pp_wrkdir/fakeroot.save "$@"
4027     else
4028         fakeroot -s $pp_wrkdir/fakeroot.save "$@"
4029     fi
4030 }
4031
4032 pp_deb_make_DEBIAN() {
4033     local cmp="${1:-run}"
4034     local data cmp_full_name
4035     local old_umask
4036
4037     old_umask=`umask`
4038     umask 0022
4039     cmp_full_name=`pp_deb_cmp_full_name $cmp`
4040     data=$pp_wrkdir/$cmp_full_name
4041
4042     # Create DEBIAN dir $data/DEBIAN
4043     mkdir -p $data/DEBIAN
4044
4045     # Create control file
4046     pp_deb_make_control $cmp > $data/DEBIAN/control
4047
4048     # Copy in conffiles
4049     if test -f $pp_wrkdir/%conffiles.$cmp; then
4050         cp $pp_wrkdir/%conffiles.$cmp $data/DEBIAN/conffiles
4051     fi
4052
4053     # Create postinst
4054     pp_deb_make_package_maintainer_script "$data/DEBIAN/postinst" \
4055         "$pp_wrkdir/%post.$cmp" "Post install script for $cmp_full_name"\
4056         || exit $?
4057
4058     # Create prerm
4059     pp_deb_make_package_maintainer_script "$data/DEBIAN/prerm" \
4060         "$pp_wrkdir/%preun.$cmp" "Pre-uninstall script for $cmp_full_name"\
4061         || exit $?
4062
4063     # Create postrm
4064     pp_deb_make_package_maintainer_script "$data/DEBIAN/postrm" \
4065         "$pp_wrkdir/%postun.$cmp" "Post-uninstall script for $cmp_full_name"\
4066         || exit $?
4067
4068     umask $old_umask
4069 }
4070
4071 pp_deb_make_data() {
4072     local _l t m o g f p st data
4073     local data share_doc owner group
4074     cmp=$1
4075     data=$pp_wrkdir/`pp_deb_cmp_full_name $cmp`
4076     cat $pp_wrkdir/%files.${cmp} | while read t m o g f p st; do
4077         if test x"$m" = x"-"; then
4078             case "$t" in
4079                 d) m=755;;
4080                 f) m=644;;
4081             esac
4082         fi
4083         test x"$o" = x"-" && o=root
4084         test x"$g" = x"-" && g=root
4085         case "$t" in
4086         f) # Files
4087            pp_deb_fakeroot install -D -o $o -g $g -m ${m} $pp_destdir/$p $data/$p;
4088            if [ x"$f" = x"v" ]
4089            then
4090                # File marked as "volatile". Assume this means it's a conffile
4091                # TODO: check this as admins like modified conffiles to be left
4092                #       behind
4093                echo "$p" >> $pp_wrkdir/%conffiles.$cmp
4094            fi;;
4095
4096         d) # Directories
4097            pp_deb_fakeroot install -m ${m} -o $o -g $g -d $data/$p;;
4098
4099         s) # Symlinks
4100            # Remove leading / from vars
4101            rel_p=`echo $p | sed s,^/,,`
4102            rel_st=`echo $st | sed s,^/,,`
4103            # TODO: we are always doing absolute links here. We should follow
4104            # the debian policy of relative links when in the same top-level
4105            # directory
4106            (cd $data; ln -sf $st $rel_p);;
4107             *) pp_error "Unsupported data file type: $t";;
4108         esac
4109     done
4110
4111     # If no copyright file is present add one. This is a debian requirement.
4112     share_doc="/usr/share/doc/`pp_deb_cmp_full_name $cmp`"
4113     if [ ! -f "$data/$share_doc/copyright" ]
4114     then
4115         echo "${pp_deb_copyright:-$copyright}" > "$pp_wrkdir/copyright"
4116         install -D -m 644 "$pp_wrkdir/copyright" "$data/$share_doc/copyright"
4117     fi
4118
4119 }
4120
4121 pp_deb_makedeb () {
4122     local cmp
4123     local package_build_dir
4124
4125     cmp="$1"
4126
4127     package_build_dir=$pp_wrkdir/`pp_deb_cmp_full_name $cmp`
4128
4129     # Create package dir
4130     mkdir -p $package_build_dir
4131
4132     # Copy in data
4133     pp_deb_make_data $cmp ||
4134         pp_die "Could not make DEBIAN data files for $cmp"
4135
4136     # Make control files
4137     # must be done after copying data so conffiles are found
4138     pp_deb_make_DEBIAN $cmp ||
4139         pp_die "Could not make DEBIAN control files for $cmp"
4140
4141     # Create md5sums
4142     pp_deb_make_md5sums $cmp `(cd $package_build_dir;
4143         find . -type f -a -not -name DEBIAN | sed "s,^\./,,")` ||
4144             pp_die "Could not make DEBIAN md5sums for $cmp"
4145 }
4146
4147 pp_backend_deb () {
4148     local debname
4149
4150     # Handle services
4151     pp_deb_handle_services $cmp
4152
4153     for cmp in $pp_components
4154     do
4155         debname=`pp_deb_name $cmp`
4156         pp_deb_makedeb $cmp
4157     done
4158
4159     . $pp_wrkdir/%fixup
4160
4161     for cmp in $pp_components
4162     do
4163         debname=`pp_deb_name $cmp`
4164         # Create debian package
4165         pp_debug "Building `pp_deb_cmp_full_name $cmp` -> $output"
4166         pp_deb_fakeroot dpkg-deb \
4167             --build $pp_wrkdir/`pp_deb_cmp_full_name $cmp` \
4168             $pp_wrkdir/$debname ||
4169                 pp_error "failed to create $cmp package"
4170     done
4171 }
4172
4173 pp_backend_deb_cleanup () {
4174     # rm -rf $pp_wrkdir
4175     :
4176 }
4177
4178 pp_deb_name () {
4179     local cmp="${1:-run}"
4180     echo `pp_deb_cmp_full_name $cmp`"_"`pp_deb_version_final`"-${pp_deb_release:-1}_${pp_deb_arch}.deb"
4181 }
4182 pp_backend_deb_names () {
4183     for cmp in $pp_components
4184     do
4185         pp_deb_name $cmp
4186     done
4187 }
4188
4189 pp_backend_deb_install_script () {
4190     local cmp _cmp_full_name
4191
4192     echo "#!/bin/sh"
4193     pp_install_script_common
4194
4195     cat <<.
4196
4197         cmp_to_pkgname () {
4198             test x"\$*" = x"all" &&
4199                 set -- $pp_components
4200             for cmp
4201             do
4202                 case \$cmp in
4203 .
4204     for cmp in $pp_components; do
4205          echo "$cmp) echo '`pp_deb_cmp_full_name $cmp`';;"
4206     done
4207     cat <<.
4208                 *) usage;;
4209                 esac
4210             done
4211         }
4212
4213
4214         cmp_to_pathname () {
4215             test x"\$*" = x"all" &&
4216                 set -- $pp_components
4217             for cmp
4218             do
4219                 case \$cmp in
4220 .
4221     for cmp in $pp_components; do
4222          echo "$cmp) echo \${PP_PKGDESTDIR:-.}/'`pp_deb_name $cmp`';;"
4223     done
4224     cat <<.
4225                 *) usage;;
4226                 esac
4227             done
4228         }
4229
4230         test \$# -eq 0 && usage
4231         op="\$1"; shift
4232         case "\$op" in
4233             list-components)
4234                 test \$# -eq 0 || usage \$op
4235                 echo $pp_components
4236                 ;;
4237             list-services)
4238                 test \$# -eq 0 || usage \$op
4239                 echo $pp_services
4240                 ;;
4241             list-files)
4242                 test \$# -ge 1 || usage \$op
4243                 cmp_to_pathname "\$@"
4244                 ;;
4245             install)
4246                 test \$# -ge 1 || usage \$op
4247                 dpkg --install \`cmp_to_pathname "\$@"\`
4248                 ;;
4249             uninstall)
4250                 test \$# -ge 1 || usage \$op
4251                 dpkg --remove \`cmp_to_pkgname "\$@"\`; :
4252                 ;;
4253             start|stop)
4254                 test \$# -ge 1 || usage \$op
4255                 ec=0
4256                 for svc
4257                 do
4258                     /etc/init.d/\$svc \$op || ec=1
4259                 done
4260                 exit \$ec
4261                 ;;
4262             print-platform)
4263                 test \$# -eq 0 || usage \$op
4264                 echo "linux-${pp_deb_arch}"
4265                 ;;
4266             *)
4267                 usage
4268                 ;;
4269         esac
4270 .
4271 }
4272
4273 pp_backend_deb_probe() {
4274     local arch distro release
4275
4276     pp_deb_detect_arch
4277
4278     # /etc/debian_version exists on Debian & Ubuntu, so it's no use
4279     # to us. Use lsb_release instead.
4280
4281     case `(lsb_release -is || echo no-lsb) 2>/dev/null` in
4282         Debian)
4283             distro=deb
4284             ;;
4285         Ubuntu)
4286             distro=ubu
4287             ;;
4288         no-lsb)
4289             echo unknown-$pp_deb_arch_std
4290             return 0
4291             ;;
4292         *)
4293             distro=unknown
4294             ;;
4295     esac
4296
4297     release=`lsb_release -rs`
4298
4299     # If release is not numeric, use the codename
4300     case $release in
4301         *[!.0-9r]*)
4302             release=`lsb_release -cs`
4303             case $release in
4304                 buzz)
4305                     release="11"
4306                     ;;
4307                 rex)
4308                     release="12"
4309                     ;;
4310                 bo)
4311                     release="13"
4312                     ;;
4313                 hamm)
4314                     release="20"
4315                     ;;
4316                 slink)
4317                     release="21"
4318                     ;;
4319                 potato)
4320                     release="22"
4321                     ;;
4322                 woody)
4323                     release="30"
4324                     ;;
4325                 sarge)
4326                     release="31"
4327                     ;;
4328                 etch)
4329                     release="40"
4330                     ;;
4331                 lenny)
4332                     release="50"
4333                     ;;
4334                 squeeze)
4335                     release="60"
4336                     ;;
4337             esac
4338             ;;
4339         *)
4340             # Remove trailing revision number and any dots
4341             release=`echo $release | cut -dr -f1 | tr -d .`
4342             ;;
4343     esac
4344
4345     echo $distro$release-$pp_deb_arch_std
4346 }
4347
4348 pp_backend_deb_vas_platforms () {
4349     case "$pp_deb_arch_std" in
4350         x86_64) echo "linux-x86_64.deb";; # DO NOT add linux-x86.deb here!!
4351         *86)    echo "linux-x86.deb";;
4352         *)      pp_die "unknown architecture ${pp_deb_arch_std}";;
4353     esac
4354 }
4355 pp_backend_deb_init_svc_vars () {
4356
4357     reload_signal=
4358     start_runlevels=${pp_deb_default_start_runlevels-"2 3 4 5"} # == lsb default-start
4359     stop_runlevels=${pp_deb_default_stop_runlevels-"0 1 6"}     # == lsb default-stop
4360     svc_description="${pp_deb_default_svc_description}" # == lsb short descr
4361     svc_process=
4362
4363     lsb_required_start='$local_fs $network'
4364     lsb_should_start=
4365     lsb_required_stop=
4366     lsb_description=
4367
4368     start_priority=50
4369     stop_priority=50            #-- stop_priority = 100 - start_priority
4370 }
4371
4372 pp_deb_service_make_init_script () {
4373     local svc=$1
4374     local script=/etc/init.d/$svc
4375     local out=$pp_destdir$script
4376     local _process _cmd
4377
4378     pp_add_file_if_missing $script run 755 || return 0
4379
4380     #-- start out as an empty shell script
4381     cat <<-'.' >$out
4382         #!/bin/sh
4383 .
4384
4385     #-- determine the process name from $cmd unless $svc_process is given
4386     set -- $cmd
4387     #_process=${svc_process:-"$1"} --? WTF
4388
4389     #-- construct a start command that builds a pid file if needed
4390     #-- the command name in /proc/[pid]/stat is limited to 15 characters
4391     _cmd="$cmd";
4392     _cmd_path=`echo $cmd | cut -d" " -f1`
4393     _cmd_name=`basename $_cmd_path | cut -c1-15`
4394     _cmd_args=`echo $cmd | cut -d" " -f2-`
4395     test x"$_cmd_path" != x"$_cmd_args" || _cmd_args=
4396
4397     #-- generate the LSB init info
4398     cat <<-. >>$out
4399         ### BEGIN INIT INFO
4400         # Provides: ${svc}
4401         # Required-Start: ${lsb_required_start}
4402         # Should-Start: ${lsb_should_start}
4403         # Required-Stop: ${lsb_required_stop}
4404         # Default-Start: ${start_runlevels}
4405         # Default-Stop: ${stop_runlevels}
4406         # Short-Description: ${svc_description:-no description}
4407         ### END INIT INFO
4408         # Generated by PolyPackage ${pp_version}
4409         # ${copyright}
4410
4411 .
4412
4413     if test x"${svc_description}" = x"${pp_deb_default_svc_description}"; then
4414         svc_description=
4415     fi
4416
4417     #-- write service-specific definitions
4418     cat <<. >>$out
4419 NAME="${_cmd_name}"
4420 DESC="${svc_description:-$svc service}"
4421 USER="${user}"
4422 GROUP="${group}"
4423 PIDFILE="${pidfile}"
4424 STOP_SIGNAL="${stop_signal}"
4425 RELOAD_SIGNAL="${reload_signal}"
4426 CMD="${_cmd}"
4427 DAEMON="${_cmd_path}"
4428 DAEMON_ARGS="${_cmd_args}"
4429 SCRIPTNAME=${script}
4430 .
4431
4432     #-- write the generic part of the init script
4433     cat <<'.' >>$out
4434
4435 [ -x "$DAEMON" ] || exit 0
4436
4437 [ -r /etc/default/$NAME ] && . /etc/default/$NAME
4438
4439 [ -f /etc/default/rcS ] && . /etc/default/rcS
4440
4441 . /lib/lsb/init-functions
4442
4443 do_start()
4444 {
4445         # Return
4446         #   0 if daemon has been started
4447         #   1 if daemon was already running
4448         #   2 if daemon could not be started
4449     if [ -n "$PIDFILE" ]
4450     then
4451         pidfile_opt="--pidfile $PIDFILE"
4452     else
4453         pidfile_opt="--make-pidfile --background --pidfile /var/run/$NAME.pid"
4454     fi
4455     if [ -n "$USER" ]
4456     then
4457         user_opt="--user $USER"
4458     fi
4459     if [ -n "$GROUP" ]
4460     then
4461         group_opt="--group $GROUP"
4462     fi
4463     if [ "$VERBOSE" = no ]
4464     then
4465         quiet_opt="--quiet"
4466     else
4467         quiet_opt="--verbose"
4468     fi
4469
4470         start-stop-daemon --start $quiet_opt $pidfile_opt $user_opt --exec $DAEMON --test > /dev/null \
4471             || return 1
4472
4473     # Note: there seems to be no way to tell whether the daemon will fork itself or not, so pass
4474     # --background for now
4475     start-stop-daemon --start $quiet_opt $pidfile_opt $user_opt --exec $DAEMON -- \
4476         $DAEMON_ARGS \
4477         || return 2
4478 }
4479
4480 do_stop()
4481 {
4482         # Return
4483         #   0 if daemon has been stopped
4484         #   1 if daemon was already stopped
4485         #   2 if daemon could not be stopped
4486         #   other if a failure occurred
4487     if [ -n "$PIDFILE" ]
4488     then
4489         pidfile_opt="--pidfile $PIDFILE"
4490     else
4491         pidfile_opt="--pidfile /var/run/$NAME.pid"
4492     fi
4493     if [ -n "$USER" ]
4494     then
4495         user_opt="--user $USER"
4496     fi
4497     if [ -n $STOP_SIGNAL ]
4498     then
4499         signal_opt="--signal $STOP_SIGNAL"
4500     fi
4501     if [ "$VERBOSE" = "no" ]
4502     then
4503         quiet_opt="--quiet"
4504     else
4505         quiet_opt="--verbose"
4506     fi
4507         start-stop-daemon --stop $quiet_opt $signal_opt --retry=TERM/30/KILL/5 $pidfile_opt --name $NAME
4508         RETVAL="$?"
4509         [ "$RETVAL" = 2 ] && return 2
4510         # Wait for children to finish too if this is a daemon that forks
4511         # and if the daemon is only ever run from this initscript.
4512         # If the above conditions are not satisfied then add some other code
4513         # that waits for the process to drop all resources that could be
4514         # needed by services started subsequently.  A last resort is to
4515         # sleep for some time.
4516         start-stop-daemon --stop $quiet_opt --oknodo --retry=0/30/KILL/5 --exec $DAEMON
4517         [ "$?" = 2 ] && return 2
4518         # Many daemons don't delete their pidfiles when they exit.
4519         test -z $PIDFILE || rm -f $PIDFILE
4520         return "$RETVAL"
4521 }
4522
4523 do_reload() {
4524         #
4525         # If the daemon can reload its configuration without
4526         # restarting (for example, when it is sent a SIGHUP),
4527         # then implement that here.
4528         #
4529     if [ -n "$PIDFILE" ]
4530     then
4531         pidfile_opt="--pidfile $PIDFILE"
4532     else
4533         pidfile_opt="--pidfile /var/run/$NAME.pid"
4534     fi
4535     if [ -n "$RELOAD_SIGNAL" ]
4536     then
4537             start-stop-daemon --stop --signal $RELOAD_SIGNAL $quiet_opt $pidfile_opt --name $NAME
4538     fi
4539         return 0
4540 }
4541
4542 case "$1" in
4543   start)
4544         [ "$VERBOSE" != no ] && log_daemon_msg "Starting $DESC" "$NAME"
4545         do_start
4546         case "$?" in
4547                 0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
4548                 2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
4549         esac
4550         ;;
4551   stop)
4552         [ "$VERBOSE" != no ] && log_daemon_msg "Stopping $DESC" "$NAME"
4553         do_stop
4554         case "$?" in
4555                 0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
4556                 2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
4557         esac
4558         ;;
4559   reload|force-reload)
4560     if [ -n "$RELOAD_SIGNAL" ]
4561     then
4562             log_daemon_msg "Reloading $DESC" "$NAME"
4563             do_reload
4564             log_end_msg $?
4565     else
4566         # Do a restart instead
4567         "$0" restart
4568     fi
4569         ;;
4570   restart)
4571         #
4572         # If the "reload" option is implemented then remove the
4573         # 'force-reload' alias
4574         #
4575         log_daemon_msg "Restarting $DESC" "$NAME"
4576         do_stop
4577         case "$?" in
4578           0|1)
4579                 do_start
4580                 case "$?" in
4581                         0) log_end_msg 0 ;;
4582                         1) log_end_msg 1 ;; # Old process is still running
4583                         *) log_end_msg 1 ;; # Failed to start
4584                 esac
4585                 ;;
4586           *)
4587                 # Failed to stop
4588                 log_end_msg 1
4589                 ;;
4590         esac
4591         ;;
4592   *)
4593         #echo "Usage: $SCRIPTNAME {start|stop|restart|reload|force-reload}" >&2
4594         echo "Usage: $SCRIPTNAME {start|stop|restart|force-reload}" >&2
4595         exit 3
4596         ;;
4597 esac
4598
4599 :
4600 .
4601     chmod 755 $out
4602 }
4603 pp_backend_deb_function() {
4604     case $1 in
4605         pp_mkgroup) cat<<'.';;
4606             /usr/sbin/groupmod "$1" 2>/dev/null && return 0
4607             /usr/sbin/groupadd "$1"
4608 .
4609         pp_mkuser:depends) echo pp_mkgroup;;
4610         pp_mkuser) cat<<'.';;
4611             pp_tmp_system=
4612             id -u "$1" >/dev/null 2>/dev/null && return 0
4613             # deb 3.1's useradd changed API in 4.0. Gah!
4614             /usr/sbin/useradd --help 2>&1 | /bin/grep -q .--system &&
4615                 pp_tmp_system=--system
4616             pp_mkgroup "${2:-$1}" || return 1
4617             /usr/sbin/useradd \
4618                 -g "${2:-$1}" \
4619                 -d "${3:-/nonexistent}" \
4620                 -s "${4:-/bin/false}" \
4621                 $pp_tmp_system \
4622                 "$1"
4623 .
4624         pp_havelib) cat<<'.';;
4625             for pp_tmp_dir in `echo "/usr/lib:/lib${3:+:$3}" | tr : ' '`; do
4626                 test -r "$pp_tmp_dir/lib$1.so{$2:+.$2}" && return 0
4627             done
4628             return 1
4629 .
4630     *) false;;
4631     esac
4632 }
4633
4634 pp_platforms="$pp_platforms kit"
4635
4636 pp_backend_kit_detect () {
4637     test x"$1" = x"OSF1"
4638 }
4639
4640 pp_backend_kit_init () {
4641         pp_kit_name=
4642         pp_kit_package=
4643         pp_kit_desc=
4644         pp_kit_version=
4645         pp_kit_subset=
4646         pp_readlink_fn=pp_ls_readlink
4647         pp_kit_startlevels="2 3"
4648         pp_kit_stoplevels="0 2 3"
4649 }
4650
4651 pp_backend_kit () {
4652     typeset mi_file k_file svc outfile
4653     typeset desc
4654
4655     pp_backend_kit_names > /dev/null
4656
4657     if test -z "$pp_kit_desc"; then
4658         pp_kit_desc="$description"
4659     fi
4660
4661     mi_file="$pp_wrkdir/$pp_kit_subset.mi"
4662     k_file="$pp_wrkdir/$pp_kit_subset.k"
4663     scp_file="$pp_wrkdir/$pp_kit_subset.scp"
4664
4665     desc="${pp_kit_desc:-$description}"
4666
4667     cat <<-. >> $k_file
4668         NAME='$name'
4669         CODE=$pp_kit_name
4670         VERS=$pp_kit_version
4671         MI=$mi_file
4672         COMPRESS=0
4673         %%
4674         $pp_kit_subset  .       0       '$desc'
4675 .
4676
4677     if test -n "$pp_services"; then
4678         for svc in $pp_services; do
4679             pp_kit_make_service $svc
4680             pp_prepend $pp_wrkdir/%preun.run <<-.
4681                 /sbin/init.d/$svc stop
4682 .
4683          done
4684     fi
4685
4686     pp_backend_kit_make_mi "$mi_file"
4687     pp_backend_kit_make_scp
4688     #rm -rf  $pp_wrkdir/kit_dest
4689     mkdir -p $pp_wrkdir/kit_dest
4690     pp_backend_kit_kits $k_file $pp_opt_destdir $pp_wrkdir/kit_dest
4691     tar cvf $pp_wrkdir/$pp_kit_subset.tar -C $pp_wrkdir/kit_dest .
4692     gzip -c $pp_wrkdir/$pp_kit_subset.tar > $pp_wrkdir/$pp_kit_subset.tar.gz
4693     #rm -rf $pp_wrkdir/$pp_kit_subset.tar $pp_wrkdir/scps
4694 }
4695
4696 pp_backend_kit_make_mi () {
4697     # XXX this information should go into the .inv files
4698     typeset t m o g f p st line dm
4699     while read t m o g f p st; do
4700         case $t in
4701             f|d)
4702                 echo "0 .$p     $pp_kit_subset"
4703                 echo "        chmod $m $p" >> $pp_wrkdir/%post.run
4704                 if [ x"$o" = x"-" ] ; then
4705                     echo "        chown root $p" >> $pp_wrkdir/%post.run
4706                 else
4707                     echo "        chown $o $p" >> $pp_wrkdir/%post.run
4708                 fi
4709                 if [ x"$g" = x"-" ] ; then
4710                     echo "        chgrp 0 $p" >> $pp_wrkdir/%post.run
4711                 else
4712                     echo "        chgrp $g $p" >> $pp_wrkdir/%post.run
4713                 fi
4714                 ;;
4715             s)
4716                 echo "        ln -s $st $p" >> $pp_wrkdir/%post.run
4717                 echo "        rm -f $p" >> $pp_wrkdir/%preun.run
4718                 ;;
4719          esac
4720     done < $pp_wrkdir/%files.run | sort -k3  |uniq > $1
4721 }
4722
4723
4724 pp_backend_kit_make_scp () {
4725     scpdir="$pp_wrkdir/scps"
4726     mkdir "$scpdir" && touch "$scpdir"/$pp_kit_subset.scp
4727     cat <<EOF >"$scpdir"/$pp_kit_subset.scp
4728
4729     . /usr/share/lib/shell/libscp
4730
4731     case "\$ACT" in
4732     PRE_L)
4733     STL_ScpInit
4734
4735
4736
4737     ;;
4738     POST_L)
4739         STL_ScpInit
4740         STL_LinkCreate
4741 EOF
4742
4743     cat $pp_wrkdir/%post.run >>"$scpdir"/$pp_kit_subset.scp
4744     cat >>"$scpdir"/$pp_kit_subset.scp <<EOF
4745     ;;
4746     PRE_D)
4747         STL_ScpInit
4748         STL_LinkRemove
4749 EOF
4750     cat $pp_wrkdir/%preun.run >>"$scpdir"/$pp_kit_subset.scp
4751     cat >>"$scpdir"/$pp_kit_subset.scp <<EOF
4752         ;;
4753     POST_D)
4754
4755         ;;
4756     C)
4757         STL_ScpInit
4758
4759         case "\$1" in
4760         INSTALL)
4761         echo "Installation of the \$_DESC (\$_SUB) subset is complete."
4762         ;;
4763     DELETE)
4764         ;;
4765     esac
4766
4767         ;;
4768     V)
4769
4770         ;;
4771     esac
4772
4773     exit 0
4774 EOF
4775     chmod 744 "$scpdir"/$pp_kit_subset.scp
4776 }
4777
4778
4779 pp_backend_kit_cleanup () {
4780     :
4781 }
4782
4783 pp_backend_kit_names () {
4784     if test -z "$pp_kit_name"; then
4785         pp_warn "pp_kit_name not specified, using XXX"
4786         pp_kit_name=XXX
4787     fi
4788     case "$pp_kit_name" in
4789         ???) : ok;;
4790         *) pp_error "\$pp_kit_name $pp_kit_name must be three characters";;
4791     esac
4792     if test -z "$pp_kit_package"; then
4793         pp_warn "pp_kit_package not specified, using YYYY"
4794         pp_kit_package=YYYY
4795     fi
4796     if test -z "$pp_kit_version"; then
4797         pp_kit_version=`echo $version|tr -d '.a-zA-Z'`
4798     fi
4799     case "$pp_kit_version" in
4800         [0-9]) pp_kit_version="${pp_kit_version}00";;
4801         [0-9][0-9]) pp_kit_version="${pp_kit_version}0";;
4802         [0-9][0-9][0-9]) : ok;;
4803         *) pp_error "\$pp_kit_version $pp_kit_version must be three digits, ";;
4804     esac
4805     if test -z "$pp_kit_subset"; then
4806         pp_kit_subset="$pp_kit_name$pp_kit_package$pp_kit_version"
4807     fi
4808     echo "$pp_kit_subset.tar.gz"
4809 }
4810
4811 pp_backend_kit_install_script () {
4812     typeset pkgname platform
4813
4814     pkgname=`pp_backend_kit_names`
4815     platform="`pp_backend_kit_probe`"
4816
4817     echo "#!/bin/sh"
4818     pp_install_script_common
4819     cat <<.
4820
4821         cpt_to_tags () {
4822             test x"\$*" = x"all" && set -- $pp_components
4823             for cpt
4824             do
4825                 echo "$name.\$cpt"
4826             done
4827         }
4828
4829         test \$# -eq 0 && usage
4830         op="\$1"; shift
4831
4832         case "\$op" in
4833             list-components)
4834                 test \$# -eq 0 || usage \$op
4835                 echo "$pp_components"
4836                 ;;
4837             list-services)
4838                 test \$# -eq 0 || usage \$op
4839                 echo "$pp_services"
4840                 ;;
4841             list-files)
4842                 test \$# -ge 1 || usage \$op
4843                 echo \${PP_PKGDESTDIR:-.}/$pkgname
4844                 ;;
4845             install)
4846                 test \$# -ge 1 || usage \$op
4847                 verbose echo \${PP_PKGDESTDIR:-\`pwd\`}/$pkgname \`cpt_to_tags "\$@"\`
4848                 #verbose swinstall -x verbose=0 -s \${PP_PKGDESTDIR:-\`pwd\`}/$pkgname \`cpt_to_tags "\$@"\`
4849                 ;;
4850             uninstall)
4851                 test \$# -ge 1 || usage \$op
4852                 verbose echo \`cpt_to_tags "\$@"\`
4853                 #verbose swremove -x verbose=0 \`cpt_to_tags "\$@"\`
4854                 ;;
4855             start|stop)
4856                 test \$# -ge 1 || usage \$op
4857                 ec=0
4858                 for svc
4859                 do
4860                     verbose /sbin/init.d/\$svc \$op
4861                     [ \$? -eq 4 -o \$? -eq 0 ] || ec=1
4862                 done
4863                 exit \$ec
4864                 ;;
4865             print-platform)
4866                 echo "$platform"
4867                 ;;
4868             *)
4869                 usage
4870                 ;;
4871         esac
4872 .
4873 }
4874
4875 pp_backend_kit_function () {
4876     case "$1" in
4877         pp_mkgroup) cat <<'.';;
4878             grep "^$1:" /etc/group >/dev/null ||
4879                 /usr/sbin/groupadd $1
4880 .
4881         pp_mkuser) cat <<'.';;
4882             eval user=\$$#
4883             grep "^$user:" /etc/passwd >/dev/null ||
4884                 /usr/sbin/useradd -s /usr/bin/false "$@"
4885 .
4886         pp_havelib) cat <<'.';;
4887             for dir in `echo /usr/lib${3+:$3} | tr : ' '`; do
4888                 test -r "$dir/lib$1.${2-sl}" && return 0
4889             done
4890             return 1
4891 .
4892         *) pp_error "unknown function request: $1";;
4893     esac
4894 }
4895
4896 pp_backend_kit_init_svc_vars () {
4897     :
4898 }
4899
4900 pp_backend_kit_probe () {
4901     echo tru64-`uname -r | sed 's/V\([0-9]*\)\.\([0-9]*\)/\1\2/'`
4902 }
4903
4904 pp_kit_service_group_script () {
4905     typeset grp svcs scriptpath out
4906     grp="$1"
4907     svcs="$2"
4908     scriptpath="/sbin/init.d/$grp"
4909     out="$pp_destdir$scriptpath"
4910
4911     pp_add_file_if_missing $scriptpath run 755 || return 0
4912
4913     cat <<-. > $out
4914         #!/sbin/sh
4915         # generated by pp $pp_version
4916         svcs="$svcs"
4917 .
4918
4919 cat <<-'.' >> $out
4920         #-- starts services in order.. stops them all if any break
4921         pp_start () {
4922             undo=
4923             for svc in $svcs; do
4924                 /sbin/init.d/$svc start
4925                 case $? in
4926                     0|4)
4927                         undo="$svc $undo"
4928                         ;;
4929                     *)
4930                         if test -n "$undo"; then
4931                         for svc in $undo; do
4932                             /sbin/init.d/$svc stop
4933                         done
4934                         return 1
4935                         fi
4936                         ;;
4937                 esac
4938             done
4939             return 0
4940         }
4941
4942         #-- stops services in reverse
4943         pp_stop () {
4944             reverse=
4945                 for svc in $svcs; do
4946                     reverse="$svc $reverse"
4947                 done
4948                 rc=0
4949                 for svc in $reverse; do
4950                     /sbin/init.d/$svc stop || rc=$?
4951                 done
4952                 return $rc
4953         }
4954
4955         case $1 in
4956             start_msg) echo "Starting $svcs";;
4957         stop_msg)  echo "Stopping $svcs";;
4958         start)     pp_start;;
4959         stop)      pp_stop;;
4960         *)         echo "usage: $0 {start|stop|start_msg|stop_msg}"
4961             exit 1;;
4962         esac
4963 .
4964 }
4965
4966 pp_kit_service_script () {
4967     typeset svc scriptpath out
4968
4969     svc="$1"
4970     scriptpath="/sbin/init.d/$svc"
4971
4972     pp_load_service_vars "$svc"
4973
4974     test -n "$user" -a x"$user" != x"root" &&
4975     cmd="SHELL=/usr/bin/sh /usr/bin/su $user -c \"exec `echo $cmd | sed -e 's,[$\\\`],\\&,g'`\""
4976     if test -z "$pidfile"; then
4977         pidfile="/var/run/$svc.pid"
4978         cmd="$cmd & echo \$! > \$pidfile"
4979     fi
4980
4981     pp_add_file_if_missing $scriptpath run 755
4982
4983     cat <<-. > $pp_destdir$scriptpath
4984         svc="$svc"
4985         pidfile="$pidfile"
4986
4987         pp_start () {
4988             $cmd
4989         }
4990 .
4991     cat <<-'.' >>$pp_destdir$scriptpath
4992             pp_stop () {
4993                 if test ! -s "$pidfile"; then
4994                     echo "Unable to stop $svc (no pid file)"
4995                         return 1
4996                 else
4997                     read pid < "$pidfile"
4998                     if kill -0 "$pid" 2>/dev/null; then
4999                         if kill -${stop_signal:-TERM} "$pid"; then
5000                             rm -f "$pidfile"
5001                             return 0
5002                         else
5003                             echo "Unable to stop $svc"
5004                             return 1
5005                         fi
5006                     else
5007                         rm -f "$pidfile"
5008                         return 0
5009                     fi
5010                 fi
5011             }
5012
5013             pp_running () {
5014                 if test ! -s "$pidfile"; then
5015                     return 1
5016                 else
5017                     read pid < "$pidfile"
5018                     kill -0 "$pid" 2>/dev/null
5019                 fi
5020             }
5021             case $1 in
5022                 start_msg) echo "Starting the $svc service";;
5023                 stop_msg)  echo "Stopping the $svc service";;
5024                 start)
5025                     if pp_running; then
5026                         echo "$svc already running";
5027                         exit 0
5028                     elif pp_start; then
5029                         echo "$svc started";
5030         # rc(1M) says we should exit 4, but nobody expects it!
5031                         exit 0
5032                     else
5033                         exit 1
5034                     fi
5035                     ;;
5036                 stop)
5037                     if pp_stop; then
5038                         echo "$svc stopped";
5039                         exit 0
5040                     else
5041                         exit 1
5042                     fi
5043                     ;;
5044                 *) echo "usage: $0 {start|stop|start_msg|stop_msg}"
5045                    exit 1
5046                    ;;
5047             esac
5048 .
5049 }
5050
5051 pp_kit_make_service () {
5052     typeset level priority startlevels stoplevels
5053     typeset svc svcvar
5054
5055     svc="$1"
5056     svcvar=`pp_makevar $svc`
5057
5058     #-- don't do anything if the script exists
5059     if test -s "$pp_destdir/sbin/init.d/$svc"; then
5060         pp_error "$pp_destdir/sbin/init.d/$svc exists"
5061         return
5062     fi
5063
5064     # symlink the script, depending on the priorities chosen
5065     eval priority='${pp_kit_priority_'$svcvar'}'
5066     test -z "$priority" && priority="${pp_kit_priority:-50}"
5067
5068     eval startlevels='${pp_kit_startlevels_'$svcvar'}'
5069     test -z "$startlevels" && startlevels="$pp_kit_startlevels"
5070
5071     eval stoplevels='${pp_kit_stoplevels_'$svcvar'}'
5072     test -z "$stoplevels" && stoplevels="$pp_kit_stoplevels"
5073
5074     # create the script and config file
5075     pp_kit_service_script $svc
5076
5077     # fix the priority up
5078     case "$priority" in
5079         ???) :;;
5080         ??) priority=0$priority;;
5081         ?) priority=00$priority;;
5082     esac
5083
5084     if test x"$stoplevels" = x"auto"; then
5085         stoplevels=
5086         test -z "$startlevels" || for level in $startlevels; do
5087             stoplevels="$stoplevels `expr $level - 1`"
5088         done
5089     fi
5090
5091     # create the symlinks
5092     test -z "$startlevels" || for level in $startlevels; do
5093         echo "        ln -s /sbin/init.d/$svc /sbin/rc$level.d/S$priority$svc" >>$pp_wrkdir/%post.run
5094         echo "        rm /sbin/rc$level.d/S$priority$svc" >>$pp_wrkdir/%preun.run
5095     done
5096     test -z "$stoplevels" || for level in $stoplevels; do
5097         echo "        ln -s /sbin/init.d/$svc /sbin/rc$level.d/K$priority$svc" >>$pp_wrkdir/%post.run
5098         echo "        rm -f /sbin/rc$level.d/K$priority$svc" >>$pp_wrkdir/%preun.run
5099     done
5100 }
5101
5102
5103
5104
5105 pp_backend_kit_sizes () {
5106     awk '
5107     BEGIN { root = usr = var = 0; }
5108     {
5109         if (substr($9, 1, 1) != "l")
5110             if (substr($10, 1, 6) == "./var/")
5111                 var += $2;
5112             else if (substr($10, 1, 10) == "./usr/var/")
5113                 var += $2
5114             else if (substr($10, 1, 6) == "./usr/")
5115                 usr += $2
5116             else
5117                 root += $2
5118     }
5119     END { printf "%d\t%d\t%d", root, usr, var }
5120     ' "$@"
5121 }
5122
5123 pp_kit_kits_global () {
5124     line=`sed -n '/^%%/q;/^'$2'=/{s/^'$2'=//p;q;}' <"$1"`
5125     test -z "$line" && return 1
5126     eval "echo $line"
5127     :
5128 }
5129
5130 pp_backend_kit_kits () {
5131     typeset KITFILE FROMDIR TODIR
5132     typeset SCPDIR
5133
5134     SCPDIR="$pp_wrkdir/scps"
5135
5136     PATH="/usr/lbin:/usr/bin:/etc:/usr/ucb:$PATH"; export PATH # XXX
5137     #umask 2 # XXX
5138
5139     test $# -ge 3 || pp_die "pp_backend_kit_kits: too few arguments"
5140     KITFILE="$1"; shift
5141     FROMDIR="$1"; shift
5142     TODIR="$1"; shift
5143
5144     test -f "$KITFILE" || pp_die "$KITFILE not found"
5145     test -d "$FROMDIR" || pp_die "$FROMDIR not found"
5146     test -d "$TODIR"   || pp_die "$TODIR not found"
5147
5148     INSTCTRL="$TODIR/instctrl"
5149     mkdir -p "$INSTCTRL" || pp_die "cannot create instctrl directory"
5150     chmod 775 "$INSTCTRL"
5151
5152     grep "%%" $KITFILE > /dev/null || pp_die "no %% in $KITFILE"
5153
5154     typeset NAME CODE VERS MI ROOT COMPRESS
5155     typeset S_LIST ALLSUBS
5156
5157     NAME=`pp_kit_kits_global "$KITFILE" NAME` || pp_die "no NAME in $KITFILE"
5158     CODE=`pp_kit_kits_global "$KITFILE" CODE` || pp_die "no CODE in $KITFILE"
5159     VERS=`pp_kit_kits_global "$KITFILE" VERS` || pp_die "no VERS in $KITFILE"
5160     MI=`pp_kit_kits_global "$KITFILE" MI` || pp_die "no MI in $KITFILE"
5161     ROOT=`pp_kit_kits_global "$KITFILE" ROOT`
5162     COMPRESS=`pp_kit_kits_global "$KITFILE" COMPRESS`
5163
5164     test -f "$MI" || pp_die "Inventory file $MI not found"
5165
5166     case "$ROOT" in
5167     *ROOT)
5168         test -f "$TODIR/$ROOT" ||
5169             pp_die "Root image $ROOT not found in $TODIR" ;;
5170     esac
5171
5172     ALLSUBS=`awk 'insub==1 {print $1} /^%%/ {insub=1}' <"$KITFILE"`
5173     test $# -eq 0 && set -- $ALLSUBS
5174
5175     pp_debug "Creating $# $NAME subsets."
5176     pp_debug "ALLSUBS=<$ALLSUBS>"
5177
5178     if test x"$COMPRESS" = x"1"; then
5179         COMPRESS=:
5180     else
5181         COMPRESS=false
5182     fi
5183
5184     #rm -f *.ctrl Volume*
5185
5186     for SUB
5187     do
5188         test -z "$SUB" && pp_die "SUB is empty"
5189
5190         typeset INV CTRL ROOTSIZE USRSIZE VARSIZE TSSUB
5191         #rm -f Volume*
5192         case $SUB in
5193             .*) :;;
5194             *)  pp_verbose rm -f "$TODIR/$SUB"* "$INSTCTRL/$SUB"*;;
5195         esac
5196
5197         TSSUB="$pp_wrkdir/ts.$SUB"
5198
5199         pp_debug "kits: Subset $SUB"
5200
5201         INV="$SUB.inv"
5202         CTRL="$SUB.ctrl"
5203         pp_debug "kits: Generating media creation information..."
5204
5205         # Invcutter takes as input
5206         #   SUB dir/path
5207         # and generates stl_inv(4) files, like this
5208         #   f 0 00000 0 0 100644 2/11/09 010 f dir/path none SUB
5209         grep "  $SUB\$" "$MI" |
5210             pp_verbose /usr/lbin/invcutter \
5211                 -v "$VERS" -f "$FROMDIR" > "$INSTCTRL/$INV" ||
5212             pp_die "failed to create $INSTCTRL/$INV"
5213         chmod 664 "$INSTCTRL/$INV"
5214
5215         pp_backend_kit_sizes "$INSTCTRL/$INV" > "$pp_wrkdir/kit.sizes"
5216         read ROOTSIZE USRSIZE VARSIZE < "$pp_wrkdir/kit.sizes"
5217
5218         # Prefix each line with $FROMDIR. This will be stripped
5219         awk '$1 != "d" {print from $10}' from="$FROMDIR/" \
5220             > "$TSSUB" < "$INSTCTRL/$INV" ||
5221             pp_die "failed"
5222
5223         NVOLS=0
5224
5225         pp_debug "kits: Creating $SUB control file..."
5226
5227         sed '1,/^%%/d;/^'"$SUB"'/{p;q;}' < "$KITFILE" > "$pp_wrkdir/kit.line"
5228         read _SUB _IGNOR DEPS FLAGS DESC < "$pp_wrkdir/kit.line"
5229         if test -z "$_SUB"; then
5230             pp_warn "No such subset $SUB in $KITFILE"
5231             continue
5232         fi
5233         DEPS=`echo $DEPS | tr '|' ' '`
5234         case $FLAGS in
5235             FLGEXP*) pp_verbose FLAGS='"${'"$FLAGS"'}"' ;;
5236         esac
5237         case $DESC in
5238             *%*) DESC=`echo $DESC|awk -F% '{printf "%-36s%%%s\n", $1, $2}'`;;
5239         esac
5240
5241         cat > "$INSTCTRL/$CTRL" <<-.
5242                 NAME='$NAME $SUB'
5243                 DESC=$DESC
5244                 ROOTSIZE=$ROOTSIZE
5245                 USRSIZE=$USRSIZE
5246                 VARSIZE=$VARSIZE
5247                 NVOLS=1:$NVOLS
5248                 MTLOC=1:$TLOC
5249                 DEPS="$DEPS"
5250                 FLAGS=$FLAGS
5251 .
5252         chmod 664 "$INSTCTRL/$CTRL"
5253
5254         pp_debug "kits: Making tar image"
5255
5256         pp_verbose tar cfPR "$TODIR/$SUB" "$FROMDIR/" "$TSSUB" ||
5257              pp_error "problem creating kit file"
5258
5259         if $COMPRESS; then
5260             pp_debug "kits: Compressing"
5261             (cd "$TODIR" && compress -f -v "$SUB") ||
5262                 pp_die "problem compressing $TODIR/$SUB"
5263             SPC=`expr $SUB : '\(...\).*'`    # first three characters
5264             SVC=`expr $SUB : '.*\(...\)'`    # last three characters
5265             : > "$INSTCTRL/$SPC$SVC.comp"
5266             chmod 664 "$INSTCTRL/$SPC$SVC.comp"
5267             pp_debug "kits: Padding compressed file to 10kB" # wtf?
5268             rm -f "$TODIR/$SUB"
5269             pp_verbose \
5270             dd if="$TODIR/$SUB.Z" of="$TODIR/$SUB" bs=10k conv=sync ||
5271                 pp_die "problem moving compressed file"
5272             rm -f "$TODIR/$SUB.Z"
5273         fi
5274         chmod 664 "$TODIR/$SUB"
5275
5276         if test -f "$SCPDIR/$SUB.scp"; then
5277                 cp "$SCPDIR/$SUB.scp" "$INSTCTRL/$SUB.scp"
5278                 chmod 755 "$INSTCTRL/$SUB.scp"
5279         else
5280                 pp_debug "kits: null subset control program for $SUB"
5281                 : > "$INSTCTRL/$SUB.scp"
5282                 chmod 744 "$INSTCTRL/$SUB.scp"
5283         fi
5284
5285         pp_debug "kits: Finished creating media image for $SUB"
5286     done
5287
5288     pp_debug "kits: Creating $CODE.image"
5289
5290     case "$ROOT" in
5291     *ROOT)      ALLSUBS="$ROOT $ALLSUBS"
5292                 ;;
5293     esac
5294
5295     (cd "$TODIR" && sum $ALLSUBS) > "$INSTCTRL/$CODE.image"
5296     chmod 664 "$INSTTRL/$CODE.image"
5297     pp_debug "kits: Creating INSTCTRL"
5298     (cd "$INSTCTRL" && tar cpvf - *) > "$TODIR/INSTCTRL"
5299     chmod 664 "$TODIR/INSTCTRL"
5300     cp "$INSTCTRL/$CODE.image" "$TODIR/$CODE.image"
5301     chmod 664 "$TODIR/$CODE.image"
5302
5303     pp_debug "kits: Media image production complete"
5304 }
5305
5306 pp_platforms="$pp_platforms rpm"
5307
5308 pp_backend_rpm_detect () {
5309     test x"$1" = x"Linux" -a ! -f /etc/debian_version
5310 }
5311
5312 pp_backend_rpm_init () {
5313
5314     pp_rpm_version=
5315     pp_rpm_summary=
5316     pp_rpm_description=
5317     pp_rpm_group="Applications/Internet"
5318     pp_rpm_license="Unspecified"
5319     pp_rpm_vendor=
5320     pp_rpm_url=
5321     pp_rpm_packager=
5322     pp_rpm_provides=
5323     pp_rpm_requires=
5324     pp_rpm_release=
5325     pp_rpm_epoch=
5326     pp_rpm_dev_group="Development/Libraries"
5327     pp_rpm_dbg_group="Development/Tools"
5328     pp_rpm_doc_group="Documentation"
5329     pp_rpm_dev_description=
5330     pp_rpm_dbg_description=
5331     pp_rpm_doc_description=
5332     pp_rpm_dev_requires=
5333     pp_rpm_dbg_requires=
5334     pp_rpm_doc_requires=
5335     pp_rpm_dev_provides=
5336     pp_rpm_dbg_provides=
5337     pp_rpm_doc_provides=
5338
5339     pp_rpm_dbg_pkgname=debug
5340     pp_rpm_dev_pkgname=devel
5341     pp_rpm_doc_pkgname=doc
5342
5343     pp_rpm_defattr_uid=root
5344     pp_rpm_defattr_gid=root
5345
5346     pp_rpm_detect_arch
5347     pp_rpm_detect_distro
5348     pp_rpm_rpmbuild=`pp_rpm_detect_rpmbuild`
5349
5350     # SLES8 doesn't always come with readlink
5351     test -x /usr/bin/readlink -o -x /bin/readlink ||
5352         pp_readlink_fn=pp_ls_readlink
5353 }
5354
5355 pp_rpm_detect_arch () {
5356     pp_rpm_arch=auto
5357
5358     #-- Find the default native architecture that RPM is configured to use
5359     cat <<-. >$pp_wrkdir/dummy.spec
5360         Name: dummy
5361         Version: 1
5362         Release: 1
5363         Summary: dummy
5364         Group: ${pp_rpm_group}
5365         License: ${pp_rpm_license}
5366         %description
5367         dummy
5368 .
5369     $pp_opt_debug && cat $pp_wrkdir/dummy.spec
5370     pp_rpm_arch_local=`rpm -q --qf '%{arch}\n' --specfile $pp_wrkdir/dummy.spec`
5371     rm $pp_wrkdir/dummy.spec
5372
5373     #-- Ask the kernel what machine architecture is in use
5374     local arch
5375     for arch in "`uname -m`" "`uname -p`"; do
5376         case "$arch" in
5377             i?86)
5378                 pp_rpm_arch_std=i386
5379                 break
5380                 ;;
5381             x86_64|ppc|ppc64|ia64|s390|s390x)
5382                 pp_rpm_arch_std="$arch"
5383                 break
5384                 ;;
5385             powerpc)
5386                 # Probably AIX
5387                 case "`/usr/sbin/lsattr -El proc0 -a type -F value`" in
5388                     PowerPC_POWER*)     pp_rpm_arch_std=ppc64;;
5389                     *)                  pp_rpm_arch_std=ppc;;
5390                 esac
5391                 break
5392                 ;;
5393             *)  pp_rpm_arch_std=unknown
5394                 ;;
5395         esac
5396     done
5397
5398     #-- Later on, when files are processed, we use 'file' to determine
5399     #   what platform ABIs are used. This is used when pp_rpm_arch == auto
5400     pp_rpm_arch_seen=
5401 }
5402
5403 pp_rpm_detect_distro () {
5404     pp_rpm_distro=
5405     if test -f /etc/whitebox-release; then
5406        pp_rpm_distro=`awk '
5407           /^White Box Enterprise Linux release/ { print "wbel" $6; exit; }
5408        ' /etc/whitebox-release`
5409     elif test -f /etc/mandrakelinux-release; then
5410        pp_rpm_distro=`awk '
5411           /^Mandrakelinux release/ { print "mand" $3; exit; }
5412        ' /etc/mandrake-release`
5413     elif test -f /etc/mandrake-release; then
5414        pp_rpm_distro=`awk '
5415           /^Linux Mandrake release/ { print "mand" $4; exit; }
5416           /^Mandrake Linux release/ { print "mand" $4; exit; }
5417        ' /etc/mandrake-release`
5418     elif test -f /etc/fedora-release; then
5419        pp_rpm_distro=`awk '
5420           /^Fedora Core release/ { print "fc" $4; exit; }
5421           /^Fedora release/ { print "f" $3; exit; }
5422        ' /etc/fedora-release`
5423     elif test -f /etc/redhat-release; then
5424        pp_rpm_distro=`awk '
5425           /^Red Hat Enterprise Linux/ { print "rhel" $7; exit; }
5426           /^CentOS release/           { print "centos" $3; exit; }
5427           /^Red Hat Linux release/    { print "rh" $5; exit; }
5428        ' /etc/redhat-release`
5429     elif test -f /etc/SuSE-release; then
5430        pp_rpm_distro=`awk '
5431           /^SuSE Linux [0-9]/ { print "suse" $3; exit; }
5432           /^SUSE LINUX [0-9]/ { print "suse" $3; exit; }
5433           /^openSUSE [0-9]/   { print "suse" $2; exit; }
5434           /^S[uU]SE Linux Enterprise Server [0-9]/ { print "sles" $5; exit; }
5435           /^S[uU]SE LINUX Enterprise Server [0-9]/ { print "sles" $5; exit; }
5436           /^SuSE SLES-[0-9]/  { print "sles" substr($2,6); exit; }
5437        ' /etc/SuSE-release`
5438     elif test -f /etc/pld-release; then
5439        pp_rpm_distro=`awk '
5440           /^[^ ]* PLD Linux/ { print "pld" $1; exit; }
5441        ' /etc/pld-release`
5442     elif test X"`uname -s 2>/dev/null`" = X"AIX"; then
5443         local r v
5444         r=`uname -r`
5445         v=`uname -v`
5446         pp_rpm_distro="aix$v$r"
5447     fi
5448     pp_rpm_distro=`echo $pp_rpm_distro | tr -d .`
5449     test -z "$pp_rpm_distro" &&
5450        pp_warn "unknown distro"
5451 }
5452
5453 pp_rpm_detect_rpmbuild () {
5454     local cmd
5455     for cmd in rpmbuild rpm; do
5456         if `which $cmd > /dev/null 2>&1`; then
5457             echo $cmd
5458             return 0
5459         fi
5460     done
5461
5462     pp_error "Could not find rpmbuild"
5463     # Default to `rpmbuild` in case it magically appears
5464     echo rpmbuild
5465     return 1
5466 }
5467
5468 pp_rpm_label () {
5469     local label arg
5470     label="$1"; shift
5471     for arg
5472     do
5473         test -z "$arg" || echo "$label: $arg"
5474     done
5475 }
5476
5477 pp_rpm_writefiles () {
5478     local _l t m o g f p st fo farch
5479     while read t m o g f p st; do
5480         _l="$p"
5481         test $t = d && _l="%dir ${_l%/}/"
5482         if test x"$m" = x"-"; then
5483             case "$t" in
5484                 d) m=755;;
5485                 f) m=644;;
5486             esac
5487         fi
5488         test x"$o" = x"-" && o="${pp_rpm_defattr_uid:-root}"
5489         test x"$g" = x"-" && g="${pp_rpm_defattr_gid:-root}"
5490         _l="%attr($m,$o,$g) $_l"
5491
5492         if test "$t" = "f" -a x"$pp_rpm_arch" = x"auto"; then
5493             fo=`file "${pp_destdir}$p" 2>/dev/null`
5494             #NB: The following should match executables and shared objects,
5495             #relocatable objects. It will not match .a files however.
5496             case "$fo" in
5497                 *": ELF 32-bit LSB "*", Intel 80386"*)
5498                     farch=i386;;
5499                 *": ELF 64-bit LSB "*", AMD x86-64"*|\
5500                 *": ELF 64-bit LSB "*", x86-64"*)
5501                     farch=x86_64;;
5502                 *": ELF 32-bit MSB "*", PowerPC"*)
5503                     farch=ppc;;
5504                 *": ELF 64-bit MSB "*", 64-bit PowerPC"*)
5505                     farch=ppc64;;
5506                 *": ELF 64-bit LSB "*", IA-64"*)
5507                     farch=ia64;;
5508                 *": ELF 32-bit MSB "*", IBM S/390"*)
5509                     farch=s390;;
5510                 *": ELF 64-bit MSB "*", IBM S/390"*)
5511                     farch=s390x;;
5512                 *"executable (RISC System/6000)"*)
5513                     farch=ppc;;
5514                 *"64-bit XCOFF executable"*)
5515                     farch=ppc64;;
5516                 *" ELF "*)
5517                     farch=ELF;;
5518                 *)
5519                     farch=noarch;;
5520             esac
5521             # If file(1) doesn't provide enough info, try readelf(1)
5522             if test "$farch" = "ELF"; then
5523                 fo=`readelf -h "${pp_destdir}$p" | awk '{if ($1 == "Class:") {class=$2} else if ($1 == "Machine:") {machine=$0; sub(/^ *Machine: */, "", machine)}} END {print class " " machine}' 2>/dev/null`
5524                 case "$fo" in
5525                     "ELF32 Intel 80386")
5526                         farch=i386;;
5527                     "ELF64 "*[xX]"86-64")
5528                         farch=x86_64;;
5529                     "ELF32 PowerPC")
5530                         farch=ppc;;
5531                     "ELF64 PowerPC"*)
5532                         farch=ppc64;;
5533                     "ELF64 IA-64")
5534                         farch=ia64;;
5535                     "ELF32 IBM S/390")
5536                         farch=s390;;
5537                     "ELF64 IBM S/390")
5538                         farch=s390x;;
5539                     *)
5540                         farch=noarch;;
5541                 esac
5542             fi
5543             pp_debug "file: $fo -> $farch"
5544             test x"$farch" = x"noarch" || pp_add_to_list pp_rpm_arch_seen $farch
5545         fi
5546
5547         case $f in *v*) _l="%config(noreplace) $_l";; esac
5548         echo "$_l"
5549     done
5550     echo
5551 }
5552
5553 pp_rpm_subname () {
5554     case "$1" in
5555         run) : ;;
5556         dbg) echo "${2}${pp_rpm_dbg_pkgname}";;
5557         dev) echo "${2}${pp_rpm_dev_pkgname}";;
5558         doc) echo "${2}${pp_rpm_doc_pkgname}";;
5559         *)   pp_error "unknown component '$1'";
5560     esac
5561 }
5562
5563 pp_rpm_depend () {
5564     local _name _vers
5565     while read _name _vers; do
5566         case "$_name" in ""| "#"*) continue ;; esac
5567         echo "Requires: $_name ${_vers:+>= $_vers}"
5568     done
5569 }
5570
5571 pp_rpm_conflict () {
5572     local _name _vers
5573     while read _name _vers; do
5574         case "$_name" in ""| "#"*) continue ;; esac
5575         echo "Conflicts: $_name ${_vers:+>= $_vers}"
5576     done
5577 }
5578
5579 pp_rpm_override_requires () {
5580     local orig_find_requires
5581
5582     if test -z "$pp_rpm_depend_filter_cmd"; then
5583         return 0
5584     fi
5585
5586     orig_find_requires=`rpm --eval '%{__find_requires}'`
5587     cat << EOF > "$pp_wrkdir/filtered-find-requires"
5588 $orig_find_requires \$@ | $pp_rpm_depend_filter_cmd
5589 EOF
5590     chmod +x "$pp_wrkdir/filtered-find-requires"
5591     echo "%define __find_requires $pp_wrkdir/filtered-find-requires"
5592     # Might be necessary for old versions of RPM? Not for 4.4.2.
5593     #echo "%define _use_internal_dependency_generator 0"
5594 }
5595
5596 pp_backend_rpm () {
5597     local cmp specfile _summary _group _desc _pkg _subname svc
5598
5599         specfile=$pp_wrkdir/$name.spec
5600         : > $specfile
5601
5602         #-- force existence of a 'run' component
5603         pp_add_component run
5604         : >> $pp_wrkdir/%files.run
5605
5606         if test -z "$pp_rpm_arch"; then
5607             pp_error "Unknown RPM architecture"
5608             return 1
5609         fi
5610
5611         #-- Write the header components of the RPM spec file
5612         cat <<-. >>$specfile
5613                 Name: ${pp_rpm_name:-$name}
5614                 Version: ${pp_rpm_version:-$version}
5615                 Release: ${pp_rpm_release:-1}
5616                 Summary: ${pp_rpm_summary:-$summary}
5617                 Group:   ${pp_rpm_group}
5618                 License: ${pp_rpm_license}
5619 .
5620         if test -n "$pp_rpm_url"; then
5621             pp_rpm_label "URL"  "$pp_rpm_url"               >>$specfile
5622         fi
5623         pp_rpm_label "Vendor"   "${pp_rpm_vendor:-$vendor}" >>$specfile
5624         pp_rpm_label "Packager" "$pp_rpm_packager"          >>$specfile
5625         pp_rpm_label "Provides" "$pp_rpm_provides"          >>$specfile
5626         pp_rpm_label "Requires" "$pp_rpm_requires"          >>$specfile
5627
5628         test -n "$pp_rpm_serial" && pp_warn "pp_rpm_serial deprecated"
5629         if test -n "$pp_rpm_epoch"; then
5630             #-- Epoch was introduced in RPM 2.5.6
5631             case `$pp_rpm_rpmbuild --version 2>/dev/null` in
5632                 1.*|2.[0-5].*|2.5.[0-5])
5633                     pp_rpm_label "Serial" $pp_rpm_epoch >>$specfile;;
5634                 *)
5635                     pp_rpm_label "Epoch" $pp_rpm_epoch >>$specfile;;
5636             esac
5637         fi
5638
5639         if test -n "$pp_rpm_requires"; then
5640             pp_rpm_label "Requires" "$pp_rpm_requires" >>$specfile
5641         elif test -s $pp_wrkdir/%depend.run; then
5642             pp_rpm_depend < $pp_wrkdir/%depend.run >> $specfile
5643         fi
5644         if test -s $pp_wrkdir/%conflict.run; then
5645             pp_rpm_conflict < $pp_wrkdir/%conflict.run >> $specfile
5646         fi
5647
5648         pp_rpm_override_requires >> $specfile
5649
5650         cat <<-. >>$specfile
5651
5652                 %description
5653                 ${pp_rpm_description:-$description}
5654 .
5655
5656         for cmp in $pp_components; do
5657                 case $cmp in
5658                    run) continue;;
5659                    dev) _summary="development tools for $pp_rpm_summary"
5660                         _group="$pp_rpm_dev_group"
5661                         _desc="${pp_rpm_dev_description:-Development libraries for $name. $pp_rpm_description.}"
5662                         ;;
5663                    doc) _summary="documentation for $pp_rpm_summary"
5664                         _group="$pp_rpm_doc_group"
5665                         _desc="${pp_rpm_doc_description:-Documentation for $name. $pp_rpm_description.}"
5666                         ;;
5667                    dbg) _summary="diagnostic tools for $pp_rpm_summary"
5668                         _group="$pp_rpm_dbg_group"
5669                         _desc="${pp_rpm_dbg_description:-Diagnostic tools for $name.}"
5670                         ;;
5671                 esac
5672
5673                 _subname=`pp_rpm_subname $cmp`
5674                 cat <<-.
5675
5676                         %package $_subname
5677                         Summary: $name $_summary
5678                         Group: $_group
5679 .
5680                 eval '_pkg="$pp_rpm_'$cmp'_requires"'
5681                 if test -n "$_pkg"; then
5682                     eval pp_rpm_label Requires ${pp_rpm_name:-$name} $_pkg
5683                 elif test -s $pp_wrkdir/%depend.$cmp; then
5684                     pp_rpm_depend < $pp_wrkdir/%depend.$cmp >> $specfile
5685                 fi
5686                 if test -s $pp_wrkdir/%conflict.$cmp; then
5687                     pp_rpm_conflict < $pp_wrkdir/%conflict.$cmp >> $specfile
5688                 fi
5689
5690                 eval '_pkg="$pp_rpm_'$cmp'_provides"'
5691                 eval pp_rpm_label Provides $_pkg
5692
5693                 cat <<-.
5694
5695                         %description $_subname
5696                         $_desc
5697 .
5698         done >>$specfile
5699
5700         #-- NB: we don't put any %prep, %build or %install RPM sections
5701         #   into the spec file.
5702
5703         #-- add service start/stop code
5704         if test -n "$pp_services"; then
5705             pp_rpm_service_install_common >> $pp_wrkdir/%post.run
5706
5707             #-- record the uninstall commands in reverse order
5708             for svc in $pp_services; do
5709                 pp_load_service_vars $svc
5710
5711                 pp_rpm_service_make_init_script $svc
5712
5713                 #-- append %post code to install the svc
5714                 pp_rpm_service_install $svc >> $pp_wrkdir/%post.run
5715
5716                 #-- prepend %preun code to uninstall svc
5717                 # (use files in case vars are modified)
5718                 pp_rpm_service_remove $svc | pp_prepend $pp_wrkdir/%preun.run
5719             done
5720             pp_rpm_service_remove_common | pp_prepend $pp_wrkdir/%preun.run
5721         fi
5722
5723         # make convenience service groups
5724         if test -n "$pp_service_groups"; then
5725             for grp in $pp_service_groups; do
5726                 pp_rpm_service_group_make_init_script \
5727                     $grp "`pp_service_get_svc_group $grp`"
5728             done
5729         fi
5730
5731         #-- Write the RPM %file sections
5732         #   (do this after services, since services adds to %files.run)
5733         for cmp in $pp_components; do
5734             _subname=`pp_rpm_subname $cmp`
5735
5736             if test -s $pp_wrkdir/%check.$cmp; then
5737                 echo ""
5738                 echo "%pre $_subname"
5739                 cat $pp_wrkdir/%check.$cmp
5740                 echo :   # causes script to exit true by default
5741             fi
5742
5743             if test -s $pp_wrkdir/%files.$cmp; then
5744                 echo ""
5745                 echo "%files $_subname"
5746                 pp_rpm_writefiles < $pp_wrkdir/%files.$cmp
5747             fi
5748
5749             if test -n "$pp_rpm_ghost"; then
5750                 for ghost in $pp_rpm_ghost; do
5751                     echo "%ghost $ghost"
5752                 done
5753             fi
5754
5755             if test -s $pp_wrkdir/%pre.$cmp; then
5756                 echo ""
5757                 echo "%pre $_subname"
5758                 cat $pp_wrkdir/%pre.$cmp
5759                 echo :   # causes script to exit true
5760             fi
5761
5762             if test -s $pp_wrkdir/%post.$cmp; then
5763                 echo ""
5764                 echo "%post $_subname"
5765                 cat $pp_wrkdir/%post.$cmp
5766                 echo :   # causes script to exit true
5767             fi
5768
5769             if test -s $pp_wrkdir/%preun.$cmp; then
5770                 echo ""
5771                 echo "%preun $_subname"
5772                 cat $pp_wrkdir/%preun.$cmp
5773                 echo :   # causes script to exit true
5774             fi
5775
5776             if test -s $pp_wrkdir/%postun.$cmp; then
5777                 echo ""
5778                 echo "%postun $_subname"
5779                 cat $pp_wrkdir/%postun.$cmp
5780                 echo :   # causes script to exit true
5781             fi
5782         done >>$specfile
5783
5784         #-- create a suitable work area for rpmbuild
5785         cat <<-. >$pp_wrkdir/.rpmmacros
5786                 %_topdir $pp_wrkdir
5787                 # XXX Note escaped %% for use in headerSprintf
5788                 %_rpmfilename   %%{ARCH}/%%{NAME}-%%{VERSION}-%%{RELEASE}.%%{ARCH}.rpm
5789         .
5790         mkdir $pp_wrkdir/RPMS
5791         mkdir $pp_wrkdir/BUILD
5792
5793         if test x"$pp_rpm_arch" = x"auto"; then
5794             #-- Reduce the arch_seen list to exactly one item
5795             case "$pp_rpm_arch_seen" in
5796                 "i386 x86_64"|"x86_64 i386")
5797                     pp_rpm_arch_seen=x86_64;;
5798                 *"s390 s390x"* | *"s390x s390"* )
5799                     pp_rpm_arch_seen=s390x;;
5800                 *" "*)
5801                     pp_error "detected multiple targets: $pp_rpm_arch_seen"
5802                     pp_rpm_arch_seen=unknown;;      # not detected
5803                 "")
5804                     pp_warn "detected no binaries: using target noarch"
5805                     pp_rpm_arch_seen=noarch;;
5806                 *)
5807                     pp_debug "detected architecture $pp_rpm_arch_seen"
5808             esac
5809             pp_rpm_arch="$pp_rpm_arch_seen"
5810         fi
5811
5812         . $pp_wrkdir/%fixup
5813
5814 $pp_opt_debug && cat $specfile
5815
5816         pp_debug "creating: `pp_backend_rpm_names`"
5817
5818 pp_debug "pp_rpm_arch_seen = <${pp_rpm_arch_seen}>"
5819 pp_debug "pp_rpm_arch = <${pp_rpm_arch}>"
5820
5821         HOME=$pp_wrkdir \
5822         pp_verbose \
5823         $pp_rpm_rpmbuild -bb \
5824                 --buildroot="$pp_destdir/" \
5825                 --target="${pp_rpm_arch}" \
5826                 --define='_unpackaged_files_terminate_build 0' \
5827                 --define='_use_internal_dependency_generator 0' \
5828                 `$pp_opt_debug && echo --verbose || echo --quiet` \
5829                 $pp_rpm_rpmbuild_extra_flags \
5830                 $specfile ||
5831             pp_error "Problem creating RPM packages"
5832
5833         for f in `pp_backend_rpm_names`; do
5834             # The package might be in an arch-specific subdir
5835             pkgfile=not-found
5836             for dir in $pp_wrkdir/RPMS/${pp_rpm_arch} $pp_wrkdir/RPMS; do
5837                 if test -f $dir/$f; then
5838                     pkgfile=$dir/$f
5839                 fi
5840             done
5841             if test x"$pkgfile" = x"not-found"; then
5842                 pp_error "Problem predicting RPM filename: $f"
5843             else
5844                 ln $pkgfile $pp_wrkdir/$f
5845             fi
5846         done
5847 }
5848
5849 pp_rpm_output_name () {
5850     echo "${pp_rpm_name:-$name}`pp_rpm_subname "$1" -`-${pp_rpm_version:-$version}-${pp_rpm_release:-1}.${pp_rpm_arch}.rpm"
5851 }
5852
5853 pp_backend_rpm_names () {
5854     local cmp _subname
5855     for cmp in $pp_components; do
5856         pp_rpm_output_name $cmp
5857     done
5858 }
5859
5860 pp_backend_rpm_cleanup () {
5861     :
5862 }
5863
5864 pp_rpm_print_requires () {
5865     local _subname _name
5866
5867     echo "CPU:$pp_rpm_arch"
5868     ## XXX should be lines of the form (from file/ldd/objdump)
5869     #    EXEC:/bin/sh
5870     #    RTLD:libc.so.4:open
5871     rpm -q --requires -p $pp_wrkdir/`pp_rpm_output_name $1` |sed -e '/^rpmlib(/d;s/ //g;s/^/RPM:/' | sort -u
5872 }
5873
5874 pp_backend_rpm_install_script () {
5875     local cmp _subname
5876
5877     echo "#!/bin/sh"
5878     pp_install_script_common
5879
5880     cat <<.
5881
5882         cmp_to_pkgname () {
5883             local oi name
5884             if test x"\$1" = x"--only-installed"; then
5885                 #-- only print if installation detected
5886                 oi=false
5887                 shift
5888             else
5889                 oi=true
5890             fi
5891             test x"\$*" = x"all" &&
5892                 set -- $pp_components
5893             for cmp
5894             do
5895                 case \$cmp in
5896 .
5897     for cmp in $pp_components; do
5898         _subname=`pp_rpm_subname $cmp -`
5899          echo "$cmp) name=${pp_rpm_name:-$name}${_subname};;"
5900     done
5901     cat <<.
5902                 *) usage;;
5903                 esac
5904                 if \$oi || rpm -q "\$name" >/dev/null 2>/dev/null; then
5905                     echo "\$name"
5906                 fi
5907             done
5908         }
5909
5910
5911         cmp_to_pathname () {
5912             test x"\$*" = x"all" &&
5913                 set -- $pp_components
5914             for cmp
5915             do
5916                 case \$cmp in
5917 .
5918     for cmp in $pp_components; do
5919         echo "$cmp) echo \${PP_PKGDESTDIR:-.}/`pp_rpm_output_name $cmp` ;;"
5920     done
5921     cat <<.
5922                 *) usage;;
5923                 esac
5924             done
5925         }
5926
5927         print_requires () {
5928             test x"\$*" = x"all" &&
5929                 set -- $pp_components
5930             for cmp
5931             do
5932                 case \$cmp in
5933 .
5934     for cmp in $pp_components; do
5935         echo "$cmp) cat <<'._end'"
5936         pp_rpm_print_requires $cmp
5937         echo "._end"; echo ';;'
5938     done
5939     cat <<.
5940                 *) usage;;
5941                 esac
5942             done
5943         }
5944
5945         test \$# -eq 0 && usage
5946         op="\$1"; shift
5947         case "\$op" in
5948             list-components)
5949                 test \$# -eq 0 || usage \$op
5950                 echo $pp_components
5951                 ;;
5952             list-services)
5953                 test \$# -eq 0 || usage \$op
5954                 echo $pp_services
5955                 ;;
5956             list-files)
5957                 test \$# -ge 1 || usage \$op
5958                 cmp_to_pathname "\$@"
5959                 ;;
5960             install)
5961                 test \$# -ge 1 || usage \$op
5962                 verbose rpm -U --replacepkgs --oldpackage \
5963                     \`cmp_to_pathname "\$@"\`
5964                 ;;
5965             uninstall)
5966                 test \$# -ge 1 || usage \$op
5967                 pkgs=\`cmp_to_pkgname --only-installed "\$@"\`
5968                 if test -z "\$pkgs"; then
5969                     verbosemsg "nothing to uninstall"
5970                 else
5971                     verbose rpm -e \$pkgs
5972                 fi
5973                 ;;
5974             start|stop)
5975                 test \$# -ge 1 || usage \$op
5976                 ec=0
5977                 for svc
5978                 do
5979                     verbose /etc/init.d/\$svc \$op || ec=1
5980                 done
5981                 exit \$ec
5982                 ;;
5983             print-platform)
5984                 test \$# -eq 0 || usage \$op
5985                 echo "linux-${pp_rpm_arch}"
5986                 ;;
5987             print-requires)
5988                 test \$# -ge 1 || usage \$op
5989                 print_requires "\$@"
5990                 ;;
5991             *)
5992                 usage
5993                 ;;
5994         esac
5995 .
5996
5997 }
5998
5999 pp_backend_rpm_probe () {
6000         echo "${pp_rpm_distro}-${pp_rpm_arch_std}"
6001 }
6002
6003 pp_backend_rpm_vas_platforms () {
6004     case "$pp_rpm_arch_std" in
6005         x86_64) echo "linux-x86_64.rpm linux-x86.rpm";;
6006         *86)    echo "linux-x86.rpm";;
6007         s390)   echo "linux-s390";;
6008         s390x)  echo "linux-s390x";;
6009         ppc*)   echo "linux-glibc23-ppc64 linux-glibc22-ppc64";;
6010         ia64)   echo "linux-ia64";;
6011         *)      pp_die "unknown architecture $pp_rpm_arch_std";;
6012     esac
6013 }
6014
6015 pp_rpm_service_install_common () {
6016     cat <<-'.'
6017
6018         _pp_install_service () {
6019             local svc level
6020             svc="$1"
6021             if [ -x /usr/lib/lsb/install_initd -a ! -r /etc/redhat-release ]
6022             then
6023                 # LSB-style install
6024                 /usr/lib/lsb/install_initd /etc/init.d/$svc &> /dev/null
6025             elif [ -x /sbin/chkconfig ]; then
6026                 # Red Hat/chkconfig-style install
6027                 /sbin/chkconfig --add $svc &> /dev/null
6028                 /sbin/chkconfig $svc off &> /dev/null
6029             else
6030                 : # manual links under /etc/init.d
6031             fi
6032         }
6033
6034         _pp_enable_service () {
6035             local svc level
6036             svc="$1"
6037             if [ -x /usr/lib/lsb/install_initd -a ! -r /etc/redhat-release ]
6038             then
6039                 # LSB-style install
6040                 : # not sure how to enable
6041             elif [ -x /sbin/chkconfig ]; then
6042                 # Red Hat/chkconfig-style install
6043                 /sbin/chkconfig $svc on &> /dev/null
6044             else
6045                 # manual install
6046                 set -- `sed -n -e 's/^# Default-Start://p' /etc/init.d/$svc`
6047                 start_priority=`sed -n -e 's/^# X-Quest-Start-Priority:[[:space:]]*//p' /etc/init.d/$svc`
6048                 stop_priority=`sed -n -e 's/^# X-Quest-Stop-Priority:[[:space:]]*//p' /etc/init.d/$svc`
6049
6050                 # Provide default start & stop priorities of 20 & 80 in
6051                 # accordance with Debian update-rc.d defaults
6052                 if [ -z "$start_priority" ]; then
6053                     start_priority=20
6054                 fi
6055                 if [ -z "$stop_priority" ]; then
6056                     stop_priority=80
6057                 fi
6058
6059                 if [ -d "/etc/rc.d" ];then
6060                     rcdir=/etc/rc.d
6061                 else
6062                     rcdir=/etc
6063                 fi
6064
6065                 for level
6066                 do ln -sf /etc/init.d/$svc $rcdir/rc$level.d/S$start_priority$svc; done
6067                 set -- `sed -n -e 's/^# Default-Stop://p' /etc/init.d/$svc`
6068                 for level
6069                 do ln -sf /etc/init.d/$svc $rcdir/rc$level.d/K$stop_priority$svc; done
6070             fi
6071         }
6072 .
6073 }
6074
6075 pp_rpm_service_remove_common () {
6076     cat <<-'.'
6077
6078         _pp_remove_service () {
6079             local svc
6080             svc="$1"
6081             /etc/init.d/$svc stop >/dev/null 2>&1
6082             if [ -x /usr/lib/lsb/remove_initd -a ! -r /etc/redhat-release ]
6083             then
6084                 /usr/lib/lsb/remove_initd /etc/init.d/$svc &> /dev/null
6085             elif [ -x /sbin/chkconfig ]; then
6086                 /sbin/chkconfig --del $svc &> /dev/null
6087             else
6088                 if [ -d "/etc/rc.d" ];then
6089                     rcdir=/etc/rc.d
6090                 else
6091                     rcdir=/etc
6092                 fi
6093
6094                 rm -f $rcdir/rc?.d/[SK]??$svc
6095             fi
6096         }
6097 .
6098 }
6099
6100
6101 pp_rpm_service_install () {
6102     pp_rpm_service_make_init_script $1 >/dev/null ||
6103         pp_error "could not create init script for service $1"
6104     echo "_pp_install_service $1"
6105     test $enable = yes && echo "_pp_enable_service $1"
6106 }
6107
6108 pp_rpm_service_remove () {
6109     cat <<-.
6110         if [ "\$1" = "remove" -o "\$1" = "0" ]; then
6111             # only remove the service if not upgrade
6112             _pp_remove_service $1
6113         fi
6114 .
6115 }
6116
6117
6118 pp_backend_rpm_init_svc_vars () {
6119
6120     reload_signal=
6121     start_runlevels=${pp_rpm_default_start_runlevels-"2 3 4 5"} # == lsb default-start
6122     stop_runlevels=${pp_rpm_default_stop_runlevels-"0 1 6"} # == lsb default-stop
6123     svc_description="${pp_rpm_default_svc_description}" # == lsb short descr
6124     svc_process=
6125
6126     lsb_required_start='$local_fs $network'
6127     lsb_should_start=
6128     lsb_required_stop=
6129     lsb_description=
6130
6131     start_priority=50
6132     stop_priority=50            #-- stop_priority = 100 - start_priority
6133 }
6134
6135 pp_rpm_service_group_make_init_script () {
6136     local grp=$1
6137     local svcs="$2"
6138     local script=/etc/init.d/$grp
6139     local out=$pp_destdir$script
6140
6141     pp_add_file_if_missing $script run 755 || return 0
6142
6143     cat <<-. >>$out
6144         #!/bin/sh
6145         svcs="$svcs"
6146 .
6147
6148     cat <<-'.' >>$out
6149
6150         #-- prints usage message
6151         pp_usage () {
6152             echo "usage: $0 {start|stop|status|restart|reload|condrestart|try-restart|force-reload}" >&2
6153             return 2
6154         }
6155
6156         #-- starts services in order.. stops them all if any break
6157         pp_start () {
6158             undo=
6159             for svc in $svcs; do
6160                 if /etc/init.d/$svc start; then
6161                     undo="$svc $undo"
6162                 else
6163                     if test -n "$undo"; then
6164                         for svc in $undo; do
6165                            /etc/init.d/$svc stop
6166                         done
6167                         return 1
6168                     fi
6169                 fi
6170             done
6171             return 0
6172         }
6173
6174         #-- stops services in reverse
6175         pp_stop () {
6176             reverse=
6177             for svc in $svcs; do
6178                 reverse="$svc $reverse"
6179             done
6180             rc=0
6181             for svc in $reverse; do
6182                 /etc/init.d/$svc stop || rc=$?
6183             done
6184             return $rc
6185         }
6186
6187         #-- returns true only if all services return true status
6188         pp_status () {
6189             rc=0
6190             for svc in $svcs; do
6191                 /etc/init.d/$svc status || rc=$?
6192             done
6193             return $rc
6194         }
6195
6196         pp_reload () {
6197             rc=0
6198             for svc in $svcs; do
6199                 /etc/init.d/$svc reload || rc=$?
6200             done
6201             return $rc
6202         }
6203
6204         case "$1" in
6205             start)          pp_start;;
6206             stop)           pp_stop;;
6207             restart)        pp_stop; pp_start;;
6208             status)         pp_status;;
6209             try-restart|condrestart)
6210                             if pp_status >/dev/null; then
6211                                     pp_restart
6212                             fi;;
6213             reload)         pp_reload;;
6214             force-reload)   if pp_status >/dev/null; then
6215                                     pp_reload
6216                             else
6217                                     pp_restart
6218                             fi;;
6219             *)              pp_usage;;
6220         esac
6221 .
6222     chmod 755 $out
6223 }
6224
6225 pp_rpm_service_make_init_script () {
6226     local svc=$1
6227     local script=/etc/init.d/$svc
6228     local out=$pp_destdir$script
6229     local _process _cmd _rpmlevels
6230
6231     pp_add_file_if_missing $script run 755 || return 0
6232
6233     #-- start out as an empty shell script
6234     cat <<-'.' >$out
6235         #!/bin/sh
6236 .
6237
6238     #-- determine the process name from $cmd unless $svc_process is given
6239     set -- $cmd
6240     _process=${svc_process:-"$1"}
6241
6242     #-- construct a start command that builds a pid file if needed
6243     _cmd="$cmd";
6244     if test -z "$pidfile"; then
6245         pidfile=/var/run/$svc.pid
6246         _cmd="$cmd & echo \$! > \$pidfile"
6247     fi
6248     if test "$user" != "root"; then
6249         _cmd="su $user -c exec $_cmd";
6250     fi
6251
6252     #-- generate the Red Hat chkconfig headers
6253     _rpmlevels=`echo $start_runlevels | tr -d ' '`
6254     cat <<-. >>$out
6255         # chkconfig: ${_rpmlevels:--} ${start_priority:-50} ${stop_priority:-50}
6256         # description: ${svc_description:-no description}
6257         # processname: ${_process}
6258         # pidfile: ${pidfile}
6259 .
6260
6261     #-- generate the LSB init info
6262     cat <<-. >>$out
6263         ### BEGIN INIT INFO
6264         # Provides: ${svc}
6265         # Required-Start: ${lsb_required_start}
6266         # Should-Start: ${lsb_should_start}
6267         # Required-Stop: ${lsb_required_stop}
6268         # Default-Start: ${start_runlevels}
6269         # Default-Stop: ${stop_runlevels}
6270         # Short-Description: ${svc_description}
6271         ### END INIT INFO
6272         # Generated by PolyPackage ${pp_version}
6273         # ${copyright}
6274
6275 .
6276
6277     if test x"${svc_description}" = x"${pp_rpm_default_svc_description}"; then
6278         svc_description=
6279     fi
6280
6281     #-- write service-specific definitions
6282     cat <<. >>$out
6283         #-- definitions specific to service ${svc}
6284         svc_name="${svc_description:-$svc service}"
6285         user="${user}"
6286         pidfile="${pidfile}"
6287         stop_signal="${stop_signal}"
6288         reload_signal="${reload_signal}"
6289         pp_exec_cmd () { $_cmd; }
6290 .
6291
6292     #-- write the generic part of the init script
6293     cat <<'.' >>$out
6294
6295         #-- use system message logging, if available
6296         if [ -f /lib/lsb/init-functions -a ! -r /etc/redhat-release ]; then
6297             . /lib/lsb/init-functions
6298             pp_success_msg () { log_success_msg "$@"; }
6299             pp_failure_msg () { log_failure_msg "$@"; }
6300             pp_warning_msg () { log_warning_msg "$@"; }
6301         elif [ -f /etc/init.d/functions ]; then
6302             . /etc/init.d/functions
6303             pp_success_msg () { echo -n "$*"; success "$@"; echo; }
6304             pp_failure_msg () { echo -n "$*"; failure "$@"; echo; }
6305             pp_warning_msg () { echo -n "$*"; warning "$@"; echo; }
6306         else
6307             pp_success_msg () { echo ${1:+"$*:"} OK; }
6308             pp_failure_msg () { echo ${1:+"$*:"} FAIL; }
6309             pp_warning_msg () { echo ${1:+"$*:"} WARNING; }
6310         fi
6311
6312         #-- prints a status message
6313         pp_msg () { echo -n "$*: "; }
6314
6315         #-- prints usage message
6316         pp_usage () {
6317             echo "usage: $0 {start|stop|status|restart|reload|condrestart|try-restart|force-reload}" >&2
6318             return 2
6319         }
6320
6321         #-- reloads the service, if possible
6322         #   returns 0=success 1=failure 3=unimplemented
6323         pp_reload () {
6324             test -n "$reload_signal" || return 3 # unimplemented
6325             pp_msg "Reloading ${svc_name}"
6326             if pp_signal -${reload_signal}; then
6327                 pp_success_msg
6328                 return 0
6329             else
6330                 pp_failure_msg "not running"
6331                 return 1
6332             fi
6333         }
6334
6335         #-- delivers signal $1 to the pidfile
6336         #   returns 0=success 1=failure
6337         pp_signal () {
6338             if test -r "$pidfile"; then
6339                 read pid < $pidfile
6340                 kill "$@" "$pid" 2>/dev/null
6341             else
6342                 return 1
6343             fi
6344         }
6345
6346         #-- prints information about the service status
6347         #   returns 0=running 1=crashed 3=stopped
6348         pp_status () {
6349             pp_msg "Checking for ${svc_name}"
6350             if pp_signal -0; then
6351                 pp_success_msg "running"
6352                 return 0
6353             elif test -r "$pidfile"; then
6354                 pp_failure_msg "not running (crashed)"
6355                 return 1
6356             else
6357                 pp_failure_msg "not running"
6358                 return 3
6359             fi
6360         }
6361
6362         #-- starts the service
6363         #   returns 0=success 1=failure
6364         pp_start () {
6365             pp_msg "Starting ${svc_name}"
6366             if pp_status >/dev/null; then
6367                 pp_warning_msg "already started"
6368                 return 0
6369             elif pp_exec_cmd; then
6370                 pp_success_msg
6371                 return 0
6372             else
6373                 pp_failure_msg "cannot start"
6374                 return 1
6375             fi
6376         }
6377
6378         #-- stops the service
6379         #   returns 0=success (always)
6380         pp_stop () {
6381             pp_msg "Stopping ${svc_name}"
6382             if pp_signal -${stop_signal}; then
6383                 pp_success_msg
6384             else
6385                 pp_success_msg "already stopped"
6386             fi
6387             rm -f "$pidfile"
6388             return 0
6389         }
6390
6391         #-- stops and starts the service
6392         pp_restart () {
6393             pp_stop
6394             pp_start
6395         }
6396
6397         case "$1" in
6398             start)          pp_start;;
6399             stop)           pp_stop;;
6400             restart)        pp_restart;;
6401             status)         pp_status;;
6402             try-restart|condrestart)
6403                             if pp_status >/dev/null; then
6404                                     pp_restart
6405                             fi;;
6406             reload)         pp_reload;;
6407             force-reload)   if pp_status >/dev/null; then
6408                                     pp_reload
6409                             else
6410                                     pp_restart
6411                             fi;;
6412             *)              pp_usage;;
6413         esac
6414
6415 .
6416     chmod 755 $out
6417 }
6418 pp_backend_rpm_function () {
6419     case $1 in
6420         pp_mkgroup) cat<<'.';;
6421             /usr/sbin/groupadd -f -r "$1"
6422 .
6423         pp_mkuser:depends) echo pp_mkgroup;;
6424         pp_mkuser) cat<<'.';;
6425             pp_mkgroup "${2:-$1}" || return 1
6426             /usr/sbin/useradd \
6427                 -g "${2:-$1}" \
6428                 -M -d "${3:-/nonexistent}" \
6429                 -s "${4:-/bin/false}" \
6430                 -r "$1"
6431 .
6432         pp_havelib) cat<<'.';;
6433             for pp_tmp_dir in `echo "/usr/lib:/lib${3:+:$3}" | tr : ' '`; do
6434                 test -r "$pp_tmp_dir/lib$1.so{$2:+.$2}" && return 0
6435             done
6436             return 1
6437 .
6438         *) false;;
6439     esac
6440 }
6441
6442 : NOTES <<.
6443
6444  # creating a dmg file for publishing on the web
6445     hdiutil create -srcfolder /path/foo foo.dmg
6446     hdiutil internet-enable -yes /path/foo.dmg
6447  # Layout for packages
6448     <name>-<cpy>/component/<file>
6449     <name>-<cpt>/extras/postinstall
6450     <name>-<cpt>/extras/postupgrade
6451  # /Developer/usr/bin/packagemaker (man packagemaker)
6452
6453     Make a bunch of packages, and then build a 'distribution'
6454     which is only understood by macos>10.4
6455
6456  # Message files in the resource path used are
6457     Welcome.{rtf,html,rtfd,txt} - limited text shown in Intro
6458     ReadMe.{rtf,html,rtfd,txt} - scrollable/printable, after Intro
6459     License.{rtf,html,rtfd,txt} - ditto, user must click 'Accept'
6460     background.{jpg,tif,gif,pict,eps,pdf} 620x418 background image
6461
6462  # These scripts looked for in the resource path
6463     InstallationCheck $pkgpath $defaultloc $targetvol
6464         0:ok 32:warn 32+x:warn[1] 64:stop 96+x:stop[2]
6465     VolumeCheck $volpath
6466         0:ok 32:failure 32+x:failure[3]
6467     preflight   $pkgpath $targetloc $targetvol    [priv]
6468     preinstall  $pkgpath $targetloc $targetvol    [priv]
6469     preupgrade  $pkgpath $targetloc $targetvol    [priv]
6470     postinstall $pkgpath $targetloc $targetvol    [priv]
6471     postupgrade $pkgpath $targetloc $targetvol    [priv]
6472     postflight  $pkgpath $targetloc $targetvol    [priv]
6473         0:ok else fail (for all scripts)
6474
6475     A detailed reason is deduced by finding an index x (16..31)
6476     in the file InstallationCheck.strings or VolumeCheck.strings.
6477
6478     Scripts marked [priv] are executed with root privileges.
6479     None of the [priv] scripts are used by metapackages.
6480
6481  # Default permissions
6482     Permissions of existing directories should match those
6483     of a clean install of the OS; typically root:admin 0775
6484     New directories or files should be 0775 or 0664 with the
6485     appropriate user:group.
6486     Exceptions:
6487         /etc    root:admin 0755
6488         /var    root:admin 0755
6489
6490     <http://developer.apple.com/documentation/DeveloperTools/Conceptual/SoftwareDistribution4/Concepts/sd_pkg_flags.html>
6491     Info.plist = {
6492      CFBundleGetInfoString: "1.2.3, Quest Software, Inc.",
6493      CFBundleIdentifier: "com.quest.rc.openssh",
6494      CFBundleShortVersionString: "1.2.3",
6495      IFMajorVersion: 1,
6496      IFMinorVersion: 2,
6497      IFPkgFlagAllowBackRev: false,
6498      IFPkgFlagAuthorizationAction: "AdminAuthorization",
6499      IFPkgFlagDefaultLocation: "/",
6500      IFPkgFlagFollowLinks: true,
6501      IFPkgFlagInstallFat: false,
6502      IFPkgFlagInstalledSize: <integer>,     # this is added by packagemaker
6503      IFPkgFlagIsRequired: false,
6504      IFPkgFlagOverwritePermissions: false,
6505      IFPkgFlagRelocatable: false,
6506      IFPkgFlagRestartAction: "NoRestart",
6507      IFPkgFlagRootVolumeOnly: false,
6508      IFPkgFlagUpdateInstalledLanguages: false,
6509      IFPkgFormatVersion= 0.10000000149011612,
6510      IFRequirementDicts: [ {
6511        Level = "requires",
6512        SpecArgument = "/opt/quest/lib/libvas.4.2.0.dylib",
6513        SpecType = "file",
6514        TestObject = true,
6515        TestOperator = "eq", } ]
6516     }
6517
6518     Description.plist = {
6519      IFPkgDescriptionDescription = "this is the description text",
6520      IFPkgDescriptionTitle = "quest-openssh"
6521     }
6522
6523  # Startup scripts
6524     'launchd' is a kind of combined inetd and rc/init.d system.
6525     <http://developer.apple.com/documentation/MacOSX/Conceptual/BPSystemStartup/Articles/DesigningDaemons.html>
6526     Create a /Library/LaunchDaemons/$daemonname.plist file
6527     Examples found in /System/Library/LaunchDaemons/
6528     See manual page launchd.plist(5) for details:
6529
6530     { Label: "com.quest.vintela.foo",                        # required
6531       Program: "/sbin/program",
6532       ProgramArguments: [ "/sbin/program", "arg1", "arg2" ], # required
6533       RunAtLoad: true,
6534       WatchPaths: [ "/etc/crontab" ],
6535       QueueDirectories: [ "/var/cron/tabs" ],
6536       inetdCompatibility: { Wait: false },                   # inetd-only
6537       OnDemand: false,                                       # recommended
6538       SessionCreate: true,
6539       UserName: "nobody",
6540       InitGroups: true,
6541       Sockets: {                                             # inetd only
6542         Listeners: {
6543            SockServiceName: "ssh",
6544            Bonjour: ["ssh", "sftp-ssh"], } },
6545       Disabled: false,
6546       StandardErrorPath: "/dev/null",
6547     }
6548
6549
6550     How to add a new user
6551         dscl . -create /Users/$user
6552         dscl . -create /Users/$user UserShell /bin/bash
6553         dscl . -create /Users/$user RealName "$user"
6554         dscl . -create /Users/$user UniqueID $uid
6555         dscl . -create /Users/$user PrimaryGroupID $gid
6556         dscl . -create /Users/$user NFSHomeDirectory /Users/$user
6557         dscl . -passwd /Users/$user "$passwd"
6558         mkdir /Users/$user
6559         chown $uid.$gid /Users/$user
6560
6561 .
6562
6563
6564 pp_platforms="$pp_platforms macos"
6565
6566 pp_backend_macos_detect () {
6567     [ x"$1" = x"Darwin" ]
6568 }
6569
6570 pp_backend_macos_init () {
6571     pp_macos_default_bundle_id_prefix="com.quest.rc."
6572     pp_macos_bundle_id=
6573     pp_macos_bundle_vendor=
6574     pp_macos_bundle_version=
6575     pp_macos_bundle_info_string=
6576     pp_macos_pkg_type=bundle
6577     pp_macos_pkg_license=
6578     pp_macos_pkg_readme=
6579     pp_macos_pkg_welcome=
6580     pp_macos_sudo=sudo
6581     # OS X puts the library version *before* the .dylib extension
6582     pp_shlib_suffix='*.dylib'
6583 }
6584
6585 pp_macos_plist () {
6586     typeset in
6587     in=""
6588     while test $# -gt 0; do
6589      case "$1" in
6590
6591       start-plist) cat <<-.; in="  "; shift ;;
6592         <?xml version="1.0" encoding="UTF-8"?>
6593         <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
6594         <plist version="1.0">
6595 .
6596       end-plist) echo "</plist>"; in=; shift;;
6597
6598       '[')   echo "$in<array>"; in="$in  "; shift;;
6599       ']')   echo "$in</array>"; in="${in#  }"; shift;;
6600       '{')   echo "<dict>"; in="$in      "; shift;;
6601       '}')   echo "</dict>"; in="${in#      }"; shift;;
6602       key)         shift; echo "$in<key>$1</key>"; shift;;
6603       string)      shift;
6604                    echo "$1" | sed -e 's/&/&amp;/g;s/</\&lt;/g;s/>/\&gt;/g;' \
6605                                    -e 's/^/'"$in"'<string>/;s/$/<\/string>/';
6606                    shift;;
6607       true)        echo "$in<true/>"; shift;;
6608       false)       echo "$in<false/>"; shift;;
6609       real)        shift; echo "$in<real>$1</real>"; shift;;
6610       integer)     shift; echo "$in<integer>$1</integer>"; shift;;
6611       date)        shift; echo "$in<date>$1</date>"; shift;; # ISO 8601 format
6612       data)        shift; echo "$in<data>$1</data>"; shift;; # base64 encoded
6613       *)           pp_error "pp_macos_plist: bad argument '$1'"; shift;;
6614      esac
6615     done
6616 }
6617
6618 pp_macos_rewrite_cpio () {
6619     typeset script
6620     script=$pp_wrkdir/cpio-rewrite.pl
6621     cat <<-'.' >$script
6622         #!/usr/bin/perl
6623         #
6624         # Filter a cpio file, applying the user/group/mode specified in %files
6625         #
6626         # A CPIO header block has octal fields at the following offset/lengths:
6627         #   0  6 magic
6628         #   6  6 dev
6629         #  12  6 ino
6630         #  18  6 mode
6631         #  24  6 uid
6632         #  30  6 gid
6633         #  36  6 nlink
6634         #  42  6 rdev
6635         #  48 11 mtime
6636         #  59  6 namesize (including NUL terminator)
6637         #  65 11 filesize
6638         #  76    --
6639         #
6640         use strict;
6641         use warnings;
6642         no strict 'subs';
6643
6644         # set %uid, %gid, %mode based on %files
6645         my (%uid, %gid, %mode, %users, %groups);
6646         my %type_map = ( d => 0040000, f => 0100000, s => 0120000 );
6647         while (<DATA>) {
6648             my ($type,$mode,$uid,$gid,$flags,$name) =
6649                 m/^(.) (\S+) (\S+) (\S+) (\S+) (\S+)/;
6650             $mode = $type eq "f" ? "0644" : "0755" if $mode eq "-";
6651             $uid = 0 if $uid eq "-";
6652             $gid = 0 if $gid eq "-";
6653             if ($uid ne "=" and $uid =~ m/\D/) {
6654                 unless (exists $users{$uid}) {
6655                     my @pw = getpwnam($uid) or die "bad username '$uid'";
6656                     $users{$uid} = $pw[2];
6657                 }
6658                 $uid = $users{$uid};
6659             }
6660             if ($gid ne "=" and $gid =~ m/\D/) {
6661                 unless (exists $groups{$gid}) {
6662                     my @gr = getgrnam($gid) or die "bad group'$gid'";
6663                     $groups{$gid} = $gr[2];
6664                 }
6665                 $gid = $groups{$gid};
6666             }
6667             $name =~ s:/$:: if $type eq "d";
6668             $name = ".".$name."\0";
6669             $uid{$name} = sprintf("%06o",int($uid)) unless $uid eq "=";
6670             $gid{$name} = sprintf("%06o",int($gid)) unless $gid eq "=";
6671             $mode{$name} = sprintf("%06o",oct($mode)|$type_map{$type}) unless $mode eq "=";
6672         }
6673         undef %users;
6674         undef %groups;
6675         # parse the cpio file
6676         while (read(STDIN, my $header, 76)) {
6677             die "bad magic" unless $header =~ m/^070707/;
6678             my $namesize = oct(substr($header, 59, 6));
6679             my $filesize = oct(substr($header, 65, 11));
6680             read(STDIN, my $name, $namesize);
6681             # update uid, gid and mode
6682             substr($header, 24, 6) = $uid{$name} if exists $uid{$name};
6683             substr($header, 30, 6) = $gid{$name} if exists $gid{$name};
6684             substr($header, 18, 6) = $mode{$name} if exists $mode{$name};
6685             print($header, $name);
6686             # check for trailer at EOF
6687             last if $filesize == 0 && $name eq "TRAILER!!!\0";
6688             # copy-through the file data
6689             while ($filesize > 0) {
6690                 my $seg = 8192;
6691                 $seg = $filesize if $filesize < $seg;
6692                 read(STDIN, my $data, $seg);
6693                 print $data;
6694                 $filesize -= $seg;
6695             }
6696         }
6697         # pass through any padding at the end (blocksize-dependent)
6698         for (;;) {
6699             my $numread = read(STDIN, my $data, 8192);
6700             last unless $numread;
6701             print $data;
6702         }
6703         exit(0);
6704         __DATA__
6705 .
6706     # Append to the script the %files data
6707     cat "$@" </dev/null >> $script
6708     /usr/bin/perl $script || pp_error "pp_macos_rewrite_cpio error";
6709 }
6710
6711 pp_macos_files_bom () {
6712     typeset _l t m o g f p st owner
6713     while read t m o g f p st; do
6714         # make sure that $m is padded up to 4 digits long
6715         case "$m" in
6716             ?) m="000$m";;
6717             ??) m="00$m";;
6718             ???) m="0$m";;
6719             ?????*) pp_error "pp_macos_writebom: mode '$m' too long";;
6720         esac
6721
6722         # convert owner,group into owner/group in octal
6723         case $o in -)   o=0;; esac
6724         case $g in -)   g=0;; esac
6725         owner=`pp_d2o $o`/`pp_d2o $g`
6726
6727         case $t in
6728             f)
6729                 test x"$m" = x"000-" && m=0644
6730                 echo ".$p       10$m    $owner  `
6731                     /usr/bin/cksum < "${pp_destdir}$p" |
6732                     awk '{print $2 "    " $1}'`"
6733                 ;;
6734             d)
6735                 test x"$m" = x"000-" && m=0755
6736                 echo ".${p%/}   4$m     $owner"
6737                 ;;
6738             s)
6739                 test x"$m" = x"000-" && m=0755
6740                 rl=`/usr/bin/readlink "${pp_destdir}$p"`
6741                 #test x"$rl" = x"$st" ||
6742                 #    pp_error "symlink mismatch $rl != $st"
6743                 echo ".$p       12$m    $owner  `
6744                     /usr/bin/readlink -n "${pp_destdir}$p" |
6745                     /usr/bin/cksum |
6746                     awk '{print $2 "    " $1}'` $st"
6747                 ;;
6748         esac
6749     done
6750 }
6751
6752 pp_macos_bom_fix_parents () {
6753     perl -pe '
6754         sub dirname { my $d=shift; $d=~s,/[^/]*$,,; $d; }
6755         sub chk { my $d=shift;
6756                   &chk(&dirname($d)) if $d =~ m,/,;
6757                   unless ($seen{$d}++) {
6758                       print "$d\t40755\t0/0\n";
6759                   }
6760                 }
6761         m/^(\S+)\s+(\d+)/;
6762         if (oct($2) & 040000) {
6763             $seen{$1}++; # directory
6764         }
6765         &chk(&dirname($1));'
6766 }
6767
6768 pp_macos_files_size () {
6769     typeset _l t m o g f p st owner
6770     while read t m o g f p st; do
6771         case $t in
6772             f)  wc -c < "${pp_destdir}$p";;
6773             s)  echo 4095;;
6774             d)  ;; # always seems to be zero
6775         esac
6776     done | awk '{n+=1+int($1/4096)} END {print n*4}'
6777 }
6778
6779 pp_o2d () {
6780     awk 'BEGIN { x=0; '`echo "$1" |
6781         sed -e 's/./x=x*8+&;/g'`'print x;}' </dev/null
6782 }
6783 pp_d2o () {
6784     case "$1" in
6785         [0-7]) echo $1;;
6786         *) awk 'BEGIN { printf("%o\n", 0+('"$1"'));}' < /dev/null;;
6787     esac
6788 }
6789
6790 pp_macos_mkbom () {
6791     #/usr/bin/mkbom -i $1 $2
6792     typeset path mode ugid size cksum linkpath
6793     typeset bomstage
6794
6795     # Use mkbom if it understands -i (avoids a copy)
6796     if /usr/bin/mkbom -i /dev/null "$2" 2>/dev/null; then
6797         rm -f "$2"
6798         /usr/bin/mkbom -i "$1" "$2"
6799         return
6800     fi
6801
6802     # On 10.4 we have this nonsense.
6803     pp_warn "mkbom workaround: copying source files to staging area"
6804
6805     bomstage=$pp_wrkdir/bom_stage
6806     $pp_macos_sudo /bin/mkdir "$bomstage"
6807     while IFS=' ' read path mode ugid size cksumi linkpath; do
6808         if test -h "$pp_destdir/$path"; then
6809             $pp_macos_sudo /bin/ln -s "$linkpath" "$bomstage/$path"
6810         else
6811             if test -d "$pp_destdir/$path"; then
6812                 $pp_macos_sudo /bin/mkdir -p "$bomstage/$path"
6813             else
6814                 $pp_macos_sudo /bin/cp "$pp_destdir/$path" "$bomstage/$path"
6815             fi
6816             $pp_macos_sudo /bin/chmod $mode "$bomstage/$path"
6817             $pp_macos_sudo /usr/sbin/chown `echo $ugid| tr / :` "$bomstage/$path"
6818         fi
6819     done <"$1"
6820     (cd $bomstage && $pp_macos_sudo mkbom . $pp_wrkdir/bom_stage.bom) ||
6821         pp_error "mkbom failed"
6822     $pp_macos_sudo mv $pp_wrkdir/bom_stage.bom "$2"
6823 }
6824
6825 pp_backend_macos () {
6826     : ${pp_macos_bundle_id:=$pp_macos_default_bundle_id_prefix$name}
6827     case "$pp_macos_pkg_type" in
6828         bundle) pp_backend_macos_bundle;;
6829         flat) pp_backend_macos_flat;;
6830         *) pp_error "unsupported package type $pp_macos_pkg_type";;
6831     esac
6832 }
6833
6834 pp_backend_macos_bundle () {
6835     typeset pkgdir Contents Resources lprojdir
6836     typeset Info_plist Description_plist
6837     typeset bundle_vendor bundle_version size cmp filelists
6838
6839     mac_version=`sw_vers -productVersion`
6840     bundle_vendor=${pp_macos_bundle_vendor:-$vendor}
6841
6842     if test -z "$pp_macos_bundle_version"; then
6843         bundle_version=`echo "$version.0.0.0" | sed -n -e 's/[^0-9.]//g' \
6844             -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*/\1/p'`
6845     else
6846         bundle_version="$pp_macos_bundle_version"
6847     fi
6848     source_version=`echo $version | sed 's/.*\.//'`
6849
6850     # build the package layout
6851     pkgdir=$pp_wrkdir/$name.pkg
6852     Contents=$pkgdir/Contents
6853     Resources=$Contents/Resources
6854     lprojdir=$Resources/en.lproj
6855     mkdir $pkgdir $Contents $Resources $lprojdir ||
6856         pp_error "Can't make package temporary directories"
6857
6858     echo "major: 1" > $Resources/package_version
6859     echo "minor: 0" >> $Resources/package_version
6860     echo "pmkrpkg1" > $Contents/PkgInfo
6861     case $mac_version in
6862         "10.6"*)
6863             xattr -w "com.apple.TextEncoding" "macintosh;0" "$Resources/package_version"
6864             xattr -w "com.apple.TextEncoding" "macintosh;0" "$Contents/PkgInfo"
6865             ;;
6866     esac
6867
6868     # Copy welcome file/dir for display at package install time.
6869     if test -n "$pp_macos_pkg_welcome"; then
6870         typeset sfx
6871         sfx=`echo "$pp_macos_pkg_welcome"|sed 's/^.*\.\([^\.]*\)$/\1/'`
6872         case "$sfx" in
6873             rtf|html|rtfd|txt) ;;
6874             *) sfx=txt;;
6875         esac
6876         cp -R ${pp_macos_pkg_welcome} $Resources/Welcome.$sfx
6877     fi
6878
6879     # Copy readme file/dir for display at package install time.
6880     if test -n "$pp_macos_pkg_readme"; then
6881         typeset sfx
6882         sfx=`echo "$pp_macos_pkg_readme"|sed 's/^.*\.\([^\.]*\)$/\1/'`
6883         case "$sfx" in
6884             rtf|html|rtfd|txt) ;;
6885             *) sfx=txt;;
6886         esac
6887         cp -R ${pp_macos_pkg_readme} $Resources/ReadMe.$sfx
6888     fi
6889
6890     # Copy license file/dir for display at package install time.
6891     if test -n "$pp_macos_pkg_license"; then
6892         typeset sfx
6893         sfx=`echo "$pp_macos_pkg_license"|sed 's/^.*\.\([^\.]*\)$/\1/'`
6894         case "$sfx" in
6895             rtf|html|rtfd|txt) ;;
6896             *) sfx=txt;;
6897         esac
6898         cp -R ${pp_macos_pkg_license} $Resources/License.$sfx
6899     fi
6900
6901     # Find file lists (%files.* includes ignore files)
6902     for cmp in $pp_components; do
6903         test -f $pp_wrkdir/%files.$cmp && filelists="$filelists${filelists:+ }$pp_wrkdir/%files.$cmp"
6904     done
6905
6906     # compute the installed size
6907     size=`cat $filelists | pp_macos_files_size`
6908
6909     #-- Create Info.plist
6910     Info_plist=$Contents/Info.plist
6911     pp_macos_plist \
6912         start-plist \{ \
6913         key CFBundleGetInfoString string \
6914             "${pp_macos_bundle_info_string:-$version $bundle_vendor}" \
6915         key CFBundleIdentifier string \
6916             "${pp_macos_bundle_id}" \
6917     key CFBundleName string "$name" \
6918         key CFBundleShortVersionString string "$bundle_version" \
6919         key IFMajorVersion integer 1 \
6920         key IFMinorVersion integer 0 \
6921         key IFPkgFlagAllowBackRev false \
6922         key IFPkgFlagAuthorizationAction string "RootAuthorization" \
6923         key IFPkgFlagDefaultLocation string "/" \
6924         key IFPkgFlagFollowLinks true \
6925         key IFPkgFlagInstallFat true \
6926         key IFPkgFlagInstalledSize integer $size \
6927         key IFPkgFlagIsRequired false \
6928         key IFPkgFlagOverwritePermissions true \
6929         key IFPkgFlagRelocatable false \
6930         key IFPkgFlagRestartAction string "NoRestart" \
6931         key IFPkgFlagRootVolumeOnly true \
6932         key IFPkgFlagUpdateInstalledLanguages false \
6933         key IFPkgFlagUseUserMask false \
6934         key IFPkgFormatVersion real 0.10000000149011612 \
6935         key SourceVersion string $source_version \
6936         \} end-plist> $Info_plist
6937
6938     # write en.lproj/Description.plist
6939     Description_plist=$lprojdir/Description.plist
6940     pp_macos_plist \
6941         start-plist \{ \
6942         key IFPkgDescriptionDeleteWarning string "" \
6943             key IFPkgDescriptionDescription string "$pp_macos_bundle_info_string" \
6944             key IFPkgDescriptionTitle       string "$name" \
6945             key IFPkgDescriptionVersion string "$version" \
6946         \} end-plist > $Description_plist
6947
6948     # write Resources/files
6949     awk '{print $6}' $filelists > $Resources/files
6950
6951     # write package size file
6952     printf \
6953 "NumFiles 0
6954 InstalledSize $size
6955 CompressedSize 0
6956 " > $Resources/$name.sizes
6957
6958     # write Resources/preinstall
6959     for cmp in $pp_components; do
6960         if test -s $pp_wrkdir/%pre.$cmp; then
6961             if test ! -s $Resources/preinstall; then
6962                 echo "#!/bin/sh" > $Resources/preinstall
6963                 chmod +x $Resources/preinstall
6964             fi
6965             cat $pp_wrkdir/%pre.$cmp >> $Resources/preinstall
6966             echo : >> $Resources/preinstall
6967         fi
6968     done
6969
6970     # write Resources/postinstall
6971     for cmp in $pp_components; do
6972         if test -s $pp_wrkdir/%post.$cmp; then
6973             if test ! -s $Resources/postinstall; then
6974                 echo "#!/bin/sh" > $Resources/postinstall
6975                 chmod +x $Resources/postinstall
6976             fi
6977             cat $pp_wrkdir/%post.$cmp >> $Resources/postinstall
6978             echo : >> $Resources/postinstall
6979         fi
6980     done
6981
6982     # write Resources/postupgrade
6983     for cmp in $pp_components; do
6984         if test -s $pp_wrkdir/%postup.$cmp; then
6985             if test ! -s $Resources/postupgrade; then
6986                 echo "#!/bin/sh" > $Resources/postupgrade
6987                 chmod +x $Resources/postupgrade
6988             fi
6989             cat $pp_wrkdir/%postup.$cmp >> $Resources/postupgrade
6990             echo : >> $Resources/postupgrade
6991         fi
6992     done
6993
6994     # write Resources/preremove
6995     for cmp in $pp_components; do
6996         if test -s $pp_wrkdir/%preun.$cmp; then
6997             if test ! -s $Resources/preremove; then
6998                 echo "#!/bin/sh" > $Resources/preremove
6999                 chmod +x $Resources/preremove
7000             fi
7001             cat $pp_wrkdir/%preun.$cmp >> $Resources/preremove
7002             echo : >> $Resources/preremove
7003         fi
7004     done
7005
7006     # write Resources/postremove
7007     for cmp in $pp_components; do
7008         if test -s $pp_wrkdir/%postun.$cmp; then
7009             if test ! -s $Resources/postremove; then
7010                 echo "#!/bin/sh" > $Resources/postremove
7011                 chmod +x $Resources/postremove
7012             fi
7013             cat $pp_wrkdir/%postun.$cmp >> $Resources/postremove
7014             echo : >> $Resources/postremove
7015         fi
7016     done
7017
7018     # write uninstall info
7019     echo "version=$version" > $Resources/uninstall
7020     if [ -n "$pp_macos_requires" ];then
7021         echo "requires=$pp_macos_requires" >> $Resources/uninstall
7022     fi
7023
7024     # Create the bill-of-materials (Archive.bom)
7025     cat $filelists | pp_macos_files_bom | sort |
7026         pp_macos_bom_fix_parents > $pp_wrkdir/tmp.bomls
7027
7028     pp_macos_mkbom $pp_wrkdir/tmp.bomls $Contents/Archive.bom
7029
7030     # Create the cpio archive (Archive.pax.gz)
7031     (
7032     cd $pp_destdir &&
7033     awk '{ print "." $6 }' $filelists | sed 's:/$::' | sort | /usr/bin/cpio -o | pp_macos_rewrite_cpio $filelists | gzip -9f -c > $Contents/Archive.pax.gz
7034     )
7035
7036     test -d $pp_wrkdir/bom_stage && $pp_macos_sudo rm -rf $pp_wrkdir/bom_stage
7037
7038     rm -f ${name}-${version}.dmg
7039     hdiutil create -fs HFS+ -srcfolder $pkgdir -volname $name ${name}-${version}.dmg
7040 }
7041
7042 pp_backend_macos_flat () {
7043     typeset pkgdir bundledir Resources lprojdir
7044     typeset Info_plist Description_plist
7045     typeset bundle_vendor bundle_version size numfiles cmp filelists
7046
7047     mac_version=`sw_vers -productVersion`
7048     bundle_vendor=${pp_macos_bundle_vendor:-$vendor}
7049
7050     if test -z "$pp_macos_bundle_version"; then
7051         bundle_version=`echo "$version.0.0.0" | sed -n -e 's/[^0-9.]//g' \
7052             -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*/\1/p'`
7053     else
7054         bundle_version="$pp_macos_bundle_version"
7055     fi
7056     source_version=`echo $version | sed 's/.*\.//'`
7057
7058     # build the flat package layout
7059     pkgdir=$pp_wrkdir/pkg
7060     bundledir=$pp_wrkdir/pkg/$name.pkg
7061     Resources=$pkgdir/Resources
7062     lprojdir=$Resources/en.lproj
7063     mkdir $pkgdir $bundledir $Resources $lprojdir ||
7064         pp_error "Can't make package temporary directories"
7065
7066     # Find file lists (%files.* includes ignore files)
7067     for cmp in $pp_components; do
7068         test -f $pp_wrkdir/%files.$cmp && filelists="$filelists${filelists:+ }$pp_wrkdir/%files.$cmp"
7069     done
7070
7071     # compute the installed size and number of files/dirs
7072     size=`cat $filelists | pp_macos_files_size`
7073     numfiles=`cat $filelists | wc -l`
7074     numfiles="${numfiles##* }"
7075
7076     # Write Distribution file
7077     cat <<-. >$pkgdir/Distribution
7078         <?xml version="1.0" encoding="UTF-8"?>
7079         <installer-script minSpecVersion="1.000000" authoringTool="com.quest.rc.PolyPkg" authoringToolVersion="$pp_version" authoringToolBuild="$pp_revision">
7080             <title>$name $version</title>
7081             <options customize="never" allow-external-scripts="no"/>
7082             <domains enable_localSystem="true"/>
7083 .
7084     if test -n "$pp_macos_pkg_welcome"; then
7085         cp -R "${pp_macos_pkg_welcome}" $Resources
7086         echo "    <welcome file=\"${pp_macos_pkg_welcome##*/}\"/>" >>$pkgdir/Distribution
7087     fi
7088     if test -n "$pp_macos_pkg_readme"; then
7089         cp -R "${pp_macos_pkg_readme}" $Resources
7090         echo "    <readme file=\"${pp_macos_pkg_readme##*/}\"/>" >>$pkgdir/Distribution
7091     fi
7092     if test -n "$pp_macos_pkg_license"; then
7093         cp -R "${pp_macos_pkg_license}" $Resources
7094         echo "    <license file=\"${pp_macos_pkg_license##*/}\"/>" >>$pkgdir/Distribution
7095     fi
7096     cat <<-. >>$pkgdir/Distribution
7097             <choices-outline>
7098                 <line choice="choice0"/>
7099             </choices-outline>
7100             <choice id="choice0" title="$name $version">
7101                 <pkg-ref id="${pp_macos_bundle_id}"/>
7102             </choice>
7103             <pkg-ref id="${pp_macos_bundle_id}" installKBytes="$size" version="$version" auth="Root">#$name.pkg</pkg-ref>
7104         </installer-script>
7105 .
7106
7107     # write scripts archive
7108     # XXX - missing preupgrade, preflight, postflight
7109     mkdir $pp_wrkdir/scripts
7110     for cmp in $pp_components; do
7111         if test -s $pp_wrkdir/%pre.$cmp; then
7112             if test ! -s $pp_wrkdir/scripts/preinstall; then
7113                 echo "#!/bin/sh" > $pp_wrkdir/scripts/preinstall
7114                 chmod +x $pp_wrkdir/scripts/preinstall
7115             fi
7116             cat $pp_wrkdir/%pre.$cmp >> $pp_wrkdir/scripts/preinstall
7117             echo : >> $pp_wrkdir/scripts/preinstall
7118         fi
7119         if test -s $pp_wrkdir/%post.$cmp; then
7120             if test ! -s $pp_wrkdir/scripts/postinstall; then
7121                 echo "#!/bin/sh" > $pp_wrkdir/scripts/postinstall
7122                 chmod +x $pp_wrkdir/scripts/postinstall
7123             fi
7124             cat $pp_wrkdir/%post.$cmp >> $pp_wrkdir/scripts/postinstall
7125             echo : >> $pp_wrkdir/scripts/postinstall
7126         fi
7127         if test -s $pp_wrkdir/%postup.$cmp; then
7128             if test ! -s $pp_wrkdir/scripts/postupgrade; then
7129                 echo "#!/bin/sh" > $pp_wrkdir/scripts/postupgrade
7130                 chmod +x $pp_wrkdir/scripts/postupgrade
7131             fi
7132             cat $pp_wrkdir/%postup.$cmp >> $pp_wrkdir/scripts/postupgrade
7133             echo : >> $pp_wrkdir/scripts/postupgrade
7134         fi
7135         # XXX - not supported
7136         if test -s $pp_wrkdir/%preun.$cmp; then
7137             if test ! -s $pp_wrkdir/scripts/preremove; then
7138                 echo "#!/bin/sh" > $pp_wrkdir/scripts/preremove
7139                 chmod +x $pp_wrkdir/scripts/preremove
7140             fi
7141             cat $pp_wrkdir/%preun.$cmp >> $pp_wrkdir/scripts/preremove
7142             echo : >> $pp_wrkdir/scripts/preremove
7143         fi
7144         # XXX - not supported
7145         if test -s $pp_wrkdir/%postun.$cmp; then
7146             if test ! -s $pp_wrkdir/scripts/postremove; then
7147                 echo "#!/bin/sh" > $pp_wrkdir/scripts/postremove
7148                 chmod +x $pp_wrkdir/scripts/postremove
7149             fi
7150             cat $pp_wrkdir/%postun.$cmp >> $pp_wrkdir/scripts/postremove
7151             echo : >> $pp_wrkdir/scripts/postremove
7152         fi
7153     done
7154     if test "`echo $pp_wrkdir/scripts/*`" != "$pp_wrkdir/scripts/*"; then
7155         # write scripts archive, scripts are mode 0755 uid/gid 0/0
7156         # resetting the owner and mode is not strictly required
7157         (
7158         cd $pp_wrkdir/scripts || pp_error "Can't cd to $pp_wrkdir/scripts"
7159         rm -f $pp_wrkdir/tmp.files.scripts
7160         for s in *; do
7161             echo "f 0755 0 0 - ./$s" >>$pp_wrkdir/tmp.files.scripts
7162         done
7163         find . -type f | /usr/bin/cpio -o | pp_macos_rewrite_cpio $pp_wrkdir/tmp.files.scripts | gzip -9f -c > $bundledir/Scripts
7164         )
7165     fi
7166
7167     # Write PackageInfo file
7168     cat <<-. >$bundledir/PackageInfo
7169         <?xml version="1.0" encoding="UTF-8"?>
7170         <pkg-info format-version="2" identifier="${pp_macos_bundle_id}" version="$version" install-location="/" relocatable="false" overwrite-permissions="true" followSymLinks="true" auth="root">
7171             <payload installKBytes="$size" numberOfFiles="$numfiles"/>
7172 .
7173     if test -s $bundledir/Scripts; then
7174         echo "    <scripts>" >>$bundledir/PackageInfo
7175         for s in preflight postflight preinstall postinstall preupgrade postupgrade; do
7176             if test -s "$pp_wrkdir/scripts/$s"; then
7177                 echo "  <$s file=\"$s\"/>" >>$bundledir/PackageInfo
7178             fi
7179         done
7180         echo "    </scripts>" >>$bundledir/PackageInfo
7181     fi
7182     cat <<-. >>$bundledir/PackageInfo
7183         </pkg-info>
7184 .
7185
7186     # Create the bill-of-materials (Bom)
7187     cat $filelists | pp_macos_files_bom | sort |
7188         pp_macos_bom_fix_parents > $pp_wrkdir/tmp.bomls
7189     pp_macos_mkbom $pp_wrkdir/tmp.bomls $bundledir/Bom
7190
7191     # Create the cpio payload
7192     (
7193     cd $pp_destdir || pp_error "Can't cd to $pp_destdir"
7194     awk '{ print "." $6 }' $filelists | sed 's:/$::' | sort | /usr/bin/cpio -o | pp_macos_rewrite_cpio $filelists | gzip -9f -c > $bundledir/Payload
7195     )
7196
7197     test -d $pp_wrkdir/bom_stage && $pp_macos_sudo rm -rf $pp_wrkdir/bom_stage
7198
7199     # Create the flat package with xar (like pkgutil --flatten does)
7200     (cd $pkgdir && /usr/bin/xar --distribution --no-compress Scripts --no-compress Payload -jcf "../$name-$version.pkg" *)
7201 }
7202
7203 pp_backend_macos_cleanup () {
7204     :
7205 }
7206
7207 pp_backend_macos_names () {
7208     case "$pp_macos_pkg_type" in
7209         bundle) echo ${name}.pkg;;
7210         flat) echo ${name}-${version}.pkg;;
7211         *) pp_error "unsupported package type $pp_macos_pkg_type";;
7212     esac
7213 }
7214
7215 pp_backend_macos_install_script () {
7216     echo '#!/bin/sh'
7217     typeset pkgname platform
7218
7219     pkgname="`pp_backend_macos_names`"
7220     platform="`pp_backend_macos_probe`"
7221     pp_install_script_common
7222
7223     cat <<.
7224         test \$# -eq 0 && usage
7225         op="\$1"; shift
7226
7227         case "\$op" in
7228         list-components)
7229             test \$# -eq 0 || usage \$op
7230             echo "$pp_components"
7231             ;;
7232         list-services)
7233             test \$# -eq 0 || usage \$op
7234             echo "$pp_services"
7235             ;;
7236         list-files)
7237             test \$# -ge 1 || usage \$op
7238             echo \${PP_PKGDESTDIR:-.}/"$pkgname"
7239             ;;
7240         install)
7241             test \$# -ge 1 || usage \$op
7242             vol=/Volumes/pp\$\$
7243             pkg=\$vol/${name}-${version}.pkg
7244             hdiutil attach -readonly -mountpoint \$vol \
7245                 \${PP_PKGDESTDIR:-.}/"$pkgname"
7246             trap "hdiutil detach \$vol" 0
7247             installer -pkginfo -pkg \$pkg
7248             installer -verbose -pkg \$pkg -target /
7249             ;;
7250         uninstall)
7251             test \$# -ge 1 || usage \$op
7252             # XXX
7253             echo "Uninstall not implemented" >&2
7254             exit 1;;
7255         start|stop)
7256             test \$# -ge 1 || usage \$op
7257             ec=0
7258             for svc
7259             do
7260                 # XXX
7261                 echo "\${op} not implemented" >&2
7262                 ec=1
7263             done
7264             exit \$ec
7265             ;;
7266         print-platform)
7267             echo "$platform"
7268             ;;
7269         *)
7270             usage;;
7271         esac
7272 .
7273 }
7274
7275 pp_backend_macos_init_svc_vars () {
7276     :
7277 }
7278
7279 pp_backend_macos_probe () {
7280     typeset name vers arch
7281     case `sw_vers -productName` in
7282          "Mac OS X") name="macos";;
7283          *)          name="unknown";;
7284     esac
7285     vers=`sw_vers -productVersion | sed -e 's/^\([^.]*\)\.\([^.]*\).*/\1\2/'`
7286     arch=`arch`
7287     echo "$name$vers-$arch"
7288 }
7289
7290 pp_backend_macos_vas_platforms () {
7291     echo "osx"    # XXX non-really sure what they do.. it should be "macos"
7292 }
7293 pp_backend_macos_function () {
7294     case $1 in
7295         _pp_macos_search_unused) cat<<'.';;
7296             # Find an unused value in the given path
7297             # args: path attribute minid [maxid]
7298                 pp_tmp_val=$3
7299                 while :; do
7300                     test $pp_tmp_val -ge ${4:-999999} && return 1
7301                     /usr/bin/dscl . -search "$1" "$2" $pp_tmp_val |
7302                         grep . > /dev/null || break
7303                     pp_tmp_val=`expr $pp_tmp_val + 1`
7304                 done
7305                 echo $pp_tmp_val
7306 .
7307         pp_mkgroup:depends) echo _pp_macos_search_unused;;
7308         pp_mkgroup) cat<<'.';;
7309             set -e
7310             /usr/bin/dscl . -read /Groups/"$1" >/dev/null 2>&1 && return
7311             pp_tmp_gid=`_pp_macos_search_unused /Groups PrimaryGroupID 100`
7312             /usr/bin/dscl . -create /Groups/"$1"
7313             /usr/bin/dscl . -create /Groups/"$1" PrimaryGroupID $pp_tmp_gid
7314             /usr/bin/dscl . -create /Groups/"$1" RealName "Group $1"
7315             /usr/bin/dscl . -create /Groups/"$1" GroupMembership ""
7316             /usr/bin/dscl . -create /Groups/"$1" Password '*'
7317 .
7318         pp_mkuser:depends) echo pp_mkgroup _pp_macos_search_unused;;
7319         pp_mkuser) cat<<'.';;
7320             set -e
7321             /usr/bin/dscl . -read /Users/"$1" >/dev/null 2>&1 && return
7322             pp_tmp_uid=`_pp_macos_search_unused /Users UniqueID 100`
7323             pp_mkgroup "${2:-$1}"
7324             pp_tmp_gid=`/usr/bin/dscl . -read /Groups/"${2:-$1}" \
7325                 PrimaryGroupID | awk '{print $2}'`
7326             /usr/bin/dscl . -create /Users/"$1"
7327             /usr/bin/dscl . -create /Users/"$1" PrimaryGroupID $pp_tmp_gid
7328             /usr/bin/dscl . -create /Users/"$1" NFSHomeDirectory \
7329                                     "${3:-/var/empty}"
7330             /usr/bin/dscl . -create /Users/"$1" UserShell \
7331                                     "${4:-/usr/bin/false}"
7332             /usr/bin/dscl . -create /Users/"$1" RealName "$1"
7333             /usr/bin/dscl . -create /Users/"$1" UniqueID $pp_tmp_uid
7334             /usr/bin/dscl . -create /Users/"$1" Password '*'
7335 .
7336         pp_havelib) cat<<'.';;
7337             # (use otool -L to find dependent libraries)
7338             for pp_tmp_dir in `echo "${3:+$3:}/usr/local/lib:/lib:/usr/lib" |
7339                     tr : ' '`; do
7340                 test -r "$pp_tmp_dir/lib$1{$2:+.$2}.dylib" && return 0
7341             done
7342             return 1
7343 .
7344         *) false;;
7345     esac
7346 }
7347
7348 pp_platforms="$pp_platforms inst"
7349
7350 pp_backend_inst_detect () {
7351     case "$1" in
7352         IRIX*)  return 0;;
7353         *)      return 1;;
7354     esac
7355 }
7356
7357 pp_backend_inst_init () {
7358     pp_readlink_fn=pp_ls_readlink
7359 }
7360
7361 pp_backend_inst_create_idb()
7362 {
7363     typeset t m o g f p st
7364
7365     while read t m o g f p st; do
7366         if test x"$o" = x"-"; then
7367             o="root"
7368         fi
7369         if test x"$g" = x"-"; then
7370             g="sys"
7371         fi
7372         case "$t" in
7373             f)  test x"$m" = x"-" && m=444
7374                 echo "f 0$m $o $g $p $p $name.sw.base"
7375                 ;;
7376             d)  test x"$m" = x"-" && m=555
7377                 echo "d 0$m $o $g $p $p $name.sw.base"
7378                 ;;
7379             s)  test x"$m" = x"-" && m=777
7380                 test x"$m" = x"777" ||
7381                     pp_warn "$p: invalid mode $m for symlink, should be 777 or -"
7382                 echo "l 0$m $o $g $p $p $name.sw.base symval($st)"
7383                 ;;
7384         esac
7385     done
7386 }
7387
7388 pp_backend_inst_create_spec()
7389 {
7390     echo "product $name"
7391     echo "    id \"${summary}. Version: ${version}\""
7392     echo "    image sw"
7393     echo "        id \"Software\""
7394     echo "        version $version"
7395     echo "        order 9999"
7396     echo "        subsys base"
7397     echo "            id \"Base Software\""
7398     echo "            replaces self"
7399     echo "            exp $name.sw.base"
7400     echo "        endsubsys"
7401     echo "    endimage"
7402     echo "endproduct"
7403 }
7404
7405 pp_backend_inst () {
7406     curdir=`pwd`
7407
7408     cd "$pp_opt_wrkdir"
7409
7410     # initialize
7411     pp_inst_tardist=tardist
7412     pp_inst_spec=${name}.spec
7413     pp_inst_idb=${name}.idb
7414
7415     rm -rf $pp_inst_tardist $pp_inst_spec $pp_inst_idb
7416     mkdir -p $pp_inst_tardist
7417
7418     # Create idb file
7419     (for _cmp in $pp_components; do
7420         cat  %files.$_cmp | sort +4u -6 | pp_backend_inst_create_idb
7421     done) >> $pp_inst_idb
7422
7423     pp_backend_inst_create_spec >> $pp_inst_spec
7424
7425     # Generate tardist
7426     gendist -verbose -all -root / -source $pp_opt_destdir -idb $pp_inst_idb -spec $pp_inst_spec -dist $pp_inst_tardist $name
7427     tar -cvf `pp_backend_inst_names` $pp_inst_tardist
7428
7429     cd "$curdir"
7430 }
7431
7432 pp_backend_inst_cleanup () {
7433     :
7434 }
7435
7436 pp_backend_inst_names () {
7437     echo ${name}-${version}.tardist
7438 }
7439
7440 pp_backend_inst_install_script () {
7441     :
7442 }
7443
7444 pp_backend_inst_function () {
7445     echo false
7446 }
7447
7448 pp_backend_inst_init_svc_vars () {
7449     :
7450 }
7451
7452 pp_backend_inst_probe () {
7453     cpu=`hinv|sed -n '/^CPU/{s/000 /k /;s/^CPU: //;s/ Process.*//;s/^MIPS //;p;q;}'|tr A-Z a-z`
7454     echo irix`uname -r`-$cpu
7455 }
7456
7457 pp_backend_inst_vas_platforms () {
7458     echo "irix-65"
7459 }
7460
7461 pp_platforms="$pp_platforms null"
7462
7463 pp_backend_null_detect () {
7464     ! :
7465 }
7466
7467 pp_backend_null_init () {
7468     :
7469 }
7470
7471
7472 pp_backend_null () {
7473     :
7474 }
7475
7476 pp_backend_null_cleanup () {
7477     :
7478 }
7479
7480 pp_backend_null_names () {
7481     :
7482 }
7483
7484 pp_backend_null_install_script () {
7485     :
7486 }
7487
7488 pp_backend_null_function () {
7489     echo false
7490 }
7491
7492 pp_backend_null_init_svc_vars () {
7493     :
7494 }
7495
7496 pp_backend_null_probe () {
7497     echo unknown-unknown
7498 }
7499
7500 pp_backend_null_vas_platforms () {
7501 :
7502 }
7503
7504
7505 quest_require_vas () {
7506     typeset v d
7507
7508     if test $# -ne 1; then
7509         return
7510     fi
7511     set -- `echo "$1" | tr . ' '` 0 0 0
7512
7513     for d
7514     do
7515         echo $d | grep '^[0-9][0-9]*$' > /dev/null ||
7516             pp_error "quest_require_vas: Bad version component $d"
7517     done
7518
7519     test $# -lt 4 &&
7520             pp_error "quest_require_vas: missing version number"
7521
7522     case "$1.$2.$3.$4" in
7523         *.0.0.0) v=$1;;
7524         *.*.0.0) v=$1.$2;;
7525         *.*.*.0) v=$1.$2.$3;;
7526         *)       v=$1.$2.$3.$4;;
7527     esac
7528
7529     cat <<.
7530         if test -x /opt/quest/bin/vastool &&
7531            /opt/quest/bin/vastool -v |
7532             awk 'NR == 1 {print \$4}' |
7533             awk -F. '{ if (\$1<$1 || \$1==$1 && ( \
7534                            \$2<$2 || \$2==$2 && ( \
7535                            \$3<$3 || \$2==$3 && ( \
7536                            \$4<$4 )))) exit(1); }'
7537         then
7538             exit 0
7539         else
7540             echo "Requires VAS $v or later"
7541             exit 1
7542         fi
7543 .
7544 }
7545 pp_main ${1+"$@"}