# oidentd.tcl Version 1.0 - An eggdrop script for using spoofed
# ident replys with the oidentd (Version 2.0.4).
#
# Copyright (C) 2002 Stephan Brendel
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
#
# -------------------------------------------------------------------------
namespace eval oident {
namespace eval variable {
#Set this to your idents you like to use with this Eggdrop
variable ident "$username"
#Set this to the full path of your .oidentd.conf [/home/username/.oidentd.conf]
variable conf "/home/ALEXANDROS/.oidentd.conf"
}
bind evnt - connect-server [namespace current]::setident
proc setident {type} {
set file [open $::oident::variable::conf "w"]
if {[llength $::oident::variable::ident] == 1} {
set ident "$::oident::variable::ident"
} elseif {[llength $::oident::variable::ident] > 1} {
set ident "[lindex "$::oident::variable::ident" [rand [expr [llength $::oident::variable::ident] - 1]]]"
}
puts $file "global { reply \"$ident\"}"
close $file
putlog "\002OIdent\002 Ident set to $ident"
}
}
putlog "oidentd.tcl Version 1.0 coded by Stephan Brendel loaded"
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. Edited by \002W\002ebsite: http://sp00fed.org"