#!/usr/bin/perl
use strict;

use AwesomeGrid;
use AwesomeGrid::User;

my $host = shift;
unless ($host) {
	print "No host specified. Use the -all flag to flush all users.\n";
	exit 1;
}

opendir USERS, "$AwesomeGrid::confdir/users";
my @users = grep {/^[^.]/} readdir USERS;
closedir USERS;

foreach my $u (@users) {
	my $agu = AwesomeGrid::User->load($u);
	if ($host eq '-all' || $agu->{home} eq $host) {
		print "Deleting $agu->{username}\n";
		AwesomeGrid::User::delete($u);
	}
}