#!/usr/athena/bin/perl -w
# Written by amu 2000-05-11.  Use however you wish.

use strict;

use FileHandle;
use IPC::Open2;

my @types = qw(ACL); 

my $mrtest_in = new FileHandle;
my $mrtest_out = new FileHandle;

open2($mrtest_out, $mrtest_in, 'attachandrun', 'moira', 'mrtest', 'mrtest');
print $mrtest_in "c\na\n";

my %servers;
foreach my $type (@types) {
    print $mrtest_in "qy gslo $type\n";
    while (<$mrtest_out>) {
	if (/^(moira:\s*)*\U$type\E, (.*)/) {
	    $servers{$2} = $type;
	}
	last if / tuples?$/;
    }
}

print "The last successful update of the mailhubs was:\n";

foreach my $server (sort keys %servers) {
    my $type = $servers{$server};
    print $mrtest_in "qy gshi $type $server\n";
    while (<$mrtest_out>) {
	if (/^(moira:\s*)*\U$type\E,/) {
	    my @data = split /, /;
	    my $time = localtime($data[9]);
	    print "$server last updated on $time\n";
	}
	last if / tuples?$/;
    }
}

print $mrtest_in "quit\n";