/*
// From the wonderful people at Portals.
// tell_group - tell a group of people specfified in a file a message
// Now tells either a group of the folloing types:
//   o A file containing the names of the people
//   o An array of objects to tell
//   o An array of names to be told
//   o If the first value of an array of string == "FILES"
//     then a list of files including the names.
*/

int tell_group (mixed file, string msg)
{
   string data;
   object *people;
   int i;
   object ob;
   
   people = ({ });
   if(stringp(file))
      {
      seteuid("anonymous");
      data = read_file(file);
      if (!data) {
	 write ("Couldn't find group to 'tell'.\n");
	 return 0;
      }
      file = explode(data,"\n");
      seteuid(0);
   }
   if(!pointerp(file)) return 0;
   if(objectp(file[0])) people = file;
   if(stringp(file[0])) {
      if(file[0] == "FILES") {
         for(i = 1; i < sizeof(file); i++)
	   tell_group(file[i],msg);
         return 1;
      }
      for(i = 0; i < sizeof(file); i++)
	people += ({ find_living(file[i]) });
   }
   
   for(i = 0; i < sizeof(people); i++)
     if(people[i]) tell_object(people[i],msg);
   return 1;
}