Form Mail Kodu Lazım!

07/Ağu/03 06:10

Kısayol

Şikayet

Özel Mesaj

aheadinc

Kayıt Tarihi: 18/Mayıs/2003

Arkadaşlar bana cgi ile yazılmış basit bir formmail kodu lazım temin ederseniz sevinirim!.
Teşekkürler.

Alıntı yap

07/Ağu/03 07:48

Kısayol

Şikayet

Özel Mesaj

KIZILYILDIZ

Kayıt Tarihi: 08/Mart/2003

arkadaşlar lütfen asp,php,cgi vb. ile ilgili konuları lütfen Internet Web bölümüne yazın.

senin sorunu da gelmişken yanıtlayayım.
al veriyom. biraz cgi biliyorsan anlarsın.

#!/usr/bin/perl

$kime = 'kizilyildiz@hotmail.com'; # kendi email adresinizi yazınız
$bazfont = "Verdana"; # temel yazı tipi
$mailprog = '/usr/sbin/sendmail -t'; # sendmail programı adresi
$sfark = 0; # server saatine süre ekle yada çıkar. çıkarmak için negatif sayı girin
$zemin = ""; # zemin resmi istemiyorsanız

# Alt Satırlarda Değişiklik yapmayınız !!!

$htmsayfa = $ENV{'HTTP_REFERER'};
$gonbrw = $ENV{'HTTP_USER_AGENT'};
$ip = $ENV{'REMOTE_ADDR'};
$ver = "2.13";
$altyazi = "</table>";
$altyazi .= "</center></body></html>";
$ciz = "\n";
&formoku;
&starihi;
$EMAIL = $FORM{'email'};
$gizle = $FORM{'gizle'};
print "Content-type:text/html\n\n";
print "<html><head><title>Form Mail</title><basefont face=\"$bazfont\"></head>";
print "<body";
if ($zemin) {print " background=\"$zemin\"";}
print <<"SON";
><center><table border="1" cellpadding="2"
cellspacing="0" bordercolor="#000000">
SON

open (MAIL, "|$mailprog") or &hata("$mailprog isimli programa ulaşılamadı!\n");
print MAIL "To: $kime\n";
print MAIL "Reply-to: $EMAIL ($FORM{'name'})\n";
print MAIL "From: KIZILYILDIZ\n"; #gönderen
print MAIL "Subject: Konu yazılacak.\n\n"; #konu

delete $FORM{'ekontrol'};
delete $FORM{'gizle'};
delete $FORM{'kime'};
delete $FORM{'buton'};

print MAIL "$ciz\n";
close(MAIL);

print <<"HTMLx";
<tr>
<td align="center">Formumuzu doldurduğunuz için teşekkür ederiz.<br>
Formdaki bilgiler, gerekli kişiye postalanmıştır.</td>
</tr>
HTMLx

if ($gizle ne "e"){&bilgiler}

print "$altyazi";
exit;

#--------------------- BİLGİLER ----------------
sub bilgiler{
print "<tr><td><center><u><b>Gönderilen bilgiler:</b></u></center><table>";

foreach $i (sort keys %FORM) {
print "<tr><td><b>$i:</b></td><td>$FORM{$i}</td></tr>";
}
print "</table></td></tr>";
}

#-------------------- SİSTEM TARİHİ ------------------
sub starihi {
($san,$dak,$saat,$gun,$ay,$yil,$hgunu,$yday,$isdst) = localtime(time+$sfark*3600);
@aylar = ("1","2","3","4","5","6","7","8","9","10","11","12");
@gunler = ("Paz","Pts","Sal","Çrş","Prş","Cum","Cts");
if ($san < 10) {$san = "0$san";}
if ($dak < 10) {$dak = "0$dak";}
if ($saat < 10) {$saat = "0$saat";}
if ($gun < 10) {$gun = "0$gun";}
$yil+=1900;
$date = "@gunler[$hgunu] $gun/@aylar[$ay]/$yil";
$time = "$saat:$dak:$san $ap";
}

#--------------------- FORM OKU ----------------
sub formoku{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@ciftler = split(/&/, $buffer);
foreach $cift (@ciftler){
($frmADI, $frmDEGER) = split(/=/, $cift);
$frmDEGER =~ tr/+/ /;
$frmDEGER =~ tr/</</;
$frmDEGER =~ tr/>/>/;
$frmDEGER =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$frmADI} = $frmDEGER;
}
}

#--------------------- BİTTİ ------------------
sub hata {
($hatatxt) = @_;
print <<"SON";
<tr><td align="center"><font color="#000000"><h2>H A T A !</h2>
</font>$hatatxt<br><a href="javascript:history.back()">Geri Dön</a>
</td></tr>$altyazi
SON
exit;
}

bunlar.

umarım biliyorsundur. cgi-bin/ klasörüne yükleyince CHMOD 755 olacak.

Alıntı yap

07/Ağu/03 14:12

Kısayol

Şikayet

Özel Mesaj

MohEmre

Kayıt Tarihi: 01/Temmuz/2003

nasi kullancaz biz bunu abücüm

This time, action must speak louder than words...

Alıntı yap

07/Ağu/03 14:33

Kısayol

Şikayet

Özel Mesaj

kabus

Kayıt Tarihi: 29/Temmuz/2002

Php ilede yapabilirsin asagidaki kodlari
mailpost.php diye kaydet...
----------

//code baslangici
<html>
<head>
<title>Form Mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</head>
<?
if ($gonder)
{
@mail($kime,$baslik,$icerik);
echo "Mesaj basariyla iletilmistir";
}
else
{

?>
<html>
<head>
<script>
function kontrol()
{
txterror='';
if (mail.baslik.value=='')
{ txterror=txterror+' - Baslik alani doldurulmamis\n' }
if (mail.icerik.value=='')
{ txterror=txterror+' - Içerik alani doldurulmamis\n' }
if (mail.kime.value=='')
{ txterror=txterror+' - Kime alani doldurulmamis\n' }
else {
p=mail.kime.value.indexOf('@');
if (p<1 || p==(mail.kime.value.length-1))
{ txterror=txterror+' - E-mail adresi dogru degil.\n' }
}

if (txterror) alert('Asagidaki hatalari lütfen düzeltin:\n\n'+txterror);
return (txterror == '');
}
</script>
</head>

<body>

<form method="post" action="mailpost.php" name="mail">
Kime : <input type="text" name="kime"><br>
Baslik: <input type="text" name="baslik"><br>
Içerik: <textarea name="icerik"></textarea><br><br>
<input type="submit" value="Gönder" name="gonder"
onClick="java script:return kontrol();">
</form>

</body>
</html>
<?
}
?>

<body>

</body>
</html>
//code bitti

Laaaaaan.

Alıntı yap

07/Ağu/03 17:33

Kısayol

Şikayet

Özel Mesaj

KIZILYILDIZ

Kayıt Tarihi: 08/Mart/2003

valla bunu anlamanız için cgi dan az da olsa anlamanız şart gibi.
malesef cgi, asp yada php gibi html içine gömülü çalışmıyo.

Alıntı yap

08/Ağu/03 09:41

Kısayol

Şikayet

Özel Mesaj

digital

Kayıt Tarihi: 01/Ağustos/2003

www.webmasterim.com

sevipte sevilmemek işte O bir ölüm...

Alıntı yap

29/Ağu/03 12:15

Kısayol

Şikayet

Özel Mesaj

aheadinc

Kayıt Tarihi: 18/Mayıs/2003

KIZILYILDIZ , Kabus cok teşekkür ederim.Çok işime yarayacak bunlar...

Alıntı yap

29/Ağu/03 12:22

Kısayol

Şikayet

Özel Mesaj

KIZILYILDIZ

Kayıt Tarihi: 08/Mart/2003

rica ederiz.

Alıntı yap

29/Ağu/03 12:47

Kısayol

Şikayet

Özel Mesaj

kabus

Kayıt Tarihi: 29/Temmuz/2002

reca ederiz hep beraber .

Laaaaaan.

Alıntı yap

26/Eyl/03 06:45

Kısayol

Şikayet

Özel Mesaj

karabasan78

Kayıt Tarihi: 20/Eylül/2003

yaw benim internet servis sağlayıcım ammada dangalakmış bana cgi ve asp desteği veremio o yüsden bu formların html kodlu olanı yokmu???

&&Zafere Çiçekli yollardan gidilmez...!!!&&

Alıntı yap