Jak jsem hromadně rozesílal maily

21.2.2006 09:55 | Přečteno: 2101× | Mohlo by se někomu hodit

Minulý týden jsem se pídil po nějakém programu na hromadné rozesílání pošty. Jediná odpověď byla ve smyslu „nejlepší je udělat si to sám“, nuže jsem si tuto radu vzal k srdci, do rukou jsem si vzal svou bibli Michal Brandejs: UNIX – LINUX a začal si oživovat nástroje pro textové zpracování.

Rozeslat dopisy se mi nakonec podařilo s pomocí následujícího skriptu:

#!/bin/sh
#

export from="Administrator ankety <webmaster@domena.cz>"
export smtp=mail.domena.cz
export ttycharset=iso-8859-2
cp respondenti-kody-original.txt respondenti-kody.txt

for OSOBA_EMAIL in `cat respondenti-mail.txt`;
do
    KOD=`head -n1 respondenti-kody.txt`;
    sed -e '1,1d' respondenti-kody.txt > pomocna;
    cat pomocna > respondenti-kody.txt;
    cat zacatek-dopisu.txt > dopis;
    echo $KOD >> dopis;
    cat konec-dopisu.txt >> dopis;
    echo "Odesilam mail s kodem $KOD na adresu $OSOBA_EMAIL";
    mail -s "Pristupovy kod" $OSOBA_EMAIL < dopis;
done

rm pomocna
rm dopis
rm respondenti-kody.txt

Každý řádek souboru respondenti-mail.txt obsahuje jednu mailovou adresu, každý řádek v respondenti-kody-original.txt pak jeden platný přístupový kód – těch samozřejmě musí být alespoň tolik, co mailových adres. Samotný text dopisu skládám ze dvou souborů zacatek-dopisu.txt a konec-dopisu.txt, mezi něž vkládám inkriminovaný kód.

S čím jsem si dlouho nevěděl rady a co jsem nakonec vyřešil poněkud nehezky, bylo vyextrahování správného kódu ze souboru – jaksi se mi nepodařilo najít příkaz, který by vypsal pouze n-tý řádek z tohoto souboru. Takže si vždy zkopíruju ten první a následně jej ze souboru smažu, hloupé, že? Asi by bylo lepší mít maily i kódy v jednom souboru, vždy adresu a kód na jednom řádku a nějak to ve skriptu z toho vypreparovat – něco mi říká, že to by byl úkol pro awk – ten taky ještě neumím :(
Ještě poznámka k znakové sadě – program mail sám (z LOCALES) pozná, že mám systém v UTF-8, já však raději chci poslat dopisy v ISO-8859-2, proto to nastavení.

       

Komentáře

[kaaja]

Napadlo me reseni jak ziskat n-ty radek ze souboru, ale neni to nic super. cat soubor | head -n cisloradku | tail -n 1

[Michal Vyskočil]

Podívej se na příručku k awk, do kapitoly : Interval určený vzorky

Např. program

 NR == 100, NR == 200 

vypíše záznamy (řádky) 100 až 200.

[Jiří Poláček]

Že bych to awk fakt někdy začal zkoumat?

[podlesh]

Nebo sed .

Jedno z dělení unixáků je na awkisty, sedisty a perlaře

[Jiří Poláček]

Já budu asi ta druhá skupina

[Michal Kubeček]

Já jsem tak napůl mezi první a druhou, on se většinou jeden z nich hodí výrazně víc. A kde nestačí tyto dva nástroje, nastupuje (f)lex…

[Michal Vyskočil]

Hmm, zdá se, že jsem sed docela podcenil . Nic, až budu mít čas a náladu, tak si projdu man sed

[xvasek]

Tam je prd, ale mimo jiné je tam "see also perlre", tak jsem na to mrknul a mám co jsem potřeboval. Jenom pro to už nepoužívám sed. :)

[azurIt]

tiez nic moc ale funguje.
pre vyextrahovanie druheho riadku:

azurit@azurit:~$ cat pokus.txt
prvy
druhy
treti
stvrty
azurit@azurit:~$ grep -n '.*' pokus.txt | grep '^2:' | sed -e 's/2:\(.*\)/\1/g'
druhy

[Michal Kubeček]

  sed -e "$n ! d"

nebo méně elegantně ale efektivněji (hlavně pro delší soubory)

  sed -e "$n ! d ; $n q"

[Michal Kubeček]

Ve vašem případě by ale bylo vhodnější použít v jednom cyklu na oba soubory read.

[Michal Kubeček]

(Přeci jen napsat sekvenční procházení souboru s kvadratickou časovou složitostí se obecně nepovažuje za ideální programátorský styl.) :-)

[podlesh]

Ale ne, proč mazat?

sed -ne "$n p;$n q"

[David Watzke]

Doufej, že si tohle

for OSOBA_EMAIL in `cat respondenti-mail.txt`

nepřečte Hynek Vychodil...

Raději to honem nahraď za

cat respondenti-mail.txt | while read OSOBA_EMAIL

[David Watzke]

Za předpokladu, že jsou v tom souboru adresy pod sebou... jinak ještě

sed 's: :\n:g' respondenti-mail.txt > '~'; mv '~' respondenti-mail.txt

[Jiří Poláček]

Asi do toho moc nevidím, protože marně hledám rozdíl ...

Teď už ale vím, že skript potřebuje v cyklu nějakou pauzičku, zkoušel jsem ho na jiný SMTP-server a ten nějak nestíhal přijímat požadavky ... asi i toto by šlo řešit lépe než s pomocí příkazu sleep, co?

[Jiří Poláček]

Opět jsem se dostal k nějakému rozesílání a na základě připomínek jsem skript optimalizoval na následující tvar:

#!/bin/sh
#

export from="Administrator ankety <webmaster@domena.cz>"
export smtp=mail.domena.cz
export ttycharset=iso-8859-2

citac=1

cat respondenti-mail.txt | while read OSOBA_EMAIL
do
    KOD=`sed -ne "$citac p" respondenti-kody-original.txt`;
    citac=$((citac + 1))
    cat zacatek-dopisu.txt > dopis;
    echo $KOD >> dopis;
    cat konec-dopisu.txt >> dopis;
    echo "Odesilam mail s kodem $KOD na adresu $OSOBA_EMAIL";
    mail -s "Anketa" $OSOBA_EMAIL < dopis;
    sleep 0.5;
done

rm dopis

[BigL]

Taky muzes zkusit primo program pro rozesilani hromadne posty (emailu) - SendMails. Najdes ho na http://www.dwn.cz/sendmails nebo na http://www.fitlinie.cz/hromadne-maily