src/arch/i386/interface/pcbios/ibft.c

   1 /*
   2  * Copyright Fen Systems Ltd. 2007.  Portions of this code are derived
   3  * from IBM Corporation Sample Programs.  Copyright IBM Corporation
   4  * 2004, 2007.  All rights reserved.
   5  *
   6  * Permission is hereby granted, free of charge, to any person
   7  * obtaining a copy of this software and associated documentation
   8  * files (the "Software"), to deal in the Software without
   9  * restriction, including without limitation the rights to use, copy,
  10  * modify, merge, publish, distribute, sublicense, and/or sell copies
  11  * of the Software, and to permit persons to whom the Software is
  12  * furnished to do so, subject to the following conditions:
  13  *
  14  * The above copyright notice and this permission notice shall be
  15  * included in all copies or substantial portions of the Software.
  16  *
  17  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  18  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  19  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  20  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
  21  * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
  22  * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  23  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  24  * SOFTWARE.
  25  *
  26  */
  27
  28 FILE_LICENCE ( BSD2 );
  29
  30 #include <stdint.h>
  31 #include <stdio.h>
  32 #include <string.h>
  33 #include <errno.h>
  34 #include <byteswap.h>
  35 #include <realmode.h>
  36 #include <gpxe/pci.h>
  37 #include <gpxe/acpi.h>
  38 #include <gpxe/in.h>
  39 #include <gpxe/netdevice.h>
  40 #include <gpxe/dhcp.h>
  41 #include <gpxe/iscsi.h>
  42 #include <gpxe/ibft.h>
  43
  44 /** @file
  45  *
  46  * iSCSI boot firmware table
  47  *
  48  * The information in this file is derived from the document "iSCSI
  49  * Boot Firmware Table (iBFT)" as published by IBM at
  50  *
  51  * ftp://ftp.software.ibm.com/systems/support/system_x_pdf/ibm_iscsi_boot_firmware_table_v1.02.pdf
  52  *
  53  */
  54
  55 #define ibftab __use_data16 ( ibftab )
  56 /** The iBFT used by gPXE */
  57 struct gpxe_ibft __data16 ( ibftab ) = {
  58         /* Table header */
  59         .table = {
  60                 /* ACPI header */
  61                 .acpi = {
  62                         .signature = IBFT_SIG,
  63                         .length = sizeof ( ibftab ),
  64                         .revision = 1,
  65                         .oem_id = "FENSYS",
  66                         .oem_table_id = "gPXE",
  67                 },
  68                 /* Control block */
  69                 .control = {
  70                         .header = {
  71                                 .structure_id = IBFT_STRUCTURE_ID_CONTROL,
  72                                 .version = 1,
  73                                 .length = sizeof ( ibftab.table.control ),
  74                                 .flags = 0,
  75                         },
  76                         .initiator = offsetof ( typeof ( ibftab ), initiator ),
  77                         .nic_0 = offsetof ( typeof ( ibftab ), nic ),
  78                         .target_0 = offsetof ( typeof ( ibftab ), target ),
  79                 },
  80         },
  81         /* iSCSI initiator information */
  82         .initiator = {
  83                 .header = {
  84                         .structure_id = IBFT_STRUCTURE_ID_INITIATOR,
  85                         .version = 1,
  86                         .length = sizeof ( ibftab.initiator ),
  87                         .flags = ( IBFT_FL_INITIATOR_BLOCK_VALID |
  88                                    IBFT_FL_INITIATOR_FIRMWARE_BOOT_SELECTED ),
  89                 },
  90         },
  91         /* NIC information */
  92         .nic = {
  93                 .header = {
  94                         .structure_id = IBFT_STRUCTURE_ID_NIC,
  95                         .version = 1,
  96                         .length = sizeof ( ibftab.nic ),
  97                         .flags = ( IBFT_FL_NIC_BLOCK_VALID |
  98                                    IBFT_FL_NIC_FIRMWARE_BOOT_SELECTED ),
  99                 },
 100         },
 101         /* iSCSI target information */
 102         .target = {
 103                 .header = {
 104                         .structure_id = IBFT_STRUCTURE_ID_TARGET,
 105                         .version = 1,
 106                         .length = sizeof ( ibftab.target ),
 107                         .flags = ( IBFT_FL_TARGET_BLOCK_VALID |
 108                                    IBFT_FL_TARGET_FIRMWARE_BOOT_SELECTED ),
 109                 },
 110         },
 111 };
 112
 113 /**
 114  * Fill in an IP address field within iBFT
 115  *
 116  * @v ipaddr            IP address field
 117  * @v in                IPv4 address
 118  */
 119 static void ibft_set_ipaddr ( struct ibft_ipaddr *ipaddr, struct in_addr in ) {
 120         memset ( ipaddr, 0, sizeof ( ipaddr ) );
 121         if ( in.s_addr ) {
 122                 ipaddr->in = in;
 123                 ipaddr->ones = 0xffff;
 124         }
 125 }
 126
 127 /**
 128  * Fill in an IP address within iBFT from configuration setting
 129  *
 130  * @v ipaddr            IP address field
 131  * @v setting           Configuration setting
 132  * @v tag               DHCP option tag
 133  */
 134 static void ibft_set_ipaddr_option ( struct ibft_ipaddr *ipaddr,
 135                                      struct setting *setting ) {
 136         struct in_addr in = { 0 };
 137         fetch_ipv4_setting ( NULL, setting, &in );
 138         ibft_set_ipaddr ( ipaddr, in );
 139 }
 140
 141 /**
 142  * Read IP address from iBFT (for debugging)
 143  *
 144  * @v strings           iBFT string block descriptor
 145  * @v string            String field
 146  * @ret ipaddr          IP address string
 147  */
 148 static const char * ibft_ipaddr ( struct ibft_ipaddr *ipaddr ) {
 149         return inet_ntoa ( ipaddr->in );
 150 }
 151
 152 /**
 153  * Allocate a string within iBFT
 154  *
 155  * @v strings           iBFT string block descriptor
 156  * @v string            String field to fill in
 157  * @v len               Length of string to allocate (excluding NUL)
 158  * @ret rc              Return status code
 159  */
 160 static int ibft_alloc_string ( struct ibft_string_block *strings,
 161                                struct ibft_string *string, size_t len ) {
 162         char *dest;
 163         unsigned int remaining;
 164
 165         dest = ( ( ( char * ) strings->table ) + strings->offset );
 166         remaining = ( strings->table->acpi.length - strings->offset );
 167         if ( len >= remaining )
 168                 return -ENOMEM;
 169
 170         string->offset = strings->offset;
 171         string->length = len;
 172         strings->offset += ( len + 1 );
 173         return 0;
 174 }
 175
 176 /**
 177  * Fill in a string field within iBFT
 178  *
 179  * @v strings           iBFT string block descriptor
 180  * @v string            String field
 181  * @v data              String to fill in, or NULL
 182  * @ret rc              Return status code
 183  */
 184 static int ibft_set_string ( struct ibft_string_block *strings,
 185                              struct ibft_string *string, const char *data ) {
 186         char *dest;
 187         int rc;
 188
 189         if ( ! data )
 190                 return 0;
 191
 192         if ( ( rc = ibft_alloc_string ( strings, string,
 193                                         strlen ( data ) ) ) != 0 )
 194                 return rc;
 195         dest = ( ( ( char * ) strings->table ) + string->offset );
 196         strcpy ( dest, data );
 197
 198         return 0;
 199 }
 200
 201 /**
 202  * Fill in a string field within iBFT from configuration setting
 203  *
 204  * @v strings           iBFT string block descriptor
 205  * @v string            String field
 206  * @v setting           Configuration setting
 207  * @ret rc              Return status code
 208  */
 209 static int ibft_set_string_option ( struct ibft_string_block *strings,
 210                                     struct ibft_string *string,
 211                                     struct setting *setting ) {
 212         int len;
 213         char *dest;
 214         int rc;
 215
 216         len = fetch_setting_len ( NULL, setting );
 217         if ( len < 0 ) {
 218                 string->offset = 0;
 219                 string->length = 0;
 220                 return 0;
 221         }
 222
 223         if ( ( rc = ibft_alloc_string ( strings, string, len ) ) != 0 )
 224                 return rc;
 225         dest = ( ( ( char * ) strings->table ) + string->offset );
 226         fetch_string_setting ( NULL, setting, dest, ( len + 1 ) );
 227         return 0;
 228 }
 229
 230 /**
 231  * Read string from iBFT (for debugging)
 232  *
 233  * @v strings           iBFT string block descriptor
 234  * @v string            String field
 235  * @ret data            String content (or "<empty>")
 236  */
 237 static const char * ibft_string ( struct ibft_string_block *strings,
 238                                   struct ibft_string *string ) {
 239         return ( string->offset ?
 240                  ( ( ( char * ) strings->table ) + string->offset ) : NULL );
 241 }
 242
 243 /**
 244  * Fill in NIC portion of iBFT
 245  *
 246  * @v nic               NIC portion of iBFT
 247  * @v strings           iBFT string block descriptor
 248  * @v netdev            Network device
 249  * @ret rc              Return status code
 250  */
 251 static int ibft_fill_nic ( struct ibft_nic *nic,
 252                            struct ibft_string_block *strings,
 253                            struct net_device *netdev ) {
 254         struct in_addr netmask_addr = { 0 };
 255         unsigned int netmask_count = 0;
 256         int rc;
 257
 258         /* Extract values from DHCP configuration */
 259         ibft_set_ipaddr_option ( &nic->ip_address, &ip_setting );
 260         DBG ( "iBFT NIC IP = %s\n", ibft_ipaddr ( &nic->ip_address ) );
 261         ibft_set_ipaddr_option ( &nic->gateway, &gateway_setting );
 262         DBG ( "iBFT NIC gateway = %s\n", ibft_ipaddr ( &nic->gateway ) );
 263         ibft_set_ipaddr_option ( &nic->dns[0], &dns_setting );
 264         DBG ( "iBFT NIC DNS = %s\n", ibft_ipaddr ( &nic->dns[0] ) );
 265         if ( ( rc = ibft_set_string_option ( strings, &nic->hostname,
 266                                              &hostname_setting ) ) != 0 )
 267                 return rc;
 268         DBG ( "iBFT NIC hostname = %s\n",
 269               ibft_string ( strings, &nic->hostname ) );
 270
 271         /* Derive subnet mask prefix from subnet mask */
 272         fetch_ipv4_setting ( NULL, &netmask_setting, &netmask_addr );
 273         while ( netmask_addr.s_addr ) {
 274                 if ( netmask_addr.s_addr & 0x1 )
 275                         netmask_count++;
 276                 netmask_addr.s_addr >>= 1;
 277         }
 278         nic->subnet_mask_prefix = netmask_count;
 279         DBG ( "iBFT NIC subnet = /%d\n", nic->subnet_mask_prefix );
 280
 281         /* Extract values from net-device configuration */
 282         memcpy ( nic->mac_address, netdev->ll_addr,
 283                  sizeof ( nic->mac_address ) );
 284         DBG ( "iBFT NIC MAC = %s\n",
 285               netdev->ll_protocol->ntoa ( nic->mac_address ) );
 286         nic->pci_bus_dev_func = netdev->dev->desc.location;
 287         DBG ( "iBFT NIC PCI = %04x\n", nic->pci_bus_dev_func );
 288
 289         return 0;
 290 }
 291
 292 /**
 293  * Fill in Initiator portion of iBFT
 294  *
 295  * @v initiator         Initiator portion of iBFT
 296  * @v strings           iBFT string block descriptor
 297  * @ret rc              Return status code
 298  */
 299 static int ibft_fill_initiator ( struct ibft_initiator *initiator,
 300                                  struct ibft_string_block *strings ) {
 301         const char *initiator_iqn = iscsi_initiator_iqn();
 302         int rc;
 303
 304         if ( ( rc = ibft_set_string ( strings, &initiator->initiator_name,
 305                                       initiator_iqn ) ) != 0 )
 306                 return rc;
 307         DBG ( "iBFT initiator hostname = %s\n",
 308               ibft_string ( strings, &initiator->initiator_name ) );
 309
 310         return 0;
 311 }
 312
 313 /**
 314  * Fill in Target CHAP portion of iBFT
 315  *
 316  * @v target            Target portion of iBFT
 317  * @v strings           iBFT string block descriptor
 318  * @v iscsi             iSCSI session
 319  * @ret rc              Return status code
 320  */
 321 static int ibft_fill_target_chap ( struct ibft_target *target,
 322                                    struct ibft_string_block *strings,
 323                                    struct iscsi_session *iscsi ) {
 324         int rc;
 325
 326         if ( ! ( iscsi->status & ISCSI_STATUS_AUTH_FORWARD_REQUIRED ) )
 327                 return 0;
 328
 329         assert ( iscsi->initiator_username );
 330         assert ( iscsi->initiator_password );
 331
 332         target->chap_type = IBFT_CHAP_ONE_WAY;
 333         if ( ( rc = ibft_set_string ( strings, &target->chap_name,
 334                                       iscsi->initiator_username ) ) != 0 )
 335                 return rc;
 336         DBG ( "iBFT target username = %s\n",
 337               ibft_string ( strings, &target->chap_name ) );
 338         if ( ( rc = ibft_set_string ( strings, &target->chap_secret,
 339                                       iscsi->initiator_password ) ) != 0 )
 340                 return rc;
 341         DBG ( "iBFT target password = <redacted>\n" );
 342
 343         return 0;
 344 }
 345
 346 /**
 347  * Fill in Target Reverse CHAP portion of iBFT
 348  *
 349  * @v target            Target portion of iBFT
 350  * @v strings           iBFT string block descriptor
 351  * @v iscsi             iSCSI session
 352  * @ret rc              Return status code
 353  */
 354 static int ibft_fill_target_reverse_chap ( struct ibft_target *target,
 355                                            struct ibft_string_block *strings,
 356                                            struct iscsi_session *iscsi ) {
 357         int rc;
 358
 359         if ( ! ( iscsi->status & ISCSI_STATUS_AUTH_REVERSE_REQUIRED ) )
 360                 return 0;
 361
 362         assert ( iscsi->initiator_username );
 363         assert ( iscsi->initiator_password );
 364         assert ( iscsi->target_username );
 365         assert ( iscsi->target_password );
 366
 367         target->chap_type = IBFT_CHAP_MUTUAL;
 368         if ( ( rc = ibft_set_string ( strings, &target->reverse_chap_name,
 369                                       iscsi->target_username ) ) != 0 )
 370                 return rc;
 371         DBG ( "iBFT target reverse username = %s\n",
 372               ibft_string ( strings, &target->chap_name ) );
 373         if ( ( rc = ibft_set_string ( strings, &target->reverse_chap_secret,
 374                                       iscsi->target_password ) ) != 0 )
 375                 return rc;
 376         DBG ( "iBFT target reverse password = <redacted>\n" );
 377
 378         return 0;
 379 }
 380
 381 /**
 382  * Fill in Target portion of iBFT
 383  *
 384  * @v target            Target portion of iBFT
 385  * @v strings           iBFT string block descriptor
 386  * @v iscsi             iSCSI session
 387  * @ret rc              Return status code
 388  */
 389 static int ibft_fill_target ( struct ibft_target *target,
 390                               struct ibft_string_block *strings,
 391                               struct iscsi_session *iscsi ) {
 392         struct sockaddr_in *sin_target =
 393                 ( struct sockaddr_in * ) &iscsi->target_sockaddr;
 394         int rc;
 395
 396         /* Fill in Target values */
 397         ibft_set_ipaddr ( &target->ip_address, sin_target->sin_addr );
 398         DBG ( "iBFT target IP = %s\n", ibft_ipaddr ( &target->ip_address ) );
 399         target->socket = ntohs ( sin_target->sin_port );
 400         DBG ( "iBFT target port = %d\n", target->socket );
 401         if ( ( rc = ibft_set_string ( strings, &target->target_name,
 402                                       iscsi->target_iqn ) ) != 0 )
 403                 return rc;
 404         DBG ( "iBFT target name = %s\n",
 405               ibft_string ( strings, &target->target_name ) );
 406         if ( ( rc = ibft_fill_target_chap ( target, strings, iscsi ) ) != 0 )
 407                 return rc;
 408         if ( ( rc = ibft_fill_target_reverse_chap ( target, strings,
 409                                                     iscsi ) ) != 0 )
 410                 return rc;
 411
 412         return 0;
 413 }
 414
 415 /**
 416  * Fill in all variable portions of iBFT
 417  *
 418  * @v netdev            Network device
 419  * @v initiator_iqn     Initiator IQN
 420  * @v st_target         Target socket address
 421  * @v target_iqn        Target IQN
 422  * @ret rc              Return status code
 423  *
 424  */
 425 int ibft_fill_data ( struct net_device *netdev,
 426                      struct iscsi_session *iscsi ) {
 427         struct ibft_string_block strings = {
 428                 .table = &ibftab.table,
 429                 .offset = offsetof ( typeof ( ibftab ), strings ),
 430         };
 431         int rc;
 432
 433         /* Fill in NIC, Initiator and Target portions */
 434         if ( ( rc = ibft_fill_nic ( &ibftab.nic, &strings, netdev ) ) != 0 )
 435                 return rc;
 436         if ( ( rc = ibft_fill_initiator ( &ibftab.initiator,
 437                                           &strings ) ) != 0 )
 438                 return rc;
 439         if ( ( rc = ibft_fill_target ( &ibftab.target, &strings,
 440                                        iscsi ) ) != 0 )
 441                 return rc;
 442
 443         /* Update checksum */
 444         acpi_fix_checksum ( &ibftab.table.acpi );
 445
 446         return 0;
 447 }