1 ## This file is part of simpleserver
2 ## Copyright (C) 2000-2013 Index Data.
3 ## All rights reserved.
4 ## Redistribution and use in source and binary forms, with or without
5 ## modification, are permitted provided that the following conditions are met:
7 ## * Redistributions of source code must retain the above copyright
8 ## notice, this list of conditions and the following disclaimer.
9 ## * Redistributions in binary form must reproduce the above copyright
10 ## notice, this list of conditions and the following disclaimer in the
11 ## documentation and/or other materials provided with the distribution.
12 ## * Neither the name of Index Data nor the names of its contributors
13 ## may be used to endorse or promote products derived from this
14 ## software without specific prior written permission.
16 ## THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
17 ## EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
18 ## WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
19 ## DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
20 ## DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
21 ## (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
22 ## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
23 ## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 ## (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 ## THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 package Net::Z3950::OID;
29 my $prefix = "1.2.840.10003.5.";
31 sub unimarc { $prefix . '1' }
32 sub intermarc { $prefix . '2' }
33 sub ccf { $prefix . '3' }
34 sub usmarc { $prefix . '10' }
35 sub ukmarc { $prefix . '11' }
36 sub normarc { $prefix . '12' }
37 sub librismarc { $prefix . '13' }
38 sub danmarc { $prefix . '14' }
39 sub finmarc { $prefix . '15' }
40 sub mab { $prefix . '16' }
41 sub canmarc { $prefix . '17' }
42 sub sbn { $prefix . '18' }
43 sub picamarc { $prefix . '19' }
44 sub ausmarc { $prefix . '20' }
45 sub ibermarc { $prefix . '21' }
46 sub carmarc { $prefix . '22' }
47 sub malmarc { $prefix . '23' }
48 sub jpmarc { $prefix . '24' }
49 sub swemarc { $prefix . '25' }
50 sub siglemarc { $prefix . '26' }
51 sub isdsmarc { $prefix . '27' }
52 sub rusmarc { $prefix . '28' }
53 sub explain { $prefix . '100' }
54 sub sutrs { $prefix . '101' }
55 sub opac { $prefix . '102' }
56 sub summary { $prefix . '103' }
57 sub grs0 { $prefix . '104' }
58 sub grs1 { $prefix . '105' }
59 sub extended { $prefix . '106' }
60 sub fragment { $prefix . '107' }
61 sub pdf { $prefix . '109.1' }
62 sub postscript { $prefix . '109.2' }
63 sub html { $prefix . '109.3' }
64 sub tiff { $prefix . '109.4' }
65 sub gif { $prefix . '109.5' }
66 sub jpeg { $prefix . '109.6' }
67 sub png { $prefix . '109.7' }
68 sub mpeg { $prefix . '109.8' }
69 sub sgml { $prefix . '109.9' }
70 sub tiffb { $prefix . '110.1' }
71 sub wav { $prefix . '110.2' }
72 sub sqlrs { $prefix . '111' }
73 sub soif { $prefix . '1000.81.2' }
74 sub textxml { $prefix . '109.10' }
75 sub xml { $prefix . '109.10' }
76 sub appxml { $prefix . '109.11' }
80 ## Revision 1.2 2001-03-13 14:54:13 sondberg
81 ## Started CVS logging