#!/s/std/bin/perl
# Listuser.pl: List all user names from the list of condor submission users
#
# Krung Sinapiromsaran, 6 June 2000
# Usage: Listuser.pl
#
# Constant variables
#
use InitDaemon;
require 'common.pl';

%users = ();
$dirmode = '0755';

# ******************
# Program Start here
# ******************
&Readuser;
&Printuser;
1;
