Acil yardim

sailor · 21.06.2001

Siteme bir form koymak istedim. Formu hazirladim ve cgi destegi olan netfirms.com a yerlestirdim ama bir turlu form handler yazamadim buldugum scriplerde pek ise yaramadi bu isi nasil cozerim 2 gundur ugrasiyorum.(Perl ogrenmeye yeni basladim)
????

nopel · 21.06.2001

Selamlar
Birde bunu dene istersen. Kendi serverine göre bazı yerleri değiştirmen gerekiyor.
Sevgiler

#!/usr/bin/perl

print "Content-type:text/HTML\n\n";

$mailprog = '/usr/sbin/sendmail';

# Buraya kendi mail adresinizi yazın

$gonderilen = 'mail@mail.com';

# form bilgileri okunuyor

read(STDIN, $tampon, $ENV{'CONTENT_LENGTH'});
@ciftler = split(/&/, $tampon);

# form bilgileri okunabilir hale getiriliyor

$formbilgileri = $tampon;
$formbilgileri =~ s/=/: /g;
$formbilgileri =~ s/&/\n/g;
$formbilgileri =~ s/\+/ /g;
$formbilgileri =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;

# mail gönderiliyor

open (mail, "|$mailprog $gonderilen") or &hata("$mailprog bulunamadı.\n");

print mail "Subject: form Bilgileri\n\n";
print mail "web sayfanızdaki formla gönderilen bilgiler aşağıdaki şekildedir:\n\n";
print mail "$formbilgileri\n\n";
print mail "Gönderenin:\n\n";
print mail "IP adresi: $ENV{'REMOTE_ADDR'}\n";
print mail "Kullandığı browser: $ENV{'HTTP_USER_AGENT'}\n";

close(mail);

# Teşekkür sayfası açılıyor.

print "<HTML><head><title>Teşekkürler</title></head>\n";
print "<body><h2>Teşekkürler</h2>\n";
print "form ile gönderdiğiniz bilgiler:<p>$formbilgileri<p>\n";
print "</body></HTML>\n";

# hata alt programı

sub hata {
($hatamesaji) = @_;
print "<HTML><head><title>Hata!</title></head>\n";
print "<body><h2>Hata</h2>$hatamesaji<p></body></HTML>\n";
exit;
}

# Bittii

21.06.2001	#1 (permalink)
sailor Üyelik Tarihi: 06.06.2001 Yer: Ankara Yaş: 34 Mesaj: 10	Acil yardim Siteme bir form koymak istedim. Formu hazirladim ve cgi destegi olan netfirms.com a yerlestirdim ama bir turlu form handler yazamadim buldugum scriplerde pek ise yaramadi bu isi nasil cozerim 2 gundur ugrasiyorum.(Perl ogrenmeye yeni basladim) ???? __________________ sailor

21.06.2001	#2 (permalink)
nopel Üyelik Tarihi: 14.02.2001 Yer: Ankara Yaş: 28 Mesaj: 176	Birde şunu dene Selamlar Birde bunu dene istersen. Kendi serverine göre bazı yerleri değiştirmen gerekiyor. Sevgiler #!/usr/bin/perl print "Content-type:text/HTML\n\n"; $mailprog = '/usr/sbin/sendmail'; # Buraya kendi mail adresinizi yazın $gonderilen = 'mail@mail.com'; # form bilgileri okunuyor read(STDIN, $tampon, $ENV{'CONTENT_LENGTH'}); @ciftler = split(/&/, $tampon); # form bilgileri okunabilir hale getiriliyor $formbilgileri = $tampon; $formbilgileri =~ s/=/: /g; $formbilgileri =~ s/&/\n/g; $formbilgileri =~ s/\+/ /g; $formbilgileri =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # mail gönderiliyor open (mail, "\|$mailprog $gonderilen") or &hata("$mailprog bulunamadı.\n"); print mail "Subject: form Bilgileri\n\n"; print mail "web sayfanızdaki formla gönderilen bilgiler aşağıdaki şekildedir:\n\n"; print mail "$formbilgileri\n\n"; print mail "Gönderenin:\n\n"; print mail "IP adresi: $ENV{'REMOTE_ADDR'}\n"; print mail "Kullandığı browser: $ENV{'HTTP_USER_AGENT'}\n"; close(mail); # Teşekkür sayfası açılıyor. print "<HTML><head><title>Teşekkürler</title></head>\n"; print "<body><h2>Teşekkürler</h2>\n"; print "form ile gönderdiğiniz bilgiler:<p>$formbilgileri<p>\n"; print "</body></HTML>\n"; # hata alt programı sub hata { ($hatamesaji) = @_; print "<HTML><head><title>Hata!</title></head>\n"; print "<body><h2>Hata</h2>$hatamesaji<p></body></HTML>\n"; exit; } # Bittii __________________ Köle Gibi yaşamaktansa ÖLMEYİ yeğlerim... Cahar Dudayev

Sponsorlu Bağlantılar
Zoque.Forum Reklam