Radix cross Linux

     5         kx #!/bin/sh
     5         kx 
     5         kx # Preserve new files
     5         kx install_file() {
     5         kx   NEW="$1"
     5         kx   OLD="`dirname $NEW`/`basename $NEW .new`"
     5         kx   # If there's no file by that name, mv it over:
     5         kx   if [ ! -r $OLD ]; then
     5         kx     mv $NEW $OLD
     5         kx   elif [ "`cat $OLD | md5sum`" = "`cat $NEW | md5sum`" ]; then # toss the redundant copy
     5         kx     rm $NEW
     5         kx   fi
     5         kx   # Otherwise, we leave the .new copy for the admin to consider...
     5         kx }
     5         kx 
     5         kx preserve_perms() {
     5         kx   NEW="$1"
     5         kx   OLD="$(dirname $NEW)/$(basename $NEW .new)"
     5         kx   if [ -e $OLD ]; then
     5         kx     cp -a $OLD ${NEW}.incoming
     5         kx     cat $NEW > ${NEW}.incoming
     5         kx     touch -r $NEW ${NEW}.incoming
     5         kx     mv ${NEW}.incoming $NEW
     5         kx   fi
     5         kx   install_file $NEW
     5         kx }
     5         kx 
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx pre_install() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx post_install() {
     5         kx   if [ ! -e var/log/httpd ]; then
     5         kx     mkdir -p var/log/httpd
     5         kx     chmod 755 var/log/httpd
     5         kx   fi
     5         kx 
     5         kx   # Don't wipe out an existing document root with symlinks. If someone has
     5         kx   # replaced the symlinks that are created on a fresh installation, assume
     5         kx   # that they know what they are doing and leave things as-is.
     5         kx   if [ ! -e srv/www ]; then
     5         kx     ( cd srv ; ln -sf /var/www www )
     5         kx   fi
     5         kx   if [ ! -e srv/httpd ]; then
     5         kx     ( cd srv ; ln -sf /var/www httpd )
     5         kx   fi
     5         kx 
     5         kx   # Keep same perms when installing rc.httpd.new:
     5         kx   preserve_perms etc/rc.d/rc.httpd.new
     5         kx 
     5         kx   install_file etc/httpd/httpd.conf.new
     5         kx   install_file etc/logrotate.d/httpd.new
     5         kx   for config_file in etc/httpd/extra/*.new ; do
     5         kx     install_file $config_file
     5         kx   done
     5         kx   install_file var/www/htdocs/index.html.new
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx # arg 2:  the old package version
     5         kx pre_update() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx # arg 2:  the old package version
     5         kx post_update() {
     5         kx   post_install
     5         kx }
     5         kx 
     5         kx # arg 1:  the old package version
     5         kx pre_remove() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the old package version
     5         kx post_remove() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx 
     5         kx operation=$1
     5         kx shift
     5         kx 
     5         kx $operation $*