http.subr revision 272230
1252112Sdteskeif [ ! "$_MEDIA_HTTP_SUBR" ]; then _MEDIA_HTTP_SUBR=1 2252112Sdteske# 3252112Sdteske# Copyright (c) 2012-2013 Devin Teske 4252980Sdteske# All rights reserved. 5252112Sdteske# 6252112Sdteske# Redistribution and use in source and binary forms, with or without 7252112Sdteske# modification, are permitted provided that the following conditions 8252112Sdteske# are met: 9252112Sdteske# 1. Redistributions of source code must retain the above copyright 10252112Sdteske# notice, this list of conditions and the following disclaimer. 11252112Sdteske# 2. Redistributions in binary form must reproduce the above copyright 12252112Sdteske# notice, this list of conditions and the following disclaimer in the 13252112Sdteske# documentation and/or other materials provided with the distribution. 14252112Sdteske# 15252112Sdteske# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16252987Sdteske# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17252112Sdteske# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18252112Sdteske# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19252112Sdteske# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20252987Sdteske# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21252112Sdteske# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22252112Sdteske# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23252112Sdteske# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24252112Sdteske# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25252112Sdteske# SUCH DAMAGE. 26252112Sdteske# 27252112Sdteske# $FreeBSD: stable/10/usr.sbin/bsdconfig/share/media/http.subr 272230 2014-09-27 23:57:21Z dteske $ 28252112Sdteske# 29252112Sdteske############################################################ INCLUDES 30252112Sdteske 31252112SdteskeBSDCFG_SHARE="/usr/share/bsdconfig" 32252112Sdteske. $BSDCFG_SHARE/common.subr || exit 1 33252112Sdteskef_dprintf "%s: loading includes..." media/http.subr 34252112Sdteskef_include $BSDCFG_SHARE/device.subr 35252112Sdteskef_include $BSDCFG_SHARE/dialog.subr 36252112Sdteskef_include $BSDCFG_SHARE/media/common.subr 37252112Sdteskef_include $BSDCFG_SHARE/media/tcpip.subr 38252112Sdteskef_include $BSDCFG_SHARE/strings.subr 39252112Sdteskef_include $BSDCFG_SHARE/struct.subr 40252112Sdteskef_include $BSDCFG_SHARE/variable.subr 41252112Sdteske 42252112SdteskeBSDCFG_LIBE="/usr/libexec/bsdconfig" 43252112Sdteskef_include_lang $BSDCFG_LIBE/include/messages.subr 44252112Sdteske 45252112Sdteske############################################################ GLOBALS 46252112Sdteske 47252112SdteskeHTTP_SKIP_RESOLV= 48252112Sdteske 49252112SdteskeURL_MAX=261261 50252112Sdteske # NOTE: This is according to actual fetch(1) test-results. We actually 51252112Sdteske # use nc(1) to retrieve files, but it's still a good idea to keep the 52252112Sdteske # URLs short enough that fetch(1) won't complain. 53252112Sdteske 54252112SdteskeHTTP_DIRS=" 55252112Sdteske . 56252112Sdteske releases/$UNAME_P 57252112Sdteske snapshots/$UNAME_P 58252112Sdteske pub/FreeBSD 59252112Sdteske pub/FreeBSD/releases/$UNAME_P 60252112Sdteske pub/FreeBSD/snapshots/$UNAME_P 61252112Sdteske pub/FreeBSD-Archive/old-releases/$UNAME_P 62252112Sdteske" # END-QUOTE 63252112Sdteske 64252112Sdteske############################################################ FUNCTIONS 65252112Sdteske 66252112Sdteske# f_dialog_menu_media_http 67252112Sdteske# 68252112Sdteske# Prompt the user to select from a range of ``built-in'' HTTP servers or 69252112Sdteske# specify their own. If the user makes a choice and doesn't cancel or press 70252112Sdteske# Esc, stores the user's choice in VAR_FTP_PATH (see variable.subr) and returns 71252112Sdteske# success. 72252112Sdteske# 73252112Sdteskef_dialog_menu_media_http() 74252112Sdteske{ 75252112Sdteske f_dialog_title "$msg_please_select_a_freebsd_http_distribution_site" 76252112Sdteske local title="$DIALOG_TITLE" btitle="$DIALOG_BACKTITLE" 77252112Sdteske f_dialog_title_restore 78252112Sdteske local prompt="$msg_please_select_the_site_closest_to_you_or_other" 79252112Sdteske local menu_list=" 80258420Sdteske 'dist $msg_main_site' 'ftp.freebsd.org' 81258420Sdteske 'pkg $msg_main_site' 'pkg.freebsd.org' 82255818Sdteske 'URL' '$msg_specify_some_other_http_site' 83252112Sdteske " # END-QUOTE 84252112Sdteske local hline="$msg_select_a_site_thats_close" 85252112Sdteske 86252112Sdteske local height width rows 87252112Sdteske eval f_dialog_menu_size height width rows \ 88252112Sdteske \"\$title\" \ 89252112Sdteske \"\$btitle\" \ 90252112Sdteske \"\$prompt\" \ 91252112Sdteske \"\$hline\" \ 92252112Sdteske $menu_list 93252112Sdteske 94252112Sdteske local mtag 95252112Sdteske mtag=$( eval $DIALOG \ 96252112Sdteske --title \"\$title\" \ 97252112Sdteske --backtitle \"\$btitle\" \ 98252112Sdteske --hline \"\$hline\" \ 99252112Sdteske --ok-label \"\$msg_ok\" \ 100252112Sdteske --cancel-label \"\$msg_cancel\" \ 101252112Sdteske --menu \"\$prompt\" \ 102252112Sdteske $height $width $rows \ 103252112Sdteske $menu_list \ 104252112Sdteske 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD 105256181Sdteske ) || return $DIALOG_CANCEL 106252112Sdteske f_dialog_data_sanitize mtag 107252112Sdteske 108252112Sdteske case "$mtag" in 109252112Sdteske URL) setvar $VAR_HTTP_PATH "other" ;; 110252112Sdteske *) 111252112Sdteske local value 112252112Sdteske value=$( eval f_dialog_menutag2item \"\$mtag\" $menu_list ) 113252112Sdteske setvar $VAR_HTTP_PATH "http://$value" 114252112Sdteske esac 115252112Sdteske 116256181Sdteske return $DIALOG_OK 117252112Sdteske} 118252112Sdteske 119252112Sdteske# f_media_set_http 120252112Sdteske# 121252112Sdteske# Return success if we both found and set the media type to be an HTTP server. 122252112Sdteske# 123252112Sdteske# Variables from variable.subr that can be used to script user input: 124252112Sdteske# 125252112Sdteske# VAR_HTTP_PATH 126252112Sdteske# URL containing host and optionally a target path to the release 127252112Sdteske# repository on the HTTP server. Valid examples include: 128252112Sdteske# http://myhost 129252112Sdteske# http://somename:80/pub/ 130252112Sdteske# http://192.168.2.3/pub/ 131252112Sdteske# http://[::1]:8000/ 132252112Sdteske# The default port if not specified is 80. 133252112Sdteske# VAR_NAMESERVER [Optional] 134252112Sdteske# If set, overrides resolv.conf(5) and sets the nameserver that 135252112Sdteske# is used to convert names into addresses (when a name converts 136252112Sdteske# into multiple addresses, the first address to successfully 137252112Sdteske# connect is used). 138252112Sdteske# 139252112Sdteske# Meanwhile, the following variables from variable.subr are set after 140252112Sdteske# successful execution: 141252112Sdteske# 142252112Sdteske# VAR_HTTP_HOST 143252112Sdteske# The HTTP host to connect to, parsed from VAR_HTTP_PATH. In the 144252112Sdteske# example case of IPv6 where VAR_HTTP_PATH is "http://[::1]" this 145252112Sdteske# variable will be set to "::1" (the outer brackets are removed). 146252112Sdteske# VAR_HTTP_PORT 147252112Sdteske# The TCP port to connect to, parsed from VAR_HTTP_PATH. Usually 148252112Sdteske# 80 unless VAR_HTTP_PATH was one of the following forms: 149252112Sdteske# http://hostname:OTHER_PORT 150252112Sdteske# http://hostname:OTHER_PORT/* 151252112Sdteske# http://ip:OTHER_PORT 152252112Sdteske# http://ip:OTHER_PORT/* 153252112Sdteske# http://[ip6]:OTHER_PORT 154252112Sdteske# http://[ip6]:OTHER_PORT/* 155252112Sdteske# VAR_HTTP_DIR 156252112Sdteske# If VAR_HTTP_PATH contained a directory element (e.g., 157252112Sdteske# "http://localhost/pub") this variable contains only the 158252112Sdteske# directory element (e.g., "/pub"). 159252112Sdteske# 160252112Sdteskef_media_set_http() 161252112Sdteske{ 162252112Sdteske f_media_close 163252112Sdteske 164252112Sdteske local url 165252112Sdteske f_getvar $VAR_HTTP_PATH url 166252112Sdteske 167252112Sdteske # If we've been through here before ... 168252112Sdteske if f_struct device_network && [ "${url#$msg_other}" ]; then 169252112Sdteske f_dialog_yesno "$msg_reuse_old_http_site_settings" || url= 170252112Sdteske fi 171252112Sdteske 172252112Sdteske if [ ! "$url" ]; then 173252112Sdteske f_dialog_menu_media_http || return $FAILURE 174252112Sdteske f_getvar $VAR_HTTP_PATH url 175252112Sdteske fi 176252112Sdteske [ "$url" ] || return $FAILURE 177252112Sdteske 178252112Sdteske case "$url" in 179252112Sdteske other) 180252112Sdteske setvar $VAR_HTTP_PATH "http://" 181252112Sdteske f_variable_get_value $VAR_HTTP_PATH \ 182252112Sdteske "$msg_please_specify_url_of_freebsd_http_distribution" 183252112Sdteske f_getvar $VAR_HTTP_PATH url 184252112Sdteske if [ ! "${url#http://}" ]; then 185252112Sdteske unset $VAR_HTTP_PATH 186252112Sdteske return $FAILURE 187252112Sdteske fi 188252112Sdteske if [ ${#url} -gt ${URL_MAX:-261261} ]; then 189252112Sdteske f_show_msg "$msg_length_of_specified_url_is_too_long" \ 190252112Sdteske ${#url} ${URL_MAX:-261261} 191252112Sdteske unset $VAR_HTTP_PATH 192252112Sdteske return $FAILURE 193252112Sdteske fi 194252112Sdteske case "$url" in 195252112Sdteske http://*) : valid URL ;; 196252112Sdteske *) 197252112Sdteske f_show_msg "$msg_sorry_invalid_url" "$url" 198252112Sdteske unset $VAR_HTTP_PATH 199252112Sdteske return $FAILURE 200252112Sdteske esac 201252112Sdteske esac 202252112Sdteske case "$url" in 203252112Sdteske http://*) : valid URL ;; 204252112Sdteske *) 205252112Sdteske f_show_msg "$msg_sorry_invalid_url" "$url" 206252112Sdteske unset $VAR_HTTP_PATH 207252112Sdteske return $FAILURE 208252112Sdteske esac 209252112Sdteske 210252112Sdteske # Set the name of the HTTP device to the URL 211252112Sdteske f_struct_new DEVICE device_http 212252112Sdteske device_http set name "$url" 213252112Sdteske 214252112Sdteske if ! f_struct device_network || 215252112Sdteske ! f_dialog_yesno "$msg_youve_already_done_the_network_configuration" 216252112Sdteske then 217252112Sdteske f_struct device_network && 218266290Sdteske f_device_shutdown device_network 219252112Sdteske if ! f_device_select_tcp; then 220252112Sdteske unset $VAR_HTTP_PATH 221252112Sdteske return $FAILURE 222252112Sdteske fi 223266290Sdteske local dev if 224266290Sdteske f_getvar $VAR_NETWORK_DEVICE if 225266290Sdteske f_device_find -1 "$if" $DEVICE_TYPE_NETWORK dev 226266290Sdteske f_struct_copy "$dev" device_network 227252112Sdteske fi 228266290Sdteske if ! f_device_init device_network; then 229252112Sdteske f_dprintf "f_media_set_http: %s" "$msg_net_device_init_failed" 230252112Sdteske unset $VAR_HTTP_PATH 231252112Sdteske return $FAILURE 232252112Sdteske fi 233252112Sdteske 234252112Sdteske local hostname="${url#*://}" port=80 dir=/ 235252112Sdteske case "$hostname" in 236252112Sdteske # 237252112Sdteske # The order in-which the below individual cases appear is important! 238252112Sdteske # 239252112Sdteske "["*"]":*/*) # IPv6 address with port and directory 240252112Sdteske f_dprintf "Looks like an IPv6 addr with port/dir: %s" \ 241252112Sdteske "$hostname" 242252112Sdteske hostname="${hostname#\[}" 243252112Sdteske port="${hostname#*\]:}" 244252112Sdteske port="${port%%[!0-9]*}" 245252112Sdteske dir="/${hostname#*/}" 246252112Sdteske hostname="${hostname%%\]:*}" 247252112Sdteske ;; 248252112Sdteske "["*"]":*) # IPv6 address with port 249252112Sdteske f_dprintf "Looks like an IPv6 addr with port: %s" "$hostname" 250252112Sdteske hostname="${hostname#\[}" 251252112Sdteske port="${hostname#*\]:}" 252252112Sdteske port="${port%%[!0-9]*}" 253252112Sdteske hostname="${hostname%%\]:*}" 254252112Sdteske ;; 255252112Sdteske "["*"]"/*) # IPv6 address with directory 256252112Sdteske f_dprintf "Looks like an IPv6 addr with dir: %s" "$hostname" 257252112Sdteske hostname="${hostname#\[}" 258252112Sdteske dir="/${hostname#*/}" 259252112Sdteske hostname="${hostname%%\]*}" 260252112Sdteske ;; 261252112Sdteske "["*"]") # IPv6 address 262252112Sdteske f_dprintf "Looks like an IPv6 addr: %s" "$hostname" 263252112Sdteske hostname="${hostname#\[}" 264252112Sdteske hostname="${hostname%\]}" 265252112Sdteske ;; 266252112Sdteske # 267252112Sdteske # ^^^ IPv6 above / DNS Name or IPv4 below vvv 268252112Sdteske # 269252112Sdteske *:*/*) # DNS name or IPv4 address with port and directory 270252112Sdteske f_dprintf "Looks like a %s with port/dir: %s" \ 271252112Sdteske "DNS name or IPv4 addr" "$hostname" 272252112Sdteske port="${hostname#*:}" 273252112Sdteske port="${port%%[!0-9]*}" 274252112Sdteske dir="/${hostname#*/}" 275252112Sdteske hostname="${hostname%%:*}" 276252112Sdteske ;; 277252112Sdteske *:*) # DNS name or IPv4 address with port 278252112Sdteske f_dprintf "Looks like a DNS name or IPv4 addr with port: %s" \ 279252112Sdteske "$hostname" 280252112Sdteske port="${hostname#*:}" 281252112Sdteske hostname="${hostname%%:*}" 282252112Sdteske ;; 283252112Sdteske */*) # DNS name or IPv4 address with directory 284252112Sdteske f_dprintf "Looks like a DNS name or IPv4 addr with dir: %s" \ 285252112Sdteske "$hostname" 286252112Sdteske dir="/${hostname#*/}" 287252112Sdteske hostname="${hostname%%/*}" 288252112Sdteske ;; 289252112Sdteske *) # DNS name or IPv4 address 290252112Sdteske f_dprintf "Looks like a DNS name or IPv4 addr: %s" "$hostname" 291252112Sdteske : leave hostname as-is 292252112Sdteske esac 293252112Sdteske 294252112Sdteske f_dprintf "hostname = \`%s'" "$hostname" 295252112Sdteske f_dprintf "dir = \`%s'" "$dir" 296252112Sdteske f_dprintf "port \# = \`%d'" "$port" 297252112Sdteske 298252112Sdteske local ns 299252112Sdteske f_getvar $VAR_NAMESERVER ns 300252112Sdteske [ "$ns" ] || f_resolv_conf_nameservers ns 301252112Sdteske if [ "$ns" -a ! "$HTTP_SKIP_RESOLV" ] && ! { 302252112Sdteske f_validate_ipaddr "$hostname" || 303252112Sdteske f_validate_ipaddr6 "$hostname" 304252112Sdteske }; then 305252112Sdteske f_show_info "$msg_looking_up_host" "$hostname" 306252112Sdteske f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 307252112Sdteske "f_media_set_http" "$hostname" 308252112Sdteske if ! f_quietly f_host_lookup "$hostname"; then 309252112Sdteske f_show_msg "$msg_cannot_resolve_hostname" "$hostname" 310252112Sdteske f_struct device_network && 311266290Sdteske f_device_shutdown device_network 312252112Sdteske f_struct_free device_network 313252112Sdteske unset $VAR_HTTP_PATH 314252112Sdteske return $FAILURE 315252112Sdteske fi 316252112Sdteske f_dprintf "Found DNS entry for %s successfully." "$hostname" 317252112Sdteske fi 318252112Sdteske 319252112Sdteske setvar $VAR_HTTP_HOST "$hostname" 320252112Sdteske setvar $VAR_HTTP_PORT "$port" 321252112Sdteske setvar $VAR_HTTP_DIR "$dir" 322252112Sdteske 323252112Sdteske device_http set type $DEVICE_TYPE_HTTP 324252112Sdteske device_http set init f_media_init_http 325252112Sdteske device_http set get f_media_get_http 326252112Sdteske device_http set shutdown f_media_shutdown_http 327266290Sdteske device_http set private device_network 328252112Sdteske f_struct_copy device_http device_media 329252112Sdteske f_struct_free device_http 330252112Sdteske 331252112Sdteske return $SUCCESS 332252112Sdteske} 333252112Sdteske 334252112Sdteske# f_http_check_access [$connect_only] 335252112Sdteske# 336252112Sdteske# Return success if able list a remote HTTP directory. If $connect_only is 337252112Sdteske# present and non-null, then returns success if a connection can be made. 338252112Sdteske# Variables from variable.subr that can be used to script user input: 339252112Sdteske# 340252112Sdteske# VAR_HTTP_HOST 341252112Sdteske# The HTTP server host name, IPv4 address or IPv6 address. 342252112Sdteske# Valid examples include: 343252112Sdteske# myhost 344252112Sdteske# 192.168.2.3 345252112Sdteske# ::1 346252112Sdteske# VAR_HTTP_PORT 347252112Sdteske# The TCP port to connect to when communicating with the server. 348252112Sdteske# VAR_HTTP_PATH 349252112Sdteske# The HTTP path sent to the server. Unused if $connect_only is 350252112Sdteske# present and non-NULL. 351252112Sdteske# 352252112Sdteskef_http_check_access() 353252112Sdteske{ 354252112Sdteske local connect_only="$1" hosts= 355252112Sdteske 356252112Sdteske local http_host http_port 357252112Sdteske f_getvar $VAR_HTTP_HOST http_host 358252112Sdteske f_getvar $VAR_HTTP_PORT http_port 359252112Sdteske 360252112Sdteske if ! { 361252112Sdteske f_validate_ipaddr "$http_host" || 362252112Sdteske f_validate_ipaddr6 "$http_host" || 363252112Sdteske { 364252112Sdteske f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 365252112Sdteske "f_http_check_access" "$http_host" 366252112Sdteske f_host_lookup "$http_host" hosts 367252112Sdteske } 368252112Sdteske }; then 369252112Sdteske # All the above validations failed 370252112Sdteske [ "$hosts" ] && f_dialog_msgbox "$hosts" 371252112Sdteske unset $VAR_HTTP_HOST 372252112Sdteske return $FAILURE 373252112Sdteske elif [ ! "$hosts" ]; then 374252112Sdteske # One of the first two validations passed 375252112Sdteske hosts="$http_host" 376252112Sdteske fi 377252112Sdteske 378252112Sdteske local host connected= 379252112Sdteske for host in $hosts; do 380252112Sdteske f_quietly nc -nz "$host" "$http_port" || continue 381252112Sdteske connected=1; break 382252112Sdteske done 383252112Sdteske if [ ! "$connected" ]; then 384252112Sdteske f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 385252112Sdteske "$http_host" "$http_port" 386252112Sdteske unset $VAR_HTTP_HOST 387252112Sdteske return $FAILURE 388252112Sdteske fi 389252112Sdteske [ "$connect_only" ] && return $SUCCESS 390252112Sdteske 391252112Sdteske local http_path 392252112Sdteske f_getvar $VAR_HTTP_PATH http_path 393252112Sdteske f_show_info "$msg_checking_access_to" "$http_path" 394252112Sdteske 395252112Sdteske local rx 396255818Sdteske case "$http_path" in 397255818Sdteske http://*|/*) : valid request ;; 398255818Sdteske *) http_path="/$http_path" # full URI requests only 399255818Sdteske esac 400252112Sdteske if ! rx=$( 401255818Sdteske printf "GET %s/ HTTP/1.0\r\n\r\n" "${http_path%/}" | 402252112Sdteske nc -n "$host" "$http_port" 403252112Sdteske ); then 404252112Sdteske f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 405252112Sdteske "$http_host" "$http_port" 406252112Sdteske unset $VAR_HTTP_HOST 407252112Sdteske return $FAILURE 408252112Sdteske fi 409252112Sdteske 410252112Sdteske local hdr 411252112Sdteske hdr=$( echo "$rx" | awk '/^\r$/{exit}{print}' ) 412252112Sdteske 413252112Sdteske local http_found=$FAILURE 414252112Sdteske if echo "$hdr" | awk ' 415252112Sdteske BEGIN { found = 0 } 416252112Sdteske /^HTTP.... 200 / { 417252112Sdteske found = 1 418252112Sdteske exit 419252112Sdteske } 420252112Sdteske END { exit ! found } 421252112Sdteske '; then 422252112Sdteske http_found=$SUCCESS 423252112Sdteske fi 424252112Sdteske 425252112Sdteske return $http_found 426252112Sdteske} 427252112Sdteske 428252112Sdteske# f_media_init_http $device 429252112Sdteske# 430252112Sdteske# Initializes the HTTP media device. Returns success if able to confirm the 431252112Sdteske# existence of at least one known HTTP server release path directly via HTTP 432252112Sdteske# using f_http_check_access(), above. 433252112Sdteske# 434252112Sdteske# Variables from variable.subr that can be used to script user input: 435252112Sdteske# 436252112Sdteske# VAR_HTTP_HOST 437252112Sdteske# The HTTP server to connect to. Must be set. Also see 438252112Sdteske# f_http_check_access() for additional variables. 439252112Sdteske# VAR_RELNAME 440252112Sdteske# Usually set to `uname -r' but can be overridden. 441252112Sdteske# VAR_HTTP_PATH 442252112Sdteske# The HTTP path sent to the server. Usually set by calling 443252112Sdteske# f_media_set_http(). 444252112Sdteske# 445252112Sdteske# Meanwhile, after successful execution, the following variables (also from 446252112Sdteske# variable.subr) are set: 447252112Sdteske# 448252112Sdteske# VAR_HTTP_PATH 449252112Sdteske# The [possibly] adjusted VAR_HTTP_PATH that was found to contain 450252112Sdteske# a valid FreeBSD repository. 451252112Sdteske# 452252112Sdteskef_media_init_http() 453252112Sdteske{ 454252112Sdteske local dev="$1" 455252112Sdteske f_dprintf "Init routine called for HTTP device. dev=[%s]" "$dev" 456252112Sdteske 457258420Sdteske if [ "$HTTP_INITIALIZED" ]; then 458258420Sdteske f_dprintf "HTTP device already initialized." 459258420Sdteske return $SUCCESS 460258420Sdteske fi 461258420Sdteske 462252112Sdteske # 463252112Sdteske # First verify access 464252112Sdteske # 465252112Sdteske local connect_only=1 466252112Sdteske f_http_check_access $connect_only 467252112Sdteske 468252112Sdteske local http_host 469252112Sdteske f_getvar $VAR_HTTP_HOST http_host 470252112Sdteske while [ ! "$http_host" ]; do 471252112Sdteske f_media_set_http || return $FAILURE 472252112Sdteske f_http_check_access $connect_only 473252112Sdteske f_getvar $VAR_HTTP_HOST http_host 474252112Sdteske done 475252112Sdteske 476252112Sdteske local http_path http_found=$FAILURE 477252112Sdteske while :; do 478252112Sdteske # 479252112Sdteske # Now that we've verified that the path we're given is ok, 480252112Sdteske # let's try to be a bit intelligent in locating the release we 481252112Sdteske # are looking for. First off, if the release is specified as 482252112Sdteske # "__RELEASE" or "any", then just assume that the current 483252112Sdteske # directory is the one we want and give up. 484252112Sdteske # 485252112Sdteske local rel 486252112Sdteske f_getvar $VAR_RELNAME rel 487252112Sdteske f_dprintf "f_media_init_http: rel=[%s]" "$rel" 488252112Sdteske 489252112Sdteske case "$rel" in 490252112Sdteske __RELEASE|any) 491258420Sdteske f_getvar $VAR_HTTP_DIR $VAR_HTTP_PATH 492252112Sdteske f_http_check_access 493252112Sdteske http_found=$? 494252112Sdteske ;; 495252112Sdteske *) 496252112Sdteske # 497252112Sdteske # Ok, since we have a release variable, let's walk 498252112Sdteske # through the list of directories looking for a release 499252112Sdteske # directory. First successful path wins. 500252112Sdteske # 501252112Sdteske local fdir hp 502252112Sdteske f_getvar $VAR_HTTP_PATH%/ hp 503258420Sdteske setvar $VAR_HTTP_PATH "$hp/$PKG_ABI/latest" 504258420Sdteske if [ "$PKG_ABI" ] && f_http_check_access; then 505258420Sdteske http_found=$SUCCESS 506258420Sdteske setvar $VAR_HTTP_PATH "$hp" 507258420Sdteske else 508258420Sdteske for fdir in $HTTP_DIRS; do 509258420Sdteske setvar $VAR_HTTP_PATH "$hp/$fdir/$rel" 510258420Sdteske if f_http_check_access; then 511258420Sdteske http_found=$SUCCESS 512258420Sdteske break 513258420Sdteske fi 514258420Sdteske done 515258420Sdteske fi 516252112Sdteske esac 517252112Sdteske 518272230Sdteske [ $http_found -eq $SUCCESS ] && HTTP_INITIALIZED=YES break 519252112Sdteske 520252112Sdteske f_getvar $VAR_HTTP_PATH http_path 521252112Sdteske f_show_msg "$msg_please_check_the_url_and_try_again" \ 522252112Sdteske "$http_path" 523252112Sdteske 524258420Sdteske unset HTTP_INITIALIZED $VAR_HTTP_PATH 525252112Sdteske f_media_set_http || break 526252112Sdteske done 527252112Sdteske 528252112Sdteske return $http_found 529252112Sdteske} 530252112Sdteske 531253333Sdteske# f_media_get_http $device $file [$probe_type] 532252112Sdteske# 533252112Sdteske# Returns data from $file on an HTTP server using nc(1). Please note that 534252112Sdteske# $device is unused but must be present (even if null). Information is instead 535253333Sdteske# gathered from the environment. If $probe_type is both present and non-NULL, 536252112Sdteske# this function exits after receiving the HTTP header response from the server 537252112Sdteske# (if the HTTP response code is 200, success is returned; otherwise failure). 538253333Sdteske# If $probe_type is equal to $PROBE_SIZE, prints the content-length in bytes 539253333Sdteske# from the response (or -1 if not found) to standard-out. 540252112Sdteske# 541252112Sdteske# The variables used to configure the connection are as follows (all of which 542252112Sdteske# are configured by f_media_set_http above): 543252112Sdteske# 544252112Sdteske# VAR_HTTP_HOST 545252112Sdteske# HTTP server which to connect. Can be an IPv4 address, IPv6 546252112Sdteske# address, or DNS hostname of your choice. 547252112Sdteske# VAR_HTTP_PORT 548252112Sdteske# TCP port to connect on; see f_media_set_http above. 549252112Sdteske# VAR_HTTP_PATH 550252112Sdteske# Directory prefix to use when requesting $file. Default is `/' 551252112Sdteske# unless f_media_init_http was able to use f_http_check_access 552252112Sdteske# to validate one of the defaults in $HTTP_DIRS (see GLOBALS at 553252112Sdteske# the top of this file); assuming VAR_RELNAME was not set to 554252112Sdteske# either `__RELEASE' or `any' (indicating that the global set of 555252112Sdteske# $HTTP_DIRS should be ignored). 556252112Sdteske# 557252112Sdteske# See variable.subr for additional information. 558252112Sdteske# 559252112Sdteske# Example usage: 560252112Sdteske# f_media_set_http 561252112Sdteske# f_media_get_http media $file 562252112Sdteske# 563252112Sdteskef_media_get_http() 564252112Sdteske{ 565253333Sdteske local dev="$1" file="$2" probe_type="$3" hosts= 566266290Sdteske local name 567252112Sdteske 568266290Sdteske $dev get name name 569253333Sdteske f_dprintf "f_media_get_http: dev=[%s] file=[%s] probe_type=%s" \ 570266290Sdteske "$name" "$file" "$probe_type" 571252112Sdteske 572252112Sdteske local http_host http_port 573252112Sdteske f_getvar $VAR_HTTP_HOST http_host 574252112Sdteske f_getvar $VAR_HTTP_PORT http_port 575252112Sdteske 576258420Sdteske if [ ! "$HTTP_INITIALIZED" ]; then 577258420Sdteske f_dprintf "No HTTP connection open, can't get file %s" "$file" 578258420Sdteske return $FAILURE 579258420Sdteske fi 580258420Sdteske 581252112Sdteske if ! { 582252112Sdteske f_validate_ipaddr "$http_host" || 583252112Sdteske f_validate_ipaddr6 "$http_host" || 584252112Sdteske { 585252112Sdteske f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 586252112Sdteske "f_media_get_http" "$http_host" 587252112Sdteske f_host_lookup "$http_host" hosts 588252112Sdteske } 589252112Sdteske }; then 590252112Sdteske # All the above validations failed 591252112Sdteske [ "$hosts" ] && f_dialog_msgbox "$hosts" 592252112Sdteske return $FAILURE 593252112Sdteske elif [ ! "$hosts" ]; then 594252112Sdteske # One of the first two validations passed 595252112Sdteske hosts="$http_host" 596252112Sdteske fi 597252112Sdteske 598252112Sdteske local host connected= 599252112Sdteske for host in $hosts; do 600252112Sdteske f_quietly nc -nz "$host" "$http_port" || continue 601252112Sdteske connected=1; break 602252112Sdteske done 603252112Sdteske if [ ! "$connected" ]; then 604252112Sdteske f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 605252112Sdteske "$http_host" "$http_port" 606252112Sdteske return $FAILURE 607252112Sdteske fi 608252112Sdteske 609252112Sdteske local http_path 610252112Sdteske f_getvar $VAR_HTTP_PATH%/ http_path 611255818Sdteske case "$http_path" in 612255818Sdteske http://*|/*) : valid request ;; 613255818Sdteske *) http_path="/$http_path" # full URI requests only 614255818Sdteske esac 615252112Sdteske 616255818Sdteske local url="$http_path/$file" rx 617252112Sdteske f_dprintf "sending http request for: %s" "$url" 618258420Sdteske f_dprintf "using nc to connect to: %s:%s" "$host" "$http_port" 619252112Sdteske printf "GET %s HTTP/1.0\r\n\r\n" "$url" | nc -n "$host" "$http_port" | 620252112Sdteske ( 621252112Sdteske # 622252112Sdteske # scan the headers of the response 623252112Sdteske # this is extremely quick'n dirty 624252112Sdteske # 625252112Sdteske 626253333Sdteske rv=0 length=-1 627252112Sdteske while read LINE; do 628252112Sdteske case "$LINE" in 629252112Sdteske HTTP*) 630252112Sdteske f_dprintf "received response: %s" "$LINE" 631252112Sdteske set -- $LINE; rv=$2 632252112Sdteske f_isinteger "$rv" || rv=0 633252112Sdteske ;; 634253333Sdteske "Content-Length: "*) 635253333Sdteske length="${LINE% 636253333Sdteske}" 637253333Sdteske length="${length#Content-Length: }" 638253333Sdteske f_dprintf "received content-length: %s" \ 639253333Sdteske "$length" 640253333Sdteske ;; 641252112Sdteske *) 642252112Sdteske [ "${LINE% 643252112Sdteske}" ] || break # End of headers 644252112Sdteske esac 645252112Sdteske done 646252112Sdteske 647252112Sdteske [ $rv -ge 500 ] && exit 5 648252112Sdteske [ $rv -eq 404 ] && exit 44 649252112Sdteske [ $rv -ge 400 ] && exit 4 650252112Sdteske [ $rv -ge 300 ] && exit 3 651252112Sdteske [ $rv -eq 200 ] || exit $FAILURE 652252112Sdteske 653253333Sdteske if [ ! "$probe_type" ]; then 654252112Sdteske cat # output the rest ``as-is'' 655253333Sdteske elif [ "$probe_type" = "$PROBE_SIZE" ]; then 656253333Sdteske f_isinteger "$length" || length=-1 657253333Sdteske echo "$length" 658252112Sdteske fi 659252112Sdteske exit 200 660252112Sdteske ) 661252112Sdteske local retval=$? 662252112Sdteske [ $retval -eq 200 ] && return $SUCCESS 663253333Sdteske [ "$probe_type" ] && return $FAILURE 664252112Sdteske 665252112Sdteske case "$retval" in 666252112Sdteske 5) f_show_msg "$msg_server_error_when_requesting_url" "$url" ;; 667252112Sdteske 44) f_show_msg "$msg_url_was_not_found" "$url" ;; 668252112Sdteske 4) f_show_msg "$msg_client_error" ;; 669252112Sdteske *) f_show_msg "$msg_error_when_requesting_url" "$url" ;; 670272230Sdteske esac 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD 671252112Sdteske return $FAILURE 672252112Sdteske} 673252112Sdteske 674258420Sdteske# f_media_shutdown_http $device 675258420Sdteske# 676258420Sdteske# Shuts down the HTTP device. Return status should be ignored. Note that since 677258420Sdteske# we don't maintain an open connection to the HTTP server, nothing to do. 678258420Sdteske# 679258420Sdteskef_media_shutdown_http() 680258420Sdteske{ 681258420Sdteske [ "$HTTP_INITIALIZED" ] || return $SUCCESS 682258420Sdteske 683258420Sdteske unset HTTP_INITIALIZED 684258420Sdteske} 685258420Sdteske 686252112Sdteske############################################################ MAIN 687252112Sdteske 688252112Sdteskef_dprintf "%s: Successfully loaded." media/http.subr 689252112Sdteske 690252112Sdteskefi # ! $_MEDIA_HTTP_SUBR 691