# 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"