0b0798c8a4
Perl TetriNET Server (pts) is a tetrinet server written in perl. pts
has the following features:
* Written in Perl. You can run PTS on Windows/Unix/etc.
* Supports multiple channels.
* Supports TetriNET and TetriFAST clients. (no Tspec, no IRC)
* Supports Query (IRC bot's check) access.
* 10 level authority.
* Game statistics.
* User Profile with registered nick (no registered team yet).
* Ping.
* Async DNS lookup.
* Anti flood.
* Imperfect detection of cheat programs.
Provided in PR pkg/19372 by David Ferlier. The package needs some fixing.
36 lines
659 B
Bash
36 lines
659 B
Bash
#!/bin/sh
|
|
# $NetBSD: DEINSTALL,v 1.1.1.1 2003/04/13 08:25:30 jmmv Exp $
|
|
|
|
PKGNAME=$1
|
|
STAGE=$2
|
|
REMOVED="no"
|
|
|
|
LIST="${PKG_PREFIX}/share/pts/game.winlist \
|
|
${PKG_PREFIX}/share/pts/pts.lmsg \
|
|
${PKG_PREFIX}/share/pts/pts.profile \
|
|
${PKG_PREFIX}/share/pts/logs \
|
|
${PKG_PREFIX}/share/pts/dstats"
|
|
|
|
case ${STAGE} in
|
|
DEINSTALL)
|
|
for to_trash in ${LIST}; do
|
|
if [ -e "${to_trash}" ]; then
|
|
REMOVED="yes"
|
|
if [ -d "${to_trash}" ]; then
|
|
rm -rf ${to_trash}/*
|
|
elif [ -f "${to_trash}" ]; then
|
|
rm ${to_trash}
|
|
fi
|
|
fi
|
|
done
|
|
;;
|
|
|
|
POST-DEINSTALL)
|
|
;;
|
|
|
|
*)
|
|
echo "Unexpected argument: ${STAGE}"
|
|
exit 1
|
|
;;
|
|
esac
|
|
exit 0
|