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