#!/bin/bash
# (c) Eduard Bloch <blade@debian.org>
# LICENSE: GPL
# Purpose: initial PPPoE configuration on Debian
# Depends: bash, pppd, pppoe, whiptail, my usepeerdns script

export TEXTDOMAINDIR="/usr/share/locale"
export TEXTDOMAIN=pppoeconf
export OPTSFILE="/etc/ppp/peers/dsl-provider"

DIALOG=whiptail

XDIALOG_HIGH_DIALOG_COMPAT=1
export XDIALOG_HIGH_DIALOG_COMPAT
[ -n "$DISPLAY" ] && [ -x /usr/bin/Xdialog ] && DIALOG="Xdialog"

PATH="/bin:/sbin:/usr/bin:/usr/sbin"
export PATH

if [ "`id -u`" != "0" ]; then
  if which sudo >/dev/null; then
    exec sudo "$0" "$@"  || exit 1
  else
    echo $"Vous devez etre super-utilisateur pour lancer pppoeconf!"
    echo $"Appuyez entree pour continuer..."
    read
    exit 1
  fi
fi


umask 177
export TMP="/etc/ppp/tmp$RANDOM"
mkdir "$TMP"
sectempfile="$TMP/$RANDOM"
trap "rm -rf '$TMP'" 0 1 2 5 15

echo -e $"
Most providers send the needed login information per mail. Some providers describe it in odd ways, assuming the user to input the data in their \"user-friendly\" setup programs. But in fact, these applications generate usuall PPP user names and passwords from the entered data. You can find the real names too and input the correct data in the dialog box. For example, this are methods used some german providers:

Sample username (alias \"login\" or \"login name\"): 11111111111

T-Online T-DSL:
  additional data:
    sample T-Onlinenummer: 222222222222
    sample Mitbenutzer: 0001

  complete username: 111111111111222222222222#0001@t-online.de

Telekom Business Online (DSL):

  complete username: t-online-com/111111111111@t-online-com.de

1und1 uses another scheme (using above example):

  complete username: 1und1/11111111111

Cyberfun:

  complete username: sdt/11111111111

Komtel:
  additional data:
    downstream speed class: 768

  complete username: 11111111111@FoniNet-768

Net Cologne:

  complete username: 11111111111@netcologne.de

Q-DSL:

  complete username: 11111111111@q-dsl.de

Versatel:

  complete username: 11111111111@VersaNet-1024k

Webnetix:

  complete username: sdt/11111111111
" > $TMP/namehelp.txt

list=$( LANG=C /sbin/ifconfig -a | grep "Ethernet" | cut -f1 -d" " )

if test "$list" ; then
  number=`echo $list | wc -w| tr -d " "`
  $DIALOG --title $"TOUS VOS PERIPERIQUES SONT-ILS DETECTES?" --clear --yesno $"Detecte(s): $number peripherique(s) ethernet: $list Toutes vos interfaces ethernet sont-elles listees ci-dessous? (Si ce n'est pas le cas, modconf sera lance pour que vous puissiez charger le pilote manuellement). Ou bien pressez Ctrl-C pour arreter." 15 60
  case $? in
    1)
    # configure and restart
      modconf
      $0
      exit $?
      ;;
    255)
      rm -rf "$TMP"
      exit 1
      ;;
  esac
  # now, execute an AC lookup on each interface
  for iface in $list; do
    touch $TMP/pppoe.scan
    (pppoe -A -I $iface > $TMP/$iface.pppoe ; rm $TMP/pppoe.scan) &
    ( time=0 ; while test -f $TMP/pppoe.scan ; do time=`expr $time + 6`; echo $time; sleep 1; done ) | $DIALOG --title $"SCANNING DEVICE" --gauge $"Looking for PPPoE Access Concentrator on $iface..." 10 60 0
  done
  cd "$TMP"
  iface=`grep -l AC eth*.pppoe| cut -f1 -d"." | head -n1`
  if test -z "$iface" ; then
    $DIALOG --title $"NON CONNECTE" --clear --msgbox $"Desole, $number interface(s) scannees, mais l'acces a votre fournisseur Internet ne repond pas. Veuillez verifier votre reseau et vos cables modem. Une autre cause d'chec peut etre que votre modem est deja controle par un autre processus pppoe." 15 60
    rm -rf "$TMP"
    exit 1;
  fi
  $DIALOG --title $"CONNECTION DSL TROUVEE" --clear --yesno $"Un acces a ete trouve sur $iface. Faut-il configurer PPPOE pour cette connexion?" 15 60
  if test "$?" = "0"; then
    # sanity check
     # install the default line
    grep '^.*pty.*pppoe.*-I.*eth' $OPTSFILE || echo 'pty "pppoe -I eth0 -T 80"' >> $OPTSFILE
    # install alternative lines
    grep '^.*pty.*pppoe.*-m.*1452' $OPTSFILE || echo '#pty "pppoe -I eth0 -T 80 -m 1452"' >> $OPTSFILE
    grep '^.*pty.*pppoe.*-m.*1412' $OPTSFILE || echo '#pty "pppoe -I eth0 -T 80 -m 1412"' >> $OPTSFILE
    # at least one must work
    grep '^pty' $OPTSFILE || echo 'pty "pppoe -I eth0 -T 80"' >> $OPTSFILE
    # fix final newline
    test -e /etc/ppp/pap-secrets && ( [ $(tail -1 /etc/ppp/pap-secrets | wc -l) -eq 0 ] || echo >> /etc/ppp/pap-secrets )
    test -e /etc/ppp/chap-secrets && ( [ $(tail -1 /etc/ppp/chap-secrets | wc -l) -eq 0 ] || echo >> /etc/ppp/chap-secrets )
    
    sed -e "s/eth[:0-9:]* /$iface /" $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
  else
    rm -rf "$TMP"
    exit 1
  fi
  # STATUS: interface is $iface, we can continue
  
  $DIALOG --title $"PRET A MODIFIER?" --clear --yesno $"Si vous continuez, le fichier de configuration $OPTSFILE sera enregistre. Veuillez faire une sauvegarde avant de repondre Oui. Continuer avec l'enregistrement de la configuration?" 22 70
  if test "$?" != "0" ; then
    rm -rf "$TMP"
    exit 0
  fi

  # ask about sane options
  $DIALOG --title $"OPTIONS COURANTES" --clear --yesno $"La plupart des gens utilisant une connexion modem a leur fournisseur d'acces choisissent les options 'noauth' et 'defaultroute' dans leur configuration et desactivent l'option 'nodetach'. Par ailleur, pour les fournisseurs tres charges et moins disponibles, l'option lcp-echo-interval peut etre augmentee. Faut-il changer ces options dans votre fichier de configuration?" 22 70
  if test "$?" = "0" ; then
    grep '^noauth' $OPTSFILE || echo 'noauth' >> $OPTSFILE
    grep '^defaultroute' $OPTSFILE  || echo 'defaultroute' >> $OPTSFILE
    sed -e "s/^nodetach.*//" $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
    sed -e "s/^lcp-echo-interval 20$/lcp-echo-interval 60/" $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
  fi
  
  user=`grep ^user $OPTSFILE|cut -f2 -d" " | tr -d '"'`
  test -z "$user" && user="username"
  while test "$goahead" != "yes" ; do
    $DIALOG --nocancel --title $"ENTREZ LE NOM D'UTILISATEUR" --clear --inputbox $"Veuillez entrer votre nom d'utilisateur requis pour la connexion modem PPP (login) a votre fournisseur d'acces internet. Si vous souhaitez de l'aide, mettez un nom vide en appuyez OK." 15 60 $user 2> "$sectempfile"
    user=`cat "$sectempfile"`
    case $? in
    0)
    if test -z "$user" ; then
      $DIALOG --scrolltext --textbox "$TMP/namehelp.txt" 17 75
    else
      sed -e 's/^user .*//' $OPTSFILE > "$sectempfile"
      mv "$sectempfile" $OPTSFILE
      echo  "user \"$user\"" >> $OPTSFILE
      export goahead="yes"
    fi
      ;;
    *)
      exit 1
      rm -rf "$TMP"
      ;;
    esac
  done

  $DIALOG --nocancel --title $"ENTREZ LE MOT DE PASSE" --clear --inputbox $"Veuillez entrer le mot de passe  requis pour la connexion modem PPP (login) a votre fournisseur d'acces internet. NOTE: le mot de passe sera visible pendant sa frappe." 15 60 2> "$sectempfile"
  pass=`cat "$sectempfile"`
  case $? in
  0)
    sed -e "s/^\"*$user\"* .*//" /etc/ppp/pap-secrets > "$sectempfile"
    mv "$sectempfile" /etc/ppp/pap-secrets
    echo "\"$user\" * \"$pass\"" >> /etc/ppp/pap-secrets
    sed -e "s/^\"*$user\"* .*//" /etc/ppp/chap-secrets > "$sectempfile"
    mv "$sectempfile" /etc/ppp/chap-secrets
    echo "\"$user\" * \"$pass\"" >> /etc/ppp/chap-secrets
    ;;
  *)
    rm -rf "$TMP"
    exit 1
    ;;
  esac

  # ask about DNS
  $DIALOG --title $"UTILISER LES SERVEURS DE NOMS DE DOMAINES de votre fournisseur" --clear --yesno $"Veuillez entrer au moins une adresse IP de serveurs de noms de domaines (DNS), pour trouver les noms d'hotes. Normalement, votre fournisseur vous envoie des adresses DNS utilisables quand la connexion est etablie. Voulez-vous ajouter ces adresses automatiquement a la liste des serveurs de noms de domaines dans votre fichier local /etc/resolv.conf ? (je vous le recommande)" 15 60
  case $? in
  0)
    sed -e 's/usepeerdns//' $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
    echo "usepeerdns" >> $OPTSFILE
  ;;
  esac
  
  # ask about MSS limitation
  $DIALOG --title $"PROBLEMES DE MSS" --clear --yesno $"Beaucoup de fournisseurs ont des routeurs non compatibles avec des paquets IP de MSS (Maximum Segment Size) >1500. Les paquets classiques sortant de cet ordinateur ont cette taille de MSS. Malheureusement, si vous retransmettez des paquets d'un autre hote (= masquerading) le MSS peut augmenter, en fonction de la taille des paquets, et de la route vers le client. Ainsi, vos clients ne seront plus capables de se connecter a certains sites. La solution: le MSS maximum peut etre definie par pppoe. Vous pourrez trouver des details supplementaires sur ce probleme specifique dans la documentation pppoe. Faut-il que pppoe limite MSS a 1452 octets? Si vous n'etes pas sur, choisissez oui(yes). (Si vous avez toujours les problemes decrits ci-dessus, essayez de mettre a 1412 le maximum MSS dans le fichier dsl-provider.)" 22 70
  case $? in
  0)
  # disable the old line
    sed -e 's/^pty/#&/' $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
  # enable the one with our mss size
    sed -e 's/^#\(pty.*-m 1452.*\)/\1/' $OPTSFILE > "$sectempfile"
    mv "$sectempfile" $OPTSFILE
  ;;
  esac
  rm -f "$sectempfile"

  $DIALOG --title $"REUSSI!" --clear --yesno $"Votre connexion modem PPPD est enregistree. Voulez-vous lancer la connexion au demarrage de l'ordinateur (boot)?" 15 60
  if test "$?" = "0"; then
    if [ ! -f /etc/ppp/ppp_on_boot ] ; then
      ln -s ppp_on_boot.dsl /etc/ppp/ppp_on_boot || true
    fi
  fi

  cd /
  
  # end of story
  rm -rf "$TMP"
  
  $DIALOG --title $"SE CONNECTER (MODEM)" --clear --yesno $"Vous pourrez vous connecter avec \"pon dsl-provider\" et vous deconnecter avec \"poff\". Voulez-vous lancer la connexion maintenant?" 15 60
  case $? in
  0)
    cd /
    pon dsl-provider
    $DIALOG --title $"CONNEXION EN COURS" --clear --msgbox $"Votre connexion est en cours. Vous pouvez voir l'etat de la connexion avec la commande \"plog\" ou  \"ifconfig ppp0\" pour des informations generales sur votre interface de connexion." 10 60
    ;;
  *)
    exit 0
    ;;
  esac

else
  $DIALOG --title $"PAS D'INTERFACE DE CONNEXION TROUVE" --clear --yesno $"Desole, pas de carte Ethernet disponible dans le systeme. Si vous avez une carte reseau qui n'a pas ete auto-detectee, vous pouvez cherger son pilote manuellement avec l'utilitaire modconf. Lancer modconf maintenant?" 20 70
  case $? in
  0)
    rm -rf "$TMP"
    modconf
    exec $0
    exit $?
    ;;
  *)
    rm -rf "$TMP"
    exit 1
    ;;
  esac
fi
