usr.sbin/bsdconfig/share/media/http.subr

   1 if [ ! "$_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$
  28 #
  29 ############################################################ INCLUDES
  30
  31 BSDCFG_SHARE="/usr/share/bsdconfig"
  32 . $BSDCFG_SHARE/common.subr || exit 1
  33 f_dprintf "%s: loading includes..." media/http.subr
  34 f_include $BSDCFG_SHARE/device.subr
  35 f_include $BSDCFG_SHARE/dialog.subr
  36 f_include $BSDCFG_SHARE/media/common.subr
  37 f_include $BSDCFG_SHARE/media/tcpip.subr
  38 f_include $BSDCFG_SHARE/strings.subr
  39 f_include $BSDCFG_SHARE/struct.subr
  40 f_include $BSDCFG_SHARE/variable.subr
  41
  42 BSDCFG_LIBE="/usr/libexec/bsdconfig"
  43 f_include_lang $BSDCFG_LIBE/include/messages.subr
  44
  45 ############################################################ GLOBALS
  46
  47 HTTP_SKIP_RESOLV=
  48
  49 URL_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
  54 HTTP_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 #
  73 f_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                 '$msg_main_site'      'ftp.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 #
 159 f_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 :
 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 #
 351 f_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 #
 451 f_media_init_http()
 452 {
 453         local dev="$1"
 454         f_dprintf "Init routine called for HTTP device. dev=[%s]" "$dev"
 455
 456         #
 457         # First verify access
 458         #
 459         local connect_only=1
 460         f_http_check_access $connect_only
 461
 462         local http_host
 463         f_getvar $VAR_HTTP_HOST http_host
 464         while [ ! "$http_host" ]; do
 465                 f_media_set_http || return $FAILURE
 466                 f_http_check_access $connect_only
 467                 f_getvar $VAR_HTTP_HOST http_host
 468         done
 469
 470         local http_path http_found=$FAILURE
 471         while :; do
 472                 #
 473                 # Now that we've verified that the path we're given is ok,
 474                 # let's try to be a bit intelligent in locating the release we
 475                 # are looking for.  First off, if the release is specified as
 476                 # "__RELEASE" or "any", then just assume that the current
 477                 # directory is the one we want and give up.
 478                 #
 479                 local rel
 480                 f_getvar $VAR_RELNAME rel
 481                 f_dprintf "f_media_init_http: rel=[%s]" "$rel"
 482
 483                 case "$rel" in
 484                 __RELEASE|any)
 485                         f_getvar $VAR_HTTP_DIR $VAR_HTTP_PATH
 486                         f_http_check_access
 487                         http_found=$?
 488                         ;;
 489                 *)
 490                         #
 491                         # Ok, since we have a release variable, let's walk
 492                         # through the list of directories looking for a release
 493                         # directory. First successful path wins.
 494                         #
 495                         local fdir hp
 496                         f_getvar $VAR_HTTP_PATH%/ hp
 497                         for fdir in $HTTP_DIRS; do
 498                                 setvar $VAR_HTTP_PATH "$hp/$fdir/$rel"
 499                                 if f_http_check_access; then
 500                                         http_found=$SUCCESS
 501                                         break
 502                                 fi
 503                         done
 504                 esac
 505
 506                 [ $http_found -eq $SUCCESS ] && break
 507
 508                 f_getvar $VAR_HTTP_PATH http_path
 509                 f_show_msg "$msg_please_check_the_url_and_try_again" \
 510                            "$http_path"
 511
 512                 unset $VAR_HTTP_PATH
 513                 f_media_set_http || break
 514         done
 515
 516         return $http_found
 517 }
 518
 519 # f_media_get_http $device $file [$probe_type]
 520 #
 521 # Returns data from $file on an HTTP server using nc(1). Please note that
 522 # $device is unused but must be present (even if null). Information is instead
 523 # gathered from the environment. If $probe_type is both present and non-NULL,
 524 # this function exits after receiving the HTTP header response from the server
 525 # (if the HTTP response code is 200, success is returned; otherwise failure).
 526 # If $probe_type is equal to $PROBE_SIZE, prints the content-length in bytes
 527 # from the response (or -1 if not found) to standard-out.
 528 #
 529 # The variables used to configure the connection are as follows (all of which
 530 # are configured by f_media_set_http above):
 531 #
 532 #       VAR_HTTP_HOST
 533 #               HTTP server which to connect. Can be an IPv4 address, IPv6
 534 #               address, or DNS hostname of your choice.
 535 #       VAR_HTTP_PORT
 536 #               TCP port to connect on; see f_media_set_http above.
 537 #       VAR_HTTP_PATH
 538 #               Directory prefix to use when requesting $file. Default is `/'
 539 #               unless f_media_init_http was able to use f_http_check_access
 540 #               to validate one of the defaults in $HTTP_DIRS (see GLOBALS at
 541 #               the top of this file); assuming VAR_RELNAME was not set to
 542 #               either `__RELEASE' or `any' (indicating that the global set of
 543 #               $HTTP_DIRS should be ignored).
 544 #
 545 # See variable.subr for additional information.
 546 #
 547 # Example usage:
 548 #       f_media_set_http
 549 #       f_media_get_http media $file
 550 #
 551 f_media_get_http()
 552 {
 553         local dev="$1" file="$2" probe_type="$3" hosts=
 554         local name
 555
 556         $dev get name name
 557         f_dprintf "f_media_get_http: dev=[%s] file=[%s] probe_type=%s" \
 558                   "$name" "$file" "$probe_type"
 559
 560         local http_host http_port
 561         f_getvar $VAR_HTTP_HOST http_host
 562         f_getvar $VAR_HTTP_PORT http_port
 563
 564         if ! {
 565                 f_validate_ipaddr "$http_host" ||
 566                 f_validate_ipaddr6 "$http_host" ||
 567                 {
 568                   f_dprintf "%s: Looking up hostname, %s, using host(1)" \
 569                             "f_media_get_http" "$http_host"
 570                   f_host_lookup "$http_host" hosts
 571                 }
 572         }; then
 573                 # All the above validations failed
 574                 [ "$hosts" ] && f_dialog_msgbox "$hosts"
 575                 return $FAILURE
 576         elif [ ! "$hosts" ]; then
 577                 # One of the first two validations passed
 578                 hosts="$http_host"
 579         fi
 580
 581         local host connected=
 582         for host in $hosts; do
 583                 f_quietly nc -nz "$host" "$http_port" || continue
 584                 connected=1; break
 585         done
 586         if [ ! "$connected" ]; then
 587                 f_show_msg "$msg_couldnt_connect_to_server http://%s:%s/" \
 588                            "$http_host" "$http_port"
 589                 return $FAILURE
 590         fi
 591
 592         local http_path
 593         f_getvar $VAR_HTTP_PATH%/ http_path
 594         case "$http_path" in
 595         http://*|/*) : valid request ;;
 596         *) http_path="/$http_path" # full URI requests only
 597         esac
 598
 599         local url="$http_path/$file" rx
 600         f_dprintf "sending http request for: %s" "$url"
 601         f_dprintf "using nc to connect to: %s:%s" "$host" "$http_port"
 602         printf "GET %s HTTP/1.0\r\n\r\n" "$url" | nc -n "$host" "$http_port" |
 603         (
 604                 #
 605                 # scan the headers of the response
 606                 # this is extremely quick'n dirty
 607                 #
 608
 609                 rv=0 length=-1
 610                 while read LINE; do
 611                         case "$LINE" in
 612                         HTTP*)
 613                                 f_dprintf "received response: %s" "$LINE"
 614                                 set -- $LINE; rv=$2
 615                                 f_isinteger "$rv" || rv=0
 616                                 ;;
 617                         "Content-Length: "*)
 618                                 length="${LINE%\r}"
 619                                 length="${length#Content-Length: }"
 620                                 f_dprintf "received content-length: %s" \
 621                                           "$length"
 622                                 ;;
 623                         *)
 624                                 [ "${LINE%\r}" ] || break # End of headers
 625                         esac
 626                 done
 627
 628                 [ $rv -ge 500 ] && exit 5
 629                 [ $rv -eq 404 ] && exit 44
 630                 [ $rv -ge 400 ] && exit 4
 631                 [ $rv -ge 300 ] && exit 3
 632                 [ $rv -eq 200 ] || exit $FAILURE
 633
 634                 if [ ! "$probe_type" ]; then
 635                         cat # output the rest ``as-is''
 636                 elif [ "$probe_type" = "$PROBE_SIZE" ]; then
 637                         f_isinteger "$length" || length=-1
 638                         echo "$length"
 639                 fi
 640                 exit 200
 641         )
 642         local retval=$?
 643         [ $retval -eq 200 ] && return $SUCCESS
 644         [ "$probe_type" ] && return $FAILURE
 645
 646         case "$retval" in
 647           5) f_show_msg "$msg_server_error_when_requesting_url" "$url" ;;
 648          44) f_show_msg "$msg_url_was_not_found" "$url" ;;
 649           4) f_show_msg "$msg_client_error" ;;
 650           *) f_show_msg "$msg_error_when_requesting_url" "$url" ;;
 651         esac
 652         return $FAILURE
 653 }
 654
 655 ############################################################ MAIN
 656
 657 f_dprintf "%s: Successfully loaded." media/http.subr
 658
 659 fi # ! $_MEDIA_HTTP_SUBR