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
|
#!/usr/bin/perl -w
#------------------------------------------------------------------------------#
# Copyright 1998 #
# Burkhard Rost rost@EMBL-Heidelberg.DE #
# Wilckensstr. 15 http://www.embl-heidelberg.de/~rost/ #
# D-69120 Heidelberg #
# version 0.1 May, 1998 #
#------------------------------------------------------------------------------#
# sets array count to start at 1, not at 0
use RG::Utils::Hssp_filter;
# lkajan: trying to move away from $pack
#$pack="hssp_filterPack";
($Lok,$msg)=
&RG::Utils::Hssp_filter::hssp_filterSbr( 'dirBin=/usr/bin', 'dirHome=/usr/share/librg-utils-perl', @ARGV);
die( "*** RG::Utils::Hssp_filter::hssp_filterSbr returned ERROR:\n".$msg." " ) if (! $Lok);
exit(0);
__END__
|
