#!/usr/local/bin/perl

use AFS;

AFS::raise_exception(1);

die "Usage: $0 name convertids\n" if $#ARGV !=1;

$name = shift;
$convert = shift;

$pts = newpts;

@members = $pts ->members($name,$convert,$over);

print "over = $over\n";

print "members for $name\n";

    foreach $mem (sort @members) {
        printf("  $mem\n");
    }
