This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

litle help

Support & discussion of released scripts, and announcements of new releases.
Post Reply
S
SlaSerX
Voice
Posts: 9
Joined: Sat Nov 30, 2013 4:47 pm

litle help

Post by SlaSerX »

Hi can u help me with this tcl i want to can use public cmd sample !vhost for add new host and any user can use. Thx

Code: Select all

# Warning! C-style comments (/* and */) in vhostfile might confuse this script
# Za da go upravlqva i ima dostap user do komandata trqbva da ima flag +V 
# Usage: .dellvhost spoof/vhost example: .dellvhost test.com
# Usage: .addvhost ident@host password vhost example: .addvhost 
# *ident@83.43.56.45 pass123 spoof.com
# Location ot ircd's vhosts.conf - bot must be on the same shell, or have access to it
set vhostfile "/home/ircd/docs/spoofs.conf"

# Location of bot's vhost data file - it will be created on first run
set vdbfile "/home/ircd/eggdrop/scripts/vhdb.dat"

# Vhost database refresh period in minutes
set vdbupdateinterval 60

# Vhost expiry time in days
set vhostexptime 30

# List of addresses (divided by spaces) to which vhost expiry alerts are mailed
set vhostexpnotifyaddrlist "sAw@mIRC.bg"

# List of vhosts (divided by spaces) exempt from reporting
set vhostexplist ""

# Bot's oper nick & password
set opernick "cloud"
set operpass "smotan"

# Bot's umodes, at least +c
set opermodes "cs"


### End of user specific settings ###

set vhtrackver "VHTrack 1.5s"
set vhostlist ""

if { ![file exists $vhostfile] } { die "[file tail [info script]]: cannot locate $vhostfile" }

proc vdbmain { } {
		  global vdbupdateinterval
		  putlog "Updating and saving vhost tracking database..."
		  vlistrefresh
		  vdbupdate
		  vhostcheck
		  timer $vdbupdateinterval vdbmain
		 }

proc vdbcreate { } {
		global vhostfile vhostlist
		set vhostlist [vhflparse]
		vdbupdate
	       }

proc vdbload { } {
	      global vdbfile vhostlist
	      if { [catch {set vdbload_vdbfile [open $vdbfile r]}] == 0 } {
		  set vhostlist ""
		  set vdbload_vdbline ""
		  while { [set vdbload_vdbline [gets $vdbload_vdbfile]] != "" } {
			 lappend vhostlist $vdbload_vdbline
			}
		  close $vdbload_vdbfile
		 } else {
		  filerrmsg $vdbfile reading
		 }
	     }

proc vhflparse { } {
		global vhostfile
		set vhflparse_vhostlist ""
		if { [catch {set vhflparse_vhostfile [open $vhostfile r]}] == 0 } {
		    set vhflparse_time [clock seconds]
		    while { ![eof $vhflparse_vhostfile] } {
			   set vhflparse_line [gets $vhflparse_vhostfile]
			   if { [regexp -nocase {^([\s\t]*)spoof([\s\t]*)=([\s\t]*)\"([\s\t]*)} $vhflparse_line] } {
			       lappend vhflparse_vhostlist "[lindex [split $vhflparse_line \"] 1] $vhflparse_time 0"
			      }
			  }
		    close $vhflparse_vhostfile
		   } else {
		    filerrmsg $vhostfile reading
		   }
		return $vhflparse_vhostlist
	       }


proc vdbupdate { } {
		global vdbfile vhostlist
		if { [catch {set vdbupdate_vhostfile [open $vdbfile w 0600]}] == 0 } {
		    set vdbupdate_con 0
		    set vhostlist [lsort -integer -index 1 $vhostlist]
		    while { $vdbupdate_con < [llength $vhostlist] } {
			   puts $vdbupdate_vhostfile [lindex $vhostlist $vdbupdate_con]
			   incr vdbupdate_con
			  }
		    close $vdbupdate_vhostfile
		   } else {
		    filerrmsg $vdbfile writing
		   }
	       }

proc vlistrefresh { } {
		   global vhostlist
		   set vlistrefresh_refreshedvhostlist ""
		   set vlistrefresh_con 0
		   if { [set vlistrefresh_vhostlist [vhflparse]] == "" } { return }
		   while { $vlistrefresh_con < [llength $vlistrefresh_vhostlist] } {
			  if { [set vlistrefresh_dbfoundnum [lsearch -regexp $vhostlist "^[lindex [split [lindex $vlistrefresh_vhostlist $vlistrefresh_con] \ ] 
0]\[\ \]1"]] > -1 } {
			      lappend vlistrefresh_refreshedvhostlist [lindex $vhostlist $vlistrefresh_dbfoundnum]
			     } else {
			      lappend vlistrefresh_refreshedvhostlist [lindex $vlistrefresh_vhostlist $vlistrefresh_con]
			     }				
			  incr vlistrefresh_con
			 }
		   set vhostlist $vlistrefresh_refreshedvhostlist
		  }

proc vhostentry { vhostentry_host vhostentry_pad vhostentry_text } {
		 global vhostlist
		 if { [lindex [split $vhostentry_text \ ] 5] == "connecting:" && [llength [split $vhostentry_host @]] == 1 } {
		     set vhostentry_dbindex [lsearch -regexp $vhostlist "^[set vhostentry_cnhost [lindex [split [string trim [lindex [split $vhostentry_text \ ] 7] \)] @] 1]]\[\ \]1"]
		     if { $vhostentry_dbindex < 0 } {
			 lappend vhostlist "$vhostentry_cnhost [clock seconds] 1"
			} else {
			 set vhostlist [lreplace $vhostlist $vhostentry_dbindex $vhostentry_dbindex "$vhostentry_cnhost [clock seconds] [expr [lindex [split 
[lindex $vhostlist $vhostentry_dbindex] \ ] 2] + 1]"]
			}
		    }
		}

proc vhostcheck { } {
		 global vhostlist vhostexplist vhostexptime vhostexpnotifyaddrlist botnick server
		 set vhostcheck_exptime [expr [clock seconds] - $vhostexptime * 86400]
		 set vhostcheck_newexps ""
		 foreach vhostcheck_vhost $vhostlist {
			  if { [lindex [split $vhostcheck_vhost \ ] 1] < $vhostcheck_exptime && [lsearch -exact $vhostexplist $vhostcheck_vhost] == -1 } {
			      lappend vhostexplist $vhostcheck_vhost
			      set vhostcheck_newexps "$vhostcheck_newexps \[[lindex [split $vhostcheck_vhost \ ] 2]\] [lindex [split $vhostcheck_vhost \ ] 0]\n"
			     }
			 }
		 if { $vhostcheck_newexps != "" && [regexp -nocase {[a-z0-9\.\-\_]+@[a-z0-9\.\-]*} $vhostexpnotifyaddrlist] } {
		     exec echo "Expired vhosts as monitored by $botnick on $server\:\n$vhostcheck_newexps" | mail $vhostexpnotifyaddrlist
		    }
		}

proc tracevhost { tracevhost_host tracevhost_pad tracevhost_text } {
		 vhostentry pad pad "pad pad pad pad pad connecting: pad [string trim [lindex [split $tracevhost_text \ ] 3] \]]"
		}


proc vhostadd { vhostadd_handle vhostadd_idx vhostadd_text } {
	       # arguments are: mask pass vhost
	       global vhostfile
	       set vhostadd_args [parsecline $vhostadd_text]
	       if { [regexp -nocase {^[a-z0-9\.\-\_\*\?\~]+@[a-z0-9\-\.\*\?]+} [lindex $vhostadd_args 0]] &&
		    [regexp -nocase {^[a-z0-9\-]+\.[a-z0-9\-\.]+$} [lindex $vhostadd_args 2]] && 
		    [string length [lindex $vhostadd_args 2]] < 63 } {
		   regexp {([^.]*\.[^.]*[.]*)$} [lindex $vhostadd_args 2] #vhostadd_domain
		   if { [catch {set vhostadd_hoststatus [exec host $vhostadd_domain]}] || [regexp -nocase {\ not\ found} $vhostadd_hoststatus] } {
		       if { [catch {set vhostadd_vhostfile [open $vhostfile a]}] == 0 } {
		           puts $vhostadd_vhostfile "#added by [idx2hand $vhostadd_idx] TS[clock seconds]\nauth \{\n	user = \"[lindex $vhostadd_args 0]\";\n		
spoof = \"[lindex $vhostadd_args 2]\";\n  password = \"[lindex $vhostadd_args 1]\";\n   flags = no_tilde, exceed_limit;\n    class = \"users\";\n\};\n"
			   close $vhostadd_vhostfile
			   putserv "REHASH"
			   putdcc $vhostadd_idx "Done."
			  } else {
			   filerrmsg $vhostfile concatenation
			  }
		      } else {
		       putdcc $vhostadd_idx "Resolver malfunction and/or domain $vhostadd_domain resolves!"
		      }
		  } else {
		   putdcc $vhostadd_idx "Invalid hostname(s) and/or sintax and/or vhost too long (max. 62 characters)\nUsage: addvhost ident@host password 
vhost"
		  }
	      }

proc vhostdell {vhostadd_handle vhostadd_idx vhostdell_text} {
       global vhostfile 
	 if {$vhostdell_text== ""} { putdcc $vhostadd_idx "Write some spoofs for me!"; return 0}
	set temp [open $vhostfile r]; set vhostdata [split [read $temp] "\n"]; close $temp
	set lr [lsearch -regexp $vhostdata "spoof = \"$vhostdell_text\";"]
	if {$lr== -1} { putdcc $vhostadd_idx "spoof name is not in server databace!"; return 0}
	set wr [open $vhostfile w]
	foreach inrcd "[lrange $vhostdata 0 [expr $lr - 4]] [lrange $vhostdata [expr $lr + 5] end-1]" {
      puts $wr $inrcd 
    }
	flush $wr; close $wr
	putdcc $vhostadd_idx "Spoof $vhostdell_text deleted! Rehashing server!"
	putserv "REHASH"
	putdcc $vhostadd_idx "Done."
}
		  
proc parsecline { parsecline_text } {
		 set parsecline_clist ""
		 foreach parsecline_element [split $parsecline_text \ \	] {
			  if { $parsecline_element != "" } {
			      lappend parsecline_clist $parsecline_element
			     }
			 }
		 return $parsecline_clist
		}

proc filerrmsg { filerrmsg_file filerrmsg_mode } {
		global vhtrackver
		putlog "\[$vhtrackver\]: Error! Cannot open $filerrmsg_file for $filerrmsg_mode\."
	       }

proc why_the_hell_cant_i_stick_a_single_line_command_here_dammit { okok_pad freeow_pad pff_pad } {
								  putserv "TRACE"
								 }

proc operid { operid_host operid_pad operid_text } {
	     global opernick operpass opermodes
	     putserv "OPER $opernick $operpass"
	     putserv "MODE $opernick +$opermodes"
	    }

if { ![file exists $vdbfile] } { vdbcreate } else { vdbload }

bind raw - NOTICE vhostentry
bind raw - 001 operid
bind raw - 204 tracevhost
bind raw - 205 tracevhost
bind raw - 381 why_the_hell_cant_i_stick_a_single_line_command_here_dammit
bind dcc V addvhost vhostadd
bind dcc V dellvhost vhostdell

while { [lsearch -regexp [timers] "\ vdbmain\ "] != -1 } {
       killtimer [lindex [split [lindex [timers] [lsearch -regexp [timers] "\ vdbmain\ "]] \ ] 2]
      }

timer $vdbupdateinterval vdbmain
w
willyw
Revered One
Posts: 1196
Joined: Thu Jan 15, 2009 12:55 am

Re: litle help

Post by willyw »

SlaSerX wrote: Hi can u help me with this tcl i want to can use public cmd sample !vhost for add new host and any user can use. Thx
...

Let's be sure of what you want.

As it is now, I see a partyline command:
.addvhost

Do you want a public command that does the same thing as that?
(whatever that is)


p.s.
I saw you on Freenode, but you left too soon. :)
S
SlaSerX
Voice
Posts: 9
Joined: Sat Nov 30, 2013 4:47 pm

Post by SlaSerX »

yeah i need that.. can u help me
w
willyw
Revered One
Posts: 1196
Joined: Thu Jan 15, 2009 12:55 am

Post by willyw »

Open your tcl script file for editing, and add this to the end of it.

Beware of line wraps.


Code: Select all

# new bind here
bind pub - "!addvhost" vhostadd_pub


#new proc here
proc vhostadd_pub {nick uhost handle chan text} {
          # arguments are: mask pass vhost
          global vhostfile
          set vhostadd_args [parsecline $text]
          if { [regexp -nocase {^[a-z0-9\.\-\_\*\?\~]+@[a-z0-9\-\.\*\?]+} [lindex $vhostadd_args 0]] &&
          [regexp -nocase {^[a-z0-9\-]+\.[a-z0-9\-\.]+$} [lindex $vhostadd_args 2]] &&
          [string length [lindex $vhostadd_args 2]] < 63 } {
         regexp {([^.]*\.[^.]*[.]*)$} [lindex $vhostadd_args 2] #vhostadd_domain
         if { [catch {set vhostadd_hoststatus [exec host $vhostadd_domain]}] || [regexp -nocase {\ not\ found} $vhostadd_hoststatus] } {
             if { [catch {set vhostadd_vhostfile [open $vhostfile a]}] == 0 } {
                 puts $vhostadd_vhostfile "#added by $handle TS[clock seconds]\nauth \{\n   user = \"[lindex $vhostadd_args 0]\";\n      
spoof = \"[lindex $vhostadd_args 2]\";\n  password = \"[lindex $vhostadd_args 1]\";\n   flags = no_tilde, exceed_limit;\n    class = \"users\";\n\};\n"
            close $vhostadd_vhostfile
            putserv "REHASH"

            ###putdcc $vhostadd_idx "Done."
		  putserv "privmsg $nick :Done."

           } else {
            filerrmsg $vhostfile concatenation
           }
            } else {
             ###putdcc $vhostadd_idx "Resolver malfunction and/or domain $vhostadd_domain resolves!"
             putserv "privmsg $nick :Resolver malfunction and/or domain $vhostadd_domain resolves!"
            }
        } else {
         ###putdcc $vhostadd_idx "Invalid hostname(s) and/or sintax and/or vhost too long (max. 62 characters)\nUsage: addvhost ident@host password vhost"   
         putserv "privmsg $nick :Invalid hostname(s) and/or sintax and/or vhost too long (max. 62 characters)\nUsage: addvhost ident@host password vhost"

        }
         }
All I did was copy the procedure, then change only the variables that are different from a bind dcc to a bind pub.

I have not tested this, nor can I. Sorry.

If I missed something, perhaps someone else will contribute.

I hope this helps.
S
SlaSerX
Voice
Posts: 9
Joined: Sat Nov 30, 2013 4:47 pm

tx

Post by SlaSerX »

thx it`s work
Post Reply