sub mail_admin
{
  local($sub,$msg) = @_;
  $curAdmins  = "/opt/local/etc/cur_admins";

  @cur_admin_lines = `cat $curAdmins`;
  chomp(@cur_admin_lines);
  foreach $cur_admin_line (@cur_admin_lines)
  {
    ($id,$name,$group,$OncallFlag,$address) = split(/:/, $cur_admin_line);
     $cur_admin_addresses .=  " $address";
  }
  my $cmd = "echo \"$msg\" | mail -s \"$sub\" $cur_admin_addresses";
  system("$cmd");
  my($rc) = $? / 256;
  if ($rc != 0)
  {
    &pager("Can't send mail_admin message $msg - rc = $rc", P);
  }
}