head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	98.02.28.14.47.15;	author alexis;	state Exp;
branches;
next	;


desc
@SCRIPT TO UPLOAD NEWS WITH 'SUCK'
(does nothing! upload is taken care of by the same program the download
script calls!)
@


1.1
log
@Initial revision
@
text
@#!SCRIPTSHELLCMD_MARKER
PROGNAME=`basename $0`
# $Id: getnews.in,v 1.12 1998/02/05 12:27:22 alexis Exp $
VERSION="PATCHLEVEL_MARKER"

##############################################################################
#                                                                            #
#  DON'T CHANGE ANYTHING BELOW HERE                                          #
#                                                                            #
##############################################################################

usage()
{
    { 
        echo "Usage: $PROGNAME [ -d <level> | -v ]"
        echo "       $PROGNAME -V"
    } >&2
    exit 2
}

main()
{
    VERBOSE_LEVEL=2

    #  Process options - author to add extra options!
    while [ "X$1" != X ]; do
        case "$1" in
            -V) if expr "$VERSION" : 'P.*R$' > /dev/null; then
                    warning "this is a development version; use 'ident' for version information"
                    exit 1 
                else                
                    echo "$PROGNAME version $VERSION"
                    exit 0
                fi ;;
            -d) [ "X$2" = X ] && usage 
                VERBOSE_LEVEL=$2
                shift ;;
            -v) VERBOSE_LEVEL=3 ;;
            -*) usage ;;
            *)  break ;;
        esac
        shift
    done

    [ "X$1" != X ] && usage

    info "no action required"
}

internal()
{
    echo "$PROGNAME: \
INTERNAL ERROR: $*"
    exit 2
}

VERBOSE_LEVEL=${VERBOSE_LEVEL:-2}
error()
{
    FATAL=false

    while :; do
        case "$1" in
            -f) FATAL=true ;;
            -*) internal "invalid option to error() '$1'" ;;
            *)  break ;;
        esac
        shift
    done

    if [ $VERBOSE_LEVEL -ge 1 ]; then
         if [ $FATAL = true ]; then
             echo "$PROGNAME: \
FATAL ERROR: $*" >&2
         else
             echo "$PROGNAME: \
ERROR: $*" >&2
         fi
    fi

    [ $FATAL = true ] && exit 1
    return 1
}

VERBOSE_LEVEL=${VERBOSE_LEVEL:-2}
warning()
{
    [ $VERBOSE_LEVEL -ge 2 ] && { echo "$PROGNAME: \
WARNING: $*" >&2; }
    return 0
}

VERBOSE_LEVEL=${VERBOSE_LEVEL:-2}
debug()
{
    if [ $VERBOSE_LEVEL -ge $1 ]; then
        shift
        if [ "X$MSG_HANDLE" = Xstderr ]; then 
            echo "$PROGNAME: \
DEBUG: $*" >&2
        else
            echo "$PROGNAME: \
DEBUG: $*"
        fi
    fi
    return 0
}

VERBOSE_LEVEL=${VERBOSE_LEVEL:-2}
info()
{
    [ $VERBOSE_LEVEL -lt 3 ] && return

    while :; do
        case "$1" in
            -*) internal "invalid option to info() '$1'" ;;
            *)  break ;;
        esac
        shift
    done

    if [ "X$MSG_HANDLE" = Xstderr ]; then 
        echo "$PROGNAME: \
INFO: $*" >&2
    else
        echo "$PROGNAME: \
INFO: $*"
    fi
    return 0
}

umask 022
main "$@@"
exit $?
@