1if [ ! "$_MEDIA_HTTP_SUBR" ]; then _MEDIA_HTTP_SUBR=1 2# 3# Copyright (c) 2012-2013 Devin Teske 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25# SUCH DAMAGE. 26#
| 1if [ ! "$_MEDIA_HTTP_SUBR" ]; then _MEDIA_HTTP_SUBR=1 2# 3# Copyright (c) 2012-2013 Devin Teske 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25# SUCH DAMAGE. 26#
|
27# $FreeBSD: head/usr.sbin/bsdconfig/share/media/http.subr 264840 2014-04-23 22:04:04Z dteske $
| 27# $FreeBSD: head/usr.sbin/bsdconfig/share/media/http.subr 268999 2014-07-22 23:10:12Z dteske $
|
28# 29############################################################ INCLUDES 30 31BSDCFG_SHARE="/usr/share/bsdconfig" 32. $BSDCFG_SHARE/common.subr || exit 1 33f_dprintf "%s: loading includes..." media/http.subr 34f_include $BSDCFG_SHARE/device.subr 35f_include $BSDCFG_SHARE/dialog.subr 36f_include $BSDCFG_SHARE/media/common.subr 37f_include $BSDCFG_SHARE/media/tcpip.subr 38f_include $BSDCFG_SHARE/strings.subr 39f_include $BSDCFG_SHARE/struct.subr 40f_include $BSDCFG_SHARE/variable.subr 41 42BSDCFG_LIBE="/usr/libexec/bsdconfig" 43f_include_lang $BSDCFG_LIBE/include/messages.subr 44 45############################################################ GLOBALS 46 47HTTP_SKIP_RESOLV= 48 49URL_MAX=261261 50 # NOTE: This is according to actual fetch(1) test-results. We actually 51 # use nc(1) to retrieve files, but it's still a good idea to keep the 52 # URLs short enough that fetch(1) won't complain. 53 54HTTP_DIRS=" 55 . 56 releases/$UNAME_P 57 snapshots/$UNAME_P 58 pub/FreeBSD 59 pub/FreeBSD/releases/$UNAME_P 60 pub/FreeBSD/snapshots/$UNAME_P 61 pub/FreeBSD-Archive/old-releases/$UNAME_P 62" # END-QUOTE 63 64############################################################ FUNCTIONS 65 66# f_dialog_menu_media_http 67# 68# Prompt the user to select from a range of ``built-in'' HTTP servers or 69# specify their own. If the user makes a choice and doesn't cancel or press 70# Esc, stores the user's choice in VAR_FTP_PATH (see variable.subr) and returns 71# success. 72# 73f_dialog_menu_media_http() 74{ 75 f_dialog_title "$msg_please_select_a_freebsd_http_distribution_site" 76 local title="$DIALOG_TITLE" btitle="$DIALOG_BACKTITLE" 77 f_dialog_title_restore 78 local prompt="$msg_please_select_the_site_closest_to_you_or_other" 79 local menu_list=" 80 'dist $msg_main_site' 'ftp.freebsd.org' 81 'pkg $msg_main_site' 'pkg.freebsd.org' 82 'URL' '$msg_specify_some_other_http_site' 83 " # END-QUOTE 84 local hline="$msg_select_a_site_thats_close" 85 86 local height width rows 87 eval f_dialog_menu_size height width rows \ 88 \"\$title\" \ 89 \"\$btitle\" \ 90 \"\$prompt\" \ 91 \"\$hline\" \ 92 $menu_list 93 94 local mtag 95 mtag=$( eval $DIALOG \ 96 --title \"\$title\" \ 97 --backtitle \"\$btitle\" \ 98 --hline \"\$hline\" \ 99 --ok-label \"\$msg_ok\" \ 100 --cancel-label \"\$msg_cancel\" \ 101 --menu \"\$prompt\" \ 102 $height $width $rows \ 103 $menu_list \ 104 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD 105 ) || return $DIALOG_CANCEL 106 f_dialog_data_sanitize mtag 107 108 case "$mtag" in 109 URL) setvar $VAR_HTTP_PATH "other" ;; 110 *) 111 local value 112 value=$( eval f_dialog_menutag2item \"\$mtag\" $menu_list ) 113 setvar $VAR_HTTP_PATH "http://$value" 114 esac 115 116 return $DIALOG_OK 117} 118 119# f_media_set_http 120# 121# Return success if we both found and set the media type to be an HTTP server. 122# 123# Variables from variable.subr that can be used to script user input: 124# 125# VAR_HTTP_PATH 126# URL containing host and optionally a target path to the release 127# repository on the HTTP server. Valid examples include: 128# http://myhost 129# http://somename:80/pub/ 130# http://192.168.2.3/pub/ 131# http://[::1]:8000/ 132# The default port if not specified is 80. 133# VAR_NAMESERVER [Optional] 134# If set, overrides resolv.conf(5) and sets the nameserver that 135# is used to convert names into addresses (when a name converts 136# into multiple addresses, the first address to successfully 137# connect is used). 138# 139# Meanwhile, the following variables from variable.subr are set after 140# successful execution: 141# 142# VAR_HTTP_HOST 143# The HTTP host to connect to, parsed from VAR_HTTP_PATH. In the 144# example case of IPv6 where VAR_HTTP_PATH is "http://[::1]" this 145# variable will be set to "::1" (the outer brackets are removed). 146# VAR_HTTP_PORT 147# The TCP port to connect to, parsed from VAR_HTTP_PATH. Usually 148# 80 unless VAR_HTTP_PATH was one of the following forms: 149# http://hostname:OTHER_PORT 150# http://hostname:OTHER_PORT/* 151# http://ip:OTHER_PORT 152# http://ip:OTHER_PORT/* 153# http://[ip6]:OTHER_PORT 154# http://[ip6]:OTHER_PORT/* 155# VAR_HTTP_DIR 156# If VAR_HTTP_PATH contained a directory element (e.g., 157# "http://localhost/pub") this variable contains only the 158# directory element (e.g., "/pub"). 159# 160f_media_set_http() 161{ 162 f_media_close 163 164 local url 165 f_getvar $VAR_HTTP_PATH url 166 167 # If we've been through here before ... 168 if f_struct device_network && [ "${url#$msg_other}" ]; then 169 f_dialog_yesno "$msg_reuse_old_http_site_settings" || url= 170 fi 171 172 if [ ! "$url" ]; then 173 f_dialog_menu_media_http || return $FAILURE 174 f_getvar $VAR_HTTP_PATH url 175 fi 176 [ "$url" ] || return $FAILURE 177 178 case "$url" in 179 other) 180 setvar $VAR_HTTP_PATH "http://" 181 f_variable_get_value $VAR_HTTP_PATH \ 182 "$msg_please_specify_url_of_freebsd_http_distribution" 183 f_getvar $VAR_HTTP_PATH url 184 if [ ! "${url#http://}" ]; then 185 unset $VAR_HTTP_PATH 186 return $FAILURE 187 fi 188 if [ ${#url} -gt ${URL_MAX:-261261} ]; then 189 f_show_msg "$msg_length_of_specified_url_is_too_long" \ 190 ${#url} ${URL_MAX:-261261} 191 unset $VAR_HTTP_PATH 192 return $FAILURE 193 fi 194 case "$url" in 195 http://*) : valid URL ;; 196 *) 197 f_show_msg "$msg_sorry_invalid_url" "$url" 198 unset $VAR_HTTP_PATH 199 return $FAILURE 200 esac 201 esac 202 case "$url" in 203 http://*) : valid URL ;; 204 *) 205 f_show_msg "$msg_sorry_invalid_url" "$url" 206 unset $VAR_HTTP_PATH 207 return $FAILURE 208 esac 209 210 # Set the name of the HTTP device to the URL 211 f_struct_new DEVICE device_http 212 device_http set name "$url" 213 214 if ! f_struct device_network || 215 ! f_dialog_yesno "$msg_youve_already_done_the_network_configuration" 216 then 217 f_struct device_network && 218 f_device_shutdown device_network 219 if ! f_device_select_tcp; then 220 unset $VAR_HTTP_PATH 221 return $FAILURE 222 fi 223 local dev if 224 f_getvar $VAR_NETWORK_DEVICE if 225 f_device_find -1 "$if" $DEVICE_TYPE_NETWORK dev 226 f_struct_copy "$dev" device_network 227 fi 228 if ! f_device_init device_network; then 229 f_dprintf "f_media_set_http: %s" "$msg_net_device_init_failed" 230 unset $VAR_HTTP_PATH 231 return $FAILURE 232 fi 233 234 local hostname="${url#*://}" port=80 dir=/ 235 case "$hostname" in 236 # 237 # The order in-which the below individual cases appear is important! 238 # 239 "["*"]":*/*) # IPv6 address with port and directory 240 f_dprintf "Looks like an IPv6 addr with port/dir: %s" \ 241 "$hostname" 242 hostname="${hostname#\[}" 243 port="${hostname#*\]:}" 244 port="${port%%[!0-9]*}" 245 dir="/${hostname#*/}" 246 hostname="${hostname%%\]:*}" 247 ;; 248 "["*"]":*) # IPv6 address with port 249 f_dprintf "Looks like an IPv6 addr with port: %s" "$hostname" 250 hostname="${hostname#\[}" 251 port="${hostname#*\]:}" 252 port="${port%%[!0-9]*}" 253 hostname="${hostname%%\]:*}" 254 ;; 255 "["*"]"/*) # IPv6 address with directory 256 f_dprintf "Looks like an IPv6 addr with dir: %s" "$hostname" 257 hostname="${hostname#\[}" 258 dir="/${hostname#*/}" 259 hostname="${hostname%%\]*}" 260 ;; 261 "["*"]") # IPv6 address 262 f_dprintf "Looks like an IPv6 addr: %s" "$hostname" 263 hostname="${hostname#\[}" 264 hostname="${hostname%\]}" 265 ;; 266 # 267 # ^^^ IPv6 above / DNS Name or IPv4 below vvv 268 # 269 *:*/*) # DNS name or IPv4 address with port and directory 270 f_dprintf "Looks like a %s with port/dir: %s" \ 271 "DNS name or IPv4 addr" "$hostname" 272 port="${hostname#*:}" 273 port="${port%%[!0-9]*}" 274 dir="/${hostname#*/}" 275 hostname="${hostname%%:*}" 276 ;; 277 *:*) # DNS name or IPv4 address with port 278 f_dprintf "Looks like a DNS name or IPv4 addr with port: %s" \ 279 "$hostname" 280 port="${hostname#*:}" 281 hostname="${hostname%%:*}" 282 ;; 283 */*) # DNS name or IPv4 address with directory 284 f_dprintf "Looks like a DNS name or IPv4 addr with dir: %s" \ 285 "$hostname" 286 dir="/${hostname#*/}" 287 hostname="${hostname%%/*}" 288 ;; 289 *) # DNS name or IPv4 address 290 f_dprintf "Looks like a DNS name or IPv4 addr: %s" "$hostname" 291 : leave hostname as-is 292 esac 293 294 f_dprintf "hostname = \`%s'" "$hostname" 295 f_dprintf "dir = \`%s'" "$dir" 296 f_dprintf "port \# = \`%d'" "$port" 297 298 local ns 299 f_getvar $VAR_NAMESERVER ns 300 [ "$ns" ] || f_resolv_conf_nameservers ns 301 if [ "$ns" -a ! "$HTTP_SKIP_RESOLV" ] && ! { 302 f_validate_ipaddr "$hostname" || 303 f_validate_ipaddr6 "$hostname" 304 }; then 305 f_show_info "$msg_looking_up_host" "$hostname" 306 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 307 "f_media_set_http" "$hostname" 308 if ! f_quietly f_host_lookup "$hostname"; then 309 f_show_msg "$msg_cannot_resolve_hostname" "$hostname" 310 f_struct device_network && 311 f_device_shutdown device_network 312 f_struct_free device_network 313 unset $VAR_HTTP_PATH 314 return $FAILURE 315 fi 316 f_dprintf "Found DNS entry for %s successfully." "$hostname" 317 fi 318 319 setvar $VAR_HTTP_HOST "$hostname" 320 setvar $VAR_HTTP_PORT "$port" 321 setvar $VAR_HTTP_DIR "$dir" 322 323 device_http set type $DEVICE_TYPE_HTTP 324 device_http set init f_media_init_http 325 device_http set get f_media_get_http 326 device_http set shutdown f_media_shutdown_http 327 device_http set private device_network 328 f_struct_copy device_http device_media 329 f_struct_free device_http 330 331 return $SUCCESS 332} 333 334# f_http_check_access [$connect_only] 335# 336# Return success if able list a remote HTTP directory. If $connect_only is 337# present and non-null, then returns success if a connection can be made. 338# Variables from variable.subr that can be used to script user input: 339# 340# VAR_HTTP_HOST 341# The HTTP server host name, IPv4 address or IPv6 address. 342# Valid examples include: 343# myhost 344# 192.168.2.3 345# ::1 346# VAR_HTTP_PORT 347# The TCP port to connect to when communicating with the server. 348# VAR_HTTP_PATH 349# The HTTP path sent to the server. Unused if $connect_only is 350# present and non-NULL. 351# 352f_http_check_access() 353{ 354 local connect_only="$1" hosts= 355 356 local http_host http_port 357 f_getvar $VAR_HTTP_HOST http_host 358 f_getvar $VAR_HTTP_PORT http_port 359 360 if ! { 361 f_validate_ipaddr "$http_host" || 362 f_validate_ipaddr6 "$http_host" || 363 { 364 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 365 "f_http_check_access" "$http_host" 366 f_host_lookup "$http_host" hosts 367 } 368 }; then 369 # All the above validations failed 370 [ "$hosts" ] && f_dialog_msgbox "$hosts" 371 unset $VAR_HTTP_HOST 372 return $FAILURE 373 elif [ ! "$hosts" ]; then 374 # One of the first two validations passed 375 hosts="$http_host" 376 fi 377 378 local host connected= 379 for host in $hosts; do 380 f_quietly nc -nz "$host" "$http_port" || continue 381 connected=1; break 382 done 383 if [ ! "$connected" ]; then 384 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 385 "$http_host" "$http_port" 386 unset $VAR_HTTP_HOST 387 return $FAILURE 388 fi 389 [ "$connect_only" ] && return $SUCCESS 390 391 local http_path 392 f_getvar $VAR_HTTP_PATH http_path 393 f_show_info "$msg_checking_access_to" "$http_path" 394 395 local rx 396 case "$http_path" in 397 http://*|/*) : valid request ;; 398 *) http_path="/$http_path" # full URI requests only 399 esac 400 if ! rx=$( 401 printf "GET %s/ HTTP/1.0\r\n\r\n" "${http_path%/}" | 402 nc -n "$host" "$http_port" 403 ); then 404 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 405 "$http_host" "$http_port" 406 unset $VAR_HTTP_HOST 407 return $FAILURE 408 fi 409 410 local hdr 411 hdr=$( echo "$rx" | awk '/^\r$/{exit}{print}' ) 412 413 local http_found=$FAILURE 414 if echo "$hdr" | awk ' 415 BEGIN { found = 0 } 416 /^HTTP.... 200 / { 417 found = 1 418 exit 419 } 420 END { exit ! found } 421 '; then 422 http_found=$SUCCESS 423 fi 424 425 return $http_found 426} 427 428# f_media_init_http $device 429# 430# Initializes the HTTP media device. Returns success if able to confirm the 431# existence of at least one known HTTP server release path directly via HTTP 432# using f_http_check_access(), above. 433# 434# Variables from variable.subr that can be used to script user input: 435# 436# VAR_HTTP_HOST 437# The HTTP server to connect to. Must be set. Also see 438# f_http_check_access() for additional variables. 439# VAR_RELNAME 440# Usually set to `uname -r' but can be overridden. 441# VAR_HTTP_PATH 442# The HTTP path sent to the server. Usually set by calling 443# f_media_set_http(). 444# 445# Meanwhile, after successful execution, the following variables (also from 446# variable.subr) are set: 447# 448# VAR_HTTP_PATH 449# The [possibly] adjusted VAR_HTTP_PATH that was found to contain 450# a valid FreeBSD repository. 451# 452f_media_init_http() 453{ 454 local dev="$1" 455 f_dprintf "Init routine called for HTTP device. dev=[%s]" "$dev" 456 457 if [ "$HTTP_INITIALIZED" ]; then 458 f_dprintf "HTTP device already initialized." 459 return $SUCCESS 460 fi 461 462 # 463 # First verify access 464 # 465 local connect_only=1 466 f_http_check_access $connect_only 467 468 local http_host 469 f_getvar $VAR_HTTP_HOST http_host 470 while [ ! "$http_host" ]; do 471 f_media_set_http || return $FAILURE 472 f_http_check_access $connect_only 473 f_getvar $VAR_HTTP_HOST http_host 474 done 475 476 local http_path http_found=$FAILURE 477 while :; do 478 # 479 # Now that we've verified that the path we're given is ok, 480 # let's try to be a bit intelligent in locating the release we 481 # are looking for. First off, if the release is specified as 482 # "__RELEASE" or "any", then just assume that the current 483 # directory is the one we want and give up. 484 # 485 local rel 486 f_getvar $VAR_RELNAME rel 487 f_dprintf "f_media_init_http: rel=[%s]" "$rel" 488 489 case "$rel" in 490 __RELEASE|any) 491 f_getvar $VAR_HTTP_DIR $VAR_HTTP_PATH 492 f_http_check_access 493 http_found=$? 494 ;; 495 *) 496 # 497 # Ok, since we have a release variable, let's walk 498 # through the list of directories looking for a release 499 # directory. First successful path wins. 500 # 501 local fdir hp 502 f_getvar $VAR_HTTP_PATH%/ hp 503 setvar $VAR_HTTP_PATH "$hp/$PKG_ABI/latest" 504 if [ "$PKG_ABI" ] && f_http_check_access; then 505 http_found=$SUCCESS 506 setvar $VAR_HTTP_PATH "$hp" 507 else 508 for fdir in $HTTP_DIRS; do 509 setvar $VAR_HTTP_PATH "$hp/$fdir/$rel" 510 if f_http_check_access; then 511 http_found=$SUCCESS 512 break 513 fi 514 done 515 fi 516 esac 517
| 28# 29############################################################ INCLUDES 30 31BSDCFG_SHARE="/usr/share/bsdconfig" 32. $BSDCFG_SHARE/common.subr || exit 1 33f_dprintf "%s: loading includes..." media/http.subr 34f_include $BSDCFG_SHARE/device.subr 35f_include $BSDCFG_SHARE/dialog.subr 36f_include $BSDCFG_SHARE/media/common.subr 37f_include $BSDCFG_SHARE/media/tcpip.subr 38f_include $BSDCFG_SHARE/strings.subr 39f_include $BSDCFG_SHARE/struct.subr 40f_include $BSDCFG_SHARE/variable.subr 41 42BSDCFG_LIBE="/usr/libexec/bsdconfig" 43f_include_lang $BSDCFG_LIBE/include/messages.subr 44 45############################################################ GLOBALS 46 47HTTP_SKIP_RESOLV= 48 49URL_MAX=261261 50 # NOTE: This is according to actual fetch(1) test-results. We actually 51 # use nc(1) to retrieve files, but it's still a good idea to keep the 52 # URLs short enough that fetch(1) won't complain. 53 54HTTP_DIRS=" 55 . 56 releases/$UNAME_P 57 snapshots/$UNAME_P 58 pub/FreeBSD 59 pub/FreeBSD/releases/$UNAME_P 60 pub/FreeBSD/snapshots/$UNAME_P 61 pub/FreeBSD-Archive/old-releases/$UNAME_P 62" # END-QUOTE 63 64############################################################ FUNCTIONS 65 66# f_dialog_menu_media_http 67# 68# Prompt the user to select from a range of ``built-in'' HTTP servers or 69# specify their own. If the user makes a choice and doesn't cancel or press 70# Esc, stores the user's choice in VAR_FTP_PATH (see variable.subr) and returns 71# success. 72# 73f_dialog_menu_media_http() 74{ 75 f_dialog_title "$msg_please_select_a_freebsd_http_distribution_site" 76 local title="$DIALOG_TITLE" btitle="$DIALOG_BACKTITLE" 77 f_dialog_title_restore 78 local prompt="$msg_please_select_the_site_closest_to_you_or_other" 79 local menu_list=" 80 'dist $msg_main_site' 'ftp.freebsd.org' 81 'pkg $msg_main_site' 'pkg.freebsd.org' 82 'URL' '$msg_specify_some_other_http_site' 83 " # END-QUOTE 84 local hline="$msg_select_a_site_thats_close" 85 86 local height width rows 87 eval f_dialog_menu_size height width rows \ 88 \"\$title\" \ 89 \"\$btitle\" \ 90 \"\$prompt\" \ 91 \"\$hline\" \ 92 $menu_list 93 94 local mtag 95 mtag=$( eval $DIALOG \ 96 --title \"\$title\" \ 97 --backtitle \"\$btitle\" \ 98 --hline \"\$hline\" \ 99 --ok-label \"\$msg_ok\" \ 100 --cancel-label \"\$msg_cancel\" \ 101 --menu \"\$prompt\" \ 102 $height $width $rows \ 103 $menu_list \ 104 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD 105 ) || return $DIALOG_CANCEL 106 f_dialog_data_sanitize mtag 107 108 case "$mtag" in 109 URL) setvar $VAR_HTTP_PATH "other" ;; 110 *) 111 local value 112 value=$( eval f_dialog_menutag2item \"\$mtag\" $menu_list ) 113 setvar $VAR_HTTP_PATH "http://$value" 114 esac 115 116 return $DIALOG_OK 117} 118 119# f_media_set_http 120# 121# Return success if we both found and set the media type to be an HTTP server. 122# 123# Variables from variable.subr that can be used to script user input: 124# 125# VAR_HTTP_PATH 126# URL containing host and optionally a target path to the release 127# repository on the HTTP server. Valid examples include: 128# http://myhost 129# http://somename:80/pub/ 130# http://192.168.2.3/pub/ 131# http://[::1]:8000/ 132# The default port if not specified is 80. 133# VAR_NAMESERVER [Optional] 134# If set, overrides resolv.conf(5) and sets the nameserver that 135# is used to convert names into addresses (when a name converts 136# into multiple addresses, the first address to successfully 137# connect is used). 138# 139# Meanwhile, the following variables from variable.subr are set after 140# successful execution: 141# 142# VAR_HTTP_HOST 143# The HTTP host to connect to, parsed from VAR_HTTP_PATH. In the 144# example case of IPv6 where VAR_HTTP_PATH is "http://[::1]" this 145# variable will be set to "::1" (the outer brackets are removed). 146# VAR_HTTP_PORT 147# The TCP port to connect to, parsed from VAR_HTTP_PATH. Usually 148# 80 unless VAR_HTTP_PATH was one of the following forms: 149# http://hostname:OTHER_PORT 150# http://hostname:OTHER_PORT/* 151# http://ip:OTHER_PORT 152# http://ip:OTHER_PORT/* 153# http://[ip6]:OTHER_PORT 154# http://[ip6]:OTHER_PORT/* 155# VAR_HTTP_DIR 156# If VAR_HTTP_PATH contained a directory element (e.g., 157# "http://localhost/pub") this variable contains only the 158# directory element (e.g., "/pub"). 159# 160f_media_set_http() 161{ 162 f_media_close 163 164 local url 165 f_getvar $VAR_HTTP_PATH url 166 167 # If we've been through here before ... 168 if f_struct device_network && [ "${url#$msg_other}" ]; then 169 f_dialog_yesno "$msg_reuse_old_http_site_settings" || url= 170 fi 171 172 if [ ! "$url" ]; then 173 f_dialog_menu_media_http || return $FAILURE 174 f_getvar $VAR_HTTP_PATH url 175 fi 176 [ "$url" ] || return $FAILURE 177 178 case "$url" in 179 other) 180 setvar $VAR_HTTP_PATH "http://" 181 f_variable_get_value $VAR_HTTP_PATH \ 182 "$msg_please_specify_url_of_freebsd_http_distribution" 183 f_getvar $VAR_HTTP_PATH url 184 if [ ! "${url#http://}" ]; then 185 unset $VAR_HTTP_PATH 186 return $FAILURE 187 fi 188 if [ ${#url} -gt ${URL_MAX:-261261} ]; then 189 f_show_msg "$msg_length_of_specified_url_is_too_long" \ 190 ${#url} ${URL_MAX:-261261} 191 unset $VAR_HTTP_PATH 192 return $FAILURE 193 fi 194 case "$url" in 195 http://*) : valid URL ;; 196 *) 197 f_show_msg "$msg_sorry_invalid_url" "$url" 198 unset $VAR_HTTP_PATH 199 return $FAILURE 200 esac 201 esac 202 case "$url" in 203 http://*) : valid URL ;; 204 *) 205 f_show_msg "$msg_sorry_invalid_url" "$url" 206 unset $VAR_HTTP_PATH 207 return $FAILURE 208 esac 209 210 # Set the name of the HTTP device to the URL 211 f_struct_new DEVICE device_http 212 device_http set name "$url" 213 214 if ! f_struct device_network || 215 ! f_dialog_yesno "$msg_youve_already_done_the_network_configuration" 216 then 217 f_struct device_network && 218 f_device_shutdown device_network 219 if ! f_device_select_tcp; then 220 unset $VAR_HTTP_PATH 221 return $FAILURE 222 fi 223 local dev if 224 f_getvar $VAR_NETWORK_DEVICE if 225 f_device_find -1 "$if" $DEVICE_TYPE_NETWORK dev 226 f_struct_copy "$dev" device_network 227 fi 228 if ! f_device_init device_network; then 229 f_dprintf "f_media_set_http: %s" "$msg_net_device_init_failed" 230 unset $VAR_HTTP_PATH 231 return $FAILURE 232 fi 233 234 local hostname="${url#*://}" port=80 dir=/ 235 case "$hostname" in 236 # 237 # The order in-which the below individual cases appear is important! 238 # 239 "["*"]":*/*) # IPv6 address with port and directory 240 f_dprintf "Looks like an IPv6 addr with port/dir: %s" \ 241 "$hostname" 242 hostname="${hostname#\[}" 243 port="${hostname#*\]:}" 244 port="${port%%[!0-9]*}" 245 dir="/${hostname#*/}" 246 hostname="${hostname%%\]:*}" 247 ;; 248 "["*"]":*) # IPv6 address with port 249 f_dprintf "Looks like an IPv6 addr with port: %s" "$hostname" 250 hostname="${hostname#\[}" 251 port="${hostname#*\]:}" 252 port="${port%%[!0-9]*}" 253 hostname="${hostname%%\]:*}" 254 ;; 255 "["*"]"/*) # IPv6 address with directory 256 f_dprintf "Looks like an IPv6 addr with dir: %s" "$hostname" 257 hostname="${hostname#\[}" 258 dir="/${hostname#*/}" 259 hostname="${hostname%%\]*}" 260 ;; 261 "["*"]") # IPv6 address 262 f_dprintf "Looks like an IPv6 addr: %s" "$hostname" 263 hostname="${hostname#\[}" 264 hostname="${hostname%\]}" 265 ;; 266 # 267 # ^^^ IPv6 above / DNS Name or IPv4 below vvv 268 # 269 *:*/*) # DNS name or IPv4 address with port and directory 270 f_dprintf "Looks like a %s with port/dir: %s" \ 271 "DNS name or IPv4 addr" "$hostname" 272 port="${hostname#*:}" 273 port="${port%%[!0-9]*}" 274 dir="/${hostname#*/}" 275 hostname="${hostname%%:*}" 276 ;; 277 *:*) # DNS name or IPv4 address with port 278 f_dprintf "Looks like a DNS name or IPv4 addr with port: %s" \ 279 "$hostname" 280 port="${hostname#*:}" 281 hostname="${hostname%%:*}" 282 ;; 283 */*) # DNS name or IPv4 address with directory 284 f_dprintf "Looks like a DNS name or IPv4 addr with dir: %s" \ 285 "$hostname" 286 dir="/${hostname#*/}" 287 hostname="${hostname%%/*}" 288 ;; 289 *) # DNS name or IPv4 address 290 f_dprintf "Looks like a DNS name or IPv4 addr: %s" "$hostname" 291 : leave hostname as-is 292 esac 293 294 f_dprintf "hostname = \`%s'" "$hostname" 295 f_dprintf "dir = \`%s'" "$dir" 296 f_dprintf "port \# = \`%d'" "$port" 297 298 local ns 299 f_getvar $VAR_NAMESERVER ns 300 [ "$ns" ] || f_resolv_conf_nameservers ns 301 if [ "$ns" -a ! "$HTTP_SKIP_RESOLV" ] && ! { 302 f_validate_ipaddr "$hostname" || 303 f_validate_ipaddr6 "$hostname" 304 }; then 305 f_show_info "$msg_looking_up_host" "$hostname" 306 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 307 "f_media_set_http" "$hostname" 308 if ! f_quietly f_host_lookup "$hostname"; then 309 f_show_msg "$msg_cannot_resolve_hostname" "$hostname" 310 f_struct device_network && 311 f_device_shutdown device_network 312 f_struct_free device_network 313 unset $VAR_HTTP_PATH 314 return $FAILURE 315 fi 316 f_dprintf "Found DNS entry for %s successfully." "$hostname" 317 fi 318 319 setvar $VAR_HTTP_HOST "$hostname" 320 setvar $VAR_HTTP_PORT "$port" 321 setvar $VAR_HTTP_DIR "$dir" 322 323 device_http set type $DEVICE_TYPE_HTTP 324 device_http set init f_media_init_http 325 device_http set get f_media_get_http 326 device_http set shutdown f_media_shutdown_http 327 device_http set private device_network 328 f_struct_copy device_http device_media 329 f_struct_free device_http 330 331 return $SUCCESS 332} 333 334# f_http_check_access [$connect_only] 335# 336# Return success if able list a remote HTTP directory. If $connect_only is 337# present and non-null, then returns success if a connection can be made. 338# Variables from variable.subr that can be used to script user input: 339# 340# VAR_HTTP_HOST 341# The HTTP server host name, IPv4 address or IPv6 address. 342# Valid examples include: 343# myhost 344# 192.168.2.3 345# ::1 346# VAR_HTTP_PORT 347# The TCP port to connect to when communicating with the server. 348# VAR_HTTP_PATH 349# The HTTP path sent to the server. Unused if $connect_only is 350# present and non-NULL. 351# 352f_http_check_access() 353{ 354 local connect_only="$1" hosts= 355 356 local http_host http_port 357 f_getvar $VAR_HTTP_HOST http_host 358 f_getvar $VAR_HTTP_PORT http_port 359 360 if ! { 361 f_validate_ipaddr "$http_host" || 362 f_validate_ipaddr6 "$http_host" || 363 { 364 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 365 "f_http_check_access" "$http_host" 366 f_host_lookup "$http_host" hosts 367 } 368 }; then 369 # All the above validations failed 370 [ "$hosts" ] && f_dialog_msgbox "$hosts" 371 unset $VAR_HTTP_HOST 372 return $FAILURE 373 elif [ ! "$hosts" ]; then 374 # One of the first two validations passed 375 hosts="$http_host" 376 fi 377 378 local host connected= 379 for host in $hosts; do 380 f_quietly nc -nz "$host" "$http_port" || continue 381 connected=1; break 382 done 383 if [ ! "$connected" ]; then 384 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 385 "$http_host" "$http_port" 386 unset $VAR_HTTP_HOST 387 return $FAILURE 388 fi 389 [ "$connect_only" ] && return $SUCCESS 390 391 local http_path 392 f_getvar $VAR_HTTP_PATH http_path 393 f_show_info "$msg_checking_access_to" "$http_path" 394 395 local rx 396 case "$http_path" in 397 http://*|/*) : valid request ;; 398 *) http_path="/$http_path" # full URI requests only 399 esac 400 if ! rx=$( 401 printf "GET %s/ HTTP/1.0\r\n\r\n" "${http_path%/}" | 402 nc -n "$host" "$http_port" 403 ); then 404 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 405 "$http_host" "$http_port" 406 unset $VAR_HTTP_HOST 407 return $FAILURE 408 fi 409 410 local hdr 411 hdr=$( echo "$rx" | awk '/^\r$/{exit}{print}' ) 412 413 local http_found=$FAILURE 414 if echo "$hdr" | awk ' 415 BEGIN { found = 0 } 416 /^HTTP.... 200 / { 417 found = 1 418 exit 419 } 420 END { exit ! found } 421 '; then 422 http_found=$SUCCESS 423 fi 424 425 return $http_found 426} 427 428# f_media_init_http $device 429# 430# Initializes the HTTP media device. Returns success if able to confirm the 431# existence of at least one known HTTP server release path directly via HTTP 432# using f_http_check_access(), above. 433# 434# Variables from variable.subr that can be used to script user input: 435# 436# VAR_HTTP_HOST 437# The HTTP server to connect to. Must be set. Also see 438# f_http_check_access() for additional variables. 439# VAR_RELNAME 440# Usually set to `uname -r' but can be overridden. 441# VAR_HTTP_PATH 442# The HTTP path sent to the server. Usually set by calling 443# f_media_set_http(). 444# 445# Meanwhile, after successful execution, the following variables (also from 446# variable.subr) are set: 447# 448# VAR_HTTP_PATH 449# The [possibly] adjusted VAR_HTTP_PATH that was found to contain 450# a valid FreeBSD repository. 451# 452f_media_init_http() 453{ 454 local dev="$1" 455 f_dprintf "Init routine called for HTTP device. dev=[%s]" "$dev" 456 457 if [ "$HTTP_INITIALIZED" ]; then 458 f_dprintf "HTTP device already initialized." 459 return $SUCCESS 460 fi 461 462 # 463 # First verify access 464 # 465 local connect_only=1 466 f_http_check_access $connect_only 467 468 local http_host 469 f_getvar $VAR_HTTP_HOST http_host 470 while [ ! "$http_host" ]; do 471 f_media_set_http || return $FAILURE 472 f_http_check_access $connect_only 473 f_getvar $VAR_HTTP_HOST http_host 474 done 475 476 local http_path http_found=$FAILURE 477 while :; do 478 # 479 # Now that we've verified that the path we're given is ok, 480 # let's try to be a bit intelligent in locating the release we 481 # are looking for. First off, if the release is specified as 482 # "__RELEASE" or "any", then just assume that the current 483 # directory is the one we want and give up. 484 # 485 local rel 486 f_getvar $VAR_RELNAME rel 487 f_dprintf "f_media_init_http: rel=[%s]" "$rel" 488 489 case "$rel" in 490 __RELEASE|any) 491 f_getvar $VAR_HTTP_DIR $VAR_HTTP_PATH 492 f_http_check_access 493 http_found=$? 494 ;; 495 *) 496 # 497 # Ok, since we have a release variable, let's walk 498 # through the list of directories looking for a release 499 # directory. First successful path wins. 500 # 501 local fdir hp 502 f_getvar $VAR_HTTP_PATH%/ hp 503 setvar $VAR_HTTP_PATH "$hp/$PKG_ABI/latest" 504 if [ "$PKG_ABI" ] && f_http_check_access; then 505 http_found=$SUCCESS 506 setvar $VAR_HTTP_PATH "$hp" 507 else 508 for fdir in $HTTP_DIRS; do 509 setvar $VAR_HTTP_PATH "$hp/$fdir/$rel" 510 if f_http_check_access; then 511 http_found=$SUCCESS 512 break 513 fi 514 done 515 fi 516 esac 517
|
518 if [ $http_found -eq $SUCCESS ]; then 519 HTTP_INITIALIZED=YES 520 break 521 fi
| 518 [ $http_found -eq $SUCCESS ] && HTTP_INITIALIZED=YES break
|
522 523 f_getvar $VAR_HTTP_PATH http_path 524 f_show_msg "$msg_please_check_the_url_and_try_again" \ 525 "$http_path" 526 527 unset HTTP_INITIALIZED $VAR_HTTP_PATH 528 f_media_set_http || break 529 done 530 531 return $http_found 532} 533 534# f_media_get_http $device $file [$probe_type] 535# 536# Returns data from $file on an HTTP server using nc(1). Please note that 537# $device is unused but must be present (even if null). Information is instead 538# gathered from the environment. If $probe_type is both present and non-NULL, 539# this function exits after receiving the HTTP header response from the server 540# (if the HTTP response code is 200, success is returned; otherwise failure). 541# If $probe_type is equal to $PROBE_SIZE, prints the content-length in bytes 542# from the response (or -1 if not found) to standard-out. 543# 544# The variables used to configure the connection are as follows (all of which 545# are configured by f_media_set_http above): 546# 547# VAR_HTTP_HOST 548# HTTP server which to connect. Can be an IPv4 address, IPv6 549# address, or DNS hostname of your choice. 550# VAR_HTTP_PORT 551# TCP port to connect on; see f_media_set_http above. 552# VAR_HTTP_PATH 553# Directory prefix to use when requesting $file. Default is `/' 554# unless f_media_init_http was able to use f_http_check_access 555# to validate one of the defaults in $HTTP_DIRS (see GLOBALS at 556# the top of this file); assuming VAR_RELNAME was not set to 557# either `__RELEASE' or `any' (indicating that the global set of 558# $HTTP_DIRS should be ignored). 559# 560# See variable.subr for additional information. 561# 562# Example usage: 563# f_media_set_http 564# f_media_get_http media $file 565# 566f_media_get_http() 567{ 568 local dev="$1" file="$2" probe_type="$3" hosts= 569 local name 570 571 $dev get name name 572 f_dprintf "f_media_get_http: dev=[%s] file=[%s] probe_type=%s" \ 573 "$name" "$file" "$probe_type" 574 575 local http_host http_port 576 f_getvar $VAR_HTTP_HOST http_host 577 f_getvar $VAR_HTTP_PORT http_port 578 579 if [ ! "$HTTP_INITIALIZED" ]; then 580 f_dprintf "No HTTP connection open, can't get file %s" "$file" 581 return $FAILURE 582 fi 583 584 if ! { 585 f_validate_ipaddr "$http_host" || 586 f_validate_ipaddr6 "$http_host" || 587 { 588 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 589 "f_media_get_http" "$http_host" 590 f_host_lookup "$http_host" hosts 591 } 592 }; then 593 # All the above validations failed 594 [ "$hosts" ] && f_dialog_msgbox "$hosts" 595 return $FAILURE 596 elif [ ! "$hosts" ]; then 597 # One of the first two validations passed 598 hosts="$http_host" 599 fi 600 601 local host connected= 602 for host in $hosts; do 603 f_quietly nc -nz "$host" "$http_port" || continue 604 connected=1; break 605 done 606 if [ ! "$connected" ]; then 607 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 608 "$http_host" "$http_port" 609 return $FAILURE 610 fi 611 612 local http_path 613 f_getvar $VAR_HTTP_PATH%/ http_path 614 case "$http_path" in 615 http://*|/*) : valid request ;; 616 *) http_path="/$http_path" # full URI requests only 617 esac 618 619 local url="$http_path/$file" rx 620 f_dprintf "sending http request for: %s" "$url" 621 f_dprintf "using nc to connect to: %s:%s" "$host" "$http_port" 622 printf "GET %s HTTP/1.0\r\n\r\n" "$url" | nc -n "$host" "$http_port" | 623 ( 624 # 625 # scan the headers of the response 626 # this is extremely quick'n dirty 627 # 628 629 rv=0 length=-1 630 while read LINE; do 631 case "$LINE" in 632 HTTP*) 633 f_dprintf "received response: %s" "$LINE" 634 set -- $LINE; rv=$2 635 f_isinteger "$rv" || rv=0 636 ;; 637 "Content-Length: "*) 638 length="${LINE% 639}" 640 length="${length#Content-Length: }" 641 f_dprintf "received content-length: %s" \ 642 "$length" 643 ;; 644 *) 645 [ "${LINE% 646}" ] || break # End of headers 647 esac 648 done 649 650 [ $rv -ge 500 ] && exit 5 651 [ $rv -eq 404 ] && exit 44 652 [ $rv -ge 400 ] && exit 4 653 [ $rv -ge 300 ] && exit 3 654 [ $rv -eq 200 ] || exit $FAILURE 655 656 if [ ! "$probe_type" ]; then 657 cat # output the rest ``as-is'' 658 elif [ "$probe_type" = "$PROBE_SIZE" ]; then 659 f_isinteger "$length" || length=-1 660 echo "$length" 661 fi 662 exit 200 663 ) 664 local retval=$? 665 [ $retval -eq 200 ] && return $SUCCESS 666 [ "$probe_type" ] && return $FAILURE 667 668 case "$retval" in 669 5) f_show_msg "$msg_server_error_when_requesting_url" "$url" ;; 670 44) f_show_msg "$msg_url_was_not_found" "$url" ;; 671 4) f_show_msg "$msg_client_error" ;; 672 *) f_show_msg "$msg_error_when_requesting_url" "$url" ;;
| 519 520 f_getvar $VAR_HTTP_PATH http_path 521 f_show_msg "$msg_please_check_the_url_and_try_again" \ 522 "$http_path" 523 524 unset HTTP_INITIALIZED $VAR_HTTP_PATH 525 f_media_set_http || break 526 done 527 528 return $http_found 529} 530 531# f_media_get_http $device $file [$probe_type] 532# 533# Returns data from $file on an HTTP server using nc(1). Please note that 534# $device is unused but must be present (even if null). Information is instead 535# gathered from the environment. If $probe_type is both present and non-NULL, 536# this function exits after receiving the HTTP header response from the server 537# (if the HTTP response code is 200, success is returned; otherwise failure). 538# If $probe_type is equal to $PROBE_SIZE, prints the content-length in bytes 539# from the response (or -1 if not found) to standard-out. 540# 541# The variables used to configure the connection are as follows (all of which 542# are configured by f_media_set_http above): 543# 544# VAR_HTTP_HOST 545# HTTP server which to connect. Can be an IPv4 address, IPv6 546# address, or DNS hostname of your choice. 547# VAR_HTTP_PORT 548# TCP port to connect on; see f_media_set_http above. 549# VAR_HTTP_PATH 550# Directory prefix to use when requesting $file. Default is `/' 551# unless f_media_init_http was able to use f_http_check_access 552# to validate one of the defaults in $HTTP_DIRS (see GLOBALS at 553# the top of this file); assuming VAR_RELNAME was not set to 554# either `__RELEASE' or `any' (indicating that the global set of 555# $HTTP_DIRS should be ignored). 556# 557# See variable.subr for additional information. 558# 559# Example usage: 560# f_media_set_http 561# f_media_get_http media $file 562# 563f_media_get_http() 564{ 565 local dev="$1" file="$2" probe_type="$3" hosts= 566 local name 567 568 $dev get name name 569 f_dprintf "f_media_get_http: dev=[%s] file=[%s] probe_type=%s" \ 570 "$name" "$file" "$probe_type" 571 572 local http_host http_port 573 f_getvar $VAR_HTTP_HOST http_host 574 f_getvar $VAR_HTTP_PORT http_port 575 576 if [ ! "$HTTP_INITIALIZED" ]; then 577 f_dprintf "No HTTP connection open, can't get file %s" "$file" 578 return $FAILURE 579 fi 580 581 if ! { 582 f_validate_ipaddr "$http_host" || 583 f_validate_ipaddr6 "$http_host" || 584 { 585 f_dprintf "%s: Looking up hostname, %s, using host(1)" \ 586 "f_media_get_http" "$http_host" 587 f_host_lookup "$http_host" hosts 588 } 589 }; then 590 # All the above validations failed 591 [ "$hosts" ] && f_dialog_msgbox "$hosts" 592 return $FAILURE 593 elif [ ! "$hosts" ]; then 594 # One of the first two validations passed 595 hosts="$http_host" 596 fi 597 598 local host connected= 599 for host in $hosts; do 600 f_quietly nc -nz "$host" "$http_port" || continue 601 connected=1; break 602 done 603 if [ ! "$connected" ]; then 604 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \ 605 "$http_host" "$http_port" 606 return $FAILURE 607 fi 608 609 local http_path 610 f_getvar $VAR_HTTP_PATH%/ http_path 611 case "$http_path" in 612 http://*|/*) : valid request ;; 613 *) http_path="/$http_path" # full URI requests only 614 esac 615 616 local url="$http_path/$file" rx 617 f_dprintf "sending http request for: %s" "$url" 618 f_dprintf "using nc to connect to: %s:%s" "$host" "$http_port" 619 printf "GET %s HTTP/1.0\r\n\r\n" "$url" | nc -n "$host" "$http_port" | 620 ( 621 # 622 # scan the headers of the response 623 # this is extremely quick'n dirty 624 # 625 626 rv=0 length=-1 627 while read LINE; do 628 case "$LINE" in 629 HTTP*) 630 f_dprintf "received response: %s" "$LINE" 631 set -- $LINE; rv=$2 632 f_isinteger "$rv" || rv=0 633 ;; 634 "Content-Length: "*) 635 length="${LINE% 636}" 637 length="${length#Content-Length: }" 638 f_dprintf "received content-length: %s" \ 639 "$length" 640 ;; 641 *) 642 [ "${LINE% 643}" ] || break # End of headers 644 esac 645 done 646 647 [ $rv -ge 500 ] && exit 5 648 [ $rv -eq 404 ] && exit 44 649 [ $rv -ge 400 ] && exit 4 650 [ $rv -ge 300 ] && exit 3 651 [ $rv -eq 200 ] || exit $FAILURE 652 653 if [ ! "$probe_type" ]; then 654 cat # output the rest ``as-is'' 655 elif [ "$probe_type" = "$PROBE_SIZE" ]; then 656 f_isinteger "$length" || length=-1 657 echo "$length" 658 fi 659 exit 200 660 ) 661 local retval=$? 662 [ $retval -eq 200 ] && return $SUCCESS 663 [ "$probe_type" ] && return $FAILURE 664 665 case "$retval" in 666 5) f_show_msg "$msg_server_error_when_requesting_url" "$url" ;; 667 44) f_show_msg "$msg_url_was_not_found" "$url" ;; 668 4) f_show_msg "$msg_client_error" ;; 669 *) f_show_msg "$msg_error_when_requesting_url" "$url" ;;
|
673 esac
| 670 esac 2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
|
674 return $FAILURE 675} 676 677# f_media_shutdown_http $device 678# 679# Shuts down the HTTP device. Return status should be ignored. Note that since 680# we don't maintain an open connection to the HTTP server, nothing to do. 681# 682f_media_shutdown_http() 683{ 684 [ "$HTTP_INITIALIZED" ] || return $SUCCESS 685 686 unset HTTP_INITIALIZED 687} 688 689############################################################ MAIN 690 691f_dprintf "%s: Successfully loaded." media/http.subr 692 693fi # ! $_MEDIA_HTTP_SUBR
| 671 return $FAILURE 672} 673 674# f_media_shutdown_http $device 675# 676# Shuts down the HTTP device. Return status should be ignored. Note that since 677# we don't maintain an open connection to the HTTP server, nothing to do. 678# 679f_media_shutdown_http() 680{ 681 [ "$HTTP_INITIALIZED" ] || return $SUCCESS 682 683 unset HTTP_INITIALIZED 684} 685 686############################################################ MAIN 687 688f_dprintf "%s: Successfully loaded." media/http.subr 689 690fi # ! $_MEDIA_HTTP_SUBR
|