ftp.subr revision 252987
11507Shanneswif [ ! "$_MEDIA_FTP_SUBR" ]; then _MEDIA_FTP_SUBR=1 21507Shannesw# 31507Shannesw# Copyright (c) 2012-2013 Devin Teske 41507Shannesw# All rights reserved. 51507Shannesw# 61507Shannesw# Redistribution and use in source and binary forms, with or without 71507Shannesw# modification, are permitted provided that the following conditions 81507Shannesw# are met: 91507Shannesw# 1. Redistributions of source code must retain the above copyright 101507Shannesw# notice, this list of conditions and the following disclaimer. 111507Shannesw# 2. Redistributions in binary form must reproduce the above copyright 121507Shannesw# notice, this list of conditions and the following disclaimer in the 131507Shannesw# documentation and/or other materials provided with the distribution. 141507Shannesw# 151507Shannesw# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 161507Shannesw# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 171507Shannesw# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 181507Shannesw# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 191507Shannesw# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 201507Shannesw# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 211507Shannesw# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 221507Shannesw# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 231507Shannesw# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 241507Shannesw# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 251507Shannesw# SUCH DAMAGE. 261507Shannesw# 271507Shannesw# $FreeBSD: head/usr.sbin/bsdconfig/share/media/ftp.subr 252987 2013-07-07 18:51:44Z dteske $ 281507Shannesw# 291507Shannesw############################################################ INCLUDES 301507Shannesw 311507ShanneswBSDCFG_SHARE="/usr/share/bsdconfig" 321507Shannesw. $BSDCFG_SHARE/common.subr || exit 1 331507Shanneswf_dprintf "%s: loading includes..." media/ftp.subr 341507Shanneswf_include $BSDCFG_SHARE/device.subr 351507Shanneswf_include $BSDCFG_SHARE/dialog.subr 361507Shanneswf_include $BSDCFG_SHARE/media/common.subr 371507Shanneswf_include $BSDCFG_SHARE/media/tcpip.subr 381507Shanneswf_include $BSDCFG_SHARE/strings.subr 391507Shanneswf_include $BSDCFG_SHARE/struct.subr 401507Shanneswf_include $BSDCFG_SHARE/variable.subr 411507Shannesw 421507ShanneswBSDCFG_LIBE="/usr/libexec/bsdconfig" 431507Shanneswf_include_lang $BSDCFG_LIBE/include/messages.subr 441507Shannesw 451507Shannesw############################################################ GLOBALS 461507Shannesw 471507ShanneswFTP_SKIP_RESOLV= 481507Shannesw 491507ShanneswURL_MAX=261261 # according to actual fetch(1) test-results 501507Shannesw 511507ShanneswFTP_DIRS=" 521507Shannesw . 531507Shannesw releases/$UNAME_P 541507Shannesw snapshots/$UNAME_P 551507Shannesw pub/FreeBSD 561507Shannesw pub/FreeBSD/releases/$UNAME_P 571507Shannesw pub/FreeBSD/snapshots/$UNAME_P 581507Shannesw pub/FreeBSD-Archive/old-releases/$UNAME_P 591507Shannesw" # END-QUOTE 601507Shannesw 611507Shannesw############################################################ FUNCTIONS 621507Shannesw 631507Shannesw# f_dialog_menu_media_ftp 641507Shannesw# 651507Shannesw# Prompt the user to select from a range of ``built-in'' FTP servers or specify 661507Shannesw# their own. If the user makes a choice and doesn't cancel or press Esc, stores 671507Shannesw# the user's choice in VAR_FTP_PATH (see variables.subr) and returns success. 681507Shannesw# 691507Shanneswf_dialog_menu_media_ftp() 701507Shannesw{ 711507Shannesw f_dialog_title "$msg_please_select_a_freebsd_ftp_distribution_site" 721507Shannesw local title="$DIALOG_TITLE" btitle="$DIALOG_BACKTITLE" 731507Shannesw f_dialog_title_restore 741507Shannesw local prompt="$msg_please_select_the_site_closest_to_you_or_other" 751507Shannesw local menu_list=" 761507Shannesw '$msg_main_site' 'ftp.freebsd.org' 771507Shannesw 'URL' '$msg_specify_some_other_ftp_site' 781507Shannesw '$msg_snapshots_server_japan' 791507Shannesw 'snapshots.jp.freebsd.org' 801507Shannesw '$msg_snapshots_server_sweden' 811507Shannesw 'snapshots.se.freebsd.org' 821507Shannesw 'IPv6 $msg_main_site' 'ftp.freebsd.org' 831507Shannesw ' IPv6 $msg_ireland' 'ftp3.ie.freebsd.org' 841507Shannesw ' IPv6 $msg_israel' 'ftp.il.freebsd.org' 851507Shannesw ' IPv6 $msg_japan' 'ftp2.jp.freebsd.org' 861507Shannesw ' IPv6 $msg_usa' 'ftp4.us.freebsd.org' 871507Shannesw ' IPv6 $msg_turkey' 'ftp2.tr.freebsd.org' 881507Shannesw '$msg_primary' 'ftp1.freebsd.org' 891507Shannesw ' $msg_primary #2' 'ftp2.freebsd.org' 901507Shannesw ' $msg_primary #3' 'ftp3.freebsd.org' 911507Shannesw ' $msg_primary #4' 'ftp4.freebsd.org' 921507Shannesw ' $msg_primary #5' 'ftp5.freebsd.org' 931507Shannesw ' $msg_primary #6' 'ftp6.freebsd.org' 941507Shannesw ' $msg_primary #7' 'ftp7.freebsd.org' 951507Shannesw ' $msg_primary #8' 'ftp8.freebsd.org' 961507Shannesw ' $msg_primary #9' 'ftp9.freebsd.org' 971507Shannesw ' $msg_primary #10' 'ftp10.freebsd.org' 981507Shannesw ' $msg_primary #11' 'ftp11.freebsd.org' 991507Shannesw ' $msg_primary #12' 'ftp12.freebsd.org' 1001507Shannesw ' $msg_primary #13' 'ftp13.freebsd.org' 1011507Shannesw ' $msg_primary #14' 'ftp14.freebsd.org' 1021507Shannesw '$msg_argentina' 'ftp.ar.freebsd.org' 1031507Shannesw '$msg_australia' 'ftp.au.freebsd.org' 1041507Shannesw ' $msg_australia #2' 'ftp2.au.freebsd.org' 1051507Shannesw ' $msg_australia #3' 'ftp3.au.freebsd.org' 1061507Shannesw '$msg_austria' 'ftp.at.freebsd.org' 1071507Shannesw ' $msg_austria #2' 'ftp2.at.freebsd.org' 1081507Shannesw '$msg_brazil' 'ftp.br.freebsd.org' 1091507Shannesw ' $msg_brazil #2' 'ftp2.br.freebsd.org' 1101507Shannesw ' $msg_brazil #3' 'ftp3.br.freebsd.org' 1111507Shannesw ' $msg_brazil #4' 'ftp4.br.freebsd.org' 1121507Shannesw ' $msg_brazil #5' 'ftp5.br.freebsd.org' 1131507Shannesw ' $msg_brazil #6' 'ftp6.br.freebsd.org' 1141507Shannesw ' $msg_brazil #7' 'ftp7.br.freebsd.org' 1151507Shannesw '$msg_canada' 'ftp.ca.freebsd.org' 1161507Shannesw '$msg_china' 'ftp.cn.freebsd.org' 1171507Shannesw ' $msg_china #2' 'ftp2.cn.freebsd.org' 1181507Shannesw '$msg_croatia' 'ftp.hr.freebsd.org' 1191507Shannesw '$msg_czech_republic' 'ftp.cz.freebsd.org' 1201507Shannesw '$msg_denmark' 'ftp.dk.freebsd.org' 1211507Shannesw ' $msg_denmark #2' 'ftp2.dk.freebsd.org' 1221507Shannesw '$msg_estonia' 'ftp.ee.freebsd.org' 1231507Shannesw '$msg_finland' 'ftp.fi.freebsd.org' 1241507Shannesw '$msg_france' 'ftp.fr.freebsd.org' 1251507Shannesw ' $msg_france #2' 'ftp2.fr.freebsd.org' 1261507Shannesw ' $msg_france #3' 'ftp3.fr.freebsd.org' 1271507Shannesw ' $msg_france #5' 'ftp5.fr.freebsd.org' 1281507Shannesw ' $msg_france #6' 'ftp6.fr.freebsd.org' 1291507Shannesw ' $msg_france #8' 'ftp8.fr.freebsd.org' 1301507Shannesw '$msg_germany' 'ftp.de.freebsd.org' 1311507Shannesw ' $msg_germany #2' 'ftp2.de.freebsd.org' 1321507Shannesw ' $msg_germany #3' 'ftp3.de.freebsd.org' 1331507Shannesw ' $msg_germany #4' 'ftp4.de.freebsd.org' 1341507Shannesw ' $msg_germany #5' 'ftp5.de.freebsd.org' 1351507Shannesw ' $msg_germany #6' 'ftp6.de.freebsd.org' 1361507Shannesw ' $msg_germany #7' 'ftp7.de.freebsd.org' 1371507Shannesw ' $msg_germany #8' 'ftp8.de.freebsd.org' 1381507Shannesw '$msg_greece' 'ftp.gr.freebsd.org' 1391507Shannesw ' $msg_greece #2' 'ftp2.gr.freebsd.org' 1401507Shannesw '$msg_hungary' 'ftp.hu.freebsd.org' 1411507Shannesw '$msg_iceland' 'ftp.is.freebsd.org' 1421507Shannesw '$msg_ireland' 'ftp.ie.freebsd.org' 1431507Shannesw ' $msg_ireland #2' 'ftp2.ie.freebsd.org' 1441507Shannesw ' $msg_ireland #3' 'ftp3.ie.freebsd.org' 1451507Shannesw '$msg_israel' 'ftp.il.freebsd.org' 1461507Shannesw '$msg_italy' 'ftp.it.freebsd.org' 1471507Shannesw '$msg_japan' 'ftp.jp.freebsd.org' 1481507Shannesw ' $msg_japan #2' 'ftp2.jp.freebsd.org' 1491507Shannesw ' $msg_japan #3' 'ftp3.jp.freebsd.org' 1501507Shannesw ' $msg_japan #4' 'ftp4.jp.freebsd.org' 1511507Shannesw ' $msg_japan #5' 'ftp5.jp.freebsd.org' 1521507Shannesw ' $msg_japan #6' 'ftp6.jp.freebsd.org' 1531507Shannesw ' $msg_japan #7' 'ftp7.jp.freebsd.org' 1541507Shannesw ' $msg_japan #8' 'ftp8.jp.freebsd.org' 1551507Shannesw ' $msg_japan #9' 'ftp9.jp.freebsd.org' 1561507Shannesw '$msg_korea' 'ftp.kr.freebsd.org' 1571507Shannesw ' $msg_korea #2' 'ftp2.kr.freebsd.org' 1581507Shannesw '$msg_lithuania' 'ftp.lt.freebsd.org' 1591507Shannesw '$msg_netherlands' 'ftp.nl.freebsd.org' 1601507Shannesw ' $msg_netherlands #2' 'ftp2.nl.freebsd.org' 1611507Shannesw '$msg_norway' 'ftp.no.freebsd.org' 1621507Shannesw ' $msg_norway #3' 'ftp3.no.freebsd.org' 1631507Shannesw '$msg_poland' 'ftp.pl.freebsd.org' 1641507Shannesw ' $msg_poland #2' 'ftp2.pl.freebsd.org' 1651507Shannesw ' $msg_poland #5' 'ftp5.pl.freebsd.org' 1661507Shannesw '$msg_portugal' 'ftp.pt.freebsd.org' 1671507Shannesw ' $msg_portugal #2' 'ftp2.pt.freebsd.org' 1681507Shannesw ' $msg_portugal #4' 'ftp4.pt.freebsd.org' 1691507Shannesw '$msg_romania' 'ftp.ro.freebsd.org' 1701507Shannesw '$msg_russia' 'ftp.ru.freebsd.org' 1711507Shannesw ' $msg_russia #2' 'ftp2.ru.freebsd.org' 1721507Shannesw ' $msg_russia #3' 'ftp3.ru.freebsd.org' 1731507Shannesw ' $msg_russia #4' 'ftp4.ru.freebsd.org' 1741507Shannesw '$msg_singapore' 'ftp.sg.freebsd.org' 1751507Shannesw '$msg_slovak_republic' 'ftp.sk.freebsd.org' 1761507Shannesw '$msg_slovenia' 'ftp.si.freebsd.org' 1771507Shannesw ' $msg_slovenia #2' 'ftp2.si.freebsd.org' 1781507Shannesw '$msg_south_africa' 'ftp.za.freebsd.org' 1791507Shannesw ' $msg_south_africa #2' 'ftp2.za.freebsd.org' 1801507Shannesw ' $msg_south_africa #3' 'ftp3.za.freebsd.org' 1811507Shannesw ' $msg_south_africa #4' 'ftp4.za.freebsd.org' 1821507Shannesw '$msg_spain' 'ftp.es.freebsd.org' 1831507Shannesw ' $msg_spain #2' 'ftp2.es.freebsd.org' 1841507Shannesw ' $msg_spain #3' 'ftp3.es.freebsd.org' 1851507Shannesw '$msg_sweden' 'ftp.se.freebsd.org' 1861507Shannesw ' $msg_sweden #2' 'ftp2.se.freebsd.org' 1871507Shannesw ' $msg_sweden #3' 'ftp3.se.freebsd.org' 1881507Shannesw ' $msg_sweden #4' 'ftp4.se.freebsd.org' 1891507Shannesw ' $msg_sweden #5' 'ftp5.se.freebsd.org' 1901507Shannesw '$msg_switzerland' 'ftp.ch.freebsd.org' 1911507Shannesw ' $msg_switzerland #2' 'ftp2.ch.freebsd.org' 1921507Shannesw '$msg_taiwan' 'ftp.tw.freebsd.org' 1931507Shannesw ' $msg_taiwan #2' 'ftp2.tw.freebsd.org' 1941507Shannesw ' $msg_taiwan #3' 'ftp3.tw.freebsd.org' 1951507Shannesw ' $msg_taiwan #4' 'ftp4.tw.freebsd.org' 1961507Shannesw ' $msg_taiwan #6' 'ftp6.tw.freebsd.org' 1971507Shannesw ' $msg_taiwan #11' 'ftp11.tw.freebsd.org' 1981507Shannesw '$msg_turkey' 'ftp.tr.freebsd.org' 1991507Shannesw ' $msg_turkey #2' 'ftp2.tr.freebsd.org' 2001507Shannesw '$msg_uk' 'ftp.uk.freebsd.org' 2011507Shannesw ' $msg_uk #2' 'ftp2.uk.freebsd.org' 2021507Shannesw ' $msg_uk #3' 'ftp3.uk.freebsd.org' 2031507Shannesw ' $msg_uk #4' 'ftp4.uk.freebsd.org' 2041507Shannesw ' $msg_uk #5' 'ftp5.uk.freebsd.org' 2051507Shannesw ' $msg_uk #6' 'ftp6.uk.freebsd.org' 2061507Shannesw '$msg_ukraine' 'ftp.ua.freebsd.org' 2071507Shannesw ' $msg_ukraine #2' 'ftp2.ua.freebsd.org' 2081507Shannesw ' $msg_ukraine #5' 'ftp5.ua.freebsd.org' 2091507Shannesw ' $msg_ukraine #6' 'ftp6.ua.freebsd.org' 2101507Shannesw ' $msg_ukraine #7' 'ftp7.ua.freebsd.org' 2111507Shannesw ' $msg_ukraine #8' 'ftp8.ua.freebsd.org' 2121507Shannesw '$msg_usa #1' 'ftp1.us.freebsd.org' 2131507Shannesw ' $msg_usa #2' 'ftp2.us.freebsd.org' 2141507Shannesw ' $msg_usa #3' 'ftp3.us.freebsd.org' 2151507Shannesw ' $msg_usa #4' 'ftp4.us.freebsd.org' 2161507Shannesw ' $msg_usa #5' 'ftp5.us.freebsd.org' 2171507Shannesw ' $msg_usa #6' 'ftp6.us.freebsd.org' 2181507Shannesw ' $msg_usa #7' 'ftp7.us.freebsd.org' 2191507Shannesw ' $msg_usa #8' 'ftp8.us.freebsd.org' 2201507Shannesw ' $msg_usa #9' 'ftp9.us.freebsd.org' 2211507Shannesw ' $msg_usa #10' 'ftp10.us.freebsd.org' 2221507Shannesw ' $msg_usa #11' 'ftp11.us.freebsd.org' 2231507Shannesw ' $msg_usa #12' 'ftp12.us.freebsd.org' 2241507Shannesw ' $msg_usa #13' 'ftp13.us.freebsd.org' 2251507Shannesw ' $msg_usa #14' 'ftp14.us.freebsd.org' 2261507Shannesw ' $msg_usa #15' 'ftp15.us.freebsd.org' 2271507Shannesw " # END-QUOTE 2281507Shannesw local hline="$msg_select_a_site_thats_close" 2291507Shannesw 2301507Shannesw local height width rows 2311507Shannesw eval f_dialog_menu_size height width rows \ 2321507Shannesw \"\$title\" \ 2331507Shannesw \"\$btitle\" \ 2341507Shannesw \"\$prompt\" \ 2351507Shannesw \"\$hline\" \ 2361507Shannesw $menu_list 2371507Shannesw 2381507Shannesw local mtag 2391507Shannesw mtag=$( eval $DIALOG \ 2401507Shannesw --title \"\$title\" \ 2411507Shannesw --backtitle \"\$btitle\" \ 2421507Shannesw --hline \"\$hline\" \ 2431507Shannesw --ok-label \"\$msg_ok\" \ 2441507Shannesw --cancel-label \"\$msg_cancel\" \ 2451507Shannesw --menu \"\$prompt\" \ 2461507Shannesw $height $width $rows \ 2471507Shannesw $menu_list \ 2481507Shannesw 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD 2491507Shannesw ) || return $FAILURE 2501507Shannesw f_dialog_data_sanitize mtag 2511507Shannesw 2521507Shannesw case "$mtag" in 2531507Shannesw URL) setvar $VAR_FTP_PATH "other" ;; 2541507Shannesw *) 2551507Shannesw local value 2561507Shannesw value=$( eval f_dialog_menutag2item \"\$mtag\" $menu_list ) 2571507Shannesw setvar $VAR_FTP_PATH "ftp://$value" 2581507Shannesw esac 2591507Shannesw 2601507Shannesw return $SUCCESS 2611507Shannesw} 2621507Shannesw 2631507Shannesw# f_media_set_ftp 2641507Shannesw# 2651507Shannesw# Return success if we both found and set the media type to be an FTP server. 2661507Shannesw# Variables from variable.subr that can be used to script user input: 2671507Shannesw# 2681507Shannesw# VAR_FTP_PATH 2691507Shannesw# Can be a URL (including "ftp://" protocol-prefix) or "other" 2701507Shannesw# (user is prompted to enter FTP URL). If a URL, can optionally 2711507Shannesw# contain directory prefix after hostname/port. Valid examples 2721507Shannesw# include: 2731507Shannesw# ftp://myhost 2741507Shannesw# ftp://somename:21/pub/ 2751507Shannesw# ftp://192.168.2.3/pub/ 2761507Shannesw# ftp://[::1]:21/ 2771507Shannesw# The default port if not specified is 21. 2781507Shannesw# VAR_NAMESERVER [Optional] 2791507Shannesw# If set, overrides resolv.conf(5) and sets the nameserver that 2801507Shannesw# is used to convert names into addresses (when a name converts 2811507Shannesw# into multiple addresses, the first address to successfully 2821507Shannesw# connect is used). 2831507Shannesw# 2841507Shannesw# Meanwhile, the following variables from variable.subr are set after 2851507Shannesw# successful execution: 2861507Shannesw# 2871507Shannesw# VAR_FTP_HOST 2881507Shannesw# The FTP host to connect to, parsed from VAR_FTP_PATH. In the 2891507Shannesw# example case of IPv6 where VAR_FTP_PATH is "ftp://[::1]", this 2901507Shannesw# variable will be set to "::1" (the outer brackets are removed). 2911507Shannesw# VAR_FTP_PORT 2921507Shannesw# The TCP port to connect to, parsed from VAR_FTP_PATH. Usually 2931507Shannesw# 21 unless VAR_FTP_PATH was of one of the following forms: 2941507Shannesw# ftp://hostname:OTHER_PORT 2951507Shannesw# ftp://hostname:OTHER_PORT/* 2961507Shannesw# ftp://ip:OTHER_PORT 2971507Shannesw# ftp://ip:OTHER_PORT/* 2981507Shannesw# ftp://[ip6]:OTHER_PORT 2991507Shannesw# ftp://[ip6]:OTHER_PORT/* 3001507Shannesw# VAR_FTP_DIR 3011507Shannesw# If VAR_FTP_PATH contained a directory element (e.g., 3021507Shannesw# "ftp://localhost/pub") this variable contains only the 3031507Shannesw# directory element (e.g., "/pub"). 3041507Shannesw# 3051507Shanneswf_media_set_ftp() 3061507Shannesw{ 3071507Shannesw f_media_close 3081507Shannesw 3091507Shannesw local url 3101507Shannesw f_getvar $VAR_FTP_PATH url 3111507Shannesw 3121507Shannesw # If we've been through here before ... 3131507Shannesw if f_struct device_network && [ "${url#$msg_other}" ]; then 3141507Shannesw f_dialog_yesno "$msg_reuse_old_ftp_site_selection_values" || 3151507Shannesw url= 3161507Shannesw fi 3171507Shannesw 3181507Shannesw if [ ! "$url" ]; then 3191507Shannesw f_dialog_menu_media_ftp || return $FAILURE 3201507Shannesw f_getvar $VAR_FTP_PATH url 3211507Shannesw fi 3221507Shannesw [ "$url" ] || return $FAILURE 3231507Shannesw 3241507Shannesw case "$url" in 3251507Shannesw other) 3261507Shannesw setvar $VAR_FTP_PATH "ftp://" 3271507Shannesw f_variable_get_value $VAR_FTP_PATH \ 3281507Shannesw "$msg_please_specify_url_of_a_freebsd_distribution" 3291507Shannesw f_getvar $VAR_FTP_PATH url 3301507Shannesw if [ ! "${url#ftp://}" ]; then 3311507Shannesw unset $VAR_FTP_PATH 3321507Shannesw return $FAILURE 3331507Shannesw fi 3341507Shannesw if [ ${#url} -gt ${URL_MAX:-261261} ]; then 3351507Shannesw f_show_msg "$msg_length_of_specified_url_is_too_long" \ 3361507Shannesw ${#url} ${URL_MAX:-261261} 3371507Shannesw unset $VAR_FTP_PATH 3381507Shannesw return $FAILURE 3391507Shannesw fi 3401507Shannesw case "$url" in 3411507Shannesw ftp://*) : valid URL ;; 3421507Shannesw *) 3431507Shannesw f_show_msg "$msg_sorry_invalid_url" "$url" 3441507Shannesw unset $VAR_FTP_PATH 3451507Shannesw return $FAILURE 3461507Shannesw esac 3471507Shannesw esac 3481507Shannesw case "$url" in 3491507Shannesw ftp://*) : valid URL ;; 3501507Shannesw *) 3511507Shannesw f_show_msg "$msg_sorry_invalid_url" "$url" 3521507Shannesw unset $VAR_FTP_PATH 3531507Shannesw return $FAILURE 3541507Shannesw esac 3551507Shannesw 3561507Shannesw # Set the name of the FTP device to the URL 3571507Shannesw f_struct_new DEVICE device_ftp 3581507Shannesw device_ftp set name "$url" 3591507Shannesw 3601507Shannesw if ! f_struct device_network || 3611507Shannesw ! f_dialog_yesno "$msg_youve_already_done_the_network_configuration" 3621507Shannesw then 3631507Shannesw f_struct device_network && 3641507Shannesw f_device_shutdown network 3651507Shannesw if ! f_device_select_tcp; then 3661507Shannesw unset $VAR_FTP_PATH 3671507Shannesw return $FAILURE 3681507Shannesw fi 3691507Shannesw local dev 3701507Shannesw f_getvar $VAR_NETWORK_DEVICE dev 3711507Shannesw f_struct_copy "device_$dev" device_network 3721507Shannesw fi 3731507Shannesw if ! f_device_init network; then 3741507Shannesw f_dprintf "f_media_set_ftp: %s" "$msg_net_device_init_failed" 3751507Shannesw unset $VAR_FTP_PATH 3761507Shannesw return $FAILURE 3771507Shannesw fi 3781507Shannesw 3791507Shannesw local hostname="${url#*://}" port=21 dir=/ 3801507Shannesw case "$hostname" in 3811507Shannesw # 3821507Shannesw # The order in-which the below individual cases appear is important! 3831507Shannesw # 3841507Shannesw "["*"]":*/*) # IPv6 address with port and directory 3851507Shannesw f_dprintf "Looks like an IPv6 addr with port/dir: %s" \ 3861507Shannesw "$hostname" 3871507Shannesw hostname="${hostname#\[}" 3881507Shannesw port="${hostname#*\]:}" 3891507Shannesw port="${port%%[!0-9]*}" 3901507Shannesw dir="/${hostname#*/}" 3911507Shannesw hostname="${hostname%%\]:*}" 3921507Shannesw ;; 3931507Shannesw "["*"]":*) # IPv6 address with port 3941507Shannesw f_dprintf "Looks like an IPv6 addr with port: %s" "$hostname" 3951507Shannesw hostname="${hostname#\[}" 3961507Shannesw port="${hostname#*\]:}" 3971507Shannesw port="${port%%[!0-9]*}" 3981507Shannesw hostname="${hostname%%\]:*}" 3991507Shannesw ;; 4001507Shannesw "["*"]"/*) # IPv6 address with directory 4011507Shannesw f_dprintf "Looks like an IPv6 addr with dir: %s" "$hostname" 4021507Shannesw hostname="${hostname#\[}" 4031507Shannesw dir="/${hostname#*/}" 4041507Shannesw hostname="${hostname%%\]*}" 4051507Shannesw ;; 4061507Shannesw "["*"]") # IPv6 address 4071507Shannesw f_dprintf "Looks like an IPv6 addr: %s" "$hostname" 4081507Shannesw hostname="${hostname#\[}" 4091507Shannesw hostname="${hostname%\]}" 4101507Shannesw ;; 4111507Shannesw # 4121507Shannesw # ^^^ IPv6 above / DNS Name or IPv4 below vvv 4131507Shannesw # 4141507Shannesw *:*/*) # DNS name or IPv4 address with port and directory 4151507Shannesw f_dprintf "Looks like a %s with port/dir: %s" \ 4161507Shannesw "DNS name or IPv4 addr" "$hostname" 4171507Shannesw port="${hostname#*:}" 4181507Shannesw port="${port%%[!0-9]*}" 4191507Shannesw dir="/${hostname#*/}" 4201507Shannesw hostname="${hostname%%:*}" 4211507Shannesw ;; 4221507Shannesw *:*) # DNS name or IPv4 address with port 4231507Shannesw f_dprintf "Looks like a DNS name or IPv4 addr with port: %s" \ 4241507Shannesw "$hostname" 4251507Shannesw port="${hostname#*:}" 4261507Shannesw hostname="${hostname%%:*}" 4271507Shannesw ;; 4281507Shannesw */*) # DNS name or IPv4 address with directory 4291507Shannesw f_dprintf "Looks like a DNS name or IPv4 addr with dir: %s" \ 4301507Shannesw "$hostname" 4311507Shannesw dir="/${hostname#*/}" 4321507Shannesw hostname="${hostname%%/*}" 4331507Shannesw ;; 4341507Shannesw *) # DNS name or IPv4 address 4351507Shannesw f_dprintf "Looks like a DNS name or IPv4 addr: %s" "$hostname" 4361507Shannesw : leave hostname as-is 4371507Shannesw esac 4381507Shannesw 4391507Shannesw f_dprintf "hostname = \`%s'" "$hostname" 4401507Shannesw f_dprintf "dir = \`%s'" "$dir" 4411507Shannesw f_dprintf "port \# = \`%d'" "$port" 4421507Shannesw 4431507Shannesw local ns 4441507Shannesw f_getvar $VAR_NAMESERVER ns 4451507Shannesw [ "$ns" ] || f_resolv_conf_nameservers ns 4461507Shannesw if [ "$ns" -a ! "$FTP_SKIP_RESOLV" ] && ! { 4471507Shannesw f_validate_ipaddr "$hostname" || 4481507Shannesw f_validate_ipaddr6 "$hostname" 4491507Shannesw }; then 4501507Shannesw f_show_info "$msg_looking_up_host" "$hostname" 4511507Shannesw f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 4521507Shannesw "f_media_set_ftp" "$hostname" 4531507Shannesw if ! f_quietly f_host_lookup "$hostname"; then 4541507Shannesw f_show_msg "$msg_cannot_resolve_hostname" "$hostname" 4551507Shannesw f_struct device_network && 4561507Shannesw f_device_shutdown network 4571507Shannesw f_struct_free device_network 4581507Shannesw unset $VAR_FTP_PATH 4591507Shannesw return $FAILURE 4601507Shannesw fi 4611507Shannesw f_dprintf "Found DNS entry for %s successfully." "$hostname" 4621507Shannesw fi 4631507Shannesw 4641507Shannesw setvar $VAR_FTP_HOST "$hostname" 4651507Shannesw setvar $VAR_FTP_PORT "$port" 4661507Shannesw setvar $VAR_FTP_DIR "$dir" 4671507Shannesw 4681507Shannesw device_ftp set type $DEVICE_TYPE_FTP 4691507Shannesw device_ftp set init f_media_init_ftp 4701507Shannesw device_ftp set get f_media_get_ftp 4711507Shannesw device_ftp set shutdown f_media_shutdown_ftp 4721507Shannesw device_ftp set private network 4731507Shannesw f_struct_copy device_ftp device_media 4741507Shannesw f_struct_free device_ftp 4751507Shannesw 4761507Shannesw return $SUCCESS 4771507Shannesw} 4781507Shannesw 4791507Shannesw# f_media_set_ftp_active 4801507Shannesw# 4811507Shannesw# Wrapper to f_media_set_ftp to access FTP servers actively. 4821507Shannesw# 4831507Shanneswf_media_set_ftp_active() 4841507Shannesw{ 4851507Shannesw setvar $VAR_FTP_STATE "active" 4861507Shannesw f_media_set_ftp 4871507Shannesw} 4881507Shannesw 4891507Shannesw# f_media_set_ftp_passive 4901507Shannesw# 4911507Shannesw# Wrapper to f_media_set_ftp to access FTP servers passively. 4921507Shannesw# 4931507Shanneswf_media_set_ftp_passive() 4941507Shannesw{ 4951507Shannesw setvar $VAR_FTP_STATE "passive" 4961507Shannesw f_media_set_ftp 4971507Shannesw} 4981507Shannesw 4991507Shannesw# f_media_set_ftp_userpass 5001507Shannesw# 5011507Shannesw# Prompt the user to enter/confirm the username/password variables that will 5021507Shannesw# be used to communicate with the FTP servers. Returns success if the user does 5031507Shannesw# not cancel or press Esc to either username or password. 5041507Shannesw# 5051507Shannesw# Variables from variable.subr that can be used to script user input: 5061507Shannesw# 5071507Shannesw# VAR_FTP_USER 5081507Shannesw# The username to send via ftp(1) when connecting to an FTP 5091507Shannesw# server. 5101507Shannesw# VAR_FTP_PASS 5111507Shannesw# The password to send with the above username. 5121507Shannesw# 5131507Shannesw# Does not prompt for confirmation of values if VAR_NONINTERACTIVE is set (see 5141507Shannesw# variable.subr for more information). 5151507Shannesw# 5161507Shanneswf_media_set_ftp_userpass() 5171507Shannesw{ 5181507Shannesw local user pass 5191507Shannesw f_variable_get_value $VAR_FTP_USER \ 5201507Shannesw "$msg_please_enter_the_username_you_wish_to_login_as" 5211507Shannesw f_getvar $VAR_FTP_USER user 5221507Shannesw if [ "$user" ]; then 5231507Shannesw f_variable_get_value $VAR_FTP_PASS \ 5241507Shannesw "$msg_please_enter_the_password_for_this_user" 5251507Shannesw f_getvar $VAR_FTP_PASS pass 5261507Shannesw else 5271507Shannesw pass= 5281507Shannesw fi 5291507Shannesw [ "$pass" ] # Return status 5301507Shannesw} 5311507Shannesw 5321507Shannesw# f_device_network_up $device 5331507Shannesw# 5341507Shannesw# Brings up attached network device, if any - takes FTP device as arg. 5351507Shannesw# 5361507Shanneswf_device_network_up() 5371507Shannesw{ 5381507Shannesw local dev="$1" netDev 5391507Shannesw f_struct device_$dev || return $FAILURE 5401507Shannesw device_$dev get private netDev || return $SUCCESS # No net == happy net 5411507Shannesw f_device_init $netDev 5421507Shannesw} 5431507Shannesw 5441507Shannesw# f_device_network_down $device 5451507Shannesw# 5461507Shannesw# Brings down attached network device, if any - takes FTP device as arg. 5471507Shannesw# 5481507Shanneswf_device_network_down() 5491507Shannesw{ 5501507Shannesw local dev="$1" netDev 5511507Shannesw f_struct device_$dev || return $FAILURE 5521507Shannesw device_$dev get private netDev || return $SUCCESS 5531507Shannesw f_device_shutdown $netDev 5541507Shannesw} 5551507Shannesw 5561507Shannesw# f_media_init_ftp $device 5571507Shannesw# 5581507Shannesw# Initializes the FTP media device. Returns success if both able to log into 5591507Shannesw# the FTP server and confirm the existence of at least one known release path 5601507Shannesw# using ftp(1). 5611507Shannesw# 5621507Shannesw# Variables from variable.subr used to initialize the connection are as follows 5631507Shannesw# (all of which are configured by f_media_set_ftp above): 5641507Shannesw# 5651507Shannesw# VAR_FTP_PATH 5661507Shannesw# The unparsed FTP URL representing the server to contact. 5671507Shannesw# Usually "ftp://server" for example. Can contain TCP port number 5681507Shannesw# and/or directory path (but should not contain username/password 5691507Shannesw# info). 5701507Shannesw# VAR_FTP_HOST 5711507Shannesw# The FTP host to connect to. Can be an IPv4 address (e.g., 5721507Shannesw# 127.0.0.1), IPv6 address (e.g., ::1), or DNS hostname. Usually 5731507Shannesw# set automatically in f_media_set_ftp() by parsing VAR_FTP_PATH. 5741507Shannesw# VAR_FTP_PORT 5751507Shannesw# The TCP port to connect to. Usually set automatically in 5761507Shannesw# f_media_set_ftp() by parsing VAR_FTP_PATH. 5771507Shannesw# VAR_FTP_DIR 5781507Shannesw# The base FTP directory to use when downloading files from the 5791507Shannesw# FTP server. Usually set automatically in f_media_set_ftp() by 5801507Shannesw# parsing VAR_FTP_PATH. 5811507Shannesw# VAR_FTP_USER [Optional] 5821507Shannesw# If unset, defaults to using anonymous access. 5831507Shannesw# VAR_FTP_PASS [Optional] 5841507Shannesw# If unset, defaults to a sensible value. 5851507Shannesw# 5861507Shannesw# In addition, the following (managed either manually or by f_media_set_ftp_*): 5871507Shannesw# 5881507Shannesw# VAR_FTP_STATE 5891507Shannesw# Sets FTPMODE for ftp(1) and can be one of: 5901507Shannesw# active active mode FTP only 5911507Shannesw# auto automatic determination of passive or active 5921507Shannesw# (this is the default) 5931507Shannesw# gate gate-ftp mode 5941507Shannesw# passive passive mode FTP only 5951507Shannesw# See ftp(1) for additional information. 5961507Shannesw# 5971507Shannesw# And last, but not least (managed automatically or manually): 5981507Shannesw# 5991507Shannesw# VAR_RELNAME 6001507Shannesw# Defaults to being set to $(uname -r) but can be overridden. 6011507Shannesw# This sets the name of a release to look for as part of a well 6021507Shannesw# known set of paths to search for release data once connected 6031507Shannesw# via FTP. If set to "__RELEASE" or "any" then the VAR_FTP_DIR is 6041507Shannesw# taken as the absolute path to the release and no further 6051507Shannesw# searching is done (see FTP_DIRS above in the GLOBALS section 6061507Shannesw# for a list of well known paths that are used when searching for 6071507Shannesw# a VAR_RELNAME sub-directory). 6081507Shannesw# 6091507Shanneswf_media_init_ftp() 6101507Shannesw{ 6111507Shannesw local dev="$1" 6121507Shannesw 6131507Shannesw local url 6141507Shannesw device_$dev get name url 6151507Shannesw f_dprintf "Init routine called for FTP device. url=[%s]" "$url" 6161507Shannesw 6171507Shannesw if [ "$FTP_INITIALIZED" ]; then 6181507Shannesw f_dprintf "FTP device already initialized." 6191507Shannesw return $SUCCESS 6201507Shannesw fi 6211507Shannesw 6221507Shannesw # If we can't initialize the network, bag it! 6231507Shannesw f_device_network_up $dev || return $FAILURE 6241507Shannesw 6251507Shannesw local cp 6261507Shannesw while :; do 6271507Shannesw f_getvar $VAR_FTP_PATH cp 6281507Shannesw if [ ! "$cp" ]; then 6291507Shannesw if ! f_media_set_ftp || 6301507Shannesw ! f_getvar $VAR_FTP_PATH cp || 6311507Shannesw [ ! "$cp" ] 6321507Shannesw then 6331507Shannesw f_show_msg "$msg_unable_to_get_proper_ftp_path" 6341507Shannesw f_device_network_down $dev 6351507Shannesw return $FAILURE 6361507Shannesw fi 6371507Shannesw fi 6381507Shannesw 6391507Shannesw local ftp_host ftp_dir 6401507Shannesw if ! { 6411507Shannesw f_getvar $VAR_FTP_HOST ftp_host && 6421507Shannesw f_getvar $VAR_FTP_DIR ftp_dir 6431507Shannesw }; then 6441507Shannesw f_show_msg "$msg_missing_ftp_host_or_directory" 6451507Shannesw f_device_network_down $dev 6461507Shannesw return $FAILURE 6471507Shannesw fi 6481507Shannesw 6491507Shannesw local ftp_port 6501507Shannesw f_getvar $VAR_FTP_PORT ftp_port 6511507Shannesw local host="$ftp_host" port="${ftp_port:+:$ftp_port}" 6521507Shannesw case "$host" in *:*) host="[$host]"; esac 6531507Shannesw 6541507Shannesw local user pass use_anon= 6551507Shannesw f_getvar $VAR_FTP_USER user 6561507Shannesw if [ ! "$user" ]; then 6571507Shannesw user="anonymous" 6581507Shannesw use_anon=1 6591507Shannesw fi 6601507Shannesw if ! f_getvar $VAR_FTP_PASS pass; then 6611507Shannesw f_getvar $VAR_HOSTNAME cp 6621507Shannesw if f_running_as_init; then 6631507Shannesw pass="installer@$cp" 6641507Shannesw else 6651507Shannesw local name="$( id -un 2> /dev/null )" 6661507Shannesw pass="${name:-ftp}@$cp" 6671507Shannesw fi 6681507Shannesw fi 6691507Shannesw 6701507Shannesw f_show_info "$msg_logging_in_to_user_at_host" \ 6711507Shannesw "$user" "$ftp_host" 6721507Shannesw 6731507Shannesw local userpass="" 6741507Shannesw if [ ! "$use_anon" ] && [ "$user" -o "$pass" ]; then 6751507Shannesw userpass="$user${pass:+:$( f_uriencode "$pass" )}" 6761507Shannesw userpass="$userpass${userpass:+@}" 6771507Shannesw fi 6781507Shannesw 6791507Shannesw local mode rx 6801507Shannesw f_getvar $VAR_FTP_STATE mode 6811507Shannesw 6821507Shannesw if [ "$ftp_dir" ]; then 6831507Shannesw if ! rx=$( 6841507Shannesw printf 'cd "%s"\npwd\n' "$ftp_dir" | eval \ 6851507Shannesw FTPMODE=\"\$mode\" \ 6861507Shannesw ${use_anon:+FTPANONPASS=\"\$pass\"} \ 6871507Shannesw ftp -V ${use_anon:+-a} \ 6881507Shannesw \"ftp://\$userpass\$host\$port\" \ 6891507Shannesw 2>&1 6901507Shannesw ); then 6911507Shannesw f_show_msg "$msg_couldnt_open_ftp_connection" \ 6921507Shannesw "$ftp_host" "$rx" 6931507Shannesw break # to failure 6941507Shannesw fi 6951507Shannesw if echo "$rx" | awk -v dir="/${ftp_dir#/}" ' 6961507Shannesw BEGIN { 6971507Shannesw found = 0 6981507Shannesw if ( dir != "/" ) sub("/$", "", dir) 6991507Shannesw } 7001507Shannesw /^Remote directory: / { 7011507Shannesw sub(/^[^:]*:[[:space:]]*/, "") 7021507Shannesw if ($0 != dir) next 7031507Shannesw found = 1; exit 7041507Shannesw } 7051507Shannesw END { exit ! found } 7061507Shannesw '; then 7071507Shannesw setvar $VAR_FTP_DIR "$ftp_dir" 7081507Shannesw setvar $VAR_FTP_PATH \ 7091507Shannesw "ftp://$ftp_host/${ftp_dir#/}" 7101507Shannesw else 7111507Shannesw f_show_msg \ 7121507Shannesw "$msg_please_check_the_url_and_try_again" \ 7131507Shannesw "ftp://$ftp_host/${ftp_dir#/}" 7141507Shannesw break # to failure 7151507Shannesw fi 7161507Shannesw fi 7171507Shannesw 7181507Shannesw # 7191507Shannesw # Now that we've verified that the path we're given is ok, 7201507Shannesw # let's try to be a bit intelligent in locating the release we 7211507Shannesw # are looking for. First off, if the release is specified as 7221507Shannesw # "__RELEASE" or "any", then just assume that the current 7231507Shannesw # directory is the one we want and give up. 7241507Shannesw # 7251507Shannesw local rel 7261507Shannesw f_getvar $VAR_RELNAME rel 7271507Shannesw f_dprintf "f_media_init_ftp: rel=[%s]" "$rel" 7281507Shannesw 7291507Shannesw case "$rel" in 7301507Shannesw __RELEASE|any) 7311507Shannesw FTP_INITIALIZED=YES 7321507Shannesw return $SUCCESS 7331507Shannesw ;; 7341507Shannesw *) 7351507Shannesw # 7361507Shannesw # Ok, since we have a release variable, let's walk 7371507Shannesw # through the list of directories looking for a release 7381507Shannesw # directory. First successful CWD wins. 7391507Shannesw # 7401507Shannesw if ! rx=$( 7411507Shannesw for dir in $FTP_DIRS; do 7421507Shannesw # Avoid confusing some servers 7431507Shannesw [ "$dir" = "." ] && continue 7441507Shannesw printf 'cd "/%s/%s"\npwd\n' \ 7451507Shannesw "$dir" "$rel" 7461507Shannesw done | eval \ 7471507Shannesw FTPMODE=\"\$mode\" \ 7481507Shannesw ${use_anon:+FTPANONPASS=\"\$pass\"} \ 7491507Shannesw ftp -V ${use_anon:+-a} \ 7501507Shannesw \"ftp://\$userpass\$host\$port\" \ 7511507Shannesw 2>&1 7521507Shannesw ); then 7531507Shannesw f_show_msg "$msg_couldnt_open_ftp_connection" \ 7541507Shannesw "$ftp_host" "$rx" 7551507Shannesw break # to failure 7561507Shannesw fi 7571507Shannesw 7581507Shannesw local fdir 7591507Shannesw if fdir=$( echo "$rx" | awk ' 7601507Shannesw BEGIN { found = 0 } 7611507Shannesw /^Remote directory: / { 7621507Shannesw sub(/^[^:]*:[[:space:]]*/, "") 7631507Shannesw if ($0 == "/") next 7641507Shannesw # Exit after the first dir 7651507Shannesw found++; print; exit 7661507Shannesw } 7671507Shannesw END { exit ! found } 7681507Shannesw ' ); then 7691507Shannesw setvar $VAR_FTP_DIR "$fdir" 7701507Shannesw setvar $VAR_FTP_PATH "ftp://$ftp_host$fdir" 7711507Shannesw FTP_INITIALIZED=YES 7721507Shannesw return $SUCCESS 7731507Shannesw else 7741507Shannesw f_yesno "$msg_cant_find_distribution" \ 7751507Shannesw "$rel" "$ftp_host" 7761507Shannesw if [ $? -eq $SUCCESS ]; then 7771507Shannesw unset $VAR_FTP_PATH 7781507Shannesw f_media_set_ftp && continue 7791507Shannesw fi 7801507Shannesw fi 7811507Shannesw esac 7821507Shannesw break # to failure 7831507Shannesw done 7841507Shannesw 7851507Shannesw unset FTP_INITIALIZED $VAR_FTP_PATH 7861507Shannesw f_device_network_down $dev 7871507Shannesw return $FAILURE 7881507Shannesw} 7891507Shannesw 7901507Shannesw# f_media_get_ftp $device $file [$probe_only] 7911507Shannesw# 7921507Shannesw# Returns data from $file on an FTP server using ftp(1). Please note that 7931507Shannesw# $device is unused but must be present (even if null). Information is instead 7941507Shannesw# gathered from the environment. If $probe_only is present and non-NULL, 7951507Shannesw# returns success if $file exists. 7961507Shannesw# 7971507Shannesw# Variables from variable.subr used to configure the connection are as follows 7981507Shannesw# (all of which are configured by f_media_set_ftp above): 7991507Shannesw# 8001507Shannesw# VAR_FTP_HOST 8011507Shannesw# FTP host to connect to. Can be an IPv4 address, IPv6 address, 8021507Shannesw# or DNS hostname of your choice. 8031507Shannesw# VAR_FTP_PORT 8041507Shannesw# TCP port to connect on; see f_media_set_ftp() above. 8051507Shannesw# VAR_FTP_USER [Optional] 8061507Shannesw# If unset, defaults to using anonymous access. 8071507Shannesw# VAR_FTP_PASS [Optional] 8081507Shannesw# If unset, defaults to a sensible value. 8091507Shannesw# 8101507Shannesw# In addition, the following (managed either manually or by f_media_set_ftp_*): 8111507Shannesw# 8121507Shannesw# VAR_FTP_STATE 8131507Shannesw# Sets FTPMODE for ftp(1) and can be one of: 8141507Shannesw# active active mode FTP only 8151507Shannesw# auto automatic determination of passive or active 8161507Shannesw# (this is the default) 8171507Shannesw# gate gate-ftp mode 8181507Shannesw# passive passive mode FTP only 8191507Shannesw# See ftp(1) for additional information. 8201507Shannesw# 8211507Shannesw# See variable.subr for additional information. 8221507Shannesw# 8231507Shannesw# Example usage: 8241507Shannesw# f_media_set_ftp 8251507Shannesw# f_media_get_ftp media $file 8261507Shannesw# 8271507Shanneswf_media_get_ftp() 8281507Shannesw{ 8291507Shannesw local dev="$1" file="$2" probe_only="$3" hosts= 8301507Shannesw 8311507Shannesw f_dprintf "f_media_get_ftp: dev=[%s] file=[%s] probe_only=%s" \ 8321507Shannesw "$dev" "$file" "$probe_only" 8331507Shannesw 8341507Shannesw local ftp_host ftp_port 8351507Shannesw f_getvar $VAR_FTP_HOST ftp_host 8361507Shannesw f_getvar $VAR_FTP_PORT ftp_port 8371507Shannesw 8381507Shannesw if [ ! "$FTP_INITIALIZED" ]; then 8391507Shannesw f_dprintf "No FTP connection open, can't get file %s" "$file" 8401507Shannesw return $FAILURE 8411507Shannesw fi 8421507Shannesw 8431507Shannesw if ! { 8441507Shannesw f_validate_ipaddr "$ftp_host" || 8451507Shannesw f_validate_ipaddr6 "$ftp_host" || 8461507Shannesw { 8471507Shannesw f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 8481507Shannesw "f_media_get_ftp" "$ftp_host" 8491507Shannesw f_host_lookup "$ftp_host" hosts 8501507Shannesw } 8511507Shannesw }; then 8521507Shannesw # All the above validations failed 8531507Shannesw [ "$hosts" ] && f_dialog_msgbox "$hosts" 8541507Shannesw return $FAILURE 8551507Shannesw elif [ ! "$hosts" ]; then 8561507Shannesw # One of the first two validations passed 8571507Shannesw hosts="$ftp_host" 8581507Shannesw fi 8591507Shannesw 8601507Shannesw local host connected= 8611507Shannesw for host in $hosts; do 8621507Shannesw f_quietly nc -nz "$host" "$ftp_port" || continue 8631507Shannesw connected=1; break 8641507Shannesw done 8651507Shannesw if [ ! "$connected" ]; then 8661507Shannesw f_show_msg "$msg_couldnt_connect_to_ftp_server %s:%s" \ 8671507Shannesw "$ftp_host" "$ftp_port" 8681507Shannesw return $FAILURE 8691507Shannesw fi 8701507Shannesw 8711507Shannesw local user pass use_anon= 8721507Shannesw f_getvar $VAR_FTP_USER user 8731507Shannesw if [ ! "$user" ]; then 8741507Shannesw user="anonymous" 8751507Shannesw use_anon=1 8761507Shannesw fi 8771507Shannesw if ! f_getvar $VAR_FTP_PASS pass; then 8781507Shannesw f_getvar $VAR_HOSTNAME cp 8791507Shannesw if f_running_as_init; then 8801507Shannesw pass="installer@$cp" 8811507Shannesw else 8821507Shannesw local name="$( id -un 2> /dev/null )" 8831507Shannesw pass="${name:-ftp}@$cp" 8841507Shannesw fi 8851507Shannesw fi 8861507Shannesw 8871507Shannesw local userpass="" 8881507Shannesw if [ ! "$use_anon" ] && [ "$user" -o "$pass" ]; then 8891507Shannesw userpass="$user${pass:+:$( f_uriencode "$pass" )}" 8901507Shannesw userpass="$userpass${userpass:+@}" 8911507Shannesw fi 8921507Shannesw 8931507Shannesw local dir mode rx 8941507Shannesw f_getvar $VAR_FTP_DIR\#/ dir 8951507Shannesw f_getvar $VAR_FTP_STATE mode 8961507Shannesw 8971507Shannesw local port="${ftp_port:+:$ftp_port}" 8981507Shannesw case "$host" in *:*) host="[$host]"; esac 8991507Shannesw 9001507Shannesw f_dprintf "sending ftp request for: %s" "ftp://$host$port/$dir/$file" 9011507Shannesw 9021507Shannesw if [ "$probe_only" ]; then 9031507Shannesw local url="ftp://$userpass$host$port/$dir/$file" 9041507Shannesw [ "$use_anon" ] && url="ftp://$host$port/$dir/$file" 9051507Shannesw if ! size=$( fetch -s "$url" 2>&1 ) || ! f_isinteger "$size" 9061507Shannesw then 9071507Shannesw f_dprintf "request failed! size response=[%s]" "$size" 9081507Shannesw return $FAILURE 9091507Shannesw fi 9101507Shannesw return $SUCCESS 9111507Shannesw fi 9121507Shannesw 9131507Shannesw eval FTPMODE=\"\$mode\" ${use_anon:+FTPANONPASS=\"\$pass\"} \ 9141507Shannesw ftp -V ${use_anon:+-a} -o - \ 9151507Shannesw \"ftp://\$userpass\$host\$port/\$dir/\$file\" 2> /dev/null 9161507Shannesw local retval=$? 9171507Shannesw 9181507Shannesw [ $retval -eq $SUCCESS ] || f_dprintf "request failed!" 9191507Shannesw return $retval 9201507Shannesw} 9211507Shannesw 9221507Shannesw# f_media_shutdown_ftp $device 9231507Shannesw# 9241507Shannesw# Shuts down the FTP device. Return status should be ignored. Note that since 9251507Shannesw# we don't maintain an open connection to the FTP server there's nothing to do. 9261507Shannesw# 9271507Shanneswf_media_shutdown_ftp() 9281507Shannesw{ 9291507Shannesw [ "$FTP_INITIALIZED" ] || return $SUCCESS 9301507Shannesw 9311507Shannesw unset FTP_INITIALIZED 9321507Shannesw} 9331507Shannesw 9341507Shannesw############################################################ MAIN 9351507Shannesw 9361507Shanneswf_dprintf "%s: Successfully loaded." media/ftp.subr 9371507Shannesw 9381507Shanneswfi # ! $_MEDIA_FTP_SUBR 9391507Shannesw