#!/usr/local/bin/perl
#
# $Header: /cvsroot/arsperl/ARSperl/example/List_Entries.pl,v 1.1 1996/11/21 20:13:54 jcmurphy Exp $
#
# EXAMPLE
# List_Entries.pl
#
# DESCRIPTION
# Log onto the server and printout a listing of Entry IDs and
# Short Description (for each ID) for the given schema.
#
# NOTES
# "Short Description" is *not* (neccessarily) the contents of the
# "short-description" field. It is, in fact, the contents of the
# "Query List Fields" for this schema. Try it on a schema that
# you have some custom "Query List Fields" defined for to see
# what we mean.
#
# AUTHOR
# jeff murphy
#
# 01/12/96
#
# $Log: List_Entries.pl,v $
# Revision 1.1 1996/11/21 20:13:54 jcmurphy
# Initial revision
#
#
use
ARS;
# Parse command line parameters
(
$server
,
$username
,
$password
,
$schema
) =
@ARGV
;
if
(!
defined
(
$schema
)) {
"usage: $0 [server] [username] [password] [schema]\n"
;
exit
1;
}
# Log onto the ars server specified
(
$ctrl
= ars_Login(
$server
,
$username
,
$password
)) ||
die
"can't login to the server"
;
# Load the qualifier structure with a dummy qualifier.
(
$qual
= ars_LoadQualifier(
$ctrl
,
$schema
,
"(1 = 1)"
)) ||
die
"error in ars_LoadQualifier"
;
# Retrieve all of the entry-id's for the schema.
%entries
= ars_GetListEntry(
$ctrl
,
$schema
,
$qual
, 0);
printf
(
"%-15s %-60s\n"
,
"Entry-ID"
,
"Short Description"
);
foreach
$entry_id
(
sort
keys
%entries
) {
printf
(
"%-15s %-60s\n"
,
$entry_id
,
$entries
{
$entry_id
});
}
# Log out of the server.
ars_Logoff(
$ctrl
);