[ITCL] - groupinfo

[jeza]

groupfile
slots 5 2
users 3

can i get the info in itcl script of users(names/uids) in group and wich of them have leech/ratio ? or maybe how many leech slots are free?

if how?

[neoxed]

proc GetUserList {} {
	set UserList ""
	foreach UserID [user list] {lappend UserList [resolve uid $UserID]}
	return [lsort -ascii $UserList]
}

proc GetGroupList {} {
	set GroupList ""
	foreach GroupID [group list] {lappend GroupList [resolve gid $GroupID]}
	return [lsort -ascii $GroupList]
}

proc GetGroupUsers {GroupID} {
	set UserList ""
	foreach UserName [GetUserList] {
		if {[userfile open $UserName] != 0} {continue}
		set UserFile [userfile bin2ascii]
		if {[regexp -nocase {groups ([\s\d]+)} $UserFile Result GIDList]} {
			if {[lsearch -exact $GIDList $GroupID] != -1} {lappend UserList $UserName}
		}
	}
	return $UserList
}

These functions return a list of users, groups and users in the specified group, respectively. If you want to find out a users ratio, you'll have to use ioFTPD's 'userfile' command to read their user file.

## This will create a list of user names with a ratio of 0 in section 0 in the STAFF group
set LeechUsers ""
set GroupUsers [GetGroupUsers [resolve group "STAFF"]]
foreach UserName $GroupUsers {
	if {[userfile open $UserName] == 0} {
	set UserFile [userfile bin2ascii]
	foreach UserLine [split $UserFile "\n"] {
		if {[string equal -nocase "ratio" [lindex $UserLine 0]]} {
			## Append the user to the leech list if they have a ratio of 0 in section 0
			if {[lindex $UserLine 1] == 0} {lappend LeechUsers $UserName}
			break
		}
	}
}

[jeza]

tnx

if {[regexp -nocase {groups((sd+)+)} $UserFile Result GIDList]} {

whats this 'groups((sd+)+)'

[neoxed]

Hmm, it appears the [PHP] vB tag removed the backslashes. I've corrected my previous post (using the [CODE] tag instead).

[jeza]

ok tnx for the help