TCL vHost Relay

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Jan 14, 2008
Last Updated	May 24, 2008
Tags	anope hostserv vhost

Introduction

This is just a simple relay snippet designed to output text to #vhost.

This only works for Anope IRC Services package and with logchan enabled. The script will match text sent to #services (or whatever logchan you have set within services.conf) and output it to #vhost, effectively informing the user their vhost was requested/activated/rejected.

Once loaded please use: !vhost on <- in your Services Logchan

Grab the Code

##
# vHost Relay - Get_A_Fix (ashnet/abjects)
##

setudef flag rvhost

set debugnick "Global"
set vhostchan "#vhost"

bind pub - !vhost chanset:vhost
proc chanset:vhost {n u h c t} {
  if {[matchattr $h o]} {

if {[lindex $t 0] == "on"} {
      channel set $c +rvhost
      puthelp "PRIVMSG $c :Enabled Vhost Relay."
    }

if {[lindex $t 0] == "off"} {
      channel set $c -rvhost
      puthelp "PRIVMSG $c :Disabled Vhost Relay."
    }
  }
}

bind pubm - * vhost:output
proc vhost:output {nick uhost hand chan text} {
  global vhostchan debugnick
  if {[lsearch -exact [split [string tolower $debugnick]] [string tolower $nick]] != -1} {
    if {[lsearch -exact [channel info $chan] +rvhost] != -1} {

if {([string match -nocase "*vhost*" $text]) && ([string match -nocase "*requested*" $text])} {
        set requester [lrange $text 2 end]
        putquick "PRIVMSG $vhostchan :\002New vHost\002: $requester"
      }

if {([string match -nocase "*request*" $text]) && ([string match -nocase "*activated*" $text])} {
        set requester [lindex $text 3]
        set activeoper [lindex $text 6]
        putquick "PRIVMSG $vhostchan :\002vHost Activation\002: $requester - Activated by: $activeoper"
        putquick "NOTICE $requester :$requester, your vHost has been activated by: $activeoper. Please type: /hostserv on - Thankyou."
      }

if {([string match -nocase "*request*" $text]) && ([string match -nocase "*rejected*" $text])} {
        set requester [lindex $text 3]
        set requested [lrange $text 4 end]
        putquick "PRIVMSG $vhostchan :\002vHost Rejected\002: $requester - $requested"
      }

if {([string match -nocase "*vhost*" $text]) && ([string match -nocase "*user*" $text]) && ([string match -nocase "*set*" $text])} {
        set hostset [lrange $text 0 end]
        putquick "PRIVMSG $vhostchan :$hostset"
      }

if {([string match -nocase "*vhost*" $text]) && ([string match -nocase "*user*" $text]) && ([string match -nocase "*deleted*" $text])} {
        set hostdel [lrange $text 0 end]
        putquick "PRIVMSG $vhostchan :$hostdel"
      }
    }
  }
}

putlog "Loaded: vHost Relay.."

Comments

(0) RSS

Go to Bottom

TCL vHost Relay

Introduction

Grab the Code

Comments

Get_A_Fix

My Snippet Tags

Contact

Sponsors


Last seen: May 26, 2008 Profile Snippets (5) Images (1) Comments Received (16) Comments Submitted (12) Forum Posts (7)