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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   man -k *NİX komut yardımı: (https://www.ircforumlari.net/tcl-scriptler/547278-man-k-nix-komut-yardimi.html)

saywhat 09 Eylül 2013 14:55

man -k *NİX komut yardımı:
 
kullanımı : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

;# komut başına gelecek sembol-işaret ne olacak:
set semb "."

;# hangi komutla sorgu yapılacak:
set kmt "man"

;# gösterilmesini istediğiniz maksimum satır sayısı:
set sonuc "5"

;# komutları kullanma hakkı hangi kullanıcı flaglarına tanınacak:
set kflags "mn|oa"

;#############ayarlar bitti###############################################################################

bind pub $::kflags $::semb$::kmt nix:man

 proc nix:man {nick uhost hand chan text} {
  set a [join [lrange [split $text] 0 end]]
  if {$a == ""} { puthelp "privmsg $chan :\002kullanımı :\002 \00314$::lastbind komut\00304 ..." return 0;}
  set b "man -k $a"
  catch {eval exec $b} c
  set output $c
  set i 0
  foreach line [split $output "\n"] {
    if {$i == $::sonuc} break
      putserv "privmsg $chan :\00304$line\00304"
    incr i
    }
  return 0
}

putlog "ok...."




shell'iniz-sistem dili hangi dil ise,o dilde geri dönüşü olur.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:17.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk