#!/bin/bash
# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
source "$(dirname -- "$0")/lib/ulib/auto" || exit 1

function display_help() {
    uecho "$scriptname: Se connecter sur un site FTP authentifié
Ce script nécessite ncftp. Il est conçu pour faciliter l'accès à des sites FTP
s'il est requis d'y accéder par un proxy FTP pour les connexion authentifiées.

USAGE
    $scriptname [options] host login password [path]

OPTIONS
    -p, --proxy
    -n, --noproxy
        Forcer l'utilisation, resp. ne pas utiliser, le proxy FTP (i.e. faire la
        connexion directement)
    -l, --lftp
        Se connecter avec lftp au lieu de ncftp. Le fonctionnement n'est pas
        garanti si l'on utilise un proxy FTP.
    -o OPTION
        Ajouter une option à la commande lancée. Si l'option prend un argument,
        il faut doubler l'option -o, e.g.
            $scriptname -l -o -e -o 'mirror remote local' host login pass
        Dans cet exemple, l'option -e de lftp est utilisée pour faire un miroir
        local du répertoire remote.
    --tls
        Indiquer que la connexion se fera en TLS. Implique --lftp puisque ncftp
        ne le supporte pas.
    --verify-certificate
        Avec la connexion --tls, forcer la vérification du certificat, qui est
        désactivée par défaut.
    --sftp
        Indiquer que la connexion se fait via SFTP. Implique --lftp --noproxy

note: A cause d'une limitation de lftp, ce n'est pas possible de se connecter
automatiquement avec lftp si le mot de passe contient une virgule. A cause de la
façon dont le proxy ftp est configuré, il n'est pas possible de se connecter
avec un mot de passe qui contient le caractère @"
}

function hostkeyfailed_apropos() {
    eecho "\
------------------------------------------------------------------------------------
Si le message 'Host key verification failed' apparait, lancer la commande suivante:
    ssh -o StrictHostKeyChecking=no -o BatchMode=yes $1
------------------------------------------------------------------------------------"
}

AUTHFTP_PROXY_DISABLED=1 # par défaut, ne pas utiliser le proxy
set_defaults proxy
set_defaults authftp

noproxy="$AUTHFTP_PROXY_DISABLED"
lftp=
options=()
tls=
verify_certificate=no
sftp=
parse_opts "${PRETTYOPTS[@]}" \
    --help '$exit_with display_help' \
    -p,--proxy noproxy= \
    -n,--noproxy noproxy=1 \
    -l,--lftp lftp=1 \
    -o:,--option: options \
    --tls tls=1 \
    --verify-certificate verify_certificate=yes \
    --sftp sftp=1 \
    @ args -- "$@" && set -- "${args[@]}" || die "$args"

[ -n "$noproxy" -o -n "$AUTHFTP_PROXY_HOST" ] || die "AUTHFTP_PROXY_HOST doit être défini"

my_login="$PROXY_LOGIN"
my_password="$PROXY_PASSWORD"

read_value -i "Entrez le nom de l'hôte" host "$1"
read_value -i "Entrez l'identifiant de connexion" login "$2"
read_value -i "Entrez le mot de passe" password "$3"
read_value -i "Entrez le chemin" path "$4" N

[ -n "$tls" -o -n "$sftp" ] && lftp=1
[ -n "$sftp" ] && noproxy=1

if [ -n "$lftp" ]; then
    if [ -n "$noproxy" ]; then
        export LFTP_PASSWORD="$password"
        if [ -n "$sftp" ]; then
            url="sftp://$host/$path"
            hostkeyfailed_apropos "$login@$host"
        else
            url="ftp://$host/$path"
        fi
        exec lftp "${options[@]}" -e "\
set ssl:verify-certificate $verify_certificate
open -u $login --env-password $url"
    else
        export LFTP_PASSWORD="${password}@${my_password}"
        url="ftp://$AUTHFTP_PROXY_HOST/$path"
        exec lftp "${options[@]}" -e "\
set ssl:verify-certificate $verify_certificate
open -u ${login}@${my_login}@${host} --env-password $url"
    fi
else
    if [ -n "$noproxy" ]; then
        exec ncftp -u "$login" -p "$password" "${options[@]}" "ftp://$host/$path"
    else
        exec ncftp -u "${login}@${my_login}@${host}" -p "${password}@${my_password}" "${options[@]}" "ftp://$AUTHFTP_PROXY_HOST/$path"
    fi
fi