OID.pm

   1 package Net::Z3950::OID;
   2
   3 my $prefix = "1.2.840.10003.5.";
   4
   5 sub unimarc     { $prefix . '1' }
   6 sub intermarc   { $prefix . '2' }
   7 sub ccf         { $prefix . '3' }
   8 sub usmarc      { $prefix . '10' }
   9 sub ukmarc      { $prefix . '11' }
  10 sub normarc     { $prefix . '12' }
  11 sub librismarc  { $prefix . '13' }
  12 sub danmarc     { $prefix . '14' }
  13 sub finmarc     { $prefix . '15' }
  14 sub mab         { $prefix . '16' }
  15 sub canmarc     { $prefix . '17' }
  16 sub sbn         { $prefix . '18' }
  17 sub picamarc    { $prefix . '19' }
  18 sub ausmarc     { $prefix . '20' }
  19 sub ibermarc    { $prefix . '21' }
  20 sub carmarc     { $prefix . '22' }
  21 sub malmarc     { $prefix . '23' }
  22 sub jpmarc      { $prefix . '24' }
  23 sub swemarc     { $prefix . '25' }
  24 sub siglemarc   { $prefix . '26' }
  25 sub isdsmarc    { $prefix . '27' }
  26 sub rusmarc     { $prefix . '28' }
  27 sub explain     { $prefix . '100' }
  28 sub sutrs       { $prefix . '101' }
  29 sub opac        { $prefix . '102' }
  30 sub summary     { $prefix . '103' }
  31 sub grs0        { $prefix . '104' }
  32 sub grs1        { $prefix . '105' }
  33 sub extended    { $prefix . '106' }
  34 sub fragment    { $prefix . '107' }
  35 sub pdf         { $prefix . '109.1' }
  36 sub postscript  { $prefix . '109.2' }
  37 sub html        { $prefix . '109.3' }
  38 sub tiff        { $prefix . '109.4' }
  39 sub gif         { $prefix . '109.5' }
  40 sub jpeg        { $prefix . '109.6' }
  41 sub png         { $prefix . '109.7' }
  42 sub mpeg        { $prefix . '109.8' }
  43 sub sgml        { $prefix . '109.9' }
  44 sub tiffb       { $prefix . '110.1' }
  45 sub wav         { $prefix . '110.2' }
  46 sub sqlrs       { $prefix . '111' }
  47 sub soif        { $prefix . '1000.81.2' }
  48 sub textxml     { $prefix . '109.10' }
  49 sub xml         { $prefix . '109.10' }
  50 sub appxml      { $prefix . '109.11' }
  51
  52