#!/usr/bin/perl ############################################################################## # Cliff's Tell Your Friends Script Version 1.5 # # Copyright 1998 Shaven Ferret Productions # # Created 6/9/98 Last Modified 10/20/98 # # Available at http://www.shavenferret.com/scripts # ############################################################################## # COPYRIGHT NOTICE # # Copyright 1998 Shaven Ferret Productions All Rights Reserved. # # # # This script can be used\modified free of charge as long as you don't # # change this header, the part that generates the return link, or the part # # that mentions where this script comes from in the e-mail. If you really # # need to remove these, go to # # http://www.shavenferret.com/scripts/register.shtml . By using this script # # you agree to indemnify me from any liability that might arise from its use.# # In simple English, if this script somehow makes your computer run amuck # # and kill the pope, it's not my fault. # # # # Redistributing\selling the code for this program without prior written # # consent is expressly forbidden. # ############################################################################## # Enter the location of sendmail. $mailprog = '/usr/sbin/sendmail'; $homepage = 'http://www.ilkozgurler.net/2.htm'; # How many people should I give your visitors the option of telling? $tell = 9; # The stuff between the next line and the line that reads IMDONEWRITING # is what will be mailed to your visitors friends. $message = <<'IMDONEWRITING'; Selam, internette bir site buldum ve seninle paylaşmak istedim. Umarım hoşuna gider.. http://www.ilkozgurler.net/index.html IMDONEWRITING ############################################################################## # Congratulations! You've finished defining the variables. If you want to, # # you can continue screwing with the script, but it isn't necessary. # ############################################################################## print "Content-type: text/html\n\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } if ($FORM{'send'}) { $temp1 = $FORM{'yemail'}; $temp2 = $FORM{'email1'}; $temp1 =~ s/_/a/g; $temp2 =~ s/_/a/g; $temp1 =~ s/-/a/g; $temp2 =~ s/-/a/g; unless ($temp1 =~ /\w+@\w+.\w+/) { &bademail($FORM{'yemail'}); } unless ($temp2 =~ /\w+@\w+.\w+/) { &bademail($FORM{'email1'}); } if ($FORM{'yname'}) { $from = "\"$FORM{'yname'}\" <$FORM{'yemail'}>"; } else { $from = $FORM{'yemail'}; } for ($i = 1; $i <= $tell; $i++) { $temp1 = "email" . $i; $temp2 = $FORM{$temp1}; $temp2 =~ s/_/a/g; $temp2 =~ s/-/a/g; unless ($temp2 =~ /\w+@\w+.\w+/) { next } $temp2 = "name" . $i; if ($FORM{$temp2}) { $sendto = "\"$FORM{$temp2}\" <$FORM{$temp1}>"; } else { $sendto = $FORM{$temp1}; } open (MAIL,"|$mailprog -t"); print MAIL "To: $sendto\n"; print MAIL "From: $from\n"; print MAIL "Subject: Öneri\n\n"; print MAIL "$message\n\n"; print MAIL "---------------------------------------------\n"; print MAIL "Bu bir spam değildir. Arkadaşınız $FORM{'yname'} tarafından , $FORM{'yemail'} adresi verilerek size gönderilmiştir. \n"; print MAIL "---------------------------------------------\n"; print MAIL "İLK ÖZGÜRLER.\n"; print MAIL "İsterseniz sayfamızdan e-mail listemize üye olabilirsiniz.\n"; print MAIL "http://www.ilkozgurler.net/uye_kayit.htm\n"; print MAIL "---------------------------------------------\n"; close(MAIL); #### Ek Basla #################### $emailler = "$emailler" . "\n" . "$i" . " " . "$sendto"; #### Ek Bit #################### } print "TEŞEKKÜRLER!\n"; print "

\n"; print "TEŞEKKÜRLER $FORM{'yname'}

MESAJINIZ GÖNDERİLDİ.\n"; print "ANA SAYFA

\n"; print "\n"; #### Ek Basla #################### open (MAIL,"|$mailprog -t"); #### Not: asagidaki @ isaretinden once \ olamli, \@ seklinde ####### print MAIL "To: admin\@ilkozgurler.net\n"; print MAIL "From: admin\@ilkozgurler.net\n"; print MAIL "Subject: Tavsiye eden ve edilenlerin email adresi\n\n"; print MAIL "$FORM{'yemail'} tarafından önerilen mail adresleri \n"; print MAIL "$emailler \n\n"; close(MAIL); #### Ek Bit #################### exit; } else { &make_page(""); } sub bademail { $bad = shift(@_); $alert = "

\n"; $alert .= "
\n"; $alert .= "
üzgünüm, bu e-mail\n"; $alert .= ""$bad" geçersiz. Lütfen bir daha deneyin.
\n"; &make_page($alert); } sub make_page { $alert = shift(@_); print "Arkadaşlarınıza İLK ÖZGÜRLER'i Önerebilirsiniz\n"; print "

\n"; print "İLK ÖZGÜRLER

\n"; print "Sitemizi arkadaşlarınıza tavsiye etmeyi düşündüğünüz için teşekkürler.\n"; print "Bunun için, adınızı, email adresinizi ve arkadaşlarınızın email adreslerini yazıp, \n"; print "Gönder butonuna basmanız yeterli olacaktır.!\n"; print "$alert\n"; print "
\n"; print "
\n"; print "\n"; for ($i = 1; $i <= $tell; $i++) { print "\n"; } print "
Gönderenin adı:
\n"; print "		*\n"; print "e-mail adresiniz
\n"; print "
$i" . "'.Arkadaşımın adı:
\n"; $temp = "name" . $i; print "		\n"; print ""; if ($i == 1) { print "*"; } $temp = "email" . $i; print "$i" . "'.e-mail adresi:
\n"; print "
\n"; print "
\n"; print " \n"; print "* işaretli yerleri lütfen boş bırakmayın.\n"; print "
Göndereceğiniz mesaj:

\n"; print "$message
\n"; print "ANA SAYFA

\n"; print "\n"; exit; }