Bu Tcl Dosyamız
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set db "../puplic_html/istek/veri.txt"
set gecikme_zamani "1"
set wait "1"
bind time - "* * * * *" time:optara
proc time:optara {min hour day month year} {
global db wait gecikme_zamani
set file [open $db r]
set listfile [split [subst -nocommands [read $file]] "\n"]
foreach i $listfile {
set wait [expr $wait + $gecikme_zamani]
set ch "#Dj"
utimer $wait[list putserv "privmsg $ch :$i"]
}
set filem [open $db w]
set listfilem [split [subst -nocommands [read $filem]] "\n"]
foreach i $listfilem {
set wait [expr $wait + $gecikme_zamani]
set ch "#Dj"
utimer $wait[list putserv "privmsg $ch :$i"]
}
close $file
}
yukarıdaki set db "../puplic_html/istek/veri.txt" isteklerin kayıt olacağı txt dosyasıdır bunun yerini doğru girmek önemli.
ve veri.txt dosyasının chmod değerini 777 yapınız. ben öyle yaptım belki silip yazamaz diye
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Buda index.php Dosyamız
Kod: Kodu kopyalamak için üzerine çift tıklayın!
<?php
ob_start();
?>
<html>
<head>
<title>Sunucuİsmi Radyo İstek</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="FFF4DF">
<div align=center>
<table width=258 height="271" border=0 cellpadding=0 cellspacing=0>
<form action=iste.php method=post>
<tr>
<td height="31" colspan="3"><div align="center"><font face=Tahoma size=2 color=brown><b>
Sunucuİsmi
Radyo İstek</b></font></div></td>
</tr>
<tr>
<td width="71" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>İsminiz:</strong></font></div></td>
<td width="11"> </td>
<td width=208 align=left><input type=text size=25 name=isim></td>
</tr>
<tr>
<td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Sanatçı:</strong></font></div></td>
<td> </td>
<td align=left><input type=text size=25 name=sanatci></td>
</tr>
<tr>
<td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Şarkı:</strong></font></div></td>
<td> </td>
<td align=left><input type=text size=25 name=sarki></td>
</tr>
<tr>
<td height="139" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Mesaj:</strong></font></div></td>
<td> </td>
<td align=left ><textarea rows=8 cols=20 name=mesaj></textarea></td>
</tr>
<tr>
<td colspan="3"><div align="center">
<input type=submit value=Gönder size=20 name=gonder>
</div>
</form>
</table>
</div>
</body>
</html>
Ve Buda iste.php Dosyamız
Kod: Kodu kopyalamak için üzerine çift tıklayın!
<html>
<head>
<title>Sunucİsmi Web İstek</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="#FFF4DF">
</head>
<body>
<?php
$isim = $_POST['isim'];
$sanatci = $_POST['sanatci'];
$sarki = $_POST['sarki'];
$mesaj = $_POST['mesaj'];
if ($sanatci == "" OR $sarki == "" OR $mesaj == "") {
echo "<center>Lütfen Boş Alan Bırakmayınız.<br><a href='index.php'>Geri</a></center>";
} else {
$dosya_adi = "veri.txt";
$dosya = fopen ($dosya_adi , 'w') or die ("Hata! Lutfen Tekrar Deneyiniz!");
$yazi = "\00304,01 İsim:\00309,01 $isim \00304,01Sanatçı:\00309,01 $sanatci \00304,01Şarkı:\00309,01 $sarki \00304,01Mesaj:\00309,01 $mesaj ";
fwrite ( $dosya , $yazi ) ;
echo "<font color=red size=2 face=Arial><b><center>İsteğiniz sunucularımıza iletilmiştir.</b><br><br>
<FORM>
<INPUT TYPE='BUTTON' VALUE='Kapat'
NAME='lowerButton' onClick='self.close()'>
</FORM></center>
</font>";
}
?>
</body>
</html>
bu iste.php index.php ve boş bir veri.txt dosyalarını istek klasörüne attığınızda uyumlu bir şekilde çalışacaktır önemli olan tcl dosyasına veri.txt dosyasını doğru bir şekilde göstermektir.
Fazla php ve tcl kodlarından anlamadığımı söylemiştim.
Sizin verdiğiniz yöntemleri kullanarak birşeyler çıkarmaya çalıştım işte hepinize teşekkür ediyorum.
Umarım işinize Yarar
Not: Denenmiştir..