Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 12 Oct 1995 19:50:39 -0400 (EDT)
From:      "Jonathan M. Bresler" <jmb@kryten.Atinc.COM>
To:        David Brockus <dbrockus@cyberhall.com>
Cc:        FreeBSD questions <questions@freebsd.org>
Subject:   Re: Mailing Lists
Message-ID:  <Pine.3.89.9510121741.C3341-0100000@kryten.atinc.com>
In-Reply-To: <Pine.BSF.3.91.951012114857.24614A-100000@cyber1.cyberhall.com>

Next in thread | Previous in thread | Raw E-Mail | Index | Archive | Help
On Thu, 12 Oct 1995, David Brockus wrote:

> I am using FreeBSD 2.0.5.  I was interested in setting up a way to have 
> someone email a single address, such as comments@cyberhall.com, then have 
> that original message distributed to the email addresses of people that I 
> haved defined.  I was wondering if there is a way to send email to a group id
>  and have the members of that group id receive the letter.  I was also 
> considering setting up a mailing list, but I am not certain what is involved
>  in configuring it.  Could some please assist me? Thanks.

	to reach everyone on your system create a mail alias that 
includes everyone, dont bother with mailing list software.  for an 
address list that has less to 20 people at other internet sites, use an 
alias again.  otherwise consider using majordomo (madge says "you're 
soaking in it now").   FreeBSD.org uses majordomo for all its mailing lists.

	you can use this perl script to send mail to everyone on a 
particular host:

#!/usr/bin/perl
#
# collect a mail message from STDIN
# edit headers
# send it out to everyone on this machine
#

#
# set these to match your system
#
$debug = 0; 
$mailcmd = "/usr/bin/mail";

#
# list all your non-user accounts here
#
%daemons = (    "root", 1,
                "toor", 1,
                "daemon", 1,
                "operator", 1,
                "bin", 1,
                "games", 1,
                "man", 1,
                "uucp", 1,
                "ingres", 1,
                "falcon", 1, 
                "nobody", 1
        );
 
# 
# collect the list of people
# to receive the mail message
#
while ( $user = getpwent ) {
        (! $daemons{$user} ) && $targets .= " $user";
} 
 
#
# collect the headers
# junk lines that we dont need or want
#
while ( <STDIN> ) {
        last if ( /^$/o );                      # end of headers
        next if ( /^Received: /o );             # remove these
        next if ( /^From /o );                  # remove this line
        if ( ( $key, $value ) = ( /^(\S+):\s*(.*)/ ) ) { ; }
        $header{$key} = $value;
}

if ( $debug )  {
        open( OUT, "> /tmp/mailcatcher.$$") || die("$0 can't open output 
file");
        foreach $key ( sort keys(%header) ) {
                print OUT "$key = $header{$key}\n" ;
        }
}
 
open( MAIL, "| /usr/bin/mail -s \"$header{'Subject'}\"  jmb");
 
#
# do the real work
# 
while ( <STDIN> ) {
        $debug && print OUT;
        print MAIL;
}       




Jonathan M. Bresler  jmb@kryten.atinc.com       | Analysis & Technology, Inc.  
FreeBSD Postmaster   jmb@FreeBSD.Org            | 2341 Jeff Davis Hwy
play go.                                        | Arlington, VA 22202
ride bike. hack FreeBSD.--ah the good life      | 703-418-2800 x346




Want to link to this message? Use this URL: <http://docs.FreeBSD.org/cgi/mid.cgi?Pine.3.89.9510121741.C3341-0100000>