1 # ---------------------------------------------------------------
2 # Copyright © 2014 Jason J.A. Stephenson <jason@sigio.com>
4 # This file is part of NCIPServer.
6 # NCIPServer is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2 of the License, or
9 # (at your option) any later version.
11 # NCIPServer is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 # General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with NCIPServer. If not, see <http://www.gnu.org/licenses/>.
18 # ---------------------------------------------------------------
20 use parent qw(Class::Accessor);
24 Header - Response Header as Defined in z39.83-1-2012
32 This is a NCIP ResponseHeader object. We do not implement an
33 initator, so we do not implement the InitiationHeader and we do not
34 attempt to make this object generic enough to handle that field.
35 The fields are as defined in Z39.83-1-2012. Ext is provided but is
36 not used by the current iteration of NCIPServer.
42 Not used in the current implementation.
44 =head2 FromSystemAuthentication
46 Not used in the current implementation.
50 AgencyId of the agency sending the message.
52 =head2 FromAgencyAuthentication
54 Not used in the current implementation.
58 Not used in the current implementation.
62 AgencyId of the agency receiving the message.
66 Not used in the current implementation.
71 NCIP::Header->mk_accessors(qw(FromSystemId FromSystemAuthentication
72 FromAgencyId FromAgencyAuthentication
73 ToSystemId ToAgencyId Ext));