user@host.tcl

[Pitchat]

Hi ,
i`m using user@host1.1.tcl and it works juste fine but i`d like to know if it is possible to modify the way the userhost is display

exemple
[05:33] (Pitchat): !user@host
[05:33] (@Aide-moi): Pitchat :your user2host is: *!*Pitchat@*.undernet.org

and i`d like to have it that way : *!*Pitchat@Pitchat.users.undernet.org

to be consistent with the new ( not so new now) X from undernet

thanks

Code: Select all

                   ##################################
                   #                                #
                   #      !User@host TCL            #
                   #             by deku            #
                   ##################################

################################################################################
#This TCL provides to users the possibility to get their user@host when        #
#they request it to the bot via the !user@host command. You can also ask the   #
#bot to give the user@host to someone by typing !host <nick>.                  #
################################################################################



##########################################
#If you have questions/comments, you can #
#contact me at: mrdeku@hotmail.com       #
##########################################

bind pub - !User@host pub_user@host
bind pub - !host pub_host

proc pub_host {nick uhost hand chan arg} {
set arg [charfilter $arg]
set alternate [lindex [split $arg] 2]
set hostmask "$nick!*[getchanhost $arg $chan]"
putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $alternate [maskhost $hostmask]"
}

proc pub_user@host {nick uhost hand chan arg} {
set alternate [lindex [split $arg] 2]
set hostmask "$nick!*[getchanhost $nick $chan]"
putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $alternate [maskhost $hostmask]"
}

putlog "!user@host TCL by deku is now loaded."

[GodOfSuicide]

change

Code: Select all

putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $alternate [maskhost $hostmask]" 

to
a) allways display full host

Code: Select all

putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $hostmask" 

b) full host only with undernet

Code: Select all

if {[string match "*users.undernet.org" $hotmask]} {
putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $hostmask" 
} else {
putchan $chan "$nick  $arg :Ton masque d`adresse (User@host) est: $alternate [maskhost $hostmask]" 
}