From: Murat Demirten (murat@debian.org)
Date: Tue 05 Dec 2000 - 11:15:21 EET
> elimdeki txt dosyasinda
> username1@ben.com; 123456
> username2@ben.com; 789456
> gibi bilgiler var. Her userin onundeki bilgiyi sadece o usere otomatik
> olarak nasil gonderebilirim.
> Yani username1@ben.com 123456 bilgisini alacak username2@ben.com 789456
> bilgisini alacak.
#!/usr/bin/perl -w
open (F,"mail.txt");
@file = <F>;
close (F);
for ($i=0; $i<$#file; $i++) {
($email,$content) = split(/;/, $file[$i]);
chop($content); ## newline karakterini atmak icin
open (MAIL,"|/usr/sbin/sendmail -t"); ## qmail icin de ayni satir
## ise yarar
print MAIL << "EOF"
From: ROOT <root\@falanca.com>
To: $email
Subject: !! Bu da subject !!
ilgili mesaj buraya
sifreniz: $content
EOF
;
close (MAIL); ## burada mail gonderilir
} ## for end
Murat Demirten <murat@debian.org>
Fingerprint: 1198 B162 75C9 9378 DABB BF08 E717 CE7D B5EE C7E4
<-- The biggest still the best, http://www.debian.org -->
Listeden cikmak icin:
unsub linux
mesajini listeci@bilkent.edu.tr adresine gonderiniz.
Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
Listeci arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
Liste arsivinin adresi: http://listweb.bilkent.edu.tr/