SAFE public projects git trees. - safe/jmp/linux-2.6/blob - drivers/s390/scsi/zfcp_aux.c

   1 /*
   2  * This file is part of the zfcp device driver for
   3  * FCP adapters for IBM System z9 and zSeries.
   4  *
   5  * (C) Copyright IBM Corp. 2002, 2006
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2, or (at your option)
  10  * any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20  */
  21
  22 /*
  23  * Driver authors:
  24  *            Martin Peschke (originator of the driver)
  25  *            Raimund Schroeder
  26  *            Aron Zeh
  27  *            Wolfgang Taphorn
  28  *            Stefan Bader
  29  *            Heiko Carstens (kernel 2.6 port of the driver)
  30  *            Andreas Herrmann
  31  *            Maxim Shchetynin
  32  *            Volker Sameske
  33  *            Ralph Wuerthner
  34  */
  35
  36 #include "zfcp_ext.h"
  37
  38 /* accumulated log level (module parameter) */
  39 static u32 loglevel = ZFCP_LOG_LEVEL_DEFAULTS;
  40 static char *device;
  41 /*********************** FUNCTION PROTOTYPES *********************************/
  42
  43 /* written against the module interface */
  44 static int __init  zfcp_module_init(void);
  45
  46 /* FCP related */
  47 static void zfcp_ns_gid_pn_handler(unsigned long);
  48
  49 /* miscellaneous */
  50 static inline int zfcp_sg_list_alloc(struct zfcp_sg_list *, size_t);
  51 static inline void zfcp_sg_list_free(struct zfcp_sg_list *);
  52 static inline int zfcp_sg_list_copy_from_user(struct zfcp_sg_list *,
  53                                               void __user *, size_t);
  54 static inline int zfcp_sg_list_copy_to_user(void __user *,
  55                                             struct zfcp_sg_list *, size_t);
  56
  57 static long zfcp_cfdc_dev_ioctl(struct file *, unsigned int, unsigned long);
  58
  59 #define ZFCP_CFDC_IOC_MAGIC                     0xDD
  60 #define ZFCP_CFDC_IOC \
  61         _IOWR(ZFCP_CFDC_IOC_MAGIC, 0, struct zfcp_cfdc_sense_data)
  62
  63
  64 static struct file_operations zfcp_cfdc_fops = {
  65         .unlocked_ioctl = zfcp_cfdc_dev_ioctl,
  66 #ifdef CONFIG_COMPAT
  67         .compat_ioctl = zfcp_cfdc_dev_ioctl
  68 #endif
  69 };
  70
  71 static struct miscdevice zfcp_cfdc_misc = {
  72         .minor = ZFCP_CFDC_DEV_MINOR,
  73         .name = ZFCP_CFDC_DEV_NAME,
  74         .fops = &zfcp_cfdc_fops
  75 };
  76
  77 /*********************** KERNEL/MODULE PARAMETERS  ***************************/
  78
  79 /* declare driver module init/cleanup functions */
  80 module_init(zfcp_module_init);
  81
  82 MODULE_AUTHOR("IBM Deutschland Entwicklung GmbH - linux390@de.ibm.com");
  83 MODULE_DESCRIPTION
  84     ("FCP (SCSI over Fibre Channel) HBA driver for IBM System z9 and zSeries");
  85 MODULE_LICENSE("GPL");
  86
  87 module_param(device, charp, 0400);
  88 MODULE_PARM_DESC(device, "specify initial device");
  89
  90 module_param(loglevel, uint, 0400);
  91 MODULE_PARM_DESC(loglevel,
  92                  "log levels, 8 nibbles: "
  93                  "FC ERP QDIO CIO Config FSF SCSI Other, "
  94                  "levels: 0=none 1=normal 2=devel 3=trace");
  95
  96 /****************************************************************/
  97 /************** Functions without logging ***********************/
  98 /****************************************************************/
  99
 100 void
 101 _zfcp_hex_dump(char *addr, int count)
 102 {
 103         int i;
 104         for (i = 0; i < count; i++) {
 105                 printk("%02x", addr[i]);
 106                 if ((i % 4) == 3)
 107                         printk(" ");
 108                 if ((i % 32) == 31)
 109                         printk("\n");
 110         }
 111         if (((i-1) % 32) != 31)
 112                 printk("\n");
 113 }
 114
 115 /****************************************************************/
 116 /************** Uncategorised Functions *************************/
 117 /****************************************************************/
 118
 119 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_OTHER
 120
 121 /**
 122  * zfcp_device_setup - setup function
 123  * @str: pointer to parameter string
 124  *
 125  * Parse "device=..." parameter string.
 126  */
 127 static int __init
 128 zfcp_device_setup(char *devstr)
 129 {
 130         char *tmp, *str;
 131         size_t len;
 132
 133         if (!devstr)
 134                 return 0;
 135
 136         len = strlen(devstr) + 1;
 137         str = (char *) kmalloc(len, GFP_KERNEL);
 138         if (!str)
 139                 goto err_out;
 140         memcpy(str, devstr, len);
 141
 142         tmp = strchr(str, ',');
 143         if (!tmp)
 144                 goto err_out;
 145         *tmp++ = '\0';
 146         strncpy(zfcp_data.init_busid, str, BUS_ID_SIZE);
 147         zfcp_data.init_busid[BUS_ID_SIZE-1] = '\0';
 148
 149         zfcp_data.init_wwpn = simple_strtoull(tmp, &tmp, 0);
 150         if (*tmp++ != ',')
 151                 goto err_out;
 152         if (*tmp == '\0')
 153                 goto err_out;
 154
 155         zfcp_data.init_fcp_lun = simple_strtoull(tmp, &tmp, 0);
 156         if (*tmp != '\0')
 157                 goto err_out;
 158         kfree(str);
 159         return 1;
 160
 161  err_out:
 162         ZFCP_LOG_NORMAL("Parse error for device parameter string %s\n", str);
 163         kfree(str);
 164         return 0;
 165 }
 166
 167 static void __init
 168 zfcp_init_device_configure(void)
 169 {
 170         struct zfcp_adapter *adapter;
 171         struct zfcp_port *port;
 172         struct zfcp_unit *unit;
 173
 174         down(&zfcp_data.config_sema);
 175         read_lock_irq(&zfcp_data.config_lock);
 176         adapter = zfcp_get_adapter_by_busid(zfcp_data.init_busid);
 177         if (adapter)
 178                 zfcp_adapter_get(adapter);
 179         read_unlock_irq(&zfcp_data.config_lock);
 180
 181         if (adapter == NULL)
 182                 goto out_adapter;
 183         port = zfcp_port_enqueue(adapter, zfcp_data.init_wwpn, 0, 0);
 184         if (!port)
 185                 goto out_port;
 186         unit = zfcp_unit_enqueue(port, zfcp_data.init_fcp_lun);
 187         if (!unit)
 188                 goto out_unit;
 189         up(&zfcp_data.config_sema);
 190         ccw_device_set_online(adapter->ccw_device);
 191         zfcp_erp_wait(adapter);
 192         down(&zfcp_data.config_sema);
 193         zfcp_unit_put(unit);
 194  out_unit:
 195         zfcp_port_put(port);
 196  out_port:
 197         zfcp_adapter_put(adapter);
 198  out_adapter:
 199         up(&zfcp_data.config_sema);
 200         return;
 201 }
 202
 203 static int __init
 204 zfcp_module_init(void)
 205 {
 206
 207         int retval = 0;
 208
 209         atomic_set(&zfcp_data.loglevel, loglevel);
 210
 211         /* initialize adapter list */
 212         INIT_LIST_HEAD(&zfcp_data.adapter_list_head);
 213
 214         /* initialize adapters to be removed list head */
 215         INIT_LIST_HEAD(&zfcp_data.adapter_remove_lh);
 216
 217         zfcp_transport_template = fc_attach_transport(&zfcp_transport_functions);
 218         if (!zfcp_transport_template)
 219                 return -ENODEV;
 220
 221         retval = misc_register(&zfcp_cfdc_misc);
 222         if (retval != 0) {
 223                 ZFCP_LOG_INFO("registration of misc device "
 224                               "zfcp_cfdc failed\n");
 225                 goto out;
 226         }
 227
 228         ZFCP_LOG_TRACE("major/minor for zfcp_cfdc: %d/%d\n",
 229                        ZFCP_CFDC_DEV_MAJOR, zfcp_cfdc_misc.minor);
 230
 231         /* Initialise proc semaphores */
 232         sema_init(&zfcp_data.config_sema, 1);
 233
 234         /* initialise configuration rw lock */
 235         rwlock_init(&zfcp_data.config_lock);
 236
 237         /* save address of data structure managing the driver module */
 238         zfcp_data.scsi_host_template.module = THIS_MODULE;
 239
 240         /* setup dynamic I/O */
 241         retval = zfcp_ccw_register();
 242         if (retval) {
 243                 ZFCP_LOG_NORMAL("registration with common I/O layer failed\n");
 244                 goto out_ccw_register;
 245         }
 246
 247         if (zfcp_device_setup(device))
 248                 zfcp_init_device_configure();
 249
 250         goto out;
 251
 252  out_ccw_register:
 253         misc_deregister(&zfcp_cfdc_misc);
 254  out:
 255         return retval;
 256 }
 257
 258 /*
 259  * function:    zfcp_cfdc_dev_ioctl
 260  *
 261  * purpose:     Handle control file upload/download transaction via IOCTL
 262  *              interface
 263  *
 264  * returns:     0           - Operation completed successfuly
 265  *              -ENOTTY     - Unknown IOCTL command
 266  *              -EINVAL     - Invalid sense data record
 267  *              -ENXIO      - The FCP adapter is not available
 268  *              -EOPNOTSUPP - The FCP adapter does not have CFDC support
 269  *              -ENOMEM     - Insufficient memory
 270  *              -EFAULT     - User space memory I/O operation fault
 271  *              -EPERM      - Cannot create or queue FSF request or create SBALs
 272  *              -ERESTARTSYS- Received signal (is mapped to EAGAIN by VFS)
 273  */
 274 static long
 275 zfcp_cfdc_dev_ioctl(struct file *file, unsigned int command,
 276                     unsigned long buffer)
 277 {
 278         struct zfcp_cfdc_sense_data *sense_data, __user *sense_data_user;
 279         struct zfcp_adapter *adapter = NULL;
 280         struct zfcp_fsf_req *fsf_req = NULL;
 281         struct zfcp_sg_list *sg_list = NULL;
 282         u32 fsf_command, option;
 283         char *bus_id = NULL;
 284         int retval = 0;
 285
 286         sense_data = kmalloc(sizeof(struct zfcp_cfdc_sense_data), GFP_KERNEL);
 287         if (sense_data == NULL) {
 288                 retval = -ENOMEM;
 289                 goto out;
 290         }
 291
 292         sg_list = kmalloc(sizeof(struct zfcp_sg_list), GFP_KERNEL);
 293         if (sg_list == NULL) {
 294                 retval = -ENOMEM;
 295                 goto out;
 296         }
 297         memset(sg_list, 0, sizeof(*sg_list));
 298
 299         if (command != ZFCP_CFDC_IOC) {
 300                 ZFCP_LOG_INFO("IOC request code 0x%x invalid\n", command);
 301                 retval = -ENOTTY;
 302                 goto out;
 303         }
 304
 305         if ((sense_data_user = (void __user *) buffer) == NULL) {
 306                 ZFCP_LOG_INFO("sense data record is required\n");
 307                 retval = -EINVAL;
 308                 goto out;
 309         }
 310
 311         retval = copy_from_user(sense_data, sense_data_user,
 312                                 sizeof(struct zfcp_cfdc_sense_data));
 313         if (retval) {
 314                 retval = -EFAULT;
 315                 goto out;
 316         }
 317
 318         if (sense_data->signature != ZFCP_CFDC_SIGNATURE) {
 319                 ZFCP_LOG_INFO("invalid sense data request signature 0x%08x\n",
 320                               ZFCP_CFDC_SIGNATURE);
 321                 retval = -EINVAL;
 322                 goto out;
 323         }
 324
 325         switch (sense_data->command) {
 326
 327         case ZFCP_CFDC_CMND_DOWNLOAD_NORMAL:
 328                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 329                 option = FSF_CFDC_OPTION_NORMAL_MODE;
 330                 break;
 331
 332         case ZFCP_CFDC_CMND_DOWNLOAD_FORCE:
 333                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 334                 option = FSF_CFDC_OPTION_FORCE;
 335                 break;
 336
 337         case ZFCP_CFDC_CMND_FULL_ACCESS:
 338                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 339                 option = FSF_CFDC_OPTION_FULL_ACCESS;
 340                 break;
 341
 342         case ZFCP_CFDC_CMND_RESTRICTED_ACCESS:
 343                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 344                 option = FSF_CFDC_OPTION_RESTRICTED_ACCESS;
 345                 break;
 346
 347         case ZFCP_CFDC_CMND_UPLOAD:
 348                 fsf_command = FSF_QTCB_UPLOAD_CONTROL_FILE;
 349                 option = 0;
 350                 break;
 351
 352         default:
 353                 ZFCP_LOG_INFO("invalid command code 0x%08x\n",
 354                               sense_data->command);
 355                 retval = -EINVAL;
 356                 goto out;
 357         }
 358
 359         bus_id = kmalloc(BUS_ID_SIZE, GFP_KERNEL);
 360         if (bus_id == NULL) {
 361                 retval = -ENOMEM;
 362                 goto out;
 363         }
 364         snprintf(bus_id, BUS_ID_SIZE, "%d.%d.%04x",
 365                 (sense_data->devno >> 24),
 366                 (sense_data->devno >> 16) & 0xFF,
 367                 (sense_data->devno & 0xFFFF));
 368
 369         read_lock_irq(&zfcp_data.config_lock);
 370         adapter = zfcp_get_adapter_by_busid(bus_id);
 371         if (adapter)
 372                 zfcp_adapter_get(adapter);
 373         read_unlock_irq(&zfcp_data.config_lock);
 374
 375         kfree(bus_id);
 376
 377         if (adapter == NULL) {
 378                 ZFCP_LOG_INFO("invalid adapter\n");
 379                 retval = -ENXIO;
 380                 goto out;
 381         }
 382
 383         if (sense_data->command & ZFCP_CFDC_WITH_CONTROL_FILE) {
 384                 retval = zfcp_sg_list_alloc(sg_list,
 385                                             ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 386                 if (retval) {
 387                         retval = -ENOMEM;
 388                         goto out;
 389                 }
 390         }
 391
 392         if ((sense_data->command & ZFCP_CFDC_DOWNLOAD) &&
 393             (sense_data->command & ZFCP_CFDC_WITH_CONTROL_FILE)) {
 394                 retval = zfcp_sg_list_copy_from_user(
 395                         sg_list, &sense_data_user->control_file,
 396                         ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 397                 if (retval) {
 398                         retval = -EFAULT;
 399                         goto out;
 400                 }
 401         }
 402
 403         retval = zfcp_fsf_control_file(adapter, &fsf_req, fsf_command,
 404                                        option, sg_list);
 405         if (retval)
 406                 goto out;
 407
 408         if ((fsf_req->qtcb->prefix.prot_status != FSF_PROT_GOOD) &&
 409             (fsf_req->qtcb->prefix.prot_status != FSF_PROT_FSF_STATUS_PRESENTED)) {
 410                 retval = -ENXIO;
 411                 goto out;
 412         }
 413
 414         sense_data->fsf_status = fsf_req->qtcb->header.fsf_status;
 415         memcpy(&sense_data->fsf_status_qual,
 416                &fsf_req->qtcb->header.fsf_status_qual,
 417                sizeof(union fsf_status_qual));
 418         memcpy(&sense_data->payloads, &fsf_req->qtcb->bottom.support.els, 256);
 419
 420         retval = copy_to_user(sense_data_user, sense_data,
 421                 sizeof(struct zfcp_cfdc_sense_data));
 422         if (retval) {
 423                 retval = -EFAULT;
 424                 goto out;
 425         }
 426
 427         if (sense_data->command & ZFCP_CFDC_UPLOAD) {
 428                 retval = zfcp_sg_list_copy_to_user(
 429                         &sense_data_user->control_file, sg_list,
 430                         ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 431                 if (retval) {
 432                         retval = -EFAULT;
 433                         goto out;
 434                 }
 435         }
 436
 437  out:
 438         if (fsf_req != NULL)
 439                 zfcp_fsf_req_free(fsf_req);
 440
 441         if ((adapter != NULL) && (retval != -ENXIO))
 442                 zfcp_adapter_put(adapter);
 443
 444         if (sg_list != NULL) {
 445                 zfcp_sg_list_free(sg_list);
 446                 kfree(sg_list);
 447         }
 448
 449         kfree(sense_data);
 450
 451         return retval;
 452 }
 453
 454
 455 /**
 456  * zfcp_sg_list_alloc - create a scatter-gather list of the specified size
 457  * @sg_list: structure describing a scatter gather list
 458  * @size: size of scatter-gather list
 459  * Return: 0 on success, else -ENOMEM
 460  *
 461  * In sg_list->sg a pointer to the created scatter-gather list is returned,
 462  * or NULL if we run out of memory. sg_list->count specifies the number of
 463  * elements of the scatter-gather list. The maximum size of a single element
 464  * in the scatter-gather list is PAGE_SIZE.
 465  */
 466 static inline int
 467 zfcp_sg_list_alloc(struct zfcp_sg_list *sg_list, size_t size)
 468 {
 469         struct scatterlist *sg;
 470         unsigned int i;
 471         int retval = 0;
 472         void *address;
 473
 474         BUG_ON(sg_list == NULL);
 475
 476         sg_list->count = size >> PAGE_SHIFT;
 477         if (size & ~PAGE_MASK)
 478                 sg_list->count++;
 479         sg_list->sg = kmalloc(sg_list->count * sizeof(struct scatterlist),
 480                               GFP_KERNEL);
 481         if (sg_list->sg == NULL) {
 482                 sg_list->count = 0;
 483                 retval = -ENOMEM;
 484                 goto out;
 485         }
 486         memset(sg_list->sg, 0, sg_list->count * sizeof(struct scatterlist));
 487
 488         for (i = 0, sg = sg_list->sg; i < sg_list->count; i++, sg++) {
 489                 sg->length = min(size, PAGE_SIZE);
 490                 sg->offset = 0;
 491                 address = (void *) get_zeroed_page(GFP_KERNEL);
 492                 if (address == NULL) {
 493                         sg_list->count = i;
 494                         zfcp_sg_list_free(sg_list);
 495                         retval = -ENOMEM;
 496                         goto out;
 497                 }
 498                 zfcp_address_to_sg(address, sg);
 499                 size -= sg->length;
 500         }
 501
 502  out:
 503         return retval;
 504 }
 505
 506
 507 /**
 508  * zfcp_sg_list_free - free memory of a scatter-gather list
 509  * @sg_list: structure describing a scatter-gather list
 510  *
 511  * Memory for each element in the scatter-gather list is freed.
 512  * Finally sg_list->sg is freed itself and sg_list->count is reset.
 513  */
 514 static inline void
 515 zfcp_sg_list_free(struct zfcp_sg_list *sg_list)
 516 {
 517         struct scatterlist *sg;
 518         unsigned int i;
 519
 520         BUG_ON(sg_list == NULL);
 521
 522         for (i = 0, sg = sg_list->sg; i < sg_list->count; i++, sg++)
 523                 free_page((unsigned long) zfcp_sg_to_address(sg));
 524
 525         sg_list->count = 0;
 526         kfree(sg_list->sg);
 527 }
 528
 529 /**
 530  * zfcp_sg_size - determine size of a scatter-gather list
 531  * @sg: array of (struct scatterlist)
 532  * @sg_count: elements in array
 533  * Return: size of entire scatter-gather list
 534  */
 535 size_t
 536 zfcp_sg_size(struct scatterlist *sg, unsigned int sg_count)
 537 {
 538         unsigned int i;
 539         struct scatterlist *p;
 540         size_t size;
 541
 542         size = 0;
 543         for (i = 0, p = sg; i < sg_count; i++, p++) {
 544                 BUG_ON(p == NULL);
 545                 size += p->length;
 546         }
 547
 548         return size;
 549 }
 550
 551
 552 /**
 553  * zfcp_sg_list_copy_from_user -copy data from user space to scatter-gather list
 554  * @sg_list: structure describing a scatter-gather list
 555  * @user_buffer: pointer to buffer in user space
 556  * @size: number of bytes to be copied
 557  * Return: 0 on success, -EFAULT if copy_from_user fails.
 558  */
 559 static inline int
 560 zfcp_sg_list_copy_from_user(struct zfcp_sg_list *sg_list,
 561                             void __user *user_buffer,
 562                             size_t size)
 563 {
 564         struct scatterlist *sg;
 565         unsigned int length;
 566         void *zfcp_buffer;
 567         int retval = 0;
 568
 569         BUG_ON(sg_list == NULL);
 570
 571         if (zfcp_sg_size(sg_list->sg, sg_list->count) < size)
 572                 return -EFAULT;
 573
 574         for (sg = sg_list->sg; size > 0; sg++) {
 575                 length = min((unsigned int)size, sg->length);
 576                 zfcp_buffer = zfcp_sg_to_address(sg);
 577                 if (copy_from_user(zfcp_buffer, user_buffer, length)) {
 578                         retval = -EFAULT;
 579                         goto out;
 580                 }
 581                 user_buffer += length;
 582                 size -= length;
 583         }
 584
 585  out:
 586         return retval;
 587 }
 588
 589
 590 /**
 591  * zfcp_sg_list_copy_to_user - copy data from scatter-gather list to user space
 592  * @user_buffer: pointer to buffer in user space
 593  * @sg_list: structure describing a scatter-gather list
 594  * @size: number of bytes to be copied
 595  * Return: 0 on success, -EFAULT if copy_to_user fails
 596  */
 597 static inline int
 598 zfcp_sg_list_copy_to_user(void __user  *user_buffer,
 599                           struct zfcp_sg_list *sg_list,
 600                           size_t size)
 601 {
 602         struct scatterlist *sg;
 603         unsigned int length;
 604         void *zfcp_buffer;
 605         int retval = 0;
 606
 607         BUG_ON(sg_list == NULL);
 608
 609         if (zfcp_sg_size(sg_list->sg, sg_list->count) < size)
 610                 return -EFAULT;
 611
 612         for (sg = sg_list->sg; size > 0; sg++) {
 613                 length = min((unsigned int) size, sg->length);
 614                 zfcp_buffer = zfcp_sg_to_address(sg);
 615                 if (copy_to_user(user_buffer, zfcp_buffer, length)) {
 616                         retval = -EFAULT;
 617                         goto out;
 618                 }
 619                 user_buffer += length;
 620                 size -= length;
 621         }
 622
 623  out:
 624         return retval;
 625 }
 626
 627
 628 #undef ZFCP_LOG_AREA
 629
 630 /****************************************************************/
 631 /****** Functions for configuration/set-up of structures ********/
 632 /****************************************************************/
 633
 634 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_CONFIG
 635
 636 /**
 637  * zfcp_get_unit_by_lun - find unit in unit list of port by FCP LUN
 638  * @port: pointer to port to search for unit
 639  * @fcp_lun: FCP LUN to search for
 640  * Traverse list of all units of a port and return pointer to a unit
 641  * with the given FCP LUN.
 642  */
 643 struct zfcp_unit *
 644 zfcp_get_unit_by_lun(struct zfcp_port *port, fcp_lun_t fcp_lun)
 645 {
 646         struct zfcp_unit *unit;
 647         int found = 0;
 648
 649         list_for_each_entry(unit, &port->unit_list_head, list) {
 650                 if ((unit->fcp_lun == fcp_lun) &&
 651                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status))
 652                 {
 653                         found = 1;
 654                         break;
 655                 }
 656         }
 657         return found ? unit : NULL;
 658 }
 659
 660 /**
 661  * zfcp_get_port_by_wwpn - find port in port list of adapter by wwpn
 662  * @adapter: pointer to adapter to search for port
 663  * @wwpn: wwpn to search for
 664  * Traverse list of all ports of an adapter and return pointer to a port
 665  * with the given wwpn.
 666  */
 667 struct zfcp_port *
 668 zfcp_get_port_by_wwpn(struct zfcp_adapter *adapter, wwn_t wwpn)
 669 {
 670         struct zfcp_port *port;
 671         int found = 0;
 672
 673         list_for_each_entry(port, &adapter->port_list_head, list) {
 674                 if ((port->wwpn == wwpn) &&
 675                     !(atomic_read(&port->status) &
 676                       (ZFCP_STATUS_PORT_NO_WWPN | ZFCP_STATUS_COMMON_REMOVE))) {
 677                         found = 1;
 678                         break;
 679                 }
 680         }
 681         return found ? port : NULL;
 682 }
 683
 684 /**
 685  * zfcp_get_port_by_did - find port in port list of adapter by d_id
 686  * @adapter: pointer to adapter to search for port
 687  * @d_id: d_id to search for
 688  * Traverse list of all ports of an adapter and return pointer to a port
 689  * with the given d_id.
 690  */
 691 struct zfcp_port *
 692 zfcp_get_port_by_did(struct zfcp_adapter *adapter, u32 d_id)
 693 {
 694         struct zfcp_port *port;
 695         int found = 0;
 696
 697         list_for_each_entry(port, &adapter->port_list_head, list) {
 698                 if ((port->d_id == d_id) &&
 699                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status))
 700                 {
 701                         found = 1;
 702                         break;
 703                 }
 704         }
 705         return found ? port : NULL;
 706 }
 707
 708 /**
 709  * zfcp_get_adapter_by_busid - find adpater in adapter list by bus_id
 710  * @bus_id: bus_id to search for
 711  * Traverse list of all adapters and return pointer to an adapter
 712  * with the given bus_id.
 713  */
 714 struct zfcp_adapter *
 715 zfcp_get_adapter_by_busid(char *bus_id)
 716 {
 717         struct zfcp_adapter *adapter;
 718         int found = 0;
 719
 720         list_for_each_entry(adapter, &zfcp_data.adapter_list_head, list) {
 721                 if ((strncmp(bus_id, zfcp_get_busid_by_adapter(adapter),
 722                              BUS_ID_SIZE) == 0) &&
 723                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE,
 724                                       &adapter->status)){
 725                         found = 1;
 726                         break;
 727                 }
 728         }
 729         return found ? adapter : NULL;
 730 }
 731
 732 /**
 733  * zfcp_unit_enqueue - enqueue unit to unit list of a port.
 734  * @port: pointer to port where unit is added
 735  * @fcp_lun: FCP LUN of unit to be enqueued
 736  * Return: pointer to enqueued unit on success, NULL on error
 737  * Locks: config_sema must be held to serialize changes to the unit list
 738  *
 739  * Sets up some unit internal structures and creates sysfs entry.
 740  */
 741 struct zfcp_unit *
 742 zfcp_unit_enqueue(struct zfcp_port *port, fcp_lun_t fcp_lun)
 743 {
 744         struct zfcp_unit *unit, *tmp_unit;
 745         scsi_lun_t scsi_lun;
 746         int found;
 747
 748         /*
 749          * check that there is no unit with this FCP_LUN already in list
 750          * and enqueue it.
 751          * Note: Unlike for the adapter and the port, this is an error
 752          */
 753         read_lock_irq(&zfcp_data.config_lock);
 754         unit = zfcp_get_unit_by_lun(port, fcp_lun);
 755         read_unlock_irq(&zfcp_data.config_lock);
 756         if (unit)
 757                 return NULL;
 758
 759         unit = kmalloc(sizeof (struct zfcp_unit), GFP_KERNEL);
 760         if (!unit)
 761                 return NULL;
 762         memset(unit, 0, sizeof (struct zfcp_unit));
 763
 764         /* initialise reference count stuff */
 765         atomic_set(&unit->refcount, 0);
 766         init_waitqueue_head(&unit->remove_wq);
 767
 768         unit->port = port;
 769         unit->fcp_lun = fcp_lun;
 770
 771         /* setup for sysfs registration */
 772         snprintf(unit->sysfs_device.bus_id, BUS_ID_SIZE, "0x%016llx", fcp_lun);
 773         unit->sysfs_device.parent = &port->sysfs_device;
 774         unit->sysfs_device.release = zfcp_sysfs_unit_release;
 775         dev_set_drvdata(&unit->sysfs_device, unit);
 776
 777         /* mark unit unusable as long as sysfs registration is not complete */
 778         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status);
 779
 780         if (device_register(&unit->sysfs_device)) {
 781                 kfree(unit);
 782                 return NULL;
 783         }
 784
 785         if (zfcp_sysfs_unit_create_files(&unit->sysfs_device)) {
 786                 device_unregister(&unit->sysfs_device);
 787                 return NULL;
 788         }
 789
 790         zfcp_unit_get(unit);
 791
 792         scsi_lun = 0;
 793         found = 0;
 794         write_lock_irq(&zfcp_data.config_lock);
 795         list_for_each_entry(tmp_unit, &port->unit_list_head, list) {
 796                 if (tmp_unit->scsi_lun != scsi_lun) {
 797                         found = 1;
 798                         break;
 799                 }
 800                 scsi_lun++;
 801         }
 802         unit->scsi_lun = scsi_lun;
 803         if (found)
 804                 list_add_tail(&unit->list, &tmp_unit->list);
 805         else
 806                 list_add_tail(&unit->list, &port->unit_list_head);
 807         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status);
 808         atomic_set_mask(ZFCP_STATUS_COMMON_RUNNING, &unit->status);
 809         write_unlock_irq(&zfcp_data.config_lock);
 810
 811         port->units++;
 812         zfcp_port_get(port);
 813
 814         return unit;
 815 }
 816
 817 void
 818 zfcp_unit_dequeue(struct zfcp_unit *unit)
 819 {
 820         zfcp_unit_wait(unit);
 821         write_lock_irq(&zfcp_data.config_lock);
 822         list_del(&unit->list);
 823         write_unlock_irq(&zfcp_data.config_lock);
 824         unit->port->units--;
 825         zfcp_port_put(unit->port);
 826         zfcp_sysfs_unit_remove_files(&unit->sysfs_device);
 827         device_unregister(&unit->sysfs_device);
 828 }
 829
 830 /*
 831  * Allocates a combined QTCB/fsf_req buffer for erp actions and fcp/SCSI
 832  * commands.
 833  * It also genrates fcp-nameserver request/response buffer and unsolicited
 834  * status read fsf_req buffers.
 835  *
 836  * locks:       must only be called with zfcp_data.config_sema taken
 837  */
 838 static int
 839 zfcp_allocate_low_mem_buffers(struct zfcp_adapter *adapter)
 840 {
 841         adapter->pool.fsf_req_erp =
 842                 mempool_create_kmalloc_pool(ZFCP_POOL_FSF_REQ_ERP_NR,
 843                                 sizeof(struct zfcp_fsf_req_pool_element));
 844         if (!adapter->pool.fsf_req_erp)
 845                 return -ENOMEM;
 846
 847         adapter->pool.fsf_req_scsi =
 848                 mempool_create_kmalloc_pool(ZFCP_POOL_FSF_REQ_SCSI_NR,
 849                                 sizeof(struct zfcp_fsf_req_pool_element));
 850         if (!adapter->pool.fsf_req_scsi)
 851                 return -ENOMEM;
 852
 853         adapter->pool.fsf_req_abort =
 854                 mempool_create_kmalloc_pool(ZFCP_POOL_FSF_REQ_ABORT_NR,
 855                                 sizeof(struct zfcp_fsf_req_pool_element));
 856         if (!adapter->pool.fsf_req_abort)
 857                 return -ENOMEM;
 858
 859         adapter->pool.fsf_req_status_read =
 860                 mempool_create_kmalloc_pool(ZFCP_POOL_STATUS_READ_NR,
 861                                             sizeof(struct zfcp_fsf_req));
 862         if (!adapter->pool.fsf_req_status_read)
 863                 return -ENOMEM;
 864
 865         adapter->pool.data_status_read =
 866                 mempool_create_kmalloc_pool(ZFCP_POOL_STATUS_READ_NR,
 867                                         sizeof(struct fsf_status_read_buffer));
 868         if (!adapter->pool.data_status_read)
 869                 return -ENOMEM;
 870
 871         adapter->pool.data_gid_pn =
 872                 mempool_create_kmalloc_pool(ZFCP_POOL_DATA_GID_PN_NR,
 873                                             sizeof(struct zfcp_gid_pn_data));
 874         if (!adapter->pool.data_gid_pn)
 875                 return -ENOMEM;
 876
 877         return 0;
 878 }
 879
 880 /**
 881  * zfcp_free_low_mem_buffers - free memory pools of an adapter
 882  * @adapter: pointer to zfcp_adapter for which memory pools should be freed
 883  * locking:  zfcp_data.config_sema must be held
 884  */
 885 static void
 886 zfcp_free_low_mem_buffers(struct zfcp_adapter *adapter)
 887 {
 888         if (adapter->pool.fsf_req_erp)
 889                 mempool_destroy(adapter->pool.fsf_req_erp);
 890         if (adapter->pool.fsf_req_scsi)
 891                 mempool_destroy(adapter->pool.fsf_req_scsi);
 892         if (adapter->pool.fsf_req_abort)
 893                 mempool_destroy(adapter->pool.fsf_req_abort);
 894         if (adapter->pool.fsf_req_status_read)
 895                 mempool_destroy(adapter->pool.fsf_req_status_read);
 896         if (adapter->pool.data_status_read)
 897                 mempool_destroy(adapter->pool.data_status_read);
 898         if (adapter->pool.data_gid_pn)
 899                 mempool_destroy(adapter->pool.data_gid_pn);
 900 }
 901
 902 void
 903 zfcp_dummy_release(struct device *dev)
 904 {
 905         return;
 906 }
 907
 908 /*
 909  * Enqueues an adapter at the end of the adapter list in the driver data.
 910  * All adapter internal structures are set up.
 911  * Proc-fs entries are also created.
 912  *
 913  * returns:     0             if a new adapter was successfully enqueued
 914  *              ZFCP_KNOWN    if an adapter with this devno was already present
 915  *              -ENOMEM       if alloc failed
 916  * locks:       config_sema must be held to serialise changes to the adapter list
 917  */
 918 struct zfcp_adapter *
 919 zfcp_adapter_enqueue(struct ccw_device *ccw_device)
 920 {
 921         int retval = 0;
 922         struct zfcp_adapter *adapter;
 923
 924         /*
 925          * Note: It is safe to release the list_lock, as any list changes
 926          * are protected by the config_sema, which must be held to get here
 927          */
 928
 929         /* try to allocate new adapter data structure (zeroed) */
 930         adapter = kmalloc(sizeof (struct zfcp_adapter), GFP_KERNEL);
 931         if (!adapter) {
 932                 ZFCP_LOG_INFO("error: allocation of base adapter "
 933                               "structure failed\n");
 934                 goto out;
 935         }
 936         memset(adapter, 0, sizeof (struct zfcp_adapter));
 937
 938         ccw_device->handler = NULL;
 939
 940         /* save ccw_device pointer */
 941         adapter->ccw_device = ccw_device;
 942
 943         retval = zfcp_qdio_allocate_queues(adapter);
 944         if (retval)
 945                 goto queues_alloc_failed;
 946
 947         retval = zfcp_qdio_allocate(adapter);
 948         if (retval)
 949                 goto qdio_allocate_failed;
 950
 951         retval = zfcp_allocate_low_mem_buffers(adapter);
 952         if (retval) {
 953                 ZFCP_LOG_INFO("error: pool allocation failed\n");
 954                 goto failed_low_mem_buffers;
 955         }
 956
 957         /* initialise reference count stuff */
 958         atomic_set(&adapter->refcount, 0);
 959         init_waitqueue_head(&adapter->remove_wq);
 960
 961         /* initialise list of ports */
 962         INIT_LIST_HEAD(&adapter->port_list_head);
 963
 964         /* initialise list of ports to be removed */
 965         INIT_LIST_HEAD(&adapter->port_remove_lh);
 966
 967         /* initialize list of fsf requests */
 968         spin_lock_init(&adapter->fsf_req_list_lock);
 969         INIT_LIST_HEAD(&adapter->fsf_req_list_head);
 970
 971         /* initialize debug locks */
 972
 973         spin_lock_init(&adapter->erp_dbf_lock);
 974         spin_lock_init(&adapter->hba_dbf_lock);
 975         spin_lock_init(&adapter->san_dbf_lock);
 976         spin_lock_init(&adapter->scsi_dbf_lock);
 977
 978         /* initialize error recovery stuff */
 979
 980         rwlock_init(&adapter->erp_lock);
 981         sema_init(&adapter->erp_ready_sem, 0);
 982         INIT_LIST_HEAD(&adapter->erp_ready_head);
 983         INIT_LIST_HEAD(&adapter->erp_running_head);
 984
 985         /* initialize abort lock */
 986         rwlock_init(&adapter->abort_lock);
 987
 988         /* initialise some erp stuff */
 989         init_waitqueue_head(&adapter->erp_thread_wqh);
 990         init_waitqueue_head(&adapter->erp_done_wqh);
 991
 992         /* initialize lock of associated request queue */
 993         rwlock_init(&adapter->request_queue.queue_lock);
 994
 995         /* intitialise SCSI ER timer */
 996         init_timer(&adapter->scsi_er_timer);
 997
 998         /* set FC service class used per default */
 999         adapter->fc_service_class = ZFCP_FC_SERVICE_CLASS_DEFAULT;
1000
1001         sprintf(adapter->name, "%s", zfcp_get_busid_by_adapter(adapter));
1002         ASCEBC(adapter->name, strlen(adapter->name));
1003
1004         /* mark adapter unusable as long as sysfs registration is not complete */
1005         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &adapter->status);
1006
1007         adapter->ccw_device = ccw_device;
1008         dev_set_drvdata(&ccw_device->dev, adapter);
1009
1010         if (zfcp_sysfs_adapter_create_files(&ccw_device->dev))
1011                 goto sysfs_failed;
1012
1013         adapter->generic_services.parent = &adapter->ccw_device->dev;
1014         adapter->generic_services.release = zfcp_dummy_release;
1015         snprintf(adapter->generic_services.bus_id, BUS_ID_SIZE,
1016                  "generic_services");
1017
1018         if (device_register(&adapter->generic_services))
1019                 goto generic_services_failed;
1020
1021         /* put allocated adapter at list tail */
1022         write_lock_irq(&zfcp_data.config_lock);
1023         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &adapter->status);
1024         list_add_tail(&adapter->list, &zfcp_data.adapter_list_head);
1025         write_unlock_irq(&zfcp_data.config_lock);
1026
1027         zfcp_data.adapters++;
1028
1029         goto out;
1030
1031  generic_services_failed:
1032         zfcp_sysfs_adapter_remove_files(&adapter->ccw_device->dev);
1033  sysfs_failed:
1034         dev_set_drvdata(&ccw_device->dev, NULL);
1035  failed_low_mem_buffers:
1036         zfcp_free_low_mem_buffers(adapter);
1037         if (qdio_free(ccw_device) != 0)
1038                 ZFCP_LOG_NORMAL("bug: qdio_free for adapter %s failed\n",
1039                                 zfcp_get_busid_by_adapter(adapter));
1040  qdio_allocate_failed:
1041         zfcp_qdio_free_queues(adapter);
1042  queues_alloc_failed:
1043         kfree(adapter);
1044         adapter = NULL;
1045  out:
1046         return adapter;
1047 }
1048
1049 /*
1050  * returns:     0 - struct zfcp_adapter  data structure successfully removed
1051  *              !0 - struct zfcp_adapter  data structure could not be removed
1052  *                      (e.g. still used)
1053  * locks:       adapter list write lock is assumed to be held by caller
1054  *              adapter->fsf_req_list_lock is taken and released within this
1055  *              function and must not be held on entry
1056  */
1057 void
1058 zfcp_adapter_dequeue(struct zfcp_adapter *adapter)
1059 {
1060         int retval = 0;
1061         unsigned long flags;
1062
1063         device_unregister(&adapter->generic_services);
1064         zfcp_sysfs_adapter_remove_files(&adapter->ccw_device->dev);
1065         dev_set_drvdata(&adapter->ccw_device->dev, NULL);
1066         /* sanity check: no pending FSF requests */
1067         spin_lock_irqsave(&adapter->fsf_req_list_lock, flags);
1068         retval = !list_empty(&adapter->fsf_req_list_head);
1069         spin_unlock_irqrestore(&adapter->fsf_req_list_lock, flags);
1070         if (retval) {
1071                 ZFCP_LOG_NORMAL("bug: adapter %s (%p) still in use, "
1072                                 "%i requests outstanding\n",
1073                                 zfcp_get_busid_by_adapter(adapter), adapter,
1074                                 atomic_read(&adapter->fsf_reqs_active));
1075                 retval = -EBUSY;
1076                 goto out;
1077         }
1078
1079         /* remove specified adapter data structure from list */
1080         write_lock_irq(&zfcp_data.config_lock);
1081         list_del(&adapter->list);
1082         write_unlock_irq(&zfcp_data.config_lock);
1083
1084         /* decrease number of adapters in list */
1085         zfcp_data.adapters--;
1086
1087         ZFCP_LOG_TRACE("adapter %s (%p) removed from list, "
1088                        "%i adapters still in list\n",
1089                        zfcp_get_busid_by_adapter(adapter),
1090                        adapter, zfcp_data.adapters);
1091
1092         retval = qdio_free(adapter->ccw_device);
1093         if (retval)
1094                 ZFCP_LOG_NORMAL("bug: qdio_free for adapter %s failed\n",
1095                                 zfcp_get_busid_by_adapter(adapter));
1096
1097         zfcp_free_low_mem_buffers(adapter);
1098         /* free memory of adapter data structure and queues */
1099         zfcp_qdio_free_queues(adapter);
1100         kfree(adapter->fc_stats);
1101         kfree(adapter->stats_reset_data);
1102         ZFCP_LOG_TRACE("freeing adapter structure\n");
1103         kfree(adapter);
1104  out:
1105         return;
1106 }
1107
1108 /**
1109  * zfcp_port_enqueue - enqueue port to port list of adapter
1110  * @adapter: adapter where remote port is added
1111  * @wwpn: WWPN of the remote port to be enqueued
1112  * @status: initial status for the port
1113  * @d_id: destination id of the remote port to be enqueued
1114  * Return: pointer to enqueued port on success, NULL on error
1115  * Locks: config_sema must be held to serialize changes to the port list
1116  *
1117  * All port internal structures are set up and the sysfs entry is generated.
1118  * d_id is used to enqueue ports with a well known address like the Directory
1119  * Service for nameserver lookup.
1120  */
1121 struct zfcp_port *
1122 zfcp_port_enqueue(struct zfcp_adapter *adapter, wwn_t wwpn, u32 status,
1123                   u32 d_id)
1124 {
1125         struct zfcp_port *port;
1126         int check_wwpn;
1127
1128         check_wwpn = !(status & ZFCP_STATUS_PORT_NO_WWPN);
1129         /*
1130          * check that there is no port with this WWPN already in list
1131          */
1132         if (check_wwpn) {
1133                 read_lock_irq(&zfcp_data.config_lock);
1134                 port = zfcp_get_port_by_wwpn(adapter, wwpn);
1135                 read_unlock_irq(&zfcp_data.config_lock);
1136                 if (port)
1137                         return NULL;
1138         }
1139
1140         port = kmalloc(sizeof (struct zfcp_port), GFP_KERNEL);
1141         if (!port)
1142                 return NULL;
1143         memset(port, 0, sizeof (struct zfcp_port));
1144
1145         /* initialise reference count stuff */
1146         atomic_set(&port->refcount, 0);
1147         init_waitqueue_head(&port->remove_wq);
1148
1149         INIT_LIST_HEAD(&port->unit_list_head);
1150         INIT_LIST_HEAD(&port->unit_remove_lh);
1151
1152         port->adapter = adapter;
1153
1154         if (check_wwpn)
1155                 port->wwpn = wwpn;
1156
1157         atomic_set_mask(status, &port->status);
1158
1159         /* setup for sysfs registration */
1160         if (status & ZFCP_STATUS_PORT_WKA) {
1161                 switch (d_id) {
1162                 case ZFCP_DID_DIRECTORY_SERVICE:
1163                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1164                                  "directory");
1165                         break;
1166                 case ZFCP_DID_MANAGEMENT_SERVICE:
1167                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1168                                  "management");
1169                         break;
1170                 case ZFCP_DID_KEY_DISTRIBUTION_SERVICE:
1171                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1172                                  "key_distribution");
1173                         break;
1174                 case ZFCP_DID_ALIAS_SERVICE:
1175                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1176                                  "alias");
1177                         break;
1178                 case ZFCP_DID_TIME_SERVICE:
1179                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1180                                  "time");
1181                         break;
1182                 default:
1183                         kfree(port);
1184                         return NULL;
1185                 }
1186                 port->d_id = d_id;
1187                 port->sysfs_device.parent = &adapter->generic_services;
1188         } else {
1189                 snprintf(port->sysfs_device.bus_id,
1190                          BUS_ID_SIZE, "0x%016llx", wwpn);
1191                 port->sysfs_device.parent = &adapter->ccw_device->dev;
1192         }
1193         port->sysfs_device.release = zfcp_sysfs_port_release;
1194         dev_set_drvdata(&port->sysfs_device, port);
1195
1196         /* mark port unusable as long as sysfs registration is not complete */
1197         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status);
1198
1199         if (device_register(&port->sysfs_device)) {
1200                 kfree(port);
1201                 return NULL;
1202         }
1203
1204         if (zfcp_sysfs_port_create_files(&port->sysfs_device, status)) {
1205                 device_unregister(&port->sysfs_device);
1206                 return NULL;
1207         }
1208
1209         zfcp_port_get(port);
1210
1211         write_lock_irq(&zfcp_data.config_lock);
1212         list_add_tail(&port->list, &adapter->port_list_head);
1213         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status);
1214         atomic_set_mask(ZFCP_STATUS_COMMON_RUNNING, &port->status);
1215         if (d_id == ZFCP_DID_DIRECTORY_SERVICE)
1216                 if (!adapter->nameserver_port)
1217                         adapter->nameserver_port = port;
1218         adapter->ports++;
1219         write_unlock_irq(&zfcp_data.config_lock);
1220
1221         zfcp_adapter_get(adapter);
1222
1223         return port;
1224 }
1225
1226 void
1227 zfcp_port_dequeue(struct zfcp_port *port)
1228 {
1229         zfcp_port_wait(port);
1230         write_lock_irq(&zfcp_data.config_lock);
1231         list_del(&port->list);
1232         port->adapter->ports--;
1233         write_unlock_irq(&zfcp_data.config_lock);
1234         if (port->rport)
1235                 fc_remote_port_delete(port->rport);
1236         port->rport = NULL;
1237         zfcp_adapter_put(port->adapter);
1238         zfcp_sysfs_port_remove_files(&port->sysfs_device,
1239                                      atomic_read(&port->status));
1240         device_unregister(&port->sysfs_device);
1241 }
1242
1243 /* Enqueues a nameserver port */
1244 int
1245 zfcp_nameserver_enqueue(struct zfcp_adapter *adapter)
1246 {
1247         struct zfcp_port *port;
1248
1249         port = zfcp_port_enqueue(adapter, 0, ZFCP_STATUS_PORT_WKA,
1250                                  ZFCP_DID_DIRECTORY_SERVICE);
1251         if (!port) {
1252                 ZFCP_LOG_INFO("error: enqueue of nameserver port for "
1253                               "adapter %s failed\n",
1254                               zfcp_get_busid_by_adapter(adapter));
1255                 return -ENXIO;
1256         }
1257         zfcp_port_put(port);
1258
1259         return 0;
1260 }
1261
1262 #undef ZFCP_LOG_AREA
1263
1264 /****************************************************************/
1265 /******* Fibre Channel Standard related Functions  **************/
1266 /****************************************************************/
1267
1268 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_FC
1269
1270 void
1271 zfcp_fsf_incoming_els_rscn(struct zfcp_adapter *adapter,
1272                            struct fsf_status_read_buffer *status_buffer)
1273 {
1274         struct fcp_rscn_head *fcp_rscn_head;
1275         struct fcp_rscn_element *fcp_rscn_element;
1276         struct zfcp_port *port;
1277         u16 i;
1278         u16 no_entries;
1279         u32 range_mask;
1280         unsigned long flags;
1281
1282         fcp_rscn_head = (struct fcp_rscn_head *) status_buffer->payload;
1283         fcp_rscn_element = (struct fcp_rscn_element *) status_buffer->payload;
1284
1285         /* see FC-FS */
1286         no_entries = (fcp_rscn_head->payload_len / 4);
1287
1288         for (i = 1; i < no_entries; i++) {
1289                 /* skip head and start with 1st element */
1290                 fcp_rscn_element++;
1291                 switch (fcp_rscn_element->addr_format) {
1292                 case ZFCP_PORT_ADDRESS:
1293                         range_mask = ZFCP_PORTS_RANGE_PORT;
1294                         break;
1295                 case ZFCP_AREA_ADDRESS:
1296                         range_mask = ZFCP_PORTS_RANGE_AREA;
1297                         break;
1298                 case ZFCP_DOMAIN_ADDRESS:
1299                         range_mask = ZFCP_PORTS_RANGE_DOMAIN;
1300                         break;
1301                 case ZFCP_FABRIC_ADDRESS:
1302                         range_mask = ZFCP_PORTS_RANGE_FABRIC;
1303                         break;
1304                 default:
1305                         ZFCP_LOG_INFO("incoming RSCN with unknown "
1306                                       "address format\n");
1307                         continue;
1308                 }
1309                 read_lock_irqsave(&zfcp_data.config_lock, flags);
1310                 list_for_each_entry(port, &adapter->port_list_head, list) {
1311                         if (atomic_test_mask
1312                             (ZFCP_STATUS_PORT_WKA, &port->status))
1313                                 continue;
1314                         /* Do we know this port? If not skip it. */
1315                         if (!atomic_test_mask
1316                             (ZFCP_STATUS_PORT_DID_DID, &port->status)) {
1317                                 ZFCP_LOG_INFO("incoming RSCN, trying to open "
1318                                               "port 0x%016Lx\n", port->wwpn);
1319                                 zfcp_erp_port_reopen(port,
1320                                                      ZFCP_STATUS_COMMON_ERP_FAILED);
1321                                 continue;
1322                         }
1323
1324                         /*
1325                          * FIXME: race: d_id might being invalidated
1326                          * (...DID_DID reset)
1327                          */
1328                         if ((port->d_id & range_mask)
1329                             == (fcp_rscn_element->nport_did & range_mask)) {
1330                                 ZFCP_LOG_TRACE("reopen did 0x%08x\n",
1331                                                fcp_rscn_element->nport_did);
1332                                 /*
1333                                  * Unfortunately, an RSCN does not specify the
1334                                  * type of change a target underwent. We assume
1335                                  * that it makes sense to reopen the link.
1336                                  * FIXME: Shall we try to find out more about
1337                                  * the target and link state before closing it?
1338                                  * How to accomplish this? (nameserver?)
1339                                  * Where would such code be put in?
1340                                  * (inside or outside erp)
1341                                  */
1342                                 ZFCP_LOG_INFO("incoming RSCN, trying to open "
1343                                               "port 0x%016Lx\n", port->wwpn);
1344                                 zfcp_test_link(port);
1345                         }
1346                 }
1347                 read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1348         }
1349 }
1350
1351 static void
1352 zfcp_fsf_incoming_els_plogi(struct zfcp_adapter *adapter,
1353                             struct fsf_status_read_buffer *status_buffer)
1354 {
1355         logi *els_logi = (logi *) status_buffer->payload;
1356         struct zfcp_port *port;
1357         unsigned long flags;
1358
1359         read_lock_irqsave(&zfcp_data.config_lock, flags);
1360         list_for_each_entry(port, &adapter->port_list_head, list) {
1361                 if (port->wwpn == (*(wwn_t *) & els_logi->nport_wwn))
1362                         break;
1363         }
1364         read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1365
1366         if (!port || (port->wwpn != (*(wwn_t *) & els_logi->nport_wwn))) {
1367                 ZFCP_LOG_DEBUG("ignored incoming PLOGI for nonexisting port "
1368                                "with d_id 0x%08x on adapter %s\n",
1369                                status_buffer->d_id,
1370                                zfcp_get_busid_by_adapter(adapter));
1371         } else {
1372                 zfcp_erp_port_forced_reopen(port, 0);
1373         }
1374 }
1375
1376 static void
1377 zfcp_fsf_incoming_els_logo(struct zfcp_adapter *adapter,
1378                            struct fsf_status_read_buffer *status_buffer)
1379 {
1380         struct fcp_logo *els_logo = (struct fcp_logo *) status_buffer->payload;
1381         struct zfcp_port *port;
1382         unsigned long flags;
1383
1384         read_lock_irqsave(&zfcp_data.config_lock, flags);
1385         list_for_each_entry(port, &adapter->port_list_head, list) {
1386                 if (port->wwpn == els_logo->nport_wwpn)
1387                         break;
1388         }
1389         read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1390
1391         if (!port || (port->wwpn != els_logo->nport_wwpn)) {
1392                 ZFCP_LOG_DEBUG("ignored incoming LOGO for nonexisting port "
1393                                "with d_id 0x%08x on adapter %s\n",
1394                                status_buffer->d_id,
1395                                zfcp_get_busid_by_adapter(adapter));
1396         } else {
1397                 zfcp_erp_port_forced_reopen(port, 0);
1398         }
1399 }
1400
1401 static void
1402 zfcp_fsf_incoming_els_unknown(struct zfcp_adapter *adapter,
1403                               struct fsf_status_read_buffer *status_buffer)
1404 {
1405         ZFCP_LOG_NORMAL("warning: unknown incoming ELS 0x%08x "
1406                         "for adapter %s\n", *(u32 *) (status_buffer->payload),
1407                         zfcp_get_busid_by_adapter(adapter));
1408
1409 }
1410
1411 void
1412 zfcp_fsf_incoming_els(struct zfcp_fsf_req *fsf_req)
1413 {
1414         struct fsf_status_read_buffer *status_buffer;
1415         u32 els_type;
1416         struct zfcp_adapter *adapter;
1417
1418         status_buffer = (struct fsf_status_read_buffer *) fsf_req->data;
1419         els_type = *(u32 *) (status_buffer->payload);
1420         adapter = fsf_req->adapter;
1421
1422         zfcp_san_dbf_event_incoming_els(fsf_req);
1423         if (els_type == LS_PLOGI)
1424                 zfcp_fsf_incoming_els_plogi(adapter, status_buffer);
1425         else if (els_type == LS_LOGO)
1426                 zfcp_fsf_incoming_els_logo(adapter, status_buffer);
1427         else if ((els_type & 0xffff0000) == LS_RSCN)
1428                 /* we are only concerned with the command, not the length */
1429                 zfcp_fsf_incoming_els_rscn(adapter, status_buffer);
1430         else
1431                 zfcp_fsf_incoming_els_unknown(adapter, status_buffer);
1432 }
1433
1434
1435 /**
1436  * zfcp_gid_pn_buffers_alloc - allocate buffers for GID_PN nameserver request
1437  * @gid_pn: pointer to return pointer to struct zfcp_gid_pn_data
1438  * @pool: pointer to mempool_t if non-null memory pool is used for allocation
1439  */
1440 static int
1441 zfcp_gid_pn_buffers_alloc(struct zfcp_gid_pn_data **gid_pn, mempool_t *pool)
1442 {
1443         struct zfcp_gid_pn_data *data;
1444
1445         if (pool != NULL) {
1446                 data = mempool_alloc(pool, GFP_ATOMIC);
1447                 if (likely(data != NULL)) {
1448                         data->ct.pool = pool;
1449                 }
1450         } else {
1451                 data = kmalloc(sizeof(struct zfcp_gid_pn_data), GFP_ATOMIC);
1452         }
1453
1454         if (NULL == data)
1455                 return -ENOMEM;
1456
1457         memset(data, 0, sizeof(*data));
1458         data->ct.req = &data->req;
1459         data->ct.resp = &data->resp;
1460         data->ct.req_count = data->ct.resp_count = 1;
1461         zfcp_address_to_sg(&data->ct_iu_req, &data->req);
1462         zfcp_address_to_sg(&data->ct_iu_resp, &data->resp);
1463         data->req.length = sizeof(struct ct_iu_gid_pn_req);
1464         data->resp.length = sizeof(struct ct_iu_gid_pn_resp);
1465
1466         *gid_pn = data;
1467         return 0;
1468 }
1469
1470 /**
1471  * zfcp_gid_pn_buffers_free - free buffers for GID_PN nameserver request
1472  * @gid_pn: pointer to struct zfcp_gid_pn_data which has to be freed
1473  */
1474 static void
1475 zfcp_gid_pn_buffers_free(struct zfcp_gid_pn_data *gid_pn)
1476 {
1477         if ((gid_pn->ct.pool != 0))
1478                 mempool_free(gid_pn, gid_pn->ct.pool);
1479         else
1480                 kfree(gid_pn);
1481
1482         return;
1483 }
1484
1485 /**
1486  * zfcp_ns_gid_pn_request - initiate GID_PN nameserver request
1487  * @erp_action: pointer to zfcp_erp_action where GID_PN request is needed
1488  */
1489 int
1490 zfcp_ns_gid_pn_request(struct zfcp_erp_action *erp_action)
1491 {
1492         int ret;
1493         struct ct_iu_gid_pn_req *ct_iu_req;
1494         struct zfcp_gid_pn_data *gid_pn;
1495         struct zfcp_adapter *adapter = erp_action->adapter;
1496
1497         ret = zfcp_gid_pn_buffers_alloc(&gid_pn, adapter->pool.data_gid_pn);
1498         if (ret < 0) {
1499                 ZFCP_LOG_INFO("error: buffer allocation for gid_pn nameserver "
1500                               "request failed for adapter %s\n",
1501                               zfcp_get_busid_by_adapter(adapter));
1502                 goto out;
1503         }
1504
1505         /* setup nameserver request */
1506         ct_iu_req = zfcp_sg_to_address(gid_pn->ct.req);
1507         ct_iu_req->header.revision = ZFCP_CT_REVISION;
1508         ct_iu_req->header.gs_type = ZFCP_CT_DIRECTORY_SERVICE;
1509         ct_iu_req->header.gs_subtype = ZFCP_CT_NAME_SERVER;
1510         ct_iu_req->header.options = ZFCP_CT_SYNCHRONOUS;
1511         ct_iu_req->header.cmd_rsp_code = ZFCP_CT_GID_PN;
1512         ct_iu_req->header.max_res_size = ZFCP_CT_MAX_SIZE;
1513         ct_iu_req->wwpn = erp_action->port->wwpn;
1514
1515         /* setup parameters for send generic command */
1516         gid_pn->ct.port = adapter->nameserver_port;
1517         gid_pn->ct.handler = zfcp_ns_gid_pn_handler;
1518         gid_pn->ct.handler_data = (unsigned long) gid_pn;
1519         gid_pn->ct.timeout = ZFCP_NS_GID_PN_TIMEOUT;
1520         gid_pn->ct.timer = &erp_action->timer;
1521         gid_pn->port = erp_action->port;
1522
1523         ret = zfcp_fsf_send_ct(&gid_pn->ct, adapter->pool.fsf_req_erp,
1524                                erp_action);
1525         if (ret) {
1526                 ZFCP_LOG_INFO("error: initiation of gid_pn nameserver request "
1527                               "failed for adapter %s\n",
1528                               zfcp_get_busid_by_adapter(adapter));
1529
1530                 zfcp_gid_pn_buffers_free(gid_pn);
1531         }
1532
1533  out:
1534         return ret;
1535 }
1536
1537 /**
1538  * zfcp_ns_gid_pn_handler - handler for GID_PN nameserver request
1539  * @data: unsigned long, contains pointer to struct zfcp_gid_pn_data
1540  */
1541 static void zfcp_ns_gid_pn_handler(unsigned long data)
1542 {
1543         struct zfcp_port *port;
1544         struct zfcp_send_ct *ct;
1545         struct ct_iu_gid_pn_req *ct_iu_req;
1546         struct ct_iu_gid_pn_resp *ct_iu_resp;
1547         struct zfcp_gid_pn_data *gid_pn;
1548
1549
1550         gid_pn = (struct zfcp_gid_pn_data *) data;
1551         port = gid_pn->port;
1552         ct = &gid_pn->ct;
1553         ct_iu_req = zfcp_sg_to_address(ct->req);
1554         ct_iu_resp = zfcp_sg_to_address(ct->resp);
1555
1556         if (ct->status != 0)
1557                 goto failed;
1558
1559         if (zfcp_check_ct_response(&ct_iu_resp->header)) {
1560                 /* FIXME: do we need some specific erp entry points */
1561                 atomic_set_mask(ZFCP_STATUS_PORT_INVALID_WWPN, &port->status);
1562                 goto failed;
1563         }
1564         /* paranoia */
1565         if (ct_iu_req->wwpn != port->wwpn) {
1566                 ZFCP_LOG_NORMAL("bug: wwpn 0x%016Lx returned by nameserver "
1567                                 "lookup does not match expected wwpn 0x%016Lx "
1568                                 "for adapter %s\n", ct_iu_req->wwpn, port->wwpn,
1569                                 zfcp_get_busid_by_port(port));
1570                 goto mismatch;
1571         }
1572
1573         /* looks like a valid d_id */
1574         port->d_id = ct_iu_resp->d_id & ZFCP_DID_MASK;
1575         atomic_set_mask(ZFCP_STATUS_PORT_DID_DID, &port->status);
1576         ZFCP_LOG_DEBUG("adapter %s:  wwpn=0x%016Lx ---> d_id=0x%08x\n",
1577                        zfcp_get_busid_by_port(port), port->wwpn, port->d_id);
1578         goto out;
1579
1580  mismatch:
1581         ZFCP_LOG_DEBUG("CT IUs do not match:\n");
1582         ZFCP_HEX_DUMP(ZFCP_LOG_LEVEL_DEBUG, (char *) ct_iu_req,
1583                       sizeof(struct ct_iu_gid_pn_req));
1584         ZFCP_HEX_DUMP(ZFCP_LOG_LEVEL_DEBUG, (char *) ct_iu_resp,
1585                       sizeof(struct ct_iu_gid_pn_resp));
1586
1587  failed:
1588         ZFCP_LOG_NORMAL("warning: failed gid_pn nameserver request for wwpn "
1589                         "0x%016Lx for adapter %s\n",
1590                         port->wwpn, zfcp_get_busid_by_port(port));
1591  out:
1592         zfcp_gid_pn_buffers_free(gid_pn);
1593         return;
1594 }
1595
1596 /* reject CT_IU reason codes acc. to FC-GS-4 */
1597 static const struct zfcp_rc_entry zfcp_ct_rc[] = {
1598         {0x01, "invalid command code"},
1599         {0x02, "invalid version level"},
1600         {0x03, "logical error"},
1601         {0x04, "invalid CT_IU size"},
1602         {0x05, "logical busy"},
1603         {0x07, "protocol error"},
1604         {0x09, "unable to perform command request"},
1605         {0x0b, "command not supported"},
1606         {0x0d, "server not available"},
1607         {0x0e, "session could not be established"},
1608         {0xff, "vendor specific error"},
1609         {0, NULL},
1610 };
1611
1612 /* LS_RJT reason codes acc. to FC-FS */
1613 static const struct zfcp_rc_entry zfcp_ls_rjt_rc[] = {
1614         {0x01, "invalid LS_Command code"},
1615         {0x03, "logical error"},
1616         {0x05, "logical busy"},
1617         {0x07, "protocol error"},
1618         {0x09, "unable to perform command request"},
1619         {0x0b, "command not supported"},
1620         {0x0e, "command already in progress"},
1621         {0xff, "vendor specific error"},
1622         {0, NULL},
1623 };
1624
1625 /* reject reason codes according to FC-PH/FC-FS */
1626 static const struct zfcp_rc_entry zfcp_p_rjt_rc[] = {
1627         {0x01, "invalid D_ID"},
1628         {0x02, "invalid S_ID"},
1629         {0x03, "Nx_Port not available, temporary"},
1630         {0x04, "Nx_Port not available, permament"},
1631         {0x05, "class not supported"},
1632         {0x06, "delimiter usage error"},
1633         {0x07, "TYPE not supported"},
1634         {0x08, "invalid Link_Control"},
1635         {0x09, "invalid R_CTL field"},
1636         {0x0a, "invalid F_CTL field"},
1637         {0x0b, "invalid OX_ID"},
1638         {0x0c, "invalid RX_ID"},
1639         {0x0d, "invalid SEQ_ID"},
1640         {0x0e, "invalid DF_CTL"},
1641         {0x0f, "invalid SEQ_CNT"},
1642         {0x10, "invalid parameter field"},
1643         {0x11, "exchange error"},
1644         {0x12, "protocol error"},
1645         {0x13, "incorrect length"},
1646         {0x14, "unsupported ACK"},
1647         {0x15, "class of service not supported by entity at FFFFFE"},
1648         {0x16, "login required"},
1649         {0x17, "excessive sequences attempted"},
1650         {0x18, "unable to establish exchange"},
1651         {0x1a, "fabric path not available"},
1652         {0x1b, "invalid VC_ID (class 4)"},
1653         {0x1c, "invalid CS_CTL field"},
1654         {0x1d, "insufficient resources for VC (class 4)"},
1655         {0x1f, "invalid class of service"},
1656         {0x20, "preemption request rejected"},
1657         {0x21, "preemption not enabled"},
1658         {0x22, "multicast error"},
1659         {0x23, "multicast error terminate"},
1660         {0x24, "process login required"},
1661         {0xff, "vendor specific reject"},
1662         {0, NULL},
1663 };
1664
1665 /**
1666  * zfcp_rc_description - return description for given reaon code
1667  * @code: reason code
1668  * @rc_table: table of reason codes and descriptions
1669  */
1670 static inline const char *
1671 zfcp_rc_description(u8 code, const struct zfcp_rc_entry *rc_table)
1672 {
1673         const char *descr = "unknown reason code";
1674
1675         do {
1676                 if (code == rc_table->code) {
1677                         descr = rc_table->description;
1678                         break;
1679                 }
1680                 rc_table++;
1681         } while (rc_table->code && rc_table->description);
1682
1683         return descr;
1684 }
1685
1686 /**
1687  * zfcp_check_ct_response - evaluate reason code for CT_IU
1688  * @rjt: response payload to an CT_IU request
1689  * Return: 0 for accept CT_IU, 1 for reject CT_IU or invlid response code
1690  */
1691 int
1692 zfcp_check_ct_response(struct ct_hdr *rjt)
1693 {
1694         if (rjt->cmd_rsp_code == ZFCP_CT_ACCEPT)
1695                 return 0;
1696
1697         if (rjt->cmd_rsp_code != ZFCP_CT_REJECT) {
1698                 ZFCP_LOG_NORMAL("error: invalid Generic Service command/"
1699                                 "response code (0x%04hx)\n",
1700                                 rjt->cmd_rsp_code);
1701                 return 1;
1702         }
1703
1704         ZFCP_LOG_INFO("Generic Service command rejected\n");
1705         ZFCP_LOG_INFO("%s (0x%02x, 0x%02x, 0x%02x)\n",
1706                       zfcp_rc_description(rjt->reason_code, zfcp_ct_rc),
1707                       (u32) rjt->reason_code, (u32) rjt->reason_code_expl,
1708                       (u32) rjt->vendor_unique);
1709
1710         return 1;
1711 }
1712
1713 /**
1714  * zfcp_print_els_rjt - print reject parameter and description for ELS reject
1715  * @rjt_par: reject parameter acc. to FC-PH/FC-FS
1716  * @rc_table: table of reason codes and descriptions
1717  */
1718 static inline void
1719 zfcp_print_els_rjt(struct zfcp_ls_rjt_par *rjt_par,
1720                    const struct zfcp_rc_entry *rc_table)
1721 {
1722         ZFCP_LOG_INFO("%s (%02x %02x %02x %02x)\n",
1723                       zfcp_rc_description(rjt_par->reason_code, rc_table),
1724                       (u32) rjt_par->action, (u32) rjt_par->reason_code,
1725                       (u32) rjt_par->reason_expl, (u32) rjt_par->vendor_unique);
1726 }
1727
1728 /**
1729  * zfcp_fsf_handle_els_rjt - evaluate status qualifier/reason code on ELS reject
1730  * @sq: status qualifier word
1731  * @rjt_par: reject parameter as described in FC-PH and FC-FS
1732  * Return: -EROMTEIO for LS_RJT, -EREMCHG for invalid D_ID, -EIO else
1733  */
1734 int
1735 zfcp_handle_els_rjt(u32 sq, struct zfcp_ls_rjt_par *rjt_par)
1736 {
1737         int ret = -EIO;
1738
1739         if (sq == FSF_IOSTAT_NPORT_RJT) {
1740                 ZFCP_LOG_INFO("ELS rejected (P_RJT)\n");
1741                 zfcp_print_els_rjt(rjt_par, zfcp_p_rjt_rc);
1742                 /* invalid d_id */
1743                 if (rjt_par->reason_code == 0x01)
1744                         ret = -EREMCHG;
1745         } else if (sq == FSF_IOSTAT_FABRIC_RJT) {
1746                 ZFCP_LOG_INFO("ELS rejected (F_RJT)\n");
1747                 zfcp_print_els_rjt(rjt_par, zfcp_p_rjt_rc);
1748                 /* invalid d_id */
1749                 if (rjt_par->reason_code == 0x01)
1750                         ret = -EREMCHG;
1751         } else if (sq == FSF_IOSTAT_LS_RJT) {
1752                 ZFCP_LOG_INFO("ELS rejected (LS_RJT)\n");
1753                 zfcp_print_els_rjt(rjt_par, zfcp_ls_rjt_rc);
1754                 ret = -EREMOTEIO;
1755         } else
1756                 ZFCP_LOG_INFO("unexpected SQ: 0x%02x\n", sq);
1757
1758         return ret;
1759 }
1760
1761 #undef ZFCP_LOG_AREA