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