#!/bin/sh

######################################################################
url="http://ftp.debian.org/debian/pool/main/o/openbsd-inetd/openbsd-inetd_0.20080125.orig.tar.gz
    http://ftp.debian.org/debian/pool/main/o/openbsd-inetd/openbsd-inetd_0.20080125-6.diff.gz"
pkgbase=openbsd_inetd
vers=0.20080125
arch=`uname -m`
build=P2
src=openbsd-inetd-$vers.orig
OPT_CONFIG=""
DOCS="ChangeLog"
######################################################################

fscheck() {
  PANGRAM="The quick brown fox jumps over the lazy dog."
  echo -n "Checking for the filesystem ... "
  mkdir pangram ; ( cd pangram ; touch $PANGRAM )
  mv pangram pangram~ ; mkdir pangram ; touch -r pangram~ pangram
  tar cpf pangram.tar pangram ; rmdir pangram ; mv pangram~ pangram
  for i in $PANGRAM ; do tar rpf pangram.tar pangram/$i ; done
  touch -t `date '+%m%d0900'` pangram.tar ; gzip pangram.tar
  touch pangram.tar.gz ; mv pangram.tar.gz pangram1.tgz
  tar cpf pangram.tar pangram
  touch -t `date '+%m%d0900'` pangram.tar ; gzip pangram.tar
  touch pangram.tar.gz ; mv pangram.tar.gz pangram2.tgz
  if cmp -s pangram1.tgz pangram2.tgz ; then
    echo "OK"
    rm -rf pangram pangram1.tgz pangram2.tgz
  else
    echo "NG"
    cat <<- "EOF"
	Hmm, packaging may not be done properly on this filesystem.
	Would you please try again on a default filesystem, thanks!
	
	Happy packaging!!
	
	Quitting...
	EOF
    exit
  fi
}

install2() {
  install -d ${2%/*} ; install -m 644 $1 $2
}

strip_bindir() {
  echo "compressing in $1"
  if [ -d $1 ] ; then (
    shopt -s nullglob
    cd $1
    for i in * ; do
      echo "$i"
      if [ -h $i ] ; then continue ; fi
      if [ -n "`file $i | grep "not stripped"`" ] ; then
         echo "stripping -p $i"
         strip -p $i
      fi
    done
  ) fi
}

strip_libdir() {
  echo "compressing in $1"
  if [ -d $1 ] ; then (
    shopt -s nullglob
    cd $1
    for i in *.so *.so.* *.a ; do
      echo "$i"
      if [ -h $i ] ; then continue ; fi
      if [ -n "`nm -a $i | grep " a "`" ] ; then
        if [ $i != ${i%.a} ] ; then
          echo -n "ranlib and "
          touch -r $i $i.mt ; ranlib $i ; touch -r $i.mt $i ; rm $i.mt
        fi
        echo "stripping -gp $i"
        strip -gp $i
      fi
    done
  ) fi
}

gzip_dir() {
  echo "compressing in $1"
  if [ -d $1 ] ; then (
    cd $1
    files=`ls -f --indicator-style=none | sed '/^\.\{1,2\}$/d'`
    for i in $files ; do
      echo "$i"
      if [ ! -f $i -a ! -h $i -o $i != ${i%.gz} ] ; then continue ; fi
      lnks=`ls -l $i | awk '{print $2}'`
      if [ $lnks -gt 1 ] ; then
        inum=`ls -i $i | awk '{print $1}'`
        for j in `find . -maxdepth 1 -inum $inum` ; do
          if [ ${j#./} == $i ] ; then
            gzip -f $i
          else
            rm -f ${j#./} ; ln $i.gz ${j#./}.gz
          fi
        done
      elif [ -h $i ] ; then
        target=`readlink $i` ; rm -f $i ; ln -s $target.gz $i.gz
      else
        gzip $i
      fi
    done
    for i in $files ; do mv ${i%.gz}.gz $C ; done
    for i in $files ; do mv $C/${i%.gz}.gz . ; done
  ) fi
}

gzip_one() {
  gzip $1 ; mv $1.gz $C ; mv $C/${1##*/}.gz ${1%/*}
}

compress() {
  for i in {$P,$P/usr}/{sbin,bin} ; do strip_bindir $i ; done
  for i in {$P,$P/usr}/$libdir ; do strip_libdir $i ; done
  if [ -f $infodir/dir ] ; then rm -f $infodir/dir ; fi
  gzip_dir $infodir
  for i in `seq 9` n ; do gzip_dir $mandir/man$i ; done
}

prune_symlink() {
  echo "pruning symlink in $1"
  if [ -d $1 ] ; then (
    cd $P
    rm -f /tmp/iNsT-a.$$ ; touch /tmp/iNsT-a.$$
    for i in `find ${1#$P/} -type l` ; do
      target=`readlink $i`
      echo "$i -> $target"
      echo $i$'\n'$target >> /tmp/iNsT-a.$$
    done
    COUNT=1
    LINE=`sed -n "${COUNT}p" /tmp/iNsT-a.$$`
    while [ -n "$LINE" ] ; do
      LINKGOESIN=`dirname $LINE`
      LINKNAMEIS=`basename $LINE`
      COUNT=$(($COUNT + 1))
      LINKPOINTSTO=`sed -n "${COUNT}p" /tmp/iNsT-a.$$`
      if [ ! -d install ] ; then mkdir install ; fi
      cat <<- EOF >> install/doinst.sh
	( cd $LINKGOESIN ; rm -rf $LINKNAMEIS )
	( cd $LINKGOESIN ; ln -sf $LINKPOINTSTO $LINKNAMEIS )
	EOF
      rm -rf $LINE ; touch -t `date '+%m%d0900'` install/doinst.sh $LINE
      COUNT=$(($COUNT + 1))
      LINE=`sed -n "${COUNT}p" /tmp/iNsT-a.$$`
    done
    rm -f /tmp/iNsT-a.$$
  ) fi
}

convert() {
  for i in {$P,$P/usr}/{sbin,bin} ; do prune_symlink $i ; done
  for i in {$P,$P/usr}/$libdir ; do prune_symlink $i ; done
  prune_symlink $infodir
  for i in `seq 9` n ; do prune_symlink $mandir/man$i ; done
}

fscheck
W=`pwd`
for i in `seq 0 $((${#src[@]} - 1))` ; do
  S[$i]=$W/${src[$i]} ; B[$i]=$W/build`test ${#src[@]} -eq 1 || echo $i`
done
P=$W/work ; C=$W/pivot
infodir=$P/usr/share/info
mandir=$P/usr/share/man
docdir=$P/usr/share/doc
myname=`basename $0`
pkg=$pkgbase-$vers-$arch-$build
case $arch in x86_64) libdir=lib64 ;; *) libdir=lib ;; esac
if [ $# -eq 0 ] ; then
  opt_download=1 ; opt_config=1 ; opt_build=1 ; opt_package=1
else
  opt_download=0 ; opt_config=0 ; opt_build=0 ; opt_package=0
  for i in $@ ; do
    case $i in
    download) opt_download=1 ;;
    config) opt_config=1 ;;
    build) opt_build=1 ;;
    package) opt_package=1 ;;
    esac
  done
fi
if [ $opt_download -eq 1 ] ; then
  for i in $url ; do
    if [ ! -f ${i##*/} ] ; then wget $i ; fi
  done
  for i in $url ; do
    case ${i##*.} in
    tar) tar xvpf ${i##*/} ;;
    gz) tar xvpzf ${i##*/} ;;
    bz2) tar xvpjf ${i##*/} ;;
    esac
  done
fi
if [ $opt_config -eq 1 ] ; then
  for i in `seq 0 $((${#B[@]} - 1))` ; do
    if [ -d ${B[$i]} ] ; then rm -rf ${B[$i]} ; fi ; cp -a ${S[$i]} ${B[$i]}
  done
  cd $B
  gunzip -c $W/openbsd-inetd_0.20080125-6.diff.gz | patch -Np1 -i -
  for i in `grep "^[^#]" debian/patches/series` ; do
    patch -Np1 -i debian/patches/$i
  done
  for i in `seq 0 $((${#B[@]} - 1))` ; do
    cd ${B[$i]}
    if [ -f Makefile ] ; then
      make -f Makefile.debian clean
    fi
    if [ -f config.log ] ; then
      rm -rf config.cache config.log
    fi
    if [ -x configure ] ; then
      ./configure --prefix=/usr --libdir='${exec_prefix}'/$libdir \
          --infodir='${prefix}'/share/info \
          --mandir='${prefix}'/share/man ${OPT_CONFIG[$i]}
    fi
  done
fi
if [ $opt_build -eq 1 ] ; then
  for i in `seq 0 $((${#B[@]} - 1))` ; do
    cd ${B[$i]}
    if [ -f Makefile ] ; then
      make -f Makefile.debian
    fi
  done
fi
if [ $opt_package -eq 1 ] ; then
  if [ `id -u` -ne 0 ] ; then
    read -p "Do you want to package as root? [y/N] " ans
    if [ "x$ans" == "xY" -o "x$ans" == "xy" ] ; then
      cd $W ; /bin/su -c "$0 package" ; exit
    fi
  fi
  if [ -d $P ] ; then rm -rf $P ; fi ; mkdir -p $P
  if [ -d $C ] ; then rm -rf $C ; fi ; mkdir -p $C
  touch $W/i.st ; sleep 1
  for i in `seq 0 $((${#B[@]} - 1))` ; do
    cd ${B[$i]}
    if [ -f Makefile ] ; then
      make install DESTDIR=$P
    fi
  done
  install -d $P/usr/sbin
  install inetd $P/usr/sbin
  install -d $mandir/man8
  install -m 644 inetd.8 $mandir/man8
  install -d $P/etc
  cat <<- "EOF" > $P/etc/inetd.conf
	# See "man 8 inetd" for more information.
	#
	# If you make changes to this file, either reboot your machine or send the
	# inetd a HUP signal:
	# Do a "ps x" as root and look up the pid of inetd. Then do a
	# "kill -HUP <pid of inetd>".
	# The inetd will re-read this file whenever it gets that signal.
	#
	# <service_name> <sock_type> <proto> <flags> <user> <server_path> <args>
	#
	# The first 4 services are really only used for debugging purposes, so
	# we comment them out since they can otherwise be used for some nasty
	# denial-of-service attacks.  If you need them, uncomment them.
	# echo   	stream	tcp	nowait	root	internal
	# echo   	dgram	udp	wait	root	internal
	# discard	stream	tcp	nowait	root	internal
	# discard	dgram	udp	wait	root	internal
	# daytime	stream	tcp	nowait	root	internal
	# daytime	dgram	udp	wait	root	internal
	# chargen	stream	tcp	nowait	root	internal
	# chargen	dgram	udp	wait	root	internal
	time	stream	tcp	nowait	root	internal
	time	dgram	udp	wait	root	internal
	#
	# These are standard services.
	#
	ftp	stream	tcp	nowait	root	/usr/sbin/tcpd	in.ftpd
	telnet	stream  tcp     nowait  root    /usr/sbin/tcpd	in.telnetd
	#
	# Use this one instead if you want to snoop on telnet users (try to use this
	# for ethical purposes, ok folks?) :
	# telnet stream  tcp     nowait  root    /usr/sbin/tcpd  /usr/sbin/in.telnetsnoopd
	#
	# This is generally unnecessary.  The daemon provided by INN will handle the
	# incoming NNTP connections.
	# nntp	stream	tcp	nowait	root	/usr/sbin/tcpd	in.nntpd
	#
	# This is for BSD sendmail.  NOTE:  It's not a good idea to uncomment this
	# one, since sendmail is already set up to run as a daemon in /etc/rc.d/rc.M.
	# But, if you really want to run sendmail this way for some reason, you'll
	# need to uncomment the smtp line below AND change the line in /etc/rc.d/rc.M
	# to run sendmail like this:  /usr/sbin/sendmail -q30m
	# ...otherwise the queue will not be processed.
	# smtp  stream  tcp     nowait  root    /usr/sbin/tcpd  sendmail -bs
	#
	# The comsat daemon notifies the user of new mail when biff is set to y:
	comsat        dgram   udp     wait    root    /usr/sbin/tcpd  in.comsat
	#
	# Shell, login, exec and talk are BSD protocols.
	#
	shell	stream	tcp	nowait	root	/usr/sbin/tcpd	in.rshd -L
	login	stream	tcp	nowait	root	/usr/sbin/tcpd	in.rlogind
	# exec	stream	tcp	nowait	root	/usr/sbin/tcpd	in.rexecd
	# talk	dgram	udp	wait	root	/usr/sbin/tcpd	in.talkd
	# ntalk	dgram	udp	wait	root	/usr/sbin/tcpd	in.talkd
	ssh     stream  tcp     nowait  root    /usr/sbin/tcpd  /usr/sbin/sshd -i
	
	#
	# Kerberos authenticated services
	#
	# klogin	stream	tcp	nowait	root	/usr/sbin/tcpd	rlogind -k
	# eklogin	stream	tcp	nowait	root	/usr/sbin/tcpd	rlogind -k -x
	# kshell	stream	tcp	nowait	root	/usr/sbin/tcpd	rshd -k
	#
	# Services run ONLY on the Kerberos server
	#
	# krbupdate	stream	tcp	nowait	root	/usr/sbin/tcpd	registerd
	# kpasswd	stream	tcp	nowait	root	/usr/sbin/tcpd	kpasswdd
	#
	# Pop et al
	#
	# pop2	stream	tcp	nowait	root	/usr/sbin/tcpd	in.pop2d
	pop3    stream  tcp     nowait  root    /usr/sbin/tcpd	ipop3d
	imap    stream  tcp     nowait  root    /usr/sbin/tcpd	imapd
	pop3s   stream  tcp     nowait  root    /usr/sbin/tcpd	ipop3d
	imaps   stream  tcp     nowait  root    /usr/sbin/tcpd	imapd
	#
	# The ipop3d POP3 server is part of the Pine distribution.  If you've
	# installed the Pine package, you may wish to switch to ipop3d by
	# commenting out the pop3 line above, and uncommenting the pop3 line below.
	#pop3    stream  tcp     nowait  root    /usr/sbin/tcpd  ipop3d
	# imap2   stream  tcp     nowait  root    /usr/sbin/tcpd  imapd
	#
	# The Internet UUCP service.
	#
	# uucp	stream	tcp	nowait	uucp	/usr/sbin/tcpd	/usr/lib/uucp/uucico	-l
	#
	# Tftp service is provided primarily for booting.  Most sites
	# run this only on machines acting as "boot servers."
	#
	# tftp	dgram	udp	wait	nobody	/usr/sbin/tcpd	in.tftpd
	# bootps	dgram	udp	wait	root	/usr/sbin/in.bootpd	in.bootpd
	#
	# Finger, systat and netstat give out user information which may be
	# valuable to potential "system crackers."  Many sites choose to disable
	# some or all of these services to improve security.
	# Try "telnet localhost systat" and "telnet localhost netstat" to see that
	# information yourself!
	#
	# finger	stream	tcp	nowait	nobody	/usr/sbin/tcpd	in.fingerd -w
	# systat	stream	tcp	nowait	nobody	/usr/sbin/tcpd	/bin/ps	-auwwx
	# netstat	stream	tcp	nowait	root	/usr/sbin/tcpd	/bin/netstat	-a
	#
	# Ident service is used for net authentication
	auth	stream	tcp	wait	root	/usr/sbin/in.identd	in.identd -w -t120 -l
	#
	# These are to start Samba, an smb server that can export filesystems to
	# Pathworks, Lanmanager for DOS, Windows for Workgroups, Windows95, Lanmanager
	# for Windows, Lanmanager for OS/2, Windows NT, etc.
	# If you're running smbd and nmbd from daemons in /etc/rc.d/rc.samba, then you
	# shouldn't uncomment these lines.
	# netbios-ssn     stream  tcp     nowait  root    /usr/local/samba/bin/smbd  smbd
	# netbios-ns      dgram   udp     wait    root    /usr/local/samba/bin/nmbd  nmbd
	#
	# Sun-RPC based services.
	# <service name/version><sock_type><rpc/prot><flags><user><server><args>
	#
	# rstatd/1-3	dgram	rpc/udp	wait	root	/usr/sbin/tcpd	rpc.rstatd
	# rusersd/2-3	dgram	rpc/udp	wait	root	/usr/sbin/tcpd	rpc.rusersd
	# walld/1		dgram	rpc/udp	wait	root	/usr/sbin/tcpd	rpc.rwalld
	#
	
	skkserv       stream  tcp     nowait  nobody  /usr/sbin/tcpd  /usr/libexec/dbskkd-cdb
	printer	      stream tcp nowait lp /usr/lib/cups/daemon/cups-lpd cups-lpd
	# End of inetd.conf.
	swat	stream tcp nowait root /usr/sbin/tcpd /usr/sbin/swat
	EOF
  touch $W/i.et
  cd $W
  find $P ! -type l -newer i.st ! -newer i.et \
      -exec touch -t `date '+%m%d0900'` {} \;
  compress
  for i in `seq 0 $((${#DOCS[@]} - 1))` ; do
    for j in ${DOCS[$i]} ; do
      for k in ${S[$i]}/$j ; do
        install2 $k $docdir/${src[$i]}/${k#${S[$i]}/}
        touch -r $k $docdir/${src[$i]}/${k#${S[$i]}/}
        gzip_one $docdir/${src[$i]}/${k#${S[$i]}/}
      done
    done
    if [ $i -eq 0 ] ; then
      install $myname $docdir/$src
      touch -t `date '+%m%d0900'` $docdir/$src/$myname
      gzip_one $docdir/$src/$myname
    else
      ln $docdir/$src/$myname.gz $docdir/${src[$i]}
    fi
    ( cd $docdir ; find ${src[$i]} -type d -exec touch -r $W/{} {} \; )
  done
  convert
  tar cvpf $pkg.tar -C $P `cd $P ; find usr/sbin | tail -n+2`
  tar rvpf $pkg.tar -C $P `cd $P ; find usr/share/man/man8 | tail -n+2`
  tar rvpf $pkg.tar -C $P etc/inetd.conf
  tar rvpf $pkg.tar -C $P usr/share/doc/$src
  touch -t `date '+%m%d0900'` $pkg.tar ; xz $pkg.tar ; touch $pkg.tar.xz
  mv $pkg.tar.xz $pkg.txz
  read -p "Do you want to keep work files? [y/N] " ans
  if [ "x$ans" != "xY" -a "x$ans" != "xy" ] ; then rm -rf $P $C i.[se]t ; fi
fi