Great Circle Associates Majordomo-Users
(June 2001)
 

Indexed By Date: [Previous] [Next] Indexed By Thread: [Previous] [Next]

Subject: Re: Sorting addresses by domain
From: hunter <hunter @ userfriendly . net>
Organization: The UserFriendly Network
Date: Thu, 21 Jun 2001 18:19:02 -0400
To: Tom Lettington <tom @ tfl . net>
Cc: "Anderson, Bill" <wander01 @ mail . state . mo . us>, "'Majordomo Users'" <Majordomo-users @ GreatCircle . COM>
References: <5.1.0.14.2.20010621125803.02c14ec0@pop3.tfl.net>

actually from someone who has a "special" partnership with aol and sends
off several million emails a day, most of which are aol'rs, i can attest
to that fact. If you are continually doing this in large volumes, it is
suggested that you call the aol mail team so that they can put you in
their special list of mail servers that are not relays or spammers...

HTH
--
Tom Lettington wrote:
> 
> Bill,
> 
> Be careful with this.  There has been discussion on NANOG recently about
> AOL blocking email from list servers and some indication that this happens
> to those who sort by domain so they hit AOL with a block of traffic instead
> of a few at a time.  Can't say whether or not this is true, just a heads up.
> 
>      - Tom
> 
> At 09:36 AM 6/21/2001 -0500, Anderson, Bill wrote:
> >The recent discussions on how to improve majordomo/sendmail performance by
> >sorting the list files by domain prompted me to try to do this for my own
> >lists. Finding no script to do this already written, I put together the
> >following perl script to do the sorting. The directory the list files are in
> >is defined in the chdir function in the script. The script assumes the list
> >files are the only files in the directory _without_ a period in the name.
> >
> >#! /usr/bin/perl
> >
> >chdir "/var/lib/majordomo/lists/testdir";
> >@listnames = `ls`;
> >@lists = grep (!/\./, @listnames);
> >unlink 'lists.out';
> >
> >for my $list (@lists)
> >    {
> >       chomp $list;
> >       open LISTFILE, $list;
> >       print $list."\n";
> >       @fileaddresses = ();
> >
> >       while (<LISTFILE>)
> >       {
> >          chomp;
> >          ($account, $host) = split (/\@/,  $_);
> >          push @fileaddresses, lc($host)."@".lc($account)."\n";
> >       }
> >
> >       @sortedaddresses = sort @fileaddresses;
> >       open OUTFILE, ">>sortedlist.out";
> >
> >       for my $sortedaddress (@sortedaddresses)
> >       {
> >          chomp $sortedaddress;
> >          ($sortedhost, $sorteddest) = split (/\@/, $sortedaddress);
> >          print OUTFILE $sorteddest."@".$sortedhost."\n";
> >       }
> >       close OUTFILE;
> >
> >       `mv sortedlist.out $list`;
> >       unlink "sortedlist.out";
> >    }
> >
> >All comments/suggested improvements are welcome.
> >
> >Bill Anderson
> >MIS Network Administrator
> >MO Dept of Economic Development

-- 
Michael B. Weiner, Linux+, Linux+ SME
Systems Administrator/Partner
The UserFriendly Network (UFN)
--
Linux Registered User #94900	Have you been counted?
http://counter.li.org

PGP: 30 1D CC BA 30 30 63 35  CD 58 E0 89 A9 17 CC C0  8C 55 F7 72

.........    Escape the 'Gates' of Hell
  `:::'                  .......  ......
   :::  *                  `::.    ::'
   ::: .::  .:.::.  .:: .::  `::. :'
   :::  ::   ::  ::  ::  ::    :::.
   ::: .::. .::  ::.  `::::. .:'  ::.
...:::.....................::'   .::::..
--

Attachment: smime.p7s
Description: S/MIME Cryptographic Signature


References:
Indexed By Date Previous: Re: Sorting addresses by domain
From: hunter <hunter@userfriendly.net>
Next: Re: Sorting addresses by domain
From: wings@wingscc.com (Jardine Parrot Web)
Indexed By Thread Previous: Re: Sorting addresses by domain
From: Tom Lettington <tom@tfl.net>
Next: RE: Sorting addresses by domain
From: "Anderson, Bill" <wander01@mail.state.mo.us>

Google
 
Search Internet Search www.greatcircle.com