connect-hooks0000775000175000017500000000032211337021242012226 0ustar johnjohn#! /bin/sh LOCAL_ONLINE_SCRIPT=/etc/init/online /etc/ppp/dns up $DNS1 $DNS2 su $PPPLOGNAME --shell /etc/ppp/user-connect-hooks & if [ -x "$LOCAL_ONLINE_SCRIPT" ]; then exec "$LOCAL_ONLINE_SCRIPT" $@ fi cost/0000775000175000017500000000000011337021242010501 5ustar johnjohncost/ntl0000775000175000017500000000121411337021242011222 0ustar johnjohn#!/usr/bin/perl $index = 0; $cost = 0; $start_time = $ARGV[ ($index++) ]; $end_time = $ARGV[ ($index++) ]; die "Connect time is later than disconnect" if $start_time > $end_time; foreach $second ($start_time .. $end_time) { $cost += calculate_cost( $second ); } $cost = 3.5 if ( $cost < 3.5 ); # is this charge infact added on? print "$cost\p\n"; sub calculate_cost { my ($second) = @_; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $second; if (( $wday == 6 ) || ( $wday == 0 )) # Saturday or Sunday { return 1.0/60; } if ( ($hour >= 8) && ($hour < 18) ) { return 3.0/60; } return 2.0/60; } cost/BritishTelecom0000775000175000017500000000114711337021242013347 0ustar johnjohn#!/usr/bin/perl $index = 0; $cost = 0; $start_time = $ARGV[ ($index++) ]; $end_time = $ARGV[ ($index++) ]; die "Connect time is later than disconnect" if $start_time > $end_time; foreach $second ($start_time .. $end_time) { $cost += calculate_cost( $second ); } $cost = 5 if ( $cost < 5 ); print "$cost\p\n"; sub calculate_cost { my ($second) = @_; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $second; if (( $wday == 6 ) || ( $wday == 0 )) # Saturday or Sunday { return 1.0/60; } if ( ($hour >= 8) && ($hour < 18) ) { return 3.95/60; } return 1.49/60; } cost/OneTel0000775000175000017500000000046111337021242011616 0ustar johnjohn#!/usr/bin/perl use POSIX; $index = 0; $cost = 0; $start_time = $ARGV[ ($index++) ]; $end_time = $ARGV[ ($index++) ]; die "Connect time is later than disconnect" if $start_time > $end_time; $seconds = $end_time - $start_time ; $cost = $seconds / 60; $cost = POSIX::ceil $cost; print $cost, "p\n"; dial0000775000175000017500000000300311337021242010364 0ustar johnjohn#! /bin/sh # vii-ppp-scripts # http://altern.org/vii/programs/linux/ppp-scripts/ # # $Date: 2001-05-06 02:08:39 $ $Revision: 1.2 $ # # vii@altern.org http://altern.org/vii SINGLE_LOG=/var/log/ppp/chat-session SYSTEM_LOG=/var/log/ppp/chat-log DEFAULT_DIAL_SCRIPT=/etc/ppp/dial.chatscript MODEM_INIT_SCRIPT=/etc/ppp/modem-init.chatscript if test x"$1" = x; then echo "$0: syntax: $0 telephone-number" >&2 echo "$0: this program should only be run by pppd anyway" >&2 exit 1 fi if [ -n "$3" ]; then dial_script="$3" else dial_script="$DEFAULT_DIAL_SCRIPT" fi attempt="$SINGLE_LOG" tries=0 while [ -e "$attempt" ]; do attempt="$SINGLE_LOG-$tries" tries=$(( $tries + 1 )) done SINGLE_LOG="$attempt" echo "$0: initialising modem" >&2 umask 066 chat -vS -e -f $MODEM_INIT_SCRIPT 2>$SINGLE_LOG val=$? if [ $val -ne 0 ] then cat $SINGLE_LOG >&2 echo "$0: error: init script returned $val" >&2 echo "$0: you did not dial in and should not log this as a call" >&2 if [ -n "$LOCKFILE" ]; then echo "nodial" > "$LOCKFILE" fi exit $val fi echo "$0: dialing modem" >&2 chat -T "$1" -U "$2" -vS -e -f \ $dial_script 2>>$SINGLE_LOG val=$? if [ $val -ne 0 ]; then cat $SINGLE_LOG >&2 echo "$0: error: dial script returned $val" >&2 echo "$0: you may have dialed in" >&2 if [ -n "$LOCKFILE" ]; then echo "" > "$LOCKFILE" fi exit $val fi if [ -n "$LOCKFILE" ]; then echo `date +%s` > "$LOCKFILE" fi cat "$SINGLE_LOG" >> "$SYSTEM_LOG" rm -f "$SINGLE_LOG" dial.chatscript0000775000175000017500000000033511337021242012534 0ustar johnjohnTIMEOUT 5 ABORT BUSY ABORT 'NO CARRIER' ABORT 'NO DIALTONE' ABORT 'NO ANSWER' ABORT WAITING ABORT ERROR SAY "\nDialling . . .\n" "" "ATDT\T" TIMEOUT 60 REPORT CONNECT CONNECT "" SAY "\nDialled OK; now logging in\n" disconnect-hooks0000775000175000017500000000033311337021242012730 0ustar johnjohn#! /bin/sh LOCAL_OFFLINE_SCRIPT=/etc/init/offline /etc/ppp/dns down $DNS1 $DNS2 su $PPPLOGNAME --shell /etc/ppp/user-disconnect-hooks & if [ -x "$LOCAL_OFFLINE_SCRIPT" ]; then exec "$LOCAL_OFFLINE_SCRIPT" $@ fi dns0000775000175000017500000000025411337021242010244 0ustar johnjohn#! /bin/sh DNS_UP=/etc/ppp/dns-resolvconf-up DNS_DOWN=/etc/ppp/dns-resolvconf-down command="$1" shift case $command in up) $DNS_UP $@ ;; down) $DNS_DOWN $@ ;; esac dns-named-down0000775000175000017500000000012011337021242012263 0ustar johnjohn#! /bin/sh named=`cat /var/run/named.pid` kill -INT $named sleep 2 kill $named dns-named-up0000775000175000017500000000012311337021242011743 0ustar johnjohn#! /bin/sh named -u daemon -g daemon while ! nslookup localhost; do sleep 1; done dns-resolvconf-down0000775000175000017500000000006111337021242013363 0ustar johnjohn#! /bin/sh # TODO: replace previous resolv.conf dns-resolvconf-up0000775000175000017500000000161211337021242013043 0ustar johnjohn#! /bin/sh RESOLV_CONF_DIR=/etc/ppp/peers-resolv.conf SYSTEM_RESOLV_CONF=/etc/resolv.conf DEFAULT_RESOLV_CONF=$RESOLV_CONF_DIR/template TEMP_RESOLV_CONF=/var/log/ppp/temp-resolv.conf resolv_conf_file= if [ -n "$LINKNAME" -a -e "$RESOLV_CONF_DIR/$LINKNAME" ]; then resolv_conf_file="$RESOLV_CONF_DIR/$LINKNAME" else if [ -e "$DEFAULT_RESOLV_CONF" ]; then resolv_conf_file="$DEFAULT_RESOLV_CONF" fi fi mv $SYSTEM_RESOLV_CONF $TEMP_RESOLV_CONF umask 022 got_nameservers=$1 while test x"$1" != x; do echo nameserver "$1" >> $SYSTEM_RESOLV_CONF shift done if [ -z "$resolv_conf_file" ]; then if [ -n "$got_nameservers" ]; then grep domain $TEMP_RESOLV_CONF >> $SYSTEM_RESOLV_CONF grep search $TEMP_RESOLV_CONF >> $SYSTEM_RESOLV_CONF rm $TEMP_RESOLV_CONF else mv $TEMP_RESOLV_CONF $SYSTEM_RESOLV_CONF fi else cat $resolv_conf_file >> $SYSTEM_RESOLV_CONF fi do-log0000775000175000017500000000036611337021242010645 0ustar johnjohn#! /bin/sh # No checks logfile="$1" shift user="$1" shift start_time="$1" shift end_time="$1" shift cost="$1" shift date="$1" shift comment="$1" echo -e "$user \t $start_time \t $end_time \t $cost \t $date \t $comment" >> $logfile ip-down0000775000175000017500000000010511337021242011030 0ustar johnjohn#! /bin/sh /etc/ppp/disconnect-hooks >> /var/log/ppp/status 2>&1 $@ip-up0000775000175000017500000000011111337021242010502 0ustar johnjohn#! /bin/sh exec /etc/ppp/connect-hooks $@ >> /var/log/ppp/status 2>&1 & modem-init.chatscript0000664000175000017500000000150211337021242013657 0ustar johnjohnTIMEOUT 5 SAY "Initialising modem . . .\n" ABORT BUSY ABORT 'NO CARRIER' ABORT 'NO DIALTONE' ABORT WAITING ABORT ERROR ABORT 'NO ANSWER' "" AT # &F: use factory settings # &C1: use remote carrier to determine DCD # &D2: hang up on DTR drop # V1: display result codes in verbose format # M0: speaker off (M1: speaker on when negotiating) # L0: speaker low volume # W1: on connection, report line speed and error correction, etc. # &K3: RTS/CTS flow control # N1: automode detection # X4: monitor busy tones, send all messages # (%C0: disable data compression) # %C3: enable both MNP and V.42 compression # S0=0: no auto answer to incoming calls # S7=60: wait 60 seconds for a call to be answered # %E0: disable quality monitor and auto retrain (%E2: enable) OK "AT&F&C1&D2V1M0W1&K3N1X4%C3S0=0S7=60" TIMEOUT 20 OK "ATDT;" OK "" options0000664000175000017500000000014011337021242011142 0ustar johnjohnmodem crtscts 230400 mru 1024 mtu 1024 usepeerdns noipdefault ktune bsdcomp 15,15 deflate 15,15 ppp-connect0000775000175000017500000000701111337021242011704 0ustar johnjohn#! /bin/sh # vii-ppp-scripts # http://altern.org/vii/programs/linux/ppp-scripts/ # # $Date: 2001-05-06 02:08:40 $ $Revision: 1.4 $ # # vii@altern.org http://altern.org/vii LOCK_PREFIX=/var/lock/pppd-connection-to- LOCKFILE=$LOCK_PREFIX\$CONNECTION_NAME LOG_PREFIX=/var/log/ppp/ LOGFILE=$LOG_PREFIX\$CONNECTION_NAME CONNECTION_DIR=/etc/ppp/peers SCRIPT_DIR=`dirname $0` CLEANUP_SCRIPT=$SCRIPT_DIR/internal-cleanup COST_CALCULATOR=$SCRIPT_DIR/cost/\$CONNECTION_NAME COST_CALCULATOR_CMDLINE="\$start_time \$end_time" function calc { cost="NA" seconds="$(( $end_time - $start_time ))" COST_CALCULATOR=`eval echo $COST_CALCULATOR` if [ -x $COST_CALCULATOR ]; then cost=`eval $COST_CALCULATOR $COST_CALCULATOR_CMDLINE` fi } function cleanup { trap end_time=`date +%s` if [ -e "$LOCKFILE" ]; then lock_time=`cat "$LOCKFILE"` rm -f "$LOCKFILE" if test x"$lock_time" = x"nodial"; then exit 2 fi if [ -z "$lock_time" ]; then calc echo "$0: no connection logged due to errors" >&2 echo "$0: if you know that you did dial in, execute" echo " " /etc/ppp/do-log \"$LOGFILE\" $user $start_time $end_time \"$cost\" \"$date\" \"$comment\" exit 1 else start_time=$lock_time fi fi calc /etc/ppp/do-log "$LOGFILE" "$user" "$start_time" "$end_time" "$cost" "$date" "$comment" echo "$0: connection initiated $date" echo "$0: connected $(( $seconds / 60 )) minutes $(( $seconds % 60 )) seconds" echo "$0: $user has been logged (cost $cost)" } if test x"$1" = x ; then # echo "$0: please specify a connection on the command line" # echo "$0: one of:" `ls $CONNECTION_DIR` # exit CONNECTION_NAME=default else CONNECTION_NAME=$1 fi if [ ! -e "$CONNECTION_DIR/$CONNECTION_NAME" ]; then echo "$0: connection \"$CONNECTION_NAME\" does not exist" echo "$0: in $CONNECTION_DIR" exit fi if [ -L "$CONNECTION_DIR/$CONNECTION_NAME" ]; then # readlink is from the teTeX distribution, AFAIK real_connection_name=`readlink "$CONNECTION_DIR/$CONNECTION_NAME"` if test x`dirname $real_connection_name`=x"." || test x`dirname $real_connection_name` = x`dirname $CONNECTION_DIR`; then old_connection_name="$CONNECTION_NAME" CONNECTION_NAME=`basename "$real_connection_name"`; if [ ! -e "$CONNECTION_DIR/$CONNECTION_NAME" ]; then echo "$0: connection \"$CONNECTION_NAME\" which is a symbollic" echo "$0: link from \"$old_connection_name\" does not exist." echo "$0: Connection files in $CONNECTION_DIR." exit fi fi fi LOGFILE=`eval echo $LOGFILE` export LOCKFILE=`eval echo $LOCKFILE` if [ -f "$LOCKFILE" ]; then echo "$0: lockfile says you're already dialled in to $CONNECTION_NAME" echo "$0: to delete the lockfile, run" echo "$0: rm -f $LOCKFILE" exit fi #if [ "$2" == "" ]; then # USER=`whoami` #else # USER=$2 #fi # #illegal_chars=`echo -n \<$USER\> | tr -d \[:alnum:\]` # #if [ ! "$illegal_chars" == "<>" ]; then # echo "$0: your username, \"$USER\" contains illegal characters." # echo "$0: only alphanumerics, hyphens and underscores may be used." # echo "$0: the illegal characters were $illegal_chars" # exit #fi comment="$2" user=`whoami` date=`date` echo "$0:" "$user" calling "$CONNECTION_NAME" at "$date" start_time=`date +%s` trap "cleanup" 0 #echo -e "$user\n$start_time\n$date\n$comment\n" > $LOCKFILE echo > "$LOCKFILE" #connection_resolv_conf=/etc/ppp/resolv.conf/$CONNECTION_NAME #if [ -e $connection_resolv_conf ]; then # cp $connection_resolv_conf /etc/resolv.conf #fi pppd remotename "$CONNECTION_NAME" call "$CONNECTION_NAME" nodetach ppp-disconnect0000775000175000017500000000012611337021242012404 0ustar johnjohn#! /bin/sh kill `perl -e 'print \$ARGV[0]' \`ps axh | grep "pppd remotename $1"\`` user-connect-hooks0000775000175000017500000000021611337021242013204 0ustar johnjohn#! /bin/sh USER_ONLINE_SCRIPT=$HOME/.online if [ -x "$USER_ONLINE_SCRIPT" ]; then exec $USER_ONLINE_SCRIPT >> $HOME/.online-status 2>&1 fi user-disconnect-hooks0000775000175000017500000000022311337021242013702 0ustar johnjohn#! /bin/sh USER_OFFLINE_SCRIPT=$HOME/.offline if [ -x "$USER_OFFLINE_SCRIPT" ]; then exec $USER_OFFLINE_SCRIPT >> $HOME/.offline-status 2>&1 fi