14 Aralık 2016 Çarşamba

Windows Servis ve WCF Web Servisleri



                       
                             Windows Servisi Olarak WCF Web Servisi Yayınlama


C#'da WCF Servislerini Windows Servisi olarak yayınlamak için izlenecek adımlar:

1- Visual Studio açılır, platforumun sol tarafındaki Visual C# sekmesi altından WCF'ye tıklanarak WCF Service Library seçilerek yeni bir WCF kütüphanesi oluşturulur. Açılan yeni WCF Library projesi arayüzünün sağ tarafındaki Solution Explorer  panelinde oluşturmuş olduğumuz yeni wcf servisi adı altında Service1.cs ve IService1.cs classlarının oluşmuş olduğu görülecektir. Oluşturmuş olduğumuz projeye default olarak eklenen bu örnek class'lar istenirse silinir veya editlenerek yazmak istediğimiz kendi kodumuzu yazabiliriz. Projeyle örnek olarak gelen classları sildiğimiz taktirde kendi classlarımızı oluşturmak için proje adı üzerine sağ tıklanarak Add New Item -> Class diyerek kendi classımızı oluşturabiliriz. Aynı şekilde oluşturduğumuz classın implementi için örnekteki gibi Interface class oluşturabiliriz. Oluşturduğumuz Interface classın kütüphane tanımlama bölümüne using System.ServiceModel; kütüphanesini eklememiz gerekir. Public Interface IService classın üst kısmına [ServiceContract] kodunu eklememiz gerekir. Ayrıca classta tanımlayacağımız her fonksiyon için tanımladığımız fonksiyonun üst kısmına [OperationContract] kodunu eklememiz gerekir. Daha sonra interface classı normal class üzerinde :IService1 şeklinde implemente ederek gerekli kodu yazarız. Tanımlanan classı daha sonra windows service'den çağıracağımız için public yapmamız gerekir.

2- Oluşturmuş olduğumuz projeye Add New Project diyerek sol paneldeki Visual C# sekmesi altından Windows seçilerek Windows Service projesi oluşturulur. Oluşturulan projenin Solution Explorer paneli altındaki App.config sağ tıklanarak Edit WCF Configuration tıklanır. Açılan pencerede Services bölümünde Create a New Service -> Service Type browse'tan oluşturmuş olduğumuz projenin klasörü açılır: -> Bin->Debug->Service.dll seçtikten sonra Next diyerek bir sonraki aşamalara geçilir. Communication Mode aşamasında HTTP seçili bırakılır, bir sonraki adımda Basic Web Services İnteroperability seçili bırakılır, address of your endpoint adımında http:// yazan yere bir endpoint adı sallanır. Tüm bu işlemler tamamlandıktan sonra Configuration penceresinin sol tarafında yer alan Host  çift tıklanarak ardından New buttonuna tıklanır ve Base address PC'mizin ip adresi http://192....:8080 numarası şeklinde girilir. Not: port numarası değiştirilebilir. IP adresini öğrenmek için command promt penceresinde ipconfig yazmak yeterlidir.
Bu işlemi de bitirdikten sonra Configuration panelinde Advanced sekmesi seçilir. Bir alt sekmedeki Service Behaviors tıklanır, ardından gelen panelin Add butonundan serviceMetadata seçilir, ardından new behavior yerine behavior ismi verilerek bu işlem de tamamlanmış olur. Oluşturulmuş olan yeni behavior sekmesine tıklanarak gelen serviceMetadata penceresinden HttpGetEnabled özelliği true yapılır. Daha sonra oluşturulmuş olan bu behavior özellikleri Services sekmesi altındaki oluşturmuş olduğumuz webservisin adına tıklanarak behaviorConfiguration olarak seçilir.



3- Solution Explorer penceresinden Add Reference tıklayarak yapmış olduğumuz WebService.dll dosyasını ve Assemblies->Framework tıklayarak System.ServiceModel kütüphanelerini import ediyoruz.

4- Windows Serivce'nin Service1.cs tıklayarak açılan Design panelde boşlukta sağ tıklayarak Add Installer tıklanır. Böylece oluşturmuş olduğumuz serviceInstaller1 sekmesi üzerine sağ tıklanarak Properties'ten panelin sağ tarafta çıkan Service Name ayarlanır, Start Type Manual olarak bırakılır. serviceProcessInstaller1 sekmesine sağ tıklanarak sağ tarafta çıkan Account  ayarı LocalSystem olarak ayarlanır. Ardından Service1.cs nin click here to switch to code view tıklanarak windows servisi başlatma ve kapama için gereken kodlar yazılır:
ilk önce using System.ServiceModel; tanımlanır, ardından aşağıdaki gibi wcf açma kapama komutları yazılır.

       ServiceHost sh;
        public Service1()
        {
            InitializeComponent();
        }
      protected override void OnStart(string[] args)
        {
            sh = new ServiceHost(typeof(VeriTransfer.VeriGonder));//Referans olarak göstermek için import ettiğimiz wcf servis dosyasını buraya çağırıyoruz. Burada görüldüğü gibi benim WCF web servisimin adı VeriTransfer 'dir.
            sh.Open();
        }

        protected override void OnStop()
        {
            sh.Close();
        }

5- Şuana kadar hazırlamış olduğumuz windows service'nin pc'ye yüklenmesi, Installutil.exe ve windows servisi uygulamamızın kaynak dosyası dizini kullanılarak yapılır. Bunun için command prompt açılır ve kendi windows servis klasörünüzün yolunu bu örneğe editleyerek şu şekilde komut yazılır:

Install :

"C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil.exe" "C:\Users\Surec\Documents\Visual Studio 2013\Projects\VeriTransfer\WindowsServiceWCF\bin\Debug\WindowsServiceWCF.exe"


Uninstall :

"C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil.exe"  -u "C:\Users\Surec\Documents\Visual Studio 2013\Projects\VeriTransfer\WindowsServiceWCF\bin\Debug\WindowsServiceWCF.exe"


tüm bu işlemleri yukarıdaki 5 adımı da sorunsuz şekilde yaptığımız taktirde Görev Yöenticisi açarak ->Hizmetler sekmesini tıkladığımızda yapmış olduğumuz windows servisini diğer servisler arasında görebileceğiz.








Muhtemel Hatalar :



This service on local computer started and then stopped. some services stop automatically if then are not in use by other servces or programs

yukarıdaki hatayı aldığımız taktirde öncelikle servisimizin kodlarını kontrol etmemiz gerekiyor öyle ki:
      -  ismini değiştirmiş olduğumuz classların değiştiştirilmesi gereken veya class ile aynı isme sahip olması gereken yerleri incelemek gerekir.
     -  daha sonra hem wcf library'nin olduğu App.Config dosyası incelenmeli hem de windows servisin App.Config dosyası incelenmeli yukarıdaki App.Config ayarları iki taraf için de Edit WCF Configuration üzerinden eksiksiz yapılmalıdı en son ayarlar ile proje Build edilmelidir.














9 Aralık 2016 Cuma

IIS (Internet Information Services) Nedir? IIS'de Web Sitesi Yayınlama



                                          

                                            IIS (Internet Information Services) Nedir?


IIS en basit anlatımla Microsoft'un web sunucusudur. Microsoft tabanlı web sayfalarının ve uygulamalarının barındırıldığı sunucu Internet Information Services (IIS) diye anılır. Buradan anlaşılacağı üzere Asp.net web uygulamaları IIS üzerinde barındırılır ve IIS üzeerinden çalıştırılarak yayınlanabilir. İstemcinin isteklerini sunucuda IIS karşılar ve cevaplandırır. IIS'in varsayılan portu 80 dir.

IIS hosting hizmeti veren kuruluşların Windows tabanlı sunucularında kullanılır. Ayrıca localhost'ta IIS kurulumu yaparak geliştirmiş olduğumuz Asp.net uygulamalarını kendi bilgisayarımız üzerinde de çalıştırabiliriz. Şuanki IIS versiyonu IIS8'dir. Asp.Net geliştirmek için Visual Studio kullanılıyorsa ayrıyeten IIS kurmamıza gerek yoktur.

IIS hosting hizmetini localhost'a kurmak için yapmamız gereken: Başlat -> Denetim Masası -> Windows Özelliklerini Aç/Kapat sekmelerini izleyerek açılan pencereden Internet Information Services seceneğini aktif ettiğimizde sistem IIS için gerekli yazılımı otomatik kuruyor.



                                                IIS'de Web Sitesi Yayınlama


Asp.Net'te yapmış olduğumuz web tabanlı uygulamayı kendi bilgisayarımızda yayınlamak istiyorsak IIS içerisinde ASP.NET barındırılıyor olması gerekir. IIS dışarıdan gelen çağrıları yanıtlayabilemk için varsayılan olarak 80 portu dinler ve gelen talepleri uygun altyapıya devrederek dışarıya HTML çıktısını verir. Biz de geliştirmiş olduğumuz Asp.Net uygulamalarını yayınlamak için IIS üzerinde gerekli konfigürasyonları yapmamız gerekir. Bir Asp.Net uygulamasını IIS üzerinden yayınlamak istiyorsak, IIS üzerinde sanal dizin (Virtual Directory) adını verdiğimiz yapıları kullanmamız gerekir.

Yeni bir web sitesi yayınlamak için ilk olarak Denetim Masası'ından Yönetimsel Araçlar bölümüne geçilip Internet Information Services(IIS) kısa yoluna tıklanarak IIS'in yönetim penceresi açılır.




Yönetimsel Araçlar bölümünden IIS’e çift tıklandığında IIS’in yönetim penceresi açılıyor olacaktır. Bu pencere aracılığı ile IIS üzerinde bulunan siteler görülüp, özellikleri ayarlanabilir ya da yeni bir site eklenebilir. Yeni bir site eklemek için Siteler üzerinde (Sites) mouse’ın sağ tuşu ile tıklanıp açılan menüden Add Web Site(Web Sitesi Ekle) seçeneği seçilmelidir. 




Yukarıdaki işlemden sonra sanal site adı ve fiziksel dosyaların saklanacağı yer soruluyor olacaktır. Site adı bölümüne istediğimiz ismi yazdıktan sonra fiziksel yol (Physical Path) bölümünden de fiziksel dosyalarımızın, yani ASP.NET dosyalarımızın, bulunduğu bölümü seçiyoruz. Ana bilgisayar adı olarak bölümüne www.domainAdı.com değerini yazarak ve Tamam diyerek web sitemizi IIS üzerinde hazır hale getiriyoruz. IP Adresi üzerinden web uygulamamıza IP Adresi üzerinden erişmek istiyorsak IP adresi değerini seçmemiz gerekir. 80 Port default olarak kalırsa ileride olası hataları almamak için daha iyi olur.



  

                         IIS ile ilgili işlemlerden sonra sitemiz kendi bilgisayarımız üzerinde yayınlamak için C:\Windows\System32\drivers\etc dizini altındaki hosts dosyasını aşağıdaki ekranda görüldüğü gibi değiştirerek kaydediyoruz.






 Çıkabilecek Olası Hatalar

 1 -

HTTP Error 401.3 - Unauthorized You do not have permission to view this directory or page because of the access control list (ACL) configuration or encryption settings for this resource on the Web server.

Böyle bir hata alındığı taktirde öncelikle yayınlamak istediğimiz Asp.Net uygulamasının kullandığı Application Pool'u değiştirmeyi denememiz gerekir. Ya da uygulamamızın kullanıyor olduğu Application Pool'un ayarlarını kontrol etmemiz gerekiyor. Ben öyle bir hata aldığımda alttaki resimlerde görüldüğü gibi Asp.Net uygulamamın kullanıyor olduğu DefaultAppPool'u .Net v4.5 Classic ile değiştirdim. Aşağıdaki ayar penceresini açmak için IIS'de yayınlamak istediğimiz Web Sitesinin IIS arayüzünde sol taraftaki adının üzerine mouse'la sağ tuşlayarak Manage Website -> Advanced Setting.. yolunu izlememiz gerekir.



Web sitemizin IIS üzerinde kullandığı pool ayarlarına bakmak için şöyle bir yol izlenmelidir: IIS arayüzünün sol tarafındaki sekmelerden Application Pools -> 

uygulamamızın kullandığı Application Pool'un üzerine mouse ile sağ tuşalayarak aşağıdaki gibi Advanced Settings arayüzünden ayarlar yapılmalıdır.


Identity ayarının ApplicationPoolIdentity olması gerekir.

Ayrıca yukarıdaki hatayı almamak için IIS ayarlarından Authentication ayarlarını yapmamız gerekiyor.



Aşağıdaki görüntüdeki gibi işaretli yerlerin Enabled olarak ayarlanmış olması gerekir.


Ayrıca Anonymous Authentication ayarları için mouse ile üzerine sağ tuş  Edit yaparak aşağıdaki gibi Application Pool Identity seçeneğinin seçili olması gerekir. 





2- 

                                               HTTP Error 403.14 - Forbidden

                                               The Web server is configured to not list the contents of this directory.


Böyle bir hata alındığında ise IIS ayarlarından Directory Browsing ayarına çift tıklayarak Actions durumunu Enabled  yapmamız gerekir.






7 Aralık 2016 Çarşamba

SQL Tabloyu Kendisi Ile Eslestirme



                                       


                                             TABLOYU KENDISI ILE ESLESTIRME:



   SQL'de bazi senaryolara gore tablodaki verilerin ayni tablodaki baska verilerle eslestirilmesi gerekebilir. Asagida yazdigim sorguya gore senaryoda bir sistemin kullanicilarinin liderleri listelenmek istenmistir. Hangi kullanicinin lideri kim ise o kullaniciya bagli liderin ismi ayni tablodan gelecek sekilde karsisina listelenmek istenmistir. Buna gore sorgu asagidaki gibi olmalidir:






SELECT u.cduser,u.nmuser,l.cdleader.l.nmuser FROM aduser as u LEFT OUTHER JOIN aduser as l ON u.cdleader=l.cduser








1 Aralık 2016 Perşembe

XML Webservis Erişim Hatası



                                           XML Webservis Bağlantı Hataları 


C# üzerinden webservislere bağlantı kurma hatası: 


İstemci, yanıt içeriği türünün 'text/html; charset=utf-8' olduğunu algıladı, ancak 'text/xml' bekliyordu.
İstek şu hata iletisini verdi:
--
<html><head><title>Request Rejected</title></head><body>The requested URL was rejected. Please consult with your administrator.<br><br>Your support ID is: 17272948368014415989</body></html>


Çözüm: Güvenli bağlantı (ssl) kullanıcı giriş bilgileri doğru girildiği taktirde öyle bir hataya maruz kalınıyorsa, bağlanılmaya çalışılan wsdl adresi altındaki servisin istemci IP'sini reject etme durumudur. Bunun çözümü için istemci IP'sinin webservis sunucusunda tanımlanması veya webservis locali çerçevesinde vpn üzerinden tekrar bağlanılması gerekmektedir. Aksi halde servisi veren ilgili kuruma ticket açarak durumdan haberdar edilmesi gerekir.

30 Kasım 2016 Çarşamba

SSL Nedir Ne İşe Yarar ?


      
        SSL ve Kullanım Amacı Nedir?


       SSL'in açılımı, Secure Sockets Layer (Güvenli Giriş Katmanı)'dır. SSL, güvenlik prosedürü çerçevesinde server ile alıcı iletişimi sırasında verilerin şifrelenmesi işlemidir. En bilinen kullanımı ise, web sitelerinin web servisleri ile veri alışverişi sırasında, server ile browserlar arasındaki iletişimin şifrelenmesidir.

        SSL, standart bir algoritmadan oluşmaktadır. Güvenli veri iletişimi için birçok web sitesi SSl teknolojisini kullanmaktadır. SSL işleminin çalışması için server tarafında bir anahtar ve alıcı tarafında çalışacak bir sertifika olması gerekmektedir.

        SSL Sertifikaları Hakkında Genel Bilgiler:

 1-  SSL sertifikaları, site adreslerinin doğruluğunu kontrol eden, iki nokta arasındaki veri iletişimini şifreli kanal üzerinden yaparak güvenli bir şekilde yapılmasını sağlayan bir üründür. Ancak SSL sertifikaları hiç bir zaman yazdığımız kodun veya web sitelerinin virüslere karşı güvenliğini sağlamaz. 

2-  SSL sertifikaları sundukları garantiye, destek hizmetine ve ek özelliklere göre farklılık arz etmektedirler. Temelde tüm sertifkaların sağladığı teknik kazanım aynıdır.

3- SignSec, Comodo, Rapid ürünleri, SSL kullanmak isteyen tüm tekil internet adresleri için uygundur.

4- Wildcard SSL ürünleri internet adresindeki alt isimleri de destekler. Örneğin; www.isimtescil.net, isimtescil.net, admin.isimtescil.net, *.isimtescil.net

5- SSL network üzerindeki bilgi transferi sırasında güvenlik ve gizliliğin sağlanması amacıyla Netscape tarafından geliştirilmiş bir güvenlik protokolüdür.

6- SSL gönderilen bilginin kesinlikle ve sadece doğru adreste deşifre edilebilmesini sağlar. Bilgi gönderilmeden önce otomatik olarak şifrelenir ve sadece doğru alıcı tarafından deşifre edilebilir. Her iki tarafta da doğrulama yapılarak işlemin ve bilginin gizliliği ve bütünlüğü korunur.

7- Veri akışında kullanılan şifreleme yönteminin gücü kullanılan anahtar uzunluğuna bağlıdır. Anahtar uzunluğu bilginin korunması için çok önemlidir. Örneğin; 8 bit üzerinden bir iletimin çözülmesi son derece kolaydır. Bit, ikilik sayma düzeninde bir rakamı ifade eder. Bir bit, 0 veya 1 olmak üzere 2 farklı değer alabilir. 8 bit ise sadece 28=256 olası farklı anahtar içerir. Bir bilgisayar bu 256 farklı olasılığı sıra ile inceleyerek bir sonuca ulaşabilir. SSL protokolünde 40 bit ve 128, 256, 1024 bit şifreleme kullanılmaktadır. 128 bit şifrelemede 2128 değişik anahtar vardır ve bu şifrenin çözülebilmesi çok büyük bir maliyet ve zaman gerektirir. Kötü niyetli bir kişinin 128 bit'lik şifreyi çözebilmesi için 1 milyon dolarlık yatırım yaptıktan sonra 67 yıl gibi bir zaman harcaması gerekir. Bu örnekten anlaşıldığı gibi SSL güvenlik sistemi tam ve kesin bir koruma sağlar.


     Özellikleri :

  • - Mesajların şifrelenmesi ve deşifre edilmesindeki güvenlik ve gizliliği sağlar.
  • - Mesajı gönderenin ve mesajı alanın doğru yerler olduğunu garanti eder.
  • - İletilen dokümanların tarih ve zamanını doğrular.
  • - Doküman arşivi oluşturulmasını kolaylaştırır.
  • - Gelen verinin kodlaması ve şifreyi çözmesi esnasında güvenlik ve gizliliği sağlar
    - Veriyi gönderenin ve veriyi alanın doğru yerler olduğunu garanti eder.

  •  Sertifikasyon Kurumu
          Dijital sertifikaların verilmesi ve yönetilmesini gerçekleştiren kurumlardır. Dijital sertifikalar bu kurumların gizli anahtarıyla imzalanır. Türkiye’deki SSL desteği veren firmalar, yurtdışındaki firmaların temsilciklerini yapmaktadır. Bu yüzden kimlik doğrulamaları yurtdışında veya yurt dışındaki firmanın formatı üzerinden yapılması gerekmektedir. SSL sertifikaları bütün internet tarayıcılarında büyük oranda sorunsuz şekilde desteklemekte ve çalışmaktadır
          SSL Nasıl Çalışır ?
          SSL Public Key/Private Key adı verilen anahtarların kullanımına dayalı bir kodlama yöntemine dayalıdır.
          SSL kodlama için iki adet anahtar bulunmaktadır. Bu anahtarlar, dijital ortamda kodlanmış yazılımlardır. Bir anahtarın kitlemiş olduğu veriyi, sadece diğer anahtar açabilir. Anahtarlarınızı yarattıktan sonra (SSL default olarak bu işlemi yapmaktadır, sizin herhangi bir işlem yapmanıza gerek yoktur), anahtarlardan biri (private key) sizde kalır. Diğer anahtar (public key) ise, bağlantı kurmak istediğiniz kişilere gönderilir.
          Dışarıdan sizinle iletişime geçmek isteyen kişi, public key’i kullanarak mesajı güvenli bir şekilde size gönderir. Veri, size ulaşmadan, transfer sırasında veriye ulaşılsa bile, şifrenin çözülmesi için sizde bulunan private key gerekecektir. SSL türüne göre 40 bit veya 128 bit şifreleme kullanılmaktadır. Bu karmaşıklıktaki şifrelemenin çözülmesi ileri tekniklerle dahi çok zaman alacaktır.
          Kısaca SSL veri alışverişi yapan bilgisayarların, herhangi bir kişinin veriye müdahale etmesini önleyerek, sadece veri alışverişi yapan bilgisayar arasında, güvenli bir şekilde verinin aktarılmasını sağlar.
          
      

29 Kasım 2016 Salı

C# AcceptButton - CancelButton


C#'da Klavye Üzerinden Enter ve Esc Tuşlarını Form Üzerindeki Buttonlara Yönlendirme:

C#'da klavyeden enter ve esc tuşlarının form üzerindeki buttonlara yönlendirmek için form özelliklerinden AcceptButton ile CancelButton ayarlarına form üzerindeki butonlardan hangisine atamak istiyorsak bu iki özelliğin karşısına o buttonların adlarını yazmamız gerekir. 

Accept Button: Form üzerinde Enter tuşuna basıldığında çalıştırılacak olan butonu belirlememizi sağlar.
Cancel Button: Form üzerinde ESC tuşuna basıldığında çalıştırılacak olan butonu belirlememizi sağlar.



Form üzerinde bulunan butonlardan istenilen butona AcceptButton özelliği verilebilir. Bunu yapmak için Form üzerinde boş bir alan fare ile tıklanır. Daha sonra properties penceresinde AcceptButton özelliğinde hangi butona bu özellik verilmek isteniyorsa o buton seçilir.
Bu işlemin aynısı CancelButton için uygulanabilir. Ayarlanan butona yazılacak kodlar klavyeden “ESC” tuşuna basıldığında çalışacaktır.


12 Kasım 2016 Cumartesi

Veritabanından E-Mail Gönderme


PostgreSQL Veritabanı Yönetim Sisteminden E-Mail Gönderme:  Bu yazımda postgresql üzerinde yazılmış bir fonksiyon aracılığıyla kullanıcılara nasıl mail gönderebileceğimizi anlatacağım. Mail göndermede kullandığım fonksiyon pl/tcl dilinde kodlandığı için ilk olarak postgresql'in tcl dil desteği eklentisini yüklememiz gerekecektir.

- PostgreSQL veritabanı yönetim sistemi birden fazla dil desteği sunmaktadır, desteklenen diller PL adı altında pgAdmin arayüzünden, Databases - <kullandığımız veritabanının adı> - Extensions - New Extension.. sekmelerini takip ettiğimizde karşımıza çıkan eklentiler arasında yer alır. PostgreSQL in sql dili için kullandığı default dil 'plpgsql' dir. Extensions olarak karşımıza çıkabilecek desteklenen diğer diller ise, plperl,plpython,pltcl dilleri procedural diller olarak geçmektedir. Saydığım bu dillerin haricinde postgresql  xml,java,php yazılım dillerini de procedural olarak destekleyebilmektedir. Procedural dememizdeki kasıt, bu yazılım dillerini kullanarak pgAdmin konsolunda fonksiyon veya procedure yazarak sql ifadelerinde olduğu gibi yazdığımız fonksiyon veya prosedürleri select ile çağırarak istediğimiz yerde kullanabileceğiz.


 - Aşağıdaki mail göndermede kullandığım fonksiyonu çalıştırabilmemiz için postgresql'in pl/tcl desteğini sağlamamız gerekir. PostgreSQL'de procedural dil desteğinin nasıl sağlandığına dair daha fazla bilgi edinmek isteyen konuyu buradan takip edebilir.


CREATE OR REPLACE FUNCTION send_pgmail( text, text, text, text)
  RETURNS integer AS
$BODY$
set mailfrom $1
set mailto $2
set mailsubject $3
set mailmessage $4
set myHost "<sunucu adresi>" -- buraya maili hangi mal server üzerinden gönderecekseniz o mail server'in host adresini yazmanız gerekmektedir.
set myPort 25 -- buraya kullandığınız port numarasını yazmanız gerekir, yazmanız taktirde sistem default olarak 25 portu üzerinden mail göndermeyi deneyecektir.
set mySock [socket $myHost $myPort]
set toemailaddress_start [string first "<" $mailto]
if {$toemailaddress_start != -1} {
set toemailaddress_finish [string first ">" $mailto]
set toemailaddress_start [expr $toemailaddress_start + 1]
set toemailaddress_finish [expr $toemailaddress_finish - 1]
set toemailaddress [string range $mailto $toemailaddress_start $toemailaddress_finish]
} else {
set toemailaddress $mailto
}
set fromemailaddress_start [string first "<" $mailfrom]
if {$fromemailaddress_start != -1} {
set fromemailaddress_finish [string first ">" $mailfrom]
set fromemailaddress_start [expr $fromemailaddress_start + 1]
set fromemailaddress_finish [expr $fromemailaddress_finish - 1]
set fromemailaddress [string range $mailfrom $fromemailaddress_start $fromemailaddress_finish]
} else {
set fromemailaddress $mailfrom
}
fileevent $mySock writable [list svcHandler $mySock]
fconfigure $mySock -buffering line
puts $mySock "HELO <veritabanı adresi>" -- kullandığınız veritabanı hangi makinada yüklü ise o makinanın veritabanı sunucu adresini buraya yazmanız gerekmektedir.
gets $mySock name
puts $mySock "MAIL FROM: $fromemailaddress"
gets $mySock name
puts $mySock "RCPT TO: $toemailaddress"
gets $mySock name
puts $mySock "DATA"
gets $mySock name
puts $mySock "From: $mailfrom"
puts $mySock "To: $mailto"
puts $mySock "Subject: $mailsubject"
puts $mySock "MIME-Version: 1.0"
puts $mySock "Content-type: text/plain; charset=UTF-8"
puts $mySock "Content-Transfer-Encoding: 8bit"
puts $mySock ""
puts $mySock "$mailmessage"
puts $mySock ""
puts $mySock "."
gets $mySock name
puts $mySock "QUIT"
gets $mySock name
close $mySock
return 1$BODY$

  LANGUAGE pltclu VOLATILE




Fonksiyonun SQL Editörde Kullanımı:
  select send_pgmail('gonderen@mail.com','alici@mail.com','mail konusu','mail icerik');