#! /usr/local/bin/perl

#######################################################################
# subroutines
#######################################################################
# Is given string blank?
sub Blank {
	local($str) = pop(@_);
	return $str =~ /^\s*$/;
}

#######################################################################
# mainline
#######################################################################
$mailprog = '/usr/sbin/sendmail' ;

$message = "your message goes here. \n";
$testing = 1;

open(INPUT, "users.txt");
@users = <INPUT>; 
close(INPUT);

for ($i = 0; $i < $@users; $i++) {

    $username = @users[$i];
    
    if ($testing) {
        $username = "admin";
    }

    open (MAIL, "|$mailprog $username") || die "Can't open $mailprog!\n";
  
    print MAIL "From: admin\@cs.earlham.edu \n" ; 
    print MAIL "Reply-to: admin\@cs.earlham.edu \n" ; 
    print MAIL "Subject: CS services will be down from 6a until 12p Thursday July 19 \n" ; 
    
    print MAIL " \n" ; 
    print MAIL "$message \n" ; 

    close(MAIL);

    if ($? != 0) {
        print "Could not send mail message to $username, bailing... error=$! - $?\n";
	exit 0;
    }
  	
    print "$username <br> \n"; 
    
    last if ($testing); 

}

exit;