#!/usr/local/bin/perl
#
# $Header: /cvs/ARSperl/example/ars_GetFullTextInfo.pl,v 1.1 1997/07/23 18:21:29 jcmurphy Exp $
#
# NAME
# ars_GetFullTextInfo.pl
#
# USAGE
# ars_GetFullTextInfo.pl [server] [username] [password]
#
# DESCRIPTION
# Request and print out configuration information for the Full Text Search
# Engine.
#
# AUTHOR
# Jeff Murphy
#
# $Log: ars_GetFullTextInfo.pl,v $
# Revision 1.1 1997/07/23 18:21:29 jcmurphy
# Initial revision
#
#
#
use
ARS;
(
$c
= ars_Login(
shift
,
shift
,
shift
)) ||
die
"login: $ars_errstr"
;
"Calling GetFullTextInfo..\n"
;
(
$h
= ars_GetFullTextInfo(
$c
)) ||
die
"ERR: $ars_errstr\n"
;
"errstr=$ars_errstr\n"
;
"GetFullTextInfo returned:\n"
;
foreach
$k
(
keys
%$h
) {
"key = <$k> value = <$$h{$k}>\n"
;
if
(
$k
eq
"StopWords"
) {
$a1
=
$$h
{
$k
};
@ar
=
@$a1
;
foreach
$sw
(@{
$h
{
$k
}}) {
"\t$sw\n"
;
}
}
}
ars_Logoff(
$c
);