Radix cross Linux

#!/bin/sh

# Preserve new files
install_file() {
  NEW="$1"
  OLD="`dirname $NEW`/`basename $NEW .new`"
  # If there's no file by that name, mv it over:
  if [ ! -r $OLD ]; then
    mv $NEW $OLD
  elif [ "`cat $OLD | md5sum`" = "`cat $NEW | md5sum`" ]; then # toss the redundant copy
    rm $NEW
  fi
  # Otherwise, we leave the .new copy for the admin to consider...
}

preserve_perms() {
  NEW="$1"
  OLD="$(dirname $NEW)/$(basename $NEW .new)"
  if [ -e $OLD ]; then
    cp -a $OLD ${NEW}.incoming
    cat $NEW > ${NEW}.incoming
    touch -r $NEW ${NEW}.incoming
    mv ${NEW}.incoming $NEW
  fi
  install_file $NEW
}


# arg 1:  the new package version
pre_install() {
  /bin/true
}

# arg 1:  the new package version
post_install() {
  preserve_perms etc/rc.d/rc.cyrus-imapd.new
  install_file etc/cyrus.conf.new
  install_file etc/imapd.conf.new
  if ! grep "DBI|" @PERL_LOCAL_POD@ 1> /dev/null 2> /dev/null ; then
  cat << EOF >> @PERL_LOCAL_POD@
=head2 Sat Nov  5 22:29:56 2022: C<Module> L<Cyrus::Annotator::Daemon|Cyrus::Annotator::Daemon>

=over 4

=item *

C<installed into: /usr/share/perl5/vendor_perl>

=item *

C<LINKTYPE: dynamic>

=item *

C<VERSION: 1.00>

=item *

C<EXE_FILES: >

=back

=head2 Sat Nov  5 22:29:56 2022: C<Module> L<Cyrus::IMAP|Cyrus::IMAP>

=over 4

=item *

C<installed into: /usr/share/perl5/vendor_perl>

=item *

C<LINKTYPE: dynamic>

=item *

C<VERSION: 1.00>

=item *

C<EXE_FILES: cyradm>

=back

=head2 Sat Nov  5 22:29:56 2022: C<Module> L<Cyrus::SIEVE::managesieve|Cyrus::SIEVE::managesieve>

=over 4

=item *

C<installed into: /usr/share/perl5/vendor_perl>

=item *

C<LINKTYPE: dynamic>

=item *

C<VERSION: 0.01>

=item *

C<EXE_FILES: >

=back

EOF
  fi
}

# arg 1:  the new package version
# arg 2:  the old package version
pre_update() {
  /bin/true
}

# arg 1:  the new package version
# arg 2:  the old package version
post_update() {
  post_install
}

# arg 1:  the old package version
pre_remove() {
  /bin/true
}

# arg 1:  the old package version
post_remove() {
  /bin/true
}


operation=$1
shift

$operation $*