OID.pm

   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:
   6 ##
   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.
  15 ##
  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.
  26
  27 package Net::Z3950::OID;
  28
  29 my $prefix = "1.2.840.10003.5.";
  30
  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' }
  77
  78
  79 ## $Log: OID.pm,v $
  80 ## Revision 1.2  2001-03-13 14:54:13  sondberg
  81 ## Started CVS logging
  82 ##