head	1.13;
access;
symbols;
locks
	alexis:1.13; strict;
comment	@# @;


1.13
date	96.09.26.12.55.40;	author alexis;	state Exp;
branches;
next	1.12;

1.12
date	96.05.11.18.47.59;	author alexis;	state Exp;
branches;
next	1.11;

1.11
date	96.05.05.13.27.32;	author alexis;	state Exp;
branches;
next	1.10;

1.10
date	96.04.18.14.09.41;	author alexis;	state Exp;
branches;
next	1.9;

1.9
date	96.04.15.09.43.09;	author alexis;	state Exp;
branches;
next	1.8;

1.8
date	95.10.17.12.21.44;	author alexis;	state Exp;
branches;
next	1.7;

1.7
date	95.10.15.20.33.48;	author alexis;	state Exp;
branches;
next	1.6;

1.6
date	95.10.14.14.41.15;	author alexis;	state Exp;
branches;
next	1.5;

1.5
date	95.10.13.19.18.25;	author alexis;	state Exp;
branches;
next	1.4;

1.4
date	95.10.13.17.40.40;	author alexis;	state Exp;
branches;
next	1.3;

1.3
date	95.10.10.16.24.46;	author root;	state Exp;
branches;
next	1.2;

1.2
date	95.10.10.16.17.58;	author root;	state Exp;
branches;
next	1.1;

1.1
date	95.10.10.16.15.48;	author root;	state Exp;
branches;
next	;


desc
@INTERNET CONNECT PROGRAM
@


1.13
log
@Changed idle timeout to 5 minutes on Demon's side.
Turned tailing of logs off by default.
@
text
@#!/bin/sh
VERSION="$Id: incp,v 1.12 1996/05/11 18:47:59 alexis Exp alexis $"
PROGNAME=`basename $0`

#  This specifies the default level of message logging. 3 means you will
#  recieve informational messages, warnings and errors; 2 means just
#  the latter two; 1 means just the last one and 0 means no messages will
#  be displayed. Higher numbers will give debugging information. This number
#  may be overridden by using the "-v" or "-d" options on the command line.
DFLT_INCP_DEBUG_LEVEL=2

#  This is the default idle timeout in seconds. Again it can be overridden
#  by using the "-i" option on the command line.
DFLT_INCP_IDLE_TIME_OUT=180

#  This says that line quality should be checked and the internet provider
#  possibly redialled if the quality is bad
DFLT_INCP_CHECK_QUALITY=true

#  This says that news should be got by default. It can be overridden with
#  the "-n" or "-nn" options on the command line.
DFLT_INCP_GET_NEWS=true

#  This says that by default everyone should be "walled" when the connection
#  goes up or down. It can be overridden with the "-w" or "-nw" options on 
#  the command line.
DFLT_INCP_DO_WALL=true

#  This says that that the serial port should be set to 115200 and the modem
#  should be initialised as according to Demon. It may range from 1 to 4 and
#  may be modified with the '-cm' (connect mode) option.
DFLT_INCP_CONN_MODE=1

#  This says that the default behaviour is not to tail /var/adm/message log.
DFLT_INCP_TAIL_LOG=false

#  Locations of various programs
#  This should work, but doesn't - pppd has a bug whereby it gets stuck in
#  sleep commands.
#PPP_DAEMON=/usr/sbin/pppd
PPP_DAEMON=/usr/local/lib/ppp/pppd-experimental
SLIP_IDLE=/usr/local/lib/ppp/slip_idle
XMITNEWS=/usr/local/lib/nntp/xmitnews
NEWSRUNNING=/usr/lib/newsbin/input/newsrunning
NEWSRUN=/usr/lib/newsbin/input/newsrun
NNMASTER=/usr/lib/nn/nnmaster
NNTP_DIR=/usr/local/lib/nntp
SLURP=/usr/local/lib/nntp/slurp
CHAT=/usr/sbin/chat
MESSAGES_FILE=/var/adm/messages

############################ LEAVE THESE ALONE ###############################
CONFIG_FILE=/usr/local/lib/ppp/$PROGNAME.cfg

VERSION=`echo $VERSION | cut -d' ' -f3`
CHAT_FILE=/tmp/$PROGNAME.$$.chat
CONNECTED_FILE=/tmp/$PROGNAME.conn
TERMREQ_FILE=/tmp/$PROGNAME.term
LOCK_FILE=/var/run/$PROGNAME.pid

###############################################################################
#
#	USEFUL FUNCTIONS FOR REPORTING MESSAGES
#
###############################################################################

usage()
{
    #  There are addition second parameters: upprocess, downprocess. But these
    #  are not intended to be used by the user.

    {
        echo "Usage: $PROGNAME -V"
        echo "       $PROGNAME [ -d dbglvl | -v ] [ -i timeout | -ni ] [ -n | -nn ] [ -q | -nq ] host connect"
        echo "       $PROGNAME host disconnect"
    } >&2
    exit 1
}

error()
{
    echo "$PROGNAME: ERROR: $1"
    exit 2
}

internal()
{
    echo "$PROGNAME: INTERNAL ERROR: $1"
    exit 3
}

verbose()
{
    [ $INCP_DEBUG_LEVEL -ge 3 ] && echo "$PROGNAME: INFO: $1" 
}

debug()
{
    [ $1 -le $INCP_DEBUG_LEVEL ] && echo "$PROGNAME[$$]: DEBUG[$1] $2" 
}

incp_log()
{
    logger -p local0.info -t "$PROGNAME[$INCP_MASTER_PID]" "$1"
}

###############################################################################
#
#	ENTRY POINT - PARSE OPTIONS, DO CHECKS AND CALL USER-DEFINED FUNCTION
#
###############################################################################

main()
{
    #  Set some things from the environment otherwise set their values from
    #  defaults defined at the top of this file
    [ $INCP_DEBUG_LEVEL ] || INCP_DEBUG_LEVEL=$DFLT_INCP_DEBUG_LEVEL
    [ $INCP_CONN_MODE ] || INCP_CONN_MODE=$DFLT_INCP_CONN_MODE
    [ $INCP_TAIL_LOG ] || INCP_TAIL_LOG=$DFLT_INCP_TAIL_LOG
    [ $INCP_GET_NEWS ] || INCP_GET_NEWS=$DFLT_INCP_GET_NEWS
    [ $INCP_DO_WALL ] || INCP_DO_WALL=$DFLT_INCP_DO_WALL
    [ $INCP_CHECK_QUALITY ] || INCP_CHECK_QUALITY=$DFLT_INCP_CHECK_QUALITY
    [ $INCP_IDLE_TIME_OUT ] || INCP_IDLE_TIME_OUT=$DFLT_INCP_IDLE_TIME_OUT
    [ $INCP_MASTER_PID ] || INCP_MASTER_PID=$$

    #  process options - over-ruling any previous definition
    while [ "X$1" != X ]; do
        case "$1" in
            -d) [ "X$2" = X ] && usage
                INCP_DEBUG_LEVEL=$2
                shift ;;
            -cm) [ "X$2" = X ] && usage
                INCP_CONN_MODE=$2
                shift 
                case $INCP_CONN_MODE in
                    [1-4]) ;;
                    *) usage ;;
                esac ;;
            -l) INCP_TAIL_LOG=true ;;
            -nl) INCP_TAIL_LOG=false ;;
            -v) INCP_DEBUG_LEVEL=3 ;;
            -i) [ "X$2" = X ] && usage
                INCP_IDLE_TIME_OUT=$2
                shift ;;
            -ni) INCP_IDLE_TIME_OUT=0 ;;
            -q) INCP_CHECK_QUALITY=true ;;
            -nq) INCP_CHECK_QUALITY=false ;;
            -n) INCP_GET_NEWS=true ;;
            -nn) INCP_GET_NEWS=false ;;
            -w) INCP_DO_WALL=true ;;
            -nw) INCP_DO_WALL=false ;;
            -V) echo "$PROGNAME version $VERSION"
                exit 0 ;;
            -*) usage ;;
            *)  break ;;
        esac
        shift
    done
    #  Put some of the things we've just set into the environment so that
    #  when this program (called with connect or disconnect) calls this
    #  this program a second time (with upprocess or downprocess) then
    #  certain values are accessible   
    export INCP_IDLE_TIME_OUT
    export INCP_DEBUG_LEVEL
    export INCP_GET_NEWS
    export INCP_DO_WALL
    export INCP_CHECK_QUALITY
    export INCP_CONN_MODE
    export INCP_TAIL_LOG
    export INCP_MASTER_PID

    #  Parse the first of the two required parameters
    [ "X$2" = X -o "X$3" != X ] && usage 
    debug 50 "main: checking required parameters"
    case "$1" in 
        demon) ;;
        *) error "valid hosts are: demon, you gave $1" ;;
    esac
    INCP_HOST=$1
    export INCP_HOST
    #  Parse the second of the two required parameters
    case "$2" in
        connect) lock_connect $INCP_HOST ;;
        disconnect|upprocess|downprocess) ;;
        *) usage ;;
    esac

    #  Read in the config file and check it defines everything
    if [ -r $CONFIG_FILE ]; then
        . $CONFIG_FILE
    else
        error "can't read $CONFIG_FILE"
    fi
    [ $CONFIGURED = false ] && configure_me
    [ "X$PHONE_NUMBER" = X ] && configure_me
    [ "X$LOGIN" = X ] && configure_me
    [ "X$PASSWORD" = X ] && configure_me
    [ "X$PORT" = X ] && configure_me
    [ "X$NETMASK" = X ] && configure_me
    [ "X$NNTP_SERVER" = X ] && configure_me
    [ "X$TESTHOSTS" = X ] && configure_me
    [ "X$TESTLOSSES" = X ] && configure_me

    #  Some non-host-specific sanity checks
    [ -x $PPP_DAEMON ] || error "can't execute $PPP_DAEMON" 
    [ -x $SLIP_IDLE ] || error "can't execute $SLIP_IDLE" 
    [ -x $SLURP ] || error "can't execute $SLURP" 
    [ -x $NEWSRUNNING ] || error "can't execute $NEWSRUNNING" 

    #  Now call the function based on the two parameters, e.g. if we had
    #  parameters "demon" and "connect", we know call "demon_connect"
    debug 20 "main: will call $1_$2"
    incp_log "$PROGNAME $VERSION started. ($INCP_HOST,$2,$LOGNAME)"
    $1_$2
    incp_log "Exit ($INCP_HOST,$2,$LOGNAME)"
    case "$2" in
        connect) unlock_connect $INCP_HOST ;;
    esac
    exit 
}

###############################################################################
#
#	USER DEFINED FUNCTIONS: HOST_CONNECT, HOST_DISCONNECT, HOST_UPPROCESS
#			        HOST_DOWNPROCESS
#
###############################################################################

#
#  This function specifies how to establish the connection to a host
#  So if you want to connect to Microsoft Network then you will need to
#  write a function "msn_connect". This one details how to connect to
#  Demon. 
#

demon_connect()
{
    debug 50 "demon_connect: starting ..."
    [ $INCP_TAIL_LOG = true ] && tail -f $MESSAGES_FILE &

    #  Flush outgoing newsbatches before we start if required to do so
    if [ $INCP_GET_NEWS = true ]; then
        enable_other_news_processing
        flush_batches_to_database_and_possibly_queue_out
    fi
    debug 50 "demon_connect: creating the chat script ..."
    #  The chat script is now stored here and written out to a tmp file. This
    #  means all the config stuff can be kept in this one file. 
    OLDUMASK=`umask`
    umask 077

    cat > $CHAT_FILE <<EOF
ABORT BUSY ABORT 'NO CARRIER' ABORT 'NO DIAL TONE' ABORT 'Login incorrect'
EOF
    if [ $INCP_CONN_MODE = 1 -o $INCP_CONN_MODE = 2 ]; then
        verbose "Complex chat"
        cat >> $CHAT_FILE <<EOF
TIMEOUT 5 '' ATZ OK-ATZ-OK ATB0 OK ATC1 OK ATE1 OK ATF1 OK ATQ0 OK ATV1 OK AT&A3 OK AT&B1 OK AT&C1 OK AT&D2 OK AT&G2 OK AT&H1 OK AT&I0 OK AT&K3 OK AT&N0 OK AT&R2 OK AT&S1 OK ATDT$PHONE_NUMBER
EOF
    else
        verbose "Simple chat"
        cat >> $CHAT_FILE <<EOF
TIMEOUT 5 '' ATZ OK-ATZ-OK ATDT$PHONE_NUMBER
EOF
    fi
    cat >> $CHAT_FILE <<EOF
TIMEOUT 30 CONNECT '' 
TIMEOUT 20 ogin:--ogin: \p\p$LOGIN 
TIMEOUT 15 assword: \p\p$PASSWORD
TIMEOUT 15 col: \p\pppp,nolqm,idle=300 HELLO
EOF
    umask $OLDUMASK

    rm -f $CONNECTED_FILE
    rm -f $TERMREQ_FILE

    if [ $INCP_CONN_MODE = 1 -o $INCP_CONN_MODE = 3 ]; then
        verbose "115200 serial port - this will not undone at termination"
        setserial $PORT spd_vhi
    else
        verbose "38400 serial port - this will not undone at termination"
        setserial $PORT spd_normal
    fi

    verbose "Connecting ..."
    while [ ! -f $CONNECTED_FILE -a ! -f $TERMREQ_FILE ]; do
        $PPP_DAEMON $PORT 38400 connect "$CHAT -v -f $CHAT_FILE" \
            crtscts defaultroute lock netmask $NETMASK `hostname`: \
	    asyncmap 0x00000000 mru 576 mtu 576 lcp-echo-interval 180 \
            -detach
    done
    rm -f $CHAT_FILE
    if [ -f $CONNECTED_FILE -a -f $TERMREQ_FILE ]; then
        verbose "Connection terminated by user."
        incp_log "DISCONNECTED - interrupt"
    elif [ -f $CONNECTED_FILE ]; then
        verbose "Disconnected."
        incp_log "DISCONNECTED - idle timeout"
    elif [ -f $TERMREQ_FILE ]; then
        verbose "Connection attempt terminated by user."
        incp_log "Giving up - interrupt"
    else
        internal "unrecognised situation - this may not be an error"
    fi
}

demon_disconnect()
{
    debug 50 "demon_disconnect: starting ..."
        
    > $TERMREQ_FILE
    kill_connected_pppd
    kill_stubborn_pppd
}

demon_upprocess()
{
    debug 5 "demon_upprocess: starting ..."
    incp_log "CONNECTED"
    debug 5 "demon_upprocess: if quality check"
    if [ $INCP_CHECK_QUALITY != true ]; then
        debug 5 "demon_upprocess: no quality check"
        incp_log "no quality check"
    elif ! check_stable; then
        debug 5 "demon_upprocess: quality checked and unacceptable"
        kill_connected_pppd
        incp_log "DISCONNECTED - unacceptable quality"
        incp_log "Exit."
        exit
    fi
    debug 5 "demon_upprocess: quality not checked or acceptable"
    incp_log "acceptable quality"

    > $CONNECTED_FILE
    say_internet_up
    kick_send_mail_queue
    start_idle_timeout
    [ $INCP_GET_NEWS = true ] && {
        disable_other_news_processing
        send_out_queued_news
        get_new_news
        enable_other_news_processing
        flush_batches_to_database_and_possibly_queue_out
        update_nn_db
    }
    verbose "Connection processing completed."
}

demon_downprocess()
{
    #  The point of this "if" is that if the connection was up but not
    #  a good quality link then we would have retried and never announced
    #  to the users that the the connection was up. As such if connection
    #  was bad then we also do not want to tell them it's gone down since
    #  they never knew it was up.

    verbose "Disconnecting ..."
    if [ -f $CONNECTED_FILE ]; then
        say_internet_down
    fi
}

flush_batches_to_database_and_possibly_queue_out()
{
    verbose "Flushing news buffers ..."
    su - news -c $NEWSRUN
}

kill_stubborn_pppd()
{
    debug 5 "kill_stubborn_pppd: sof, getting pppd pid"
    PPPD_PID=`ps -ax | grep pppd | grep -v grep | sed 's/^ *\([0-9][0-9]*\) .*/\1/'`
    debug 5 "kill_stubborn_pppd: pppd pid is: $PPPD_PID"
    if [ "$PPPD_PID" ]; then
        debug 5 "kill_stubborn_pppd: killing running pppd with normal sig"
        kill $PPPD_PID
        debug 5 "kill_stubborn_pppd: about to repeatedly check if still running"
        for I in 1 2 3 4 5 6 7 8 9 10; do
            debug 5 "kill_stubborn_pppd: checking if pppd process directory still exists (check $I)"
            sleep 1
            [ -d /proc/$PPPD_PID ] || { debug 5 "kill_stubborn_pppd: pppd exited"; return; }
            debug 5 "kill_stubborn_pppd: must be still running"
        done
        debug 5 "kill_stubborn_pppd: now getting process list again"
        PPPD_PID=`ps -ax | grep pppd | grep -v grep | sed 's/^ *\([0-9][0-9]*\) .*/\1/'`
        debug 5 "kill_stubborn_pppd: pppd pid is: $PPPD_PID"
        debug 5 "kill_stubborn_pppd: about to check if pppd process still running"
        if [ "$PPPD_PID" ]; then
            debug 5 "kill_stubborn_pppd: killing running pppd with -9"
	    kill -9 $PPPD_PID
        fi
        debug 5 "kill_stubborn_pppd: fi 1"
    fi
    debug 5 "kill_stubborn_pppd: fi 2"
}

kill_connected_pppd()
{
    if [ ! -f /var/run/ppp0.pid ]; then
        debug 5 "kill_connected_pppd: no pid file - connection probably wasn't established"
        return
    fi

    PPPD_PID=`cat /var/run/ppp0.pid`
    debug 5 "kill_connected_pppd: checking if pppd process dir exists"
    if [ ! -d /proc/$PPPD_PID ]; then
        debug 5 "kill_connected_pppd: stale pid file - connection probably wasn't established"
        return
    fi

    debug 5 "kill_connected_pppd: pid file valid - connection probably established - pppd will be terminated"
    kill $PPPD_PID
}

lock_connect()
{
    #  The complicated art of managing lock files!
    debug 5 "lock_connect: creating a private key"
    echo $$ > $LOCK_FILE.$$
    debug 5 "lock_connect: sliding key into lock"
    ln $LOCK_FILE.$$ $LOCK_FILE 2>/dev/null && { rm $LOCK_FILE.$$; return; }
    debug 5 "lock_connect: another key in lock already"
    LOCKINGPID=`cat $LOCK_FILE`
    [ "X$LOCKINGPID" = X ] && error "corrupt lock file encountered"
    debug 5 "lock_connect: checking if locking pid proc dir exists"
    [ -d /proc/$LOCKINGPID ] && error "program already running!"
    rm -f $LOCK_FILE
    verbose "Removed stale lock file."
    ln $LOCK_FILE.$$ $LOCK_FILE && { rm $LOCK_FILE.$$; return; }
    error "still cannot lock after removing stale lock file"
}

unlock_connect()
{
    rm -f $LOCK_FILE
}

check_stable()
{
    verbose "Connected. Testing quality ..."
    incp_log "Testing quality"
    #debug 15 "check_stable: waiting 15 seconds for connection to settle"
    #sleep 15
    #  Now calculate the packet loss to a very close host
    MAXLOSSES="$TESTLOSSES"
    for HOST in $TESTHOSTS; do
        set $MAXLOSSES
        MAXLOSS=$1
        shift
        MAXLOSSES="$*"
        debug 15 "check_stable: pinging $HOST, acceptable loss is $MAXLOSS%"
        #sleep 10
        LOSS=`ping -c 10 -n -q $HOST | sed -n 's/^.*ed, \([0-9]*\)% pa.*$/\1/p'`
        if [ $LOSS -gt $MAXLOSS ]; then
            verbose "$LOSS% packet loss to $HOST, disconnecting ..."
            incp_log "$LOSS% packet loss to $HOST"
            return 1
        fi
    done
    return 0
}


say_internet_up()
{
    verbose "Connected."
    [ $INCP_DO_WALL = true ] && wall <<EOF

                     #################################
                     #                               #
                     #   INTERNET CONNECTION IS UP   #
                     #                               #
                     #################################

EOF
}

kick_send_mail_queue()
{
    #  Send post
    verbose "Dispatching outbound mail ..."
    /usr/lib/sendmail -q &
}

start_idle_timeout()
{
    if [ $INCP_IDLE_TIME_OUT != 0 ]; then
        verbose "Idle timeout is $INCP_IDLE_TIME_OUT seconds."
        nohup $SLIP_IDLE -t $INCP_IDLE_TIME_OUT -i ppp0 -p `basename $PPP_DAEMON` > /dev/null 2>&1 &
    else 
        incp_log "No idle timeout"
        verbose "No idle timeout set."
    fi
}

send_out_queued_news()
{
    #  Send news
    verbose "Dispatching outbound news ..."
    if [ $INCP_DEBUG_LEVEL -ge 3 ]; then
        su - news -c "$XMITNEWS -d -h $NNTP_SERVER -f /var/spool/news/out.going/$NNTP_SERVER/togo"
    else
        su - news -c "$XMITNEWS -d -h $NNTP_SERVER -f /var/spool/news/out.going/$NNTP_SERVER/togo" > /dev/null 2>&1
    fi
}

fix_kacky_slurp_file()
{
    [ `wc -l < $NNTP_DIR/slurp.$NNTP_SERVER` -gt 1 ] && {
        cp $NNTP_DIR/slurp.$NNTP_SERVER $NNTP_DIR/slurp.$NNTP_SERVER.bak
        head -1 $NNTP_DIR/slurp.$NNTP_SERVER.bak > $NNTP_DIR/slurp.$NNTP_SERVER
        verbose "Fixed corrupt slurp timestamp file."
    }
}

disable_other_news_processing()
{
    su - news -c "$NEWSRUNNING off"
}

get_new_news()
{
    fix_kacky_slurp_file

    #  Get news
    SLURP_RC=1
    verbose "Downloading news batches ..."
    while [ $SLURP_RC != 0 ]; do
        if [ $INCP_DEBUG_LEVEL -ge 3 ]; then
            su - news -c "$SLURP -d $NNTP_SERVER"
        else
            su - news -c "$SLURP -d $NNTP_SERVER" > /dev/null 2>&1
        fi
        SLURP_RC=$?
        [ $SLURP_RC != 0 ] && debug 5 "get_new_news: failed - retrying"
        sleep 1
    done
}

enable_other_news_processing()
{
    su - news -c "$NEWSRUNNING on"
}

update_nn_db()
{
    #  Update the NN database
    verbose "Updating nn fast access database ..."
    su - news -c $NNMASTER
}

say_internet_down()
{
    [ $INCP_DO_WALL = true ] && wall <<EOF


                     #################################
                     #                               #
                     #  INTERNET CONNECTION IS DOWN  #
                     #                               #
                     #################################


EOF
}

configure_me()
{
    cat <<EOF

    This program has not been configured. Please consult the documentation
    which explains what should be done.
EOF
}

main "$@@"
@


1.12
log
@Added more debug
removed some sleeps
added -cm connection mode flag primarily for john to try out
also -l / -nl for tailing the log file or not
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.11 1996/05/05 13:27:32 alexis Exp alexis $"
d35 1
a35 1
DFLT_INCP_TAIL_LOG=true
d270 1
a270 1
TIMEOUT 15 col: \p\pppp,nolqm,idle=0 HELLO
@


1.11
log
@Chat script changes to optimize connection speed
extra debugging messages to help ascertain why disconnects sometimes
    report /proc access errors.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.10 1996/04/18 14:09:41 alexis Exp alexis $"
d29 8
d38 3
d49 2
d118 2
d132 9
d168 2
d239 1
d242 4
a245 1
    [ $INCP_GET_NEWS = true ] && flush_batches_to_database_and_possibly_queue_out
d251 1
d254 9
d264 3
d268 3
a270 3
TIMEOUT 20 ogin:--ogin: $LOGIN 
TIMEOUT 15 assword: $PASSWORD
TIMEOUT 15 col: ppp,nolqm,idle=0 HELLO
d276 9
d287 1
a287 1
        $PPP_DAEMON $PORT 38400 connect "/usr/lib/ppp/chat -v -f $CHAT_FILE" \
d365 1
d442 2
a443 2
    debug 15 "check_stable: waiting 15 seconds for connection to settle"
    sleep 15
d452 1
a452 1
        sleep 10
@


1.10
log
@More debug messages added.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.9 1996/04/15 09:43:09 alexis Exp alexis $"
d222 1
a222 1
ABORT BUSY ABORT 'NO CARRIER' ABORT 'NO DIAL TONE'
d225 3
a227 3
TIMEOUT 30 ogin:--ogin: $LOGIN 
TIMEOUT 60 assword: $PASSWORD
TIMEOUT 60 col: ppp,nolqm,idle=0 HELLO
d326 2
a327 1
            debug 5 "kill_stubborn_pppd: about to check if pppd process directory still exists"
@


1.9
log
@Doesn't work! -nq option problems.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.8 1995/10/17 12:21:44 alexis Exp alexis $"
d86 1
a86 1
    [ $1 -le $INCP_DEBUG_LEVEL ] && echo "$PROGNAME: DEBUG[$1] $2" 
d318 1
d320 1
d322 1
a322 1
        debug 50 "kill_stubborn_pppd: killing running pppd"
d324 1
d328 1
d330 1
d332 1
d338 1
d340 1
@


1.8
log
@Moved all site specific config out to a config file that gets sourced.
Tidied up usage message.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.7 1995/10/15 20:33:48 alexis Exp alexis $"
d235 1
a235 1
        $PPP_DAEMON $PORT 38400 connect "/usr/lib/ppp/chat    -f $CHAT_FILE" \
d266 1
a266 1
    debug 50 "demon_upprocess: starting ..."
d268 1
d270 1
d273 1
d279 1
d323 1
d327 1
d343 1
d356 1
a356 1
    debug 5 "creating a private key"
d358 1
a358 1
    debug 5 "sliding key into lock"
d360 1
a360 1
    debug 5 "another key in lock already"
d363 1
@


1.7
log
@Changed all exported variable names. Now all start INCP_*.
Now pass process id of parent incp to child in order that upprocess and
    downprocess both get logged with the pid of the incp_connect call.
    This also needed a change to the way logger was called.
incp_log messages have been changed so that they say "CONNECTED" or
    "DISCONNECTED" when the IP connection state changes. This is not
    connected with the phone status nor with the messages that the user
    may see. (it's somewhere between the two)
@
text
@d2 2
a3 7
VERSION="$Id: incp,v 1.6 1995/10/14 14:41:15 alexis Exp alexis $"

#  *****************************  CHANGE THIS *****************************
#  This line is just here to ensure that you understand that this file
#  must be configured a little bit. If you complete the configuration then
#  you may change this to be true.
CONFIGURED=true
a4 1
#  *****************************  CHANGE THIS *****************************
d10 1
a10 1
DFLT_INCP_DEBUG_LEVEL=3
a11 1
#  *****************************  CHANGE THIS *****************************
a15 1
#  *****************************  CHANGE THIS *****************************
a19 1
#  *****************************  CHANGE THIS *****************************
a23 1
#  *****************************  CHANGE THIS *****************************
a28 1
#  *****************************  CHANGE THIS *****************************
d40 2
a41 1
PROGNAME=`basename $0`
d61 2
a62 2
        echo "       $PROGNAME [ -d dbglvl | -v ] [ -i timeout | -ni ] [ -n | -nn ] [ -q | -nq ] connect"
        echo "       $PROGNAME disconnect"
a103 1
    [ $CONFIGURED = false ] && configure_me
d151 1
a151 1
        *) error "valid hosts are: demon" ;;
d162 16
a213 21
    #  *****************************  CHANGE THIS *****************************
    #  This is the phone number used to connect
    PHONE_NUMBER="01813389666"

    #  *****************************  CHANGE THIS *****************************
    #  This is the login supplied
    LOGIN="danae"

    #  *****************************  CHANGE THIS *****************************
    #  And this is the password supplied
    PASSWORD="sdraiato"

    #  *****************************  CHANGE THIS *****************************
    #  And this is the port the modem's on
    PORT=/dev/cua0

    #  *****************************  CHANGE THIS *****************************
    #  And this is the netmask
    NETMASK=255.255.0.0

    #  **************************** LEAVE THIS ALONE ***************************
a265 15
    #  *****************************  CHANGE THIS *****************************
    #  This is the name of the machine that provides you with news
    NNTP_SERVER="news.demon.co.uk"

    #  *****************************  CHANGE THIS *****************************
    #  This is a list of hosts which should be pinged in order to verify 
    #  that a quality connection has been made
    TESTHOSTS="gate.demon.co.uk ftp.demon.co.uk"

    #  *****************************  CHANGE THIS *****************************
    #  And these are the associated maximum acceptable data loss percentages
    #  if any are exceeded then the phone will be replaced and redialled
    TESTLOSSES="10 10"

    #  **************************** LEAVE THIS ALONE ***************************
@


1.6
log
@Fixed a syntax error that got in last time.
Changed the incp_log messages
Reduced the quality test to only two hosts
relocated some exits and returns
check_stable now does just that, it no longer kills the connection if
    the quality is bad. It's left to the caller to do that.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.5 1995/10/13 19:18:25 alexis Exp alexis $"
d16 1
a16 1
DFLT_DEBUG_LEVEL=3
d21 1
a21 1
DFLT_IDLE_TIME_OUT=180
d26 1
a26 1
DFLT_CHECK_QUALITY=true
d31 1
a31 1
DFLT_GET_NEWS=true
d37 1
a37 1
DFLT_DO_WALL=true
d91 1
a91 1
    [ $DEBUG_LEVEL -ge 3 ] && echo "$PROGNAME: INFO: $1" 
d96 1
a96 1
    [ $1 -le $DEBUG_LEVEL ] && echo "$PROGNAME: DEBUG[$1] $2" 
d101 1
a101 1
    logger -i -p local0.info -t $PROGNAME "$1"
d115 6
a120 5
    [ $DEBUG_LEVEL ] || DEBUG_LEVEL=$DFLT_DEBUG_LEVEL
    [ $GET_NEWS ] || GET_NEWS=$DFLT_GET_NEWS
    [ $DO_WALL ] || DO_WALL=$DFLT_DO_WALL
    [ $CHECK_QUALITY ] || CHECK_QUALITY=$DFLT_CHECK_QUALITY
    [ $IDLE_TIME_OUT ] || IDLE_TIME_OUT=$DFLT_IDLE_TIME_OUT
d126 1
a126 1
                DEBUG_LEVEL=$2
d128 1
a128 1
            -v) DEBUG_LEVEL=3 ;;
d130 1
a130 1
                IDLE_TIME_OUT=$2
d132 7
a138 7
            -ni) IDLE_TIME_OUT=0 ;;
            -q) CHECK_QUALITY=true ;;
            -nq) CHECK_QUALITY=false ;;
            -n) GET_NEWS=true ;;
            -nn) GET_NEWS=false ;;
            -w) DO_WALL=true ;;
            -nw) DO_WALL=false ;;
d150 6
a155 5
    export IDLE_TIME_OUT
    export DEBUG_LEVEL
    export GET_NEWS
    export DO_WALL
    export CHECK_QUALITY
d185 3
d231 1
a231 1
    [ $GET_NEWS = true ] && flush_batches_to_database_and_possibly_queue_out
d259 1
a259 1
        incp_log "Disconnected - interrupt"
d262 1
a262 1
        incp_log "Disconnected - idle timeout"
d298 3
a300 2
    if [ $CHECK_QUALITY != true ]; then
        incp_log "Connected - no quality check"
d303 1
a303 1
        incp_log "Disconnected - unacceptable quality"
d307 1
a308 1
    incp_log "Connected - acceptable quality"
d313 1
a313 1
    [ $GET_NEWS = true ] && {
d394 5
d428 1
a428 1
    [ $DO_WALL = true ] && wall <<EOF
d448 3
a450 3
    if [ $IDLE_TIME_OUT != 0 ]; then
        verbose "Idle timeout is $IDLE_TIME_OUT seconds."
        nohup $SLIP_IDLE -t $IDLE_TIME_OUT -i ppp0 -p `basename $PPP_DAEMON` > /dev/null 2>&1 &
d452 1
a452 1
        incp_log "WARNING: No idle timeout"
d461 1
a461 1
    if [ $DEBUG_LEVEL -ge 3 ]; then
d490 1
a490 1
        if [ $DEBUG_LEVEL -ge 3 ]; then
d515 1
a515 1
    [ $DO_WALL = true ] && wall <<EOF
@


1.5
log
@Added support for suppressing walling everyone. With -w and -nw.
Changed use of newsrun to a variable.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.4 1995/10/13 17:40:40 alexis Exp alexis $"
d117 1
a117 1
    [ $DO_WALL ] || DO)_WALL=$DFLT_DO_WALL
d180 1
a180 1
    incp_log "version $VERSION,  host $HOST, mode $2"
d182 2
a183 2
    #  This function now returns to the call at the bottom of this file and
    #  immediately exits
d254 1
a254 1
        incp_log "disconnected - user request"
d257 1
a257 1
        incp_log "disconnected - idle timeout"
d260 1
a260 1
        incp_log "giving up - user request"
d284 1
a284 1
    TESTHOSTS="gate.demon.co.uk ftp.demon.co.uk ftp.doc.ic.ac.uk"
d289 1
a289 1
    TESTLOSSES="10 10 10"
d293 7
a299 5
    if [ $CHECK_QUALITY = true ]; then
        check_stable
        incp_log "connected - acceptable quality"
    else
        incp_log "connected - no quality check"
d301 2
d391 1
d406 2
a407 3
            kill_connected_pppd
            incp_log "disconnected - $LOSS% packet loss to $HOST"
            exit
d410 1
d441 1
a441 1
        incp_log "no idle timeout"
@


1.4
log
@Added support for no walling.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.3 1995/10/10 16:24:46 root Exp alexis $"
d45 1
d117 1
a117 1
    [ $DO_WALL ] || GET_NEWS=$DFLT_DO_WALL
d330 1
a330 1
    su - news -c newsrun
d499 1
a499 1
    [ $DO_WALL = true ] &&  wall <<EOF
@


1.3
log
@-V option reports RCS version number now instead of date-version.
@
text
@d2 1
a2 1
VERSION="$Id: incp,v 1.2 1995/10/10 16:17:58 root Exp root $"
d34 6
d116 1
d135 2
d151 1
d411 1
a411 1
    wall <<EOF
d498 1
a498 1
    wall <<EOF
@


1.2
log
@added version control string.
@
text
@d2 1
a2 2
PROGNAME=`basename $0`
VERSION="$Id$"
d44 2
@


1.1
log
@Initial revision
@
text
@d3 1
a3 1
VERSION="Tue Oct 10 13:49:05 BST 1995"
@