Vhost

[StaticZone]

hi
i'm looking for a Tcl Script that can provide vhost using hostserv on services any time a users join #vhost.. do a !request vhost.here.net.. so that hostserv can set it instead the admin of the network will have to set for each user..


Anyone can help me out


Thanks

Rishi

Admin Team

StaticZone IRc networks

[^DooM^]

This should do something like you wanted.

Code: Select all

bind pub - !request request:vhost

# set channel name here
set vhostchan "#vhost"

proc request:vhost { nick uhost hand chan text } {
    global vhostchan
    if {[string tolower $chan] == [string tolower $vhostchan]} {
        if {$text != ""} {
            putserv "PRIVMSG hostserv :chhost $nick $text"
        }
    }
}

I have no idea how hostserv works so I guessed at the command.

Also just be careful using this as anyone can set themselves a vhost and could clone another users real host and get them into trouble.

HTH

[De Kus]

I believe there should be a complex regexp and other check mechanics to check if $text is a valid hostname, to check if it matches an ISP revers dns (what it shouldn't. you could check the revers DNS of the given hostname, if it matchs, its no valid vhost. maybe you even do a ip check on all current online users to ensure he doesnt want to impose someone else), to check if another user outside of the nick group/link already uses that host (what it shouldnt either). No bad idea would be a fix delay of 1h and a limit of 1 request per 24h or something like that (you might give admins the ability to get a list of the current queue and manuelly deny single ones). besides all of that noone actually should be able to see the exact mechanices to minimilize the chance of abusing. As you can see, this script will take some time to be written and adjusted to your desire. I would suggest to get an TCL scripter into your staff .
If you don't mind all of that... use Dooms Code .