Perl ve Sendmail

#

Pzt, 24 Ara 2007 22:53:38

Aşagıdaki Örnekler nasıl Sendmail komutunu File Handle olarak açıp email gönderebileceginizi Gösterir

Birinci Örnekte alıcı adresi File Handle tarafından atanmıstır fakat 2. Örnekte alıcı adresi direk olarak

snedmail komutuna parametre olarak atanmıştır.

 

 

 

    #!/usr/bin/perl

      # Perl ve Sendmaili Kullanarak Mail göderme

    unless(open (MAIL, "|/usr/sbin/sendmail -t")) {

          print "error.\n";

          warn "Error starting sendmail: $!";

    }

    else

          print MAIL "From: gönderen\@sizinsite.com\n";

          print MAIL "To: alıcı\@sizinsite.com\n";

            print MAIL "Reply-to: cevapadresi\@sizinsite.com\n";

          print MAIL "Subject: Örnek Konu\n\n";

          print MAIL "Bu Bir Test Mesajıdır lütfen panik yapmayın";

          close(MAIL) || warn "Sendmaili Kapatırken Hata Oluştu: $!";

          print "Emailiniz Gönderildi \n";

    }

 

     

 

 

veya Sendmail Komutunu Açarken Mesajın kime Gönderilecegini Belirte bilirsiniz.

 

 

 

    #!/usr/bin/perl

      # Perl ve Sendmaili Kullanarak Mail göderme

    unless(open (MAIL, "|/usr/sbin/sendmail alıcı\@sizinsite.com")) {

          print "Hata.\n";

          warn "Sendmail'i Çalıştırırken hata oluştu: $!";

    }

    else{

          print MAIL "From: gönderen\@sizinsite.com\n";

          print MAIL "Subject: Örnek Konu\n\n";

            print MAIL "Reply-to: cevapadresi\@sizinsite.com\n";

          print MAIL "Bu Bir Test Mesajıdır lütfen panik yapmayın";

          close(MAIL) || warn "Sendmaili Kapatırken Hata Oluştu: $!";

          print "Emailiniz Gönderildi \n";

    }

           

      veya Sendmail Modulunü de kullanabilirsiniz.

      örnegin

 

 

     

       #!/usr/bin/perl

      # Perl ve Sendmaili Modulunü Kullanarak Mail gönderme

      use Sendmail

     

      $mailer = new SendMail();

    $mailer = new SendMail("127.0.0.1"); #SMTP Server Adresi

    $mailer = new SendMail("127.0.0.1",   "25"); # Eger SMTP Server default portta çalışmıyorsa portu set edebilirsiniz.

      $mailer->From("gönderen@sizinsite.com");

      $mailer->Subject("Örnek Konu");

      $mailer->To("alıcı@sizinsite.com");

      $mailer->ReplyTo("cevapadresi@sizinsite.com");

      $mailer->setMailBody("Bu Bir Test Mesajıdır lütfen panik yapmayın");

     

      #ve mesajı yolluyoruz

      if ($mailer->sendMail() != 0) {

       # Hata Oluştu

       print $mailer->{'Hata Oluştu'}."\n";

    }

            #mail Objectini Sıfırlayalım.

       $mailer->reset();

     

 

 

 

 

 

            Tabiki Perl ile mail yollama bu yöntem ile kalmamaktadır. 

      Bu yöntemlerden bazıları

             Mail::Lite

             Mail:Mailer

             gibi Modulleride Kullanıp Mail Yollayabilirsiniz.

1616 defa izlendi

Bu posta henüz yorum yazılmadı.





Uzerine.com  ©2005 Uzerine.com
Ana Sayfa | Bize Ulaşın | Gizlilik Sözleşmesi | Kullanım Şartları | Üye Girişi