DBaseBL.tcl

##############################################################################################
##  ##        DBasebl.tcl v1.337 for eggdrop by munZe irc.dbase.in.rs                   ##  ##
##############################################################################################
##############################################################################################
##      ____                __                 ###########################################  ##
##     / __/___ _ ___ _ ___/ /____ ___   ___   ###########################################  ##
##    / _/ / _ `// _ `// _  // __// _ \ / _ \  ###########################################  ##
##   /___/ \_, / \_, / \_,_//_/   \___// .__/  ###########################################  ##
##        /___/ /___/                 /_/      ###########################################  ##
##                                             ###########################################  ##
##############################################################################################
##  ##                             Start Setup.                                         ##  ##
##############################################################################################
package require http
package require tls
#http::register https 443 [list ::tls::socket -tls1 1]
namespace eval DBase {
## Podesava nulu sa dve decimale (NE DIRATI)                                                ##
  set NULLA [format "%.2f" 0]
## ako je sadrzaj izlaza > od neke konstante koju definisemo (npr. 60.6) da banuje          ##
  set BanAkoJeVeceOd [format "%.2f" 0]
## Kanal na koji ce da siba poruke                                                          ##
  set KanalZaObavestenja "#Services"
## ako je sadrzaj izlaza < 0 da ispise da je problem                                        ##
  set ManjeOdNuleNaKanaluIspisuje ""
## Change bantype to the type of ban you want: gzline, zline                                ##
  set bantype "GLINE"
## Change bantime to the length of ban you want                                             ##
  set bantime "12h"
## Change opernick and operpass to reflect the info from the bots oper block                ##
## If you already have a oper script, comment out the bind at the bottom of this script     ##
 # set opernick opernickhere
 # set operpass operpasshere
##############################################################################################
##  ##                           End Setup.                                              ## ##
##############################################################################################

  proc IPlookup {ip} {
    set url "http://check.getipintel.net/check.php?ip=$ip&contact=admin@dbase.in.rs&flags=m"
    set token [ ::http::geturl $url ]
    if {[::http::status $token] == "ok"} {
      set page [ ::http::data $token ]
      set ajdedagamerimo [regexp -all -inline {\d+} $page]
      #if {$ajdedagamerimo <= $DBase::NULLA} { putmsg $DBase::KanalZaObavestenja $DBase::ManjeOdNuleNaKanaluIspisuje }
      if {$ajdedagamerimo == 1} { putnow "$DBase::bantype *@$ip $DBase::bantime :No VPNs on DBase, use your real IP n00b!" }
    } else { putmsg $DBase::KanalZaObavestenja Error: IPCheck Status: [::http::status $token] }
  }

  proc connection {host type text} {
    if {[string match -nocase {*client connecting*} $text]} {
      #Gets IP
      regexp -- {.*@([^\)]+)} $text null ip
      #Check IP
      DBase::IPlookup $ip
    }
  }

  #proc operup {type} {
  #  putserv "OPER $DBase::opernick $DBase::operpass"
  #}
}
bind raw - NOTICE DBase::connection
## You can comment out the event below if you already have a oper script for this bot.
#bind evnt - init-server DBase::operup