Implement XRC target QPs (xrc rcv qps) for userspace.
The basic verbs are: create/modify/query/destroy.

In addition, added two additional verbs -- register and unregister.

The motivation for register/unregister comes from MPI.
MPI requires XRC receive QPs which are not destroyed when the creating
process terminates (but persist so that other processes may still use
them as XRC targets).

Solution:  Userspace requests that a QP be created in kernel space.
Each userspace process using that QP (i.e. receiving packets on an XRC SRQ
via the qp), registers with that QP. When the last userspace process 
unregisters with
the QP, it is destroyed.  Unregistration is also part of userspace process
cleanup, so there is no leakage.

This patch implements the kernel procedures to implement the following
(new) libibverbs API:
ibv_create_xrc_rcv_qp
ibv_modify_xrc_rcv_qp
ibv_query_xrc_rcv_qp
ibv_destroy_xrc_rcv_qp

ibv_reg_xrc_rcv_qp
ibv_unreg_xrc_rcv_qp

Note that users who wish to make use of the reg/unreg capability should
never call the destroy verb -- the XRC RCV qp is automatically destroyed
when all registered processes have unregistered (or terminated).
In this case, the process which called "create" may also unregister (or do
nothing, and when it terminates, its reference to that QP is removed).

Thus, usage is:
Either: create/modify/query/destroy_xrc_rcv_qp
Or: create/modify/query/reg/unreg_xrc_rcv_qp

V3: renamed ib_xrc_rcv_table_cleanup to ib_xrc_rcv_qp_table_cleanup for 
consistency.

>From 6571bf63dbbbca0e95faabd81a9e57f908d7df17 Mon Sep 17 00:00:00 2001
From: Jack Morgenstein <[email protected]>
Date: Mon, 10 May 2010 20:23:24 +0300
Subject: [PATCH 4/4] ib_uverbs: XRC RCV qp implementation.

Signed-off-by: Jack Morgenstein <[email protected]>
---
 drivers/infiniband/core/uverbs.h      |    8 +
 drivers/infiniband/core/uverbs_cmd.c  |  304 +++++++++++++++++++++++++++++++++
 drivers/infiniband/core/uverbs_main.c |   15 ++
 drivers/infiniband/hw/mlx4/main.c     |    4 +-
 include/rdma/ib_user_verbs.h          |   87 +++++++++-
 5 files changed, 416 insertions(+), 2 deletions(-)

Index: infiniband/drivers/infiniband/core/uverbs.h
===================================================================
--- infiniband.orig/drivers/infiniband/core/uverbs.h
+++ infiniband/drivers/infiniband/core/uverbs.h
@@ -175,6 +175,8 @@ void ib_uverbs_qp_event_handler(struct i
 void ib_uverbs_srq_event_handler(struct ib_event *event, void *context_ptr);
 void ib_uverbs_event_handler(struct ib_event_handler *handler,
                             struct ib_event *event);
+void ib_uverbs_xrc_rcv_qp_event_handler(struct ib_event *event,
+                                       void *context_ptr);
 void ib_uverbs_dealloc_xrcd(struct ib_uverbs_device *dev,
                            struct ib_xrcd *xrcd);
 
@@ -214,5 +216,11 @@ IB_UVERBS_DECLARE_CMD(destroy_srq);
 IB_UVERBS_DECLARE_CMD(create_xrc_srq);
 IB_UVERBS_DECLARE_CMD(open_xrcd);
 IB_UVERBS_DECLARE_CMD(close_xrcd);
+IB_UVERBS_DECLARE_CMD(create_xrc_rcv_qp);
+IB_UVERBS_DECLARE_CMD(modify_xrc_rcv_qp);
+IB_UVERBS_DECLARE_CMD(query_xrc_rcv_qp);
+IB_UVERBS_DECLARE_CMD(destroy_xrc_rcv_qp);
+IB_UVERBS_DECLARE_CMD(reg_xrc_rcv_qp);
+IB_UVERBS_DECLARE_CMD(unreg_xrc_rcv_qp);
 
 #endif /* UVERBS_H */
Index: infiniband/drivers/infiniband/core/uverbs_cmd.c
===================================================================
--- infiniband.orig/drivers/infiniband/core/uverbs_cmd.c
+++ infiniband/drivers/infiniband/core/uverbs_cmd.c
@@ -2661,3 +2661,311 @@ void ib_uverbs_dealloc_xrcd(struct ib_uv
        if (inode)
                xrcd_table_delete(dev, inode);
 }
+
+ssize_t ib_uverbs_create_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                   const char __user *buf, int in_len,
+                                   int out_len)
+{
+       struct ib_uverbs_create_xrc_rcv_qp      cmd;
+       struct ib_uverbs_create_xrc_rcv_qp_resp resp;
+       struct ib_qp_init_attr          init_attr = {0};
+       struct ib_xrcd                 *xrcd;
+       struct ib_uobject              *xrcd_uobj;
+       u32                             qp_num;
+       int                             err;
+
+       if (out_len < sizeof resp)
+               return -ENOSPC;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       xrcd = idr_read_xrcd(cmd.xrcd_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd)
+               return -EINVAL;
+
+       init_attr.event_handler = ib_uverbs_xrc_rcv_qp_event_handler;
+       init_attr.qp_context    = file;
+       init_attr.xrcd  = xrcd;
+
+       err = ib_create_xrc_rcv_qp(xrcd, &init_attr, &qp_num);
+       if (err)
+               goto err_put;
+
+       memset(&resp, 0, sizeof resp);
+       resp.qpn = qp_num;
+
+       if (copy_to_user((void __user *) (unsigned long) cmd.response,
+                        &resp, sizeof resp)) {
+               err = -EFAULT;
+               goto err_destroy;
+       }
+
+       put_uobj_read(xrcd_uobj);
+
+       return in_len;
+
+err_destroy:
+       ib_destroy_xrc_rcv_qp(xrcd, qp_num);
+err_put:
+       put_uobj_read(xrcd_uobj);
+       return err;
+}
+
+ssize_t ib_uverbs_modify_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                   const char __user *buf, int in_len,
+                                   int out_len)
+{
+       struct ib_uverbs_modify_xrc_rcv_qp      cmd;
+       struct ib_qp_attr              *attr;
+       struct ib_xrcd                 *xrcd;
+       struct ib_uobject              *xrcd_uobj;
+       int                             err;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       attr = kzalloc(sizeof *attr, GFP_KERNEL);
+       if (!attr)
+               return -ENOMEM;
+
+       xrcd = idr_read_xrcd(cmd.xrc_domain_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd) {
+               kfree(attr);
+               return -EINVAL;
+       }
+
+       attr->qp_state            = cmd.qp_state;
+       attr->cur_qp_state        = cmd.cur_qp_state;
+       attr->qp_access_flags     = cmd.qp_access_flags;
+       attr->pkey_index          = cmd.pkey_index;
+       attr->port_num            = cmd.port_num;
+       attr->path_mtu            = cmd.path_mtu;
+       attr->path_mig_state      = cmd.path_mig_state;
+       attr->qkey                = cmd.qkey;
+       attr->rq_psn              = cmd.rq_psn;
+       attr->sq_psn              = cmd.sq_psn;
+       attr->dest_qp_num         = cmd.dest_qp_num;
+       attr->alt_pkey_index      = cmd.alt_pkey_index;
+       attr->en_sqd_async_notify = cmd.en_sqd_async_notify;
+       attr->max_rd_atomic       = cmd.max_rd_atomic;
+       attr->max_dest_rd_atomic  = cmd.max_dest_rd_atomic;
+       attr->min_rnr_timer       = cmd.min_rnr_timer;
+       attr->port_num            = cmd.port_num;
+       attr->timeout             = cmd.timeout;
+       attr->retry_cnt           = cmd.retry_cnt;
+       attr->rnr_retry           = cmd.rnr_retry;
+       attr->alt_port_num        = cmd.alt_port_num;
+       attr->alt_timeout         = cmd.alt_timeout;
+
+       memcpy(attr->ah_attr.grh.dgid.raw, cmd.dest.dgid, 16);
+       attr->ah_attr.grh.flow_label        = cmd.dest.flow_label;
+       attr->ah_attr.grh.sgid_index        = cmd.dest.sgid_index;
+       attr->ah_attr.grh.hop_limit         = cmd.dest.hop_limit;
+       attr->ah_attr.grh.traffic_class     = cmd.dest.traffic_class;
+       attr->ah_attr.dlid                  = cmd.dest.dlid;
+       attr->ah_attr.sl                    = cmd.dest.sl;
+       attr->ah_attr.src_path_bits         = cmd.dest.src_path_bits;
+       attr->ah_attr.static_rate           = cmd.dest.static_rate;
+       attr->ah_attr.ah_flags              = cmd.dest.is_global ? IB_AH_GRH : 
0;
+       attr->ah_attr.port_num              = cmd.dest.port_num;
+
+       memcpy(attr->alt_ah_attr.grh.dgid.raw, cmd.alt_dest.dgid, 16);
+       attr->alt_ah_attr.grh.flow_label    = cmd.alt_dest.flow_label;
+       attr->alt_ah_attr.grh.sgid_index    = cmd.alt_dest.sgid_index;
+       attr->alt_ah_attr.grh.hop_limit     = cmd.alt_dest.hop_limit;
+       attr->alt_ah_attr.grh.traffic_class = cmd.alt_dest.traffic_class;
+       attr->alt_ah_attr.dlid              = cmd.alt_dest.dlid;
+       attr->alt_ah_attr.sl                = cmd.alt_dest.sl;
+       attr->alt_ah_attr.src_path_bits     = cmd.alt_dest.src_path_bits;
+       attr->alt_ah_attr.static_rate       = cmd.alt_dest.static_rate;
+       attr->alt_ah_attr.ah_flags          = cmd.alt_dest.is_global ? 
IB_AH_GRH : 0;
+       attr->alt_ah_attr.port_num          = cmd.alt_dest.port_num;
+
+       err = xrcd->device->modify_xrc_rcv_qp(xrcd, cmd.qp_num, attr, 
cmd.attr_mask);
+       put_uobj_read(xrcd_uobj);
+       kfree(attr);
+       return err ? err : in_len;
+}
+
+ssize_t ib_uverbs_query_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                  const char __user *buf, int in_len,
+                                  int out_len)
+{
+       struct ib_uverbs_query_xrc_rcv_qp cmd;
+       struct ib_uverbs_query_qp_resp   resp;
+       struct ib_qp_attr               *attr;
+       struct ib_qp_init_attr          *init_attr;
+       struct ib_xrcd                  *xrcd;
+       struct ib_uobject               *xrcd_uobj;
+       int                              ret;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       attr      = kmalloc(sizeof *attr, GFP_KERNEL);
+       init_attr = kmalloc(sizeof *init_attr, GFP_KERNEL);
+       if (!attr || !init_attr) {
+               ret = -ENOMEM;
+               goto out;
+       }
+
+       xrcd = idr_read_xrcd(cmd.xrc_domain_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd) {
+               ret = -EINVAL;
+               goto out;
+       }
+
+       ret = xrcd->device->query_xrc_rcv_qp(xrcd, cmd.qp_num, attr,
+                                            cmd.attr_mask, init_attr);
+
+       put_uobj_read(xrcd_uobj);
+
+       if (ret)
+               goto out;
+
+       memset(&resp, 0, sizeof resp);
+       resp.qp_state               = attr->qp_state;
+       resp.cur_qp_state           = attr->cur_qp_state;
+       resp.path_mtu               = attr->path_mtu;
+       resp.path_mig_state         = attr->path_mig_state;
+       resp.qkey                   = attr->qkey;
+       resp.rq_psn                 = attr->rq_psn;
+       resp.sq_psn                 = attr->sq_psn;
+       resp.dest_qp_num            = attr->dest_qp_num;
+       resp.qp_access_flags        = attr->qp_access_flags;
+       resp.pkey_index             = attr->pkey_index;
+       resp.alt_pkey_index         = attr->alt_pkey_index;
+       resp.sq_draining            = attr->sq_draining;
+       resp.max_rd_atomic          = attr->max_rd_atomic;
+       resp.max_dest_rd_atomic     = attr->max_dest_rd_atomic;
+       resp.min_rnr_timer          = attr->min_rnr_timer;
+       resp.port_num               = attr->port_num;
+       resp.timeout                = attr->timeout;
+       resp.retry_cnt              = attr->retry_cnt;
+       resp.rnr_retry              = attr->rnr_retry;
+       resp.alt_port_num           = attr->alt_port_num;
+       resp.alt_timeout            = attr->alt_timeout;
+
+       memcpy(resp.dest.dgid, attr->ah_attr.grh.dgid.raw, 16);
+       resp.dest.flow_label        = attr->ah_attr.grh.flow_label;
+       resp.dest.sgid_index        = attr->ah_attr.grh.sgid_index;
+       resp.dest.hop_limit         = attr->ah_attr.grh.hop_limit;
+       resp.dest.traffic_class     = attr->ah_attr.grh.traffic_class;
+       resp.dest.dlid              = attr->ah_attr.dlid;
+       resp.dest.sl                = attr->ah_attr.sl;
+       resp.dest.src_path_bits     = attr->ah_attr.src_path_bits;
+       resp.dest.static_rate       = attr->ah_attr.static_rate;
+       resp.dest.is_global         = !!(attr->ah_attr.ah_flags & IB_AH_GRH);
+       resp.dest.port_num          = attr->ah_attr.port_num;
+
+       memcpy(resp.alt_dest.dgid, attr->alt_ah_attr.grh.dgid.raw, 16);
+       resp.alt_dest.flow_label    = attr->alt_ah_attr.grh.flow_label;
+       resp.alt_dest.sgid_index    = attr->alt_ah_attr.grh.sgid_index;
+       resp.alt_dest.hop_limit     = attr->alt_ah_attr.grh.hop_limit;
+       resp.alt_dest.traffic_class = attr->alt_ah_attr.grh.traffic_class;
+       resp.alt_dest.dlid          = attr->alt_ah_attr.dlid;
+       resp.alt_dest.sl            = attr->alt_ah_attr.sl;
+       resp.alt_dest.src_path_bits = attr->alt_ah_attr.src_path_bits;
+       resp.alt_dest.static_rate   = attr->alt_ah_attr.static_rate;
+       resp.alt_dest.is_global     = !!(attr->alt_ah_attr.ah_flags & 
IB_AH_GRH);
+       resp.alt_dest.port_num      = attr->alt_ah_attr.port_num;
+
+       resp.max_send_wr            = init_attr->cap.max_send_wr;
+       resp.max_recv_wr            = init_attr->cap.max_recv_wr;
+       resp.max_send_sge           = init_attr->cap.max_send_sge;
+       resp.max_recv_sge           = init_attr->cap.max_recv_sge;
+       resp.max_inline_data        = init_attr->cap.max_inline_data;
+       resp.sq_sig_all             = init_attr->sq_sig_type == 
IB_SIGNAL_ALL_WR;
+
+       if (copy_to_user((void __user *) (unsigned long) cmd.response,
+                        &resp, sizeof resp))
+               ret = -EFAULT;
+
+out:
+       kfree(attr);
+       kfree(init_attr);
+
+       return ret ? ret : in_len;
+}
+
+ssize_t ib_uverbs_reg_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                const char __user *buf, int in_len,
+                                int out_len)
+{
+       struct ib_uverbs_reg_xrc_rcv_qp  cmd;
+       struct ib_xrcd                  *xrcd;
+       struct ib_uobject               *xrcd_uobj;
+       int                              ret;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       xrcd = idr_read_xrcd(cmd.xrc_domain_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd)
+               return -EINVAL;
+
+       ret = ib_reg_xrc_rcv_qp(xrcd, file, cmd.qp_num);
+       if (ret)
+               goto err_put;
+
+       put_uobj_read(xrcd_uobj);
+       return in_len;
+
+err_put:
+       put_uobj_read(xrcd_uobj);
+       return ret;
+}
+
+ssize_t ib_uverbs_unreg_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                  const char __user *buf, int in_len,
+                                  int out_len)
+{
+       struct ib_uverbs_unreg_xrc_rcv_qp cmd;
+       struct ib_xrcd *xrcd;
+       struct ib_uobject *xrcd_uobj;
+       int ret;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       xrcd = idr_read_xrcd(cmd.xrc_domain_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd)
+               return -EINVAL;
+
+       ret = ib_unreg_xrc_rcv_qp(xrcd, file, cmd.qp_num);
+       if (ret) {
+               put_uobj_read(xrcd_uobj);
+               return -EINVAL;
+       }
+
+       put_uobj_read(xrcd_uobj);
+       return in_len;
+}
+
+ssize_t ib_uverbs_destroy_xrc_rcv_qp(struct ib_uverbs_file *file,
+                                    const char __user *buf, int in_len,
+                                    int out_len)
+{
+       struct ib_uverbs_unreg_xrc_rcv_qp cmd;
+       struct ib_xrcd *xrcd;
+       struct ib_uobject *xrcd_uobj;
+       int ret;
+
+       if (copy_from_user(&cmd, buf, sizeof cmd))
+               return -EFAULT;
+
+       xrcd = idr_read_xrcd(cmd.xrc_domain_handle, file->ucontext, &xrcd_uobj);
+       if (!xrcd)
+               return -EINVAL;
+
+       ret = ib_destroy_xrc_rcv_qp(xrcd, cmd.qp_num);
+       if (ret) {
+               put_uobj_read(xrcd_uobj);
+               return -EINVAL;
+       }
+
+       put_uobj_read(xrcd_uobj);
+       return in_len;
+}
+
Index: infiniband/drivers/infiniband/core/uverbs_main.c
===================================================================
--- infiniband.orig/drivers/infiniband/core/uverbs_main.c
+++ infiniband/drivers/infiniband/core/uverbs_main.c
@@ -111,6 +111,12 @@ static ssize_t (*uverbs_cmd_table[])(str
        [IB_USER_VERBS_CMD_CREATE_XRC_SRQ]      = ib_uverbs_create_xrc_srq,
        [IB_USER_VERBS_CMD_OPEN_XRCD]           = ib_uverbs_open_xrcd,
        [IB_USER_VERBS_CMD_CLOSE_XRCD]          = ib_uverbs_close_xrcd,
+       [IB_USER_VERBS_CMD_CREATE_XRC_RCV_QP]   = ib_uverbs_create_xrc_rcv_qp,
+       [IB_USER_VERBS_CMD_MODIFY_XRC_RCV_QP]   = ib_uverbs_modify_xrc_rcv_qp,
+       [IB_USER_VERBS_CMD_QUERY_XRC_RCV_QP]    = ib_uverbs_query_xrc_rcv_qp,
+       [IB_USER_VERBS_CMD_DESTROY_XRC_RCV_QP]  = ib_uverbs_destroy_xrc_rcv_qp,
+       [IB_USER_VERBS_CMD_REG_XRC_RCV_QP]      = ib_uverbs_reg_xrc_rcv_qp,
+       [IB_USER_VERBS_CMD_UNREG_XRC_RCV_QP]    = ib_uverbs_unreg_xrc_rcv_qp,
 };
 
 static void ib_uverbs_add_one(struct ib_device *device);
@@ -246,6 +252,8 @@ static int ib_uverbs_cleanup_ucontext(st
                kfree(uobj);
        }
 
+       ib_xrc_rcv_qp_table_cleanup(context->device, file);
+
        mutex_lock(&file->device->xrcd_tree_mutex);
        list_for_each_entry_safe(uobj, tmp, &context->xrcd_list, list) {
                struct ib_xrcd *xrcd = uobj->object;
@@ -479,6 +487,13 @@ void ib_uverbs_qp_event_handler(struct i
                                &uobj->events_reported);
 }
 
+void ib_uverbs_xrc_rcv_qp_event_handler(struct ib_event *event,
+                                       void *context_ptr)
+{
+       ib_uverbs_async_handler(context_ptr, event->element.xrc_qp_num,
+                               event->event, NULL, NULL);
+}
+
 void ib_uverbs_srq_event_handler(struct ib_event *event, void *context_ptr)
 {
        struct ib_uevent_object *uobj;
Index: infiniband/include/rdma/ib_user_verbs.h
===================================================================
--- infiniband.orig/include/rdma/ib_user_verbs.h
+++ infiniband/include/rdma/ib_user_verbs.h
@@ -84,7 +84,13 @@ enum {
        IB_USER_VERBS_CMD_POST_SRQ_RECV,
        IB_USER_VERBS_CMD_CREATE_XRC_SRQ,
        IB_USER_VERBS_CMD_OPEN_XRCD,
-       IB_USER_VERBS_CMD_CLOSE_XRCD
+       IB_USER_VERBS_CMD_CLOSE_XRCD,
+       IB_USER_VERBS_CMD_CREATE_XRC_RCV_QP,
+       IB_USER_VERBS_CMD_MODIFY_XRC_RCV_QP,
+       IB_USER_VERBS_CMD_QUERY_XRC_RCV_QP,
+       IB_USER_VERBS_CMD_REG_XRC_RCV_QP,
+       IB_USER_VERBS_CMD_UNREG_XRC_RCV_QP,
+       IB_USER_VERBS_CMD_DESTROY_XRC_RCV_QP,
 };
 
 /*
@@ -719,4 +725,76 @@ struct ib_uverbs_close_xrcd {
        __u64 driver_data[0];
 };
 
+struct ib_uverbs_create_xrc_rcv_qp {
+       __u64 response;
+       __u64 user_handle;
+       __u32 xrcd_handle;
+       __u8  reserved1[28];
+       __u64 driver_data[0];
+};
+
+struct ib_uverbs_create_xrc_rcv_qp_resp {
+       __u32 qpn;
+       __u32 reserved;
+};
+
+struct ib_uverbs_modify_xrc_rcv_qp {
+       __u32 xrc_domain_handle;
+       __u32 qp_num;
+       struct ib_uverbs_qp_dest dest;
+       struct ib_uverbs_qp_dest alt_dest;
+       __u32 attr_mask;
+       __u32 qkey;
+       __u32 rq_psn;
+       __u32 sq_psn;
+       __u32 dest_qp_num;
+       __u32 qp_access_flags;
+       __u16 pkey_index;
+       __u16 alt_pkey_index;
+       __u8  qp_state;
+       __u8  cur_qp_state;
+       __u8  path_mtu;
+       __u8  path_mig_state;
+       __u8  en_sqd_async_notify;
+       __u8  max_rd_atomic;
+       __u8  max_dest_rd_atomic;
+       __u8  min_rnr_timer;
+       __u8  port_num;
+       __u8  timeout;
+       __u8  retry_cnt;
+       __u8  rnr_retry;
+       __u8  alt_port_num;
+       __u8  alt_timeout;
+       __u8  reserved[6];
+       __u64 driver_data[0];
+};
+
+struct ib_uverbs_query_xrc_rcv_qp {
+       __u64 response;
+       __u32 xrc_domain_handle;
+       __u32 qp_num;
+       __u32 attr_mask;
+       __u32 reserved;
+       __u64 driver_data[0];
+};
+
+struct ib_uverbs_destroy_xrc_rcv_qp {
+       __u32 xrc_domain_handle;
+       __u32 qp_num;
+       __u64 driver_data[0];
+};
+
+struct ib_uverbs_reg_xrc_rcv_qp {
+       __u32 xrc_domain_handle;
+       __u32 qp_num;
+       __u64 driver_data[0];
+};
+
+struct ib_uverbs_unreg_xrc_rcv_qp {
+       __u32 xrc_domain_handle;
+       __u32 qp_num;
+       __u64 driver_data[0];
+};
+
+
 #endif /* IB_USER_VERBS_H */
--
To unsubscribe from this list: send the line "unsubscribe linux-rdma" in
the body of a message to [email protected]
More majordomo info at  http://vger.kernel.org/majordomo-info.html

Reply via email to