🚀 go-pugleaf

Bogumila Zawistowska wrote:
> 
> Czy moglby ktos podeslac prosty mailer,
> najlepiej do grupy ,abym nie tylko ja skorzystal,
> ewentualnie jakies adresy z archiwami perla?

Prosty mailer to po prostu:

open( SENDMAIL, "|/usr/lib/sendmail -t");
print SENDMAIL "to co zazwyczaj list zawiera (na poczatku nagłówki,
pusta linia, treść, opcjonalnie samotna kropka na koncu";
close SENDMAIL;

Michał

PS. Chyba, że należy do grupy pokrzywdzonych, którzy nie mają
/usr/lib/sendmail... Wtedy trzeba troszkę inaczej...

-- 
WWW: http://www.lodz.pdi.net/~mimo  tel: Int. Acc. Code + 48 42 148340
add: Michal Mosiewicz  *  Bugaj 66 m.54 *  95-200 Pabianice  *  POLAND

> Czy moglby ktos podeslac prosty mailer,

Do listu dolaczony jest plik , ktory ma wysylac poczte , z wizarda na
ibm-a (krakow.irc.pl) ,zawsze laduje jednak na wizardzie (jako list!) ,jak
kolwiek bym nie zmienil adresow from i to

Dzie:) 

lechu zawistowski <zawistol@wizard.ae.krakow.pl> wrote:

: Do listu dolaczony jest plik , ktory ma wysylac poczte , z wizarda na
: ibm-a (krakow.irc.pl) ,zawsze laduje jednak na wizardzie (jako list!) ,jak
: kolwiek bym nie zmienil adresow from i to

Jeżeli używasz sendmaila, to adres docelowy podajesz jako argument 
przy wywoływaniu sendmaila. To co jest w treści listu dla sendmaila 
się nie liczy.

Akurat mam gotową funkcję w jednym programiku (tym który zakłada 
aliasy w irc.pl), proszę bardzo, może się komu przyda:

sub send_mail {
 my( $from, $to, $subject, $body ) = @_;
 open( SM, "|/usr/sbin/sendmail -f$from $to" ) 
   or die "open sendmail: $!";
 print SM "From: $from\n";
 print SM "To: $to\n";
 print SM "Subject: $subject\n";
 print SM "Mime-version: 1.0\n";
 print SM "Content-type: text/plain; charset=ISO-8859-2\n";
 print SM "Content-transfer-encoding: 8bit\n";
 print SM "\n";
 print SM "$body";
 close SM 
   or die "close sendmail: $!";
}

Sposóbu użycie chyba nie trzeba wyjaśniać - w $body mogą być ogonki
w ISO.

Acha - jak się użyje tego bez roota, to chyba sendmail dopisuje 
jakieś ostrzeżenie do nagłówków, że nieautoryzowane użycie opcji -f,
czy coś takiego...

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Piatkowski wrote:
> 
> sub send_mail {
>  my( $from, $to, $subject, $body ) = @_;
>  open( SM, "|/usr/sbin/sendmail -f$from $to" )
>    or die "open sendmail: $!";
>  print SM "From: $from\n";
>  print SM "To: $to\n";
>  print SM "Subject: $subject\n";
>  print SM "Mime-version: 1.0\n";
>  print SM "Content-type: text/plain; charset=ISO-8859-2\n";
>  print SM "Content-transfer-encoding: 8bit\n";
>  print SM "\n";

Az do tego miejsca zamiast LF chyba musi byc CRLF.

>  print SM "$body";
>  close SM
>    or die "close sendmail: $!";
> }
> 
Ja bym proponowal wpisanie listu do zmiennej i wywolanie programu
sendmail
w nastepujacy sposob (sciezki zaleznie od systemu):
 system( "/usr/lib/sendmail -t <$tresc_listu" );

gdzie $tresc_listu:
From: xxxxx\r\n
To: xxxxx\r\n
Subject: xxx\r\n
\r\n
bla bla\n
bla bla\n

W zasadzie pole From: okresla sie jako parametr -f sendmaila, ale
sendmail czyta je tez z naglowka (testowalem na SunOS, Solaris i IRIX). 
W przypadku CGI nalezy unikac podawania adresu odbiorcy bezposrednio 
w funkcji open. Zlosliwy internauta poda jako swoj e-mail np. 
 jasio@xyz.pl < `cat /etc/passwd`
badz podobnie i shell to wykona. Oczywiscie mozna sprawdzac 
poprawnosc adresow e-mail, ale powyzsza metoda jest chyba wygodniejsza.

>Acha - jak siê u¿yje tego bez roota, to chyba sendmail dopisuje 
>jakie¶ ostrze¿enie do nag³ówków, ¿e nieautoryzowane u¿ycie opcji -f,
>czy co¶ takiego...

Jesli pole From: jest podane w naglowku, to system u mnie nic nie
dopisuje.

adam

Adam Glowacki <webmaster@baunet.de> wrote:
: Piotr Piatkowski wrote:
:> 
:> sub send_mail {
:>  my( $from, $to, $subject, $body ) = @_;
:>  open( SM, "|/usr/sbin/sendmail -f$from $to" )
:>    or die "open sendmail: $!";
:>  print SM "From: $from\n";
:>  print SM "To: $to\n";
:>  print SM "Subject: $subject\n";
:>  print SM "Mime-version: 1.0\n";
:>  print SM "Content-type: text/plain; charset=ISO-8859-2\n";
:>  print SM "Content-transfer-encoding: 8bit\n";
:>  print SM "\n";

: Az do tego miejsca zamiast LF chyba musi byc CRLF.

Nie chce mi się szukać po RFC, ale jesteś tego pewien? Wydaje mi się 
że \r\n jest obowiązkowe tylko przy transmisji w sieci (np. przez 
port 25). Ale pewności nie mam. Tak czy inaczej - to co napisałem 
działa z powodzeniem od kilu tygodni ;-)

:>  print SM "$body";
:>  close SM
:>    or die "close sendmail: $!";
:> }
:> 
: Ja bym proponowal wpisanie listu do zmiennej i wywolanie programu
: sendmail
: w nastepujacy sposob (sciezki zaleznie od systemu):
:  system( "/usr/lib/sendmail -t <$tresc_listu" );

: gdzie $tresc_listu:
: From: xxxxx\r\n
: To: xxxxx\r\n
: Subject: xxx\r\n
: \r\n
: bla bla\n
: bla bla\n

He??? Znaczy się po rozwinięciu:

system( "/usr/lib/sendmail -t <From: xxxxx\r\nTo: xxx\r\n ...." ) ???

: Jesli pole From: jest podane w naglowku, to system u mnie nic nie
: dopisuje.

Tak dokładnie, to:

 -fname      Sets the name of the ``from'' person (i.e., the 
             sender of the mail).  -f can only be used by ``trusted'' 
             users (normally root, daemon, and network) or 
             if the person you are trying to become is the same as the 
             person you are.

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Piatkowski wrote:
> 
> : Az do tego miejsca zamiast LF chyba musi byc CRLF.
> 
> Nie chce mi siê szukaæ po RFC, ale jeste¶ tego pewien? Wydaje mi siê
> ¿e \r\n jest obowi±zkowe tylko przy transmisji w sieci (np. przez
> port 25). Ale pewno¶ci nie mam. Tak czy inaczej - to co napisa³em
> dzia³a z powodzeniem od kilu tygodni ;-)
> 
moje tez :-)

> 
> :  system( "/usr/lib/sendmail -t <$tresc_listu" );
> He??? Znaczy siê po rozwiniêciu:
> 
> system( "/usr/lib/sendmail -t <From: xxxxx\r\nTo: xxx\r\n ...." ) ???

Ale sie walnalem :-(
Jasne, ze najpierw do pliku, a zmienna $tresc_listu jest nazwa tego
pliku.

Przepraszam za wprowadzenie kogos w blad.

adam

Adam Glowacki <webmaster@baunet.de> wrote:

: Ale sie walnalem :-(
: Jasne, ze najpierw do pliku, a zmienna $tresc_listu jest nazwa tego
: pliku.

No właśnie. Ale po co najpierw do pliku a potem do programu, jak 
można od razu do programu. To tylko pod DOS'em potoki działają tak że
jeden program pisze na dysk a drugi potem to czyta :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Piatkowski wrote:
> 
> Adam Glowacki <webmaster@baunet.de> wrote:
> 
> : Ale sie walnalem :-(
> : Jasne, ze najpierw do pliku, a zmienna $tresc_listu jest nazwa tego
> : pliku.
> 
> No w³a¶nie. Ale po co najpierw do pliku a potem do programu, jak
> mo¿na od razu do programu. To tylko pod DOS'em potoki dzia³aj± tak ¿e
> jeden program pisze na dysk a drugi potem to czyta :-)
> 
> --
> Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Tak, tak, tez kocham DOSa :-) A unix wcale nie jest lepszy.
Zartuje :-) Najwiekszy problem to jest zawsze administrator
systemu. Ponad rok temu mielismy problem z SunOS i jego potokami.
U providera mielismy wirtualna domeme z pelnym dostepem do CGI itp.
Jesli otwieralem potok do sendmaila to cgi konczylo sie 
z core dump. Z core mozna bylo sie dowiedziec, ze chodzi 
tu o wadliwa biblioteke do IPC, czy jakos tak, 
nie pamietam szczegolow. Administrator systemu niewiele 
mogl zdzialac, znaczy sie bylismy skazani na siebie.
O dziwo zapis majla do pliku 
i wyslanie go komenda sendmail -t < $plik 
funkcjonowalo znakomicie. Polecam wszystkim :-)

Tak na marginesie, czy ktos juz wysylal poczte z perla
telnetem na port 25 innego hosta? 
Interesuje mnie stabilnosc takiego rozwiazania.

adam

Adam Glowacki wrote:
> 
> Tak na marginesie, czy ktos juz wysylal poczte z perla
> telnetem na port 25 innego hosta?
> Interesuje mnie stabilnosc takiego rozwiazania.

Problem tylko w tym, ze trzeba by zaimplementowac samemu
protokol SMPT, lub lepiej ESMTP. O ile pamietam jest
gotowy modlul do Perla Inet::SMTP, ktory prawdopodobnie
do tego sluzy, ale jeszcze go nie uzywalem.

Mariusz Krukowski wrote:

> > Tak na marginesie, czy ktos juz wysylal poczte z perla
> > telnetem na port 25 innego hosta?
> > Interesuje mnie stabilnosc takiego rozwiazania.

> Problem tylko w tym, ze trzeba by zaimplementowac samemu
> protokol SMPT, lub lepiej ESMTP. O ile pamietam jest
> gotowy modlul do Perla Inet::SMTP, ktory prawdopodobnie
> do tego sluzy, ale jeszcze go nie uzywalem.

Dokladniej Net::SMTP . Przykladowy fragment programu:

8<---
use Net::SMTP;

sub send {
local($me,$myhost,@rcpt)=@_;
local($email,$time);

   $time=time;
   $email = <<EOF;
Message-ID: <$time\@$myhost>
From: $me\@$myhost
To: $me\@$myhost
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

$body
EOF

   $smtp=Net::SMTP->new('plearn.edu.pl', Hello=>$myhost,Debug=>1);
   $smtp->mail("$me\@$myhost");
   foreach $whom (@rcpt) {
      $smtp->to($whom);
   }
   $smtp->data($email);
   $smtp->quit();
}
8<---

Gad

-- 
                                 mailto:reptile@pdi.net :)
                  Women are more complicated than PC... :(
          Look into my headers and you'll see who I am. :)

Robert Richard George 'reptile' Wal wrote:
> 
> Mariusz Krukowski wrote:
> 
> > > Tak na marginesie, czy ktos juz wysylal poczte z perla
> > > telnetem na port 25 innego hosta?
> > > Interesuje mnie stabilnosc takiego rozwiazania.
> 
> > Problem tylko w tym, ze trzeba by zaimplementowac samemu
> > protokol SMPT, lub lepiej ESMTP. O ile pamietam jest
> > gotowy modlul do Perla Inet::SMTP, ktory prawdopodobnie
> > do tego sluzy, ale jeszcze go nie uzywalem.
> 
> Dokladniej Net::SMTP . Przykladowy fragment programu:
> 

Wielkie dzieki, o cos takiego mi chodzilo.

adam

: > Czy moglby ktos podeslac prosty mailer,

: Do listu dolaczony jest plik , ktory ma wysylac poczte , z wizarda na
: ibm-a (krakow.irc.pl) ,zawsze laduje jednak na wizardzie (jako list!) ,jak
: kolwiek bym nie zmienil adresow from i to

: Dzie:) 

Dziekuje za pomoc - juz sobie poraddzilem .Jestescie great!
Lech Zawistowski