This file is indexed.

/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
##