Need Your Assistance on Eggdrop Userfiles.

CoMMy · Post by **CoMMy** » Thu Dec 11, 2003 3:45 am

Hey Guys,
I need your help.

Can you write me a tcl that checks all users flags that exist in the eggdrops userfile and if someone doesnt have the "o" flag
(both global and channel) to remove the user?

Thank you

Post by **CrazyCat** » Thu Dec 11, 2003 4:05 am

Code: Select all

foreach $thisuser [userlist] {
   if {![matchattr $thisuser o]} {
      deluser $thisuser
   }
}

must be bugged, but you may correct it easily

Ofloo · Post by **Ofloo** » Fri Dec 12, 2003 9:13 am

foreach $thisuser [userlist] {

could be wrong on this but .. doesn't the $ need to be removed from thisuser variable when it's set ??

probably mestake :p

Post by **CrazyCat** » Fri Dec 12, 2003 11:19 am

sorry

too fast, too bad ...

Sure, it's

Code: Select all

foreach thisuser [userlist] {

Ofloo · Post by **Ofloo** » Sat Dec 13, 2003 12:37 am

hehe sorry didn't mean to be someone who points out mestakes thats easy

CoMMy · Post by **CoMMy** » Thu Dec 18, 2003 11:44 am

Thanks guys but i think i made a mistake in the question. Sorry about that. My Mistake.
What i wanted is to delete any user that DOES NOT have the "o" flag.
Thanx again.

Post by **CrazyCat** » Fri Dec 19, 2003 3:57 am

well, so learn tcl's basis...

Code: Select all

[matchattr $thisuser o]

means "if this user is o flagged..."
and

Code: Select all

![matchattr $thisuser o]

(note the !) means "if this user isn't o flagged"

CoMMy · Post by **CoMMy** » Fri Dec 19, 2003 6:44 am

Thanks Man.