/usr/share/perl5/SWISS/EntryStore/SPTR.pm is in libswiss-perl 1.67-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 | # *************************************************************
#
# Package: SWISS/knife
#
# Purpose: Fast access to SPTR entries via NDBM indexes
# flat files.
#
# Usage: use SWISS::EntryStore::SPTR qw(%SPTR);
# my $entry1 = $SPTR{'E1184836'};
#
# $Revision: 1.1 $
# $State: Exp $
# $Date: 2002/11/11 16:37:51 $
# $Author: gatt $
# $Locker: $
#
# *************************************************************
package SWISS::EntryStore::SPTR;
use vars qw(@ISA @EXPORT_OK %SPTR);
use Env qw(INDEXES OSTYPE);
use Exporter;
use Fcntl;
use Carp;
use strict;
use SWISS::Entry;
use SWISS::EntryStore::Index;
BEGIN {
@EXPORT_OK = qw(%SPTR);
@ISA = qw(Exporter);
}
die "Environment variable 'OSTYPE' is not defined.\n".
"It should contain the name of the operating system.\n"
unless $OSTYPE;
die "Environment variable 'INDEXES' is not defined.\n".
"It should point to the directory where all indexes live.\n"
unless $INDEXES;
tie %SPTR, 'SWISS::EntryStore::Index',
{File => '/net/nfs0/vol2/swissprot/projects/sptr/data/sptr.txl',
Index => $INDEXES."sptr.ac.$OSTYPE",
Access => O_RDWR|O_CREAT,
};
|