#!/usr/bin/perl -w
use strict;
use ARS;

die 'Usage is get_flds.pl "username" "password" "server" and optionally "schema"\n'    unless $ARGV[2];	

my $user=$ARGV[0];
my $pass=$ARGV[1];
my $server=$ARGV[2];
my $schema =$ARGV[3];

print "Logging on to $server\n";

my $ctrl=ars_Login(
		$server,
		$user,
		$pass
		) || die "Doh! Could not login to server!";
my %fields;
(%fields=ars_GetFieldTable($ctrl,$schema)) || die "Whoops: $ars_errstr"; #This gets the fields from the schema
print $_ . "\t\t:\t\t" . $fields{$_} . "\n" foreach sort keys (%fields);