#!/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)) {
print "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);