IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - webden istegi bot kanala atsin (https://www.ircforumlari.net/eggdrop-neostats-bnc/125137-webden-istegi-bot-kanala-atsin.html)

webden istegi bot kanala atsin

Boyle bir sey yapmayi dusunuyorum ve cok fazla tcl, php anlamam o yuzden yardımlarınızı bekliyorum.

duşuncem şu şekilde:

webden yapılan istekler bir txt dosyasına kayıt olacak ve eggdrop botuda txt dosyasına kayıt olduğu zaman kanala yansıtıp txt dosyasındakileri silecek.

bu şekilde bi kod yazılabilirmi yazılamazsa önerileriniz nelerdir :S

Cevap: webden istegi bot kanala atsin

Bu Tcl Dosyamız

Kod:

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 :)

Buda index.php Dosyamız

Kod:

<?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">&nbsp;</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>&nbsp;</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>&nbsp;</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>&nbsp;</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:

<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..

Cevap: webden istegi bot kanala atsin

Hocam dediklerinizi aynen uyguladım webden girip istek yapıyorum weri.txt e isteği yazıyor fakat kanala aktarmıyor.tcl dediklerinizi normal radyo.tcl doyasının en altına ekledim nerde yanlışlık yapıyorum acaba set db "../puplic_html/radyo/veri.txt" buda bu şekilde ayarlı

Cevap: webden istegi bot kanala atsin

sizdeki veri.txt mi weri.txt mi?

ŞaH42 yukardaki mesajında bir yerde weri diğer yerde veri.txt demişin senin oluşturduğun txt dosyasının adını set db "../puplic_html/radyo/veri.txt" bu yere doğru girdiğine emin misin?

Cevap: webden istegi bot kanala atsin

birde bence o tcl kodu ayrı bir txt açıp veri.tcl vs gibi bi adla yeni bir tcl olarak ekle radyo.tcl içinden sil botunun confunda source scripts/veri.tcl vs gibi göstertip rehash yaptırt yada yeniden başlat bide böyle dene bakalım olacak mı?

Cevap: webden istegi bot kanala atsin

Kod:

set db "../puplic_html/istek/veri.txt"

Kodunu;

Kod:

set db "../public_html/istek/veri.txt"

şeklinde değiştirin, index.php ve iste.php dosyalarını FTP'nizde public_html/istek klasörüne atınız.

Kod:

utimer $wait[list putserv "privmsg $ch :$i"]

Kod:

utimer $wait[list putserv "privmsg $ch :$i"]

TCL'deki $wait ile [ işaretinin arasındada boşluk olması gerekiyor.

Cevap: webden istegi bot kanala atsin

Evet onları hallettimde birde bot kanala çok geç atıyor mesela 5 saniye içinde 3 istek istense sadece en son yazılanı kanala atıyor bunu hızlandırmanın bir yöntemi varmıdır

Eggdrop #define migrate zaten 0 olarak ayarlı timer e -h kipi olarak milisaniyeye düşürmeye çalıştım oda olmadı.

Hatta veri.txt dosyasını eggdrop klasörünün içine yazdırdım ordan çekiyor bot ama hala yavaş.

Birde şu var : Tcl error [time:optara] : "file25" wasn't opened for reading ; diye çalışıyor ama neden tcl error hatası veriyor onu anlayamadım.

Cevap: webden istegi bot kanala atsin

yukardaki tcldeki putserv'leri putquick olarak değişirsenz daha çabuk atacaktır. msg

bide bunlar var bunları 0 olarak deneyebilirsinz.
set gecikme_zamani "1"
set wait "1"

Cevap: webden istegi bot kanala atsin

TcL Tam paylaşman gerekiyor.

Cevap: webden istegi bot kanala atsin

istek.conf

Kod:

loadmodule channels

loadmodule server

loadmodule ctcp

loadmodule irc

loadmodule notes

loadmodule console

loadmodule blowfish

set username "xxxxxxxx"

set nick "Webistek"

set altnick "Webistek2"

set my-ip "xxxxxxxxxxxx"

set my-hostname "xxxxx.Com"

set realname "xxxx.Com"

set init-server { 

putserv "identify xxxxxx" 

putserv "oper xxxxx  xxxxx"

putserv "MODE Webistek +D"

}

set servers {

   xxx.xx.xx.xx:xxxx

}

  channel add #istek {

  need-op { putserv "MODE #istek +v Webistek" }

  }

set net-type 5

set owner "ŞaH"

set userfile "Komik.user"

set chanfile "Komik.chan"

logfile jpk #opers "logs/istek.log"

set shortnick "Webistek"

set home "#istek"

set mod-path "modules/"

set help-path "help/"

set text-path "text/"

listen 3334 all

logfile msbxco * "logs/istek.log"

set console "mkcobxs"

loadmodule uptime

source scripts/alltools.tcl

source scripts/action.fix.tcl

source scripts/istek.tcl

istek.tcl

Kod:

set db "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 "#istek"

utimer $wait[list putserv "privmsg $ch :1,4 İstek: $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 "#istek"

utimer $wait[list putserv "privmsg $ch :$i"] 

} 

close $file 

}

Cevap: webden istegi bot kanala atsin

kafa yorucu :)

böyle birşey üstünde calişiyorum bitirince Paylaşmayı düşünüyorum kısa süre icerisinde

Cevap: webden istegi bot kanala atsin

Alıntı:

ŞaH42 Nickli Üyeden Alıntı (Mesaj 1041025410)

Birde şu var : Tcl error [time:optara] : "file25" wasn't opened for reading ; diye çalışıyor ama neden tcl error hatası veriyor onu anlayamadım.

Bu hata : file25 adlı dosyanın okunmak için açılamadığını belirtiyor. Onun karşılığı neyse o dosyayı denetlemelisin. Okuyamadığı dosyayı yansıtamaz.

Cevap: webden istegi bot kanala atsin

Şu Konuyu bi açıklığa Kavuştursak Güzel Olur.

Cevap: webden istegi bot kanala atsin

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey kardeşim kavuşturalım..

Kod:

#######################################

# TcL scripting WEB TXT Aktarılan     #

#  verileri #chan  kanalına gönderir. #

#   TcL coder CLubber                 #

#                                     #

#     Düzenleme MesqeN                #

#######################################

# Zaman Aralıgını 4 olarak belirledim # 

# isteginize Göre degiştirebilirsiniz.# 

# Chan Yazan yere veriyi istediginiz  #

# Kanal adını yazın..                 #

# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan yere veri     #

# Cekceginiz adresi yazın....         #

#######################################

set zaman_araligi "4"

if {![string match "*basla*" [timers]]} {  

  timer $zaman_araligi basla  

}  

proc basla {{text ""}} {

  global zaman_araligi 

  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 

  set files [::http::data $connect] 

  set list [split [subst -nocommands $files] "w"]

  foreach i $list {

  putquick "PRIVMSG #Chan $i"

      ::http::cleanup $files

  }

 timer $zaman_araligi basla

}

putlog "#######################################"

putlog "  banac TCL v1.0.2 Load edildi        #"

putlog "#######################################"

NOTE denemeler yapıldı ve Sorunsuz olarak çalışmakta

Cevap: webden istegi bot kanala atsin

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Dostum inanırmısın 2 gündür Uğraşıyorum Halende Olmadı.

webistek.tcl

PHP- Kodu:

   #######################################
# TcL scripting WEB TXT Aktarılan     #
#  verileri #chan  kanalına gönderir. #
#   TcL coder CLubber                 #
#                                     #
#     Düzenleme MesqeN                #
#######################################
# Zaman Aralıgını 4 olarak belirledim # 
# isteginize Göre degiştirebilirsiniz.# 
# Chan Yazan yere veriyi istediginiz  #
# Kanal adını yazın..                 #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set zaman_araligi "0"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "w"]
  foreach i $list {
  putquick "PRIVMSG #DJ $i"
      ::http::cleanup $files
  }
 timer $zaman_araligi basla
}
putlog "#######################################"
putlog "  banac TCL v1.0.2 Load edildi        #"
putlog "#######################################"

panel.conf

PHP- Kodu:

   #
#            Eggdrop Bot                  
#                                         
#      SekerShell International Service      
#
###########################################
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "SeckinShell"
set nick "P-Bot"
set altnick "bot"
set my-ip "109.235.253.9"
set my-hostname "SeckinShell.Com"
set realname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set init-server { 
putquick "identify *******" 
putquick "oper Bot *******"
putquick "MODE P-Bot +D"
}
set servers {
   109.235.253.9:2291
}
 channel add #Dj {
  need-op { putquick "MODE #Dj +v P-Bot " }
    }
 channel add #AskFM {
  need-op { putquick "MODE #AskFM +v P-Bot " }
    }


set net-type 5
set owner "OzeL"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #opers "logs/Selvinaz.log"
set shortnick "Korku"
set home "#Soz"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/selvinaz.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/webistek.tcl

İNDEX.PHP

PHP- Kodu:

   <?php
ob_start();
?>
<html>
<head>
<title>AskFM İstek Paneli</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>
   <center> <a href="http://askyerim.net/askfm/index.php">

<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a> </b></font></div></td></center>
</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">&nbsp;</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>&nbsp;</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>&nbsp;</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>&nbsp;</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>

iste.php

PHP- Kodu:

  
<html>
<head>
<title>AskFM İstek Paneli</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>

 <center> <a href="http://askyerim.net/askfm/index.php">

<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a></center>
<?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>

Uyguladığım Sayfa :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: webden istegi bot kanala atsin

Paylaşımın güzeligine kendi güzeligini yansıtmışsın üstadım..

Fakat şöyle bir problem doguyor..

Bot malum indexi gönbdermiş olduğu txt dosyasını silemiyor.

ve sürekli aynı şeyleri kanala gönderiyor.

bunu web olarak belirli Aralık TCL göre 4 5 dk da bir sildirmek mümkünmüdür.

Cevap: webden istegi bot kanala atsin

cron ile dosya sildirile bilir

Cevap: webden istegi bot kanala atsin

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fikeren sildirile bilir olması yetersiz. Bizler için.

istek dk sonra silincek. veri.txt içerisinden hepsi bu.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:07 -->-> Daha önceki mesaj 23:03 --

Uyguladıgım sistem : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

veri işlev Adresi irc.kelebek.gen.tr -j #radyo

istek isteyerek ircd Görebilirsiniz.

Örnek Gösterim :
[KBSC] [ 23::08 ] <KLBKRadyo> istek Ferdi Tayfur prangalar Kelebek ailesine gelsin..