Help op script

[Ni0]

Hello i am using this script on a help channel for users to see active operators
#############################################################
###
### Operator Status v0.4:
### Allows Operators to set themself to away or available,
### users can simply type !status (or a custom command) and
### they will get the status for the operators currently on
### the channel. All works with public commands.
###
### Written by [ThEdGE] by the idea of [bi0h4z4rd].
###
### Install: add "source scripts/OPs.tcl" to your eggdrop.conf,
### and configure the options below!.
###
#############################################################



But i have some problems when two three ppl type !status the eggdrop crash i recieve a message in the log file
to many open files
eggdrop conf not found anyone can help? http://www.egghelp.org/cgi-bin/tcl_arch ... oad&id=718

[DragnLord]

1) when asking for help with a script, post the script using the 'code' tags
2) ask for help in 'Scripting Help'. not 'Script Requests'

moderators: this belongs in 'Scripting Help'

[demond]

more hints:

3) post the source; very few people would bother to download and inspect code; if we can have a glimpse at the source, it's more likely someone will be willing to help you
4) read the top sticky post, if you haven't done so already

[Ni0]

Code: Select all

#############################################################
###
### Operator Status v0.4:
###  Allows Operators to set themself to away or available,
###  users can simply type !status (or a custom command) and
###  they will get the status for the operators currently on
###  the channel. All works with public commands.
###
###  Written by [ThEdGE] by the idea of [bi0h4z4rd].
###
### Install: add "source scripts/OPs.tcl" to your eggdrop.conf,
###          and configure the options below!.
###
#############################################################

### Options

### Channel where the script will function.
set channel "#Chan"

### AutoAway feature, when a op is idle for X mins set automaticly away.
### Then when he says something when hes away, hes put back to active again.
### Default: 30 mins (set to "0" to disable)
set awaymins "30" 

### Command that people will have to type to get the status of all ops.
### Default: !status
set cmd1 "!status"

### Command that ops will have to type to set themselfs on Available.
### Default: !on
set cmd2 "!on"

### Command that ops will have to type to set themselfs on Away.
### Default: !off
set cmd3 "!off"

### Small tag that will be shown in the text the bot will msg.
### Default: [OPs]
set systag "\037\[\037\002OPs\002\037\]\037"

### Nickname(s) to ignore, usually bots.
set ignorednicks {
 	"ChanServ"
	"X"
 	"Y" 
}

### Shows a extra line when !status is triggered for the ignored nicks,
### use this when you added bots to it, it will show a line like:
### Bots on this channel: <nicknames>, just for information to the users.
### Default: "0", set "1" to enable.
set showbots "1"

### Enable logging, when enabled it will log events like when op put himself on
### away or active, and when someone requests a status in the eggdrop log.
### Default: "1", use 0 to disable.
set logging "1"

### Path and filename of the Plain text database
### Default: scripts/OPs.data
set dbpath "scripts/OPs.data"


### Dont touch the code below, or it will fux0r :)
#############################################################
#############################################################


bind PUB - $cmd1 cmd1
bind PUB - $cmd2 cmd2
bind PUB - $cmd3 cmd3

bind time - "?? * * * *" checkidleops

### Procedure which will check if the ops are idle or not.
###################################################################################
proc checkidleops {minute hour day month year} {
 global channel systag ignorednicks showbots dbpath awaymins

 ### Check if autoaway is disabled.
 if {$awaymins == "0"} { return }

 ### Check if database file exists, make one if needed.
 if {[catch { open $dbpath r } error]} { 
  set dbnew [open $dbpath w]
  fconfigure $dbnew -blocking 0
  close $dbnew
 }

 ### Create the channel op list, and remove ignorednicks
 set oplist [list]
 foreach nickn [chanlist $channel] {
  if {[isop $nickn $channel]} { 
   set ignore "0"
   foreach inick $ignorednicks {
    set nickn2 $nickn
    set nickn2 [string tolower $nickn2]
    set inick [string tolower $inick]
    if {$nickn2 == $inick} {
     set ignore "1"
    }
   }
   if {$ignore == "0"} {
    set oplist [linsert $oplist end $nickn]
   }
  }
  #close oplist if
 }
 # Close oplist foreach

 ### Read in database.
 set db [open $dbpath r]
 fconfigure $db -blocking 0
 set nicklist [list]
  while {![eof $db]} {
   set line [gets $db]
   if {$line != ""} {
    set nicklist [linsert $nicklist end $line]
   }
  } 
 close $db

  ### Check if ops are idle and check if they are already away or not.
  set db [open $dbpath w]
   fconfigure $db -blocking 0
   foreach op $oplist {
    set ndupe "0"
    set idle [getchanidle $op $channel]
     if {$idle > "$awaymins"} {
      foreach nickn $nicklist {
       if {$nickn == $op} {
        set ndupe "1"
        puts $db "$nickn"
       }
      }
     }

    ### Op has been idle, set away.
    if {$ndupe == "0" && $idle > "$awaymins"} {
     puts $db "$op"
     putserv "NOTICE $op : $systag You have been idle for more then $awaymins mins on $channel you are now set on : \002Away\002"
     log " $op has been put on away (autoaway)"
    }
   }
  close $db
}
# end proc


### Procedure which will echo the user the information about ops away or active.
###################################################################################
proc cmd1 { nick uhost handle chan arg} {
 global channel systag ignorednicks showbots dbpath
 log "$nick requested the operater status"

 ### Check if this is the right channel to function on.
  set chan [string tolower $chan]
  set channel [string tolower $channel]
  if {$chan != $channel} { return }

 ### Check if database file exists, make one if needed.
 if {[catch { open $dbpath r } error]} { 
  set dbnew [open $dbpath w]
  fconfigure $dbnew -blocking 0
  close $dbnew
 }

 ### Open away database for reading.
 set db [open $dbpath r]
 fconfigure $db -blocking 0

 ### Create various lists used in the script.
 set nicklist [list]
 set oplist [list]
 set tempawaylist [list]
 set awaylist [list]
 set activelist [list]

 ### Read database and insert everything in a temp awaylist.
 while {![eof $db]} {
  set line [gets $db]
   if {$line != ""} {
    set tempawaylist [linsert $tempawaylist end $line]
   }
  } 
 close $db

 ### Validate awaylist by checking if the users are in the chan and opped.
 foreach nickn $tempawaylist {
  if {[isop $nickn $chan]} { 
   set awaylist [linsert $awaylist end $nickn]
  }
 }

 ### Create the channel op list, and remove ignorednicks
 foreach nickn [chanlist $chan] {
  if {[isop $nickn $chan]} { 
   set ignore "0"
   foreach inick $ignorednicks {
    set nickn2 $nickn
    set nickn2 [string tolower $nickn2]
    set inick [string tolower $inick]
    if {$nickn2 == $inick} {
     set ignore "1"
    }
   }
   if {$ignore == "0"} {
    set oplist [linsert $oplist end $nickn]
   }
  }
  #close oplist if
 }
 # Close oplist foreach

 ### Extract the active people from the OP list.
 foreach nicko $oplist {
  set away 0
  foreach nicka $awaylist {
   if {$nicko == $nicka} { 
    set away 1
   }
  }
  if {$away == 0} {
   set activelist [linsert $activelist end $nicko]
  }
 }
 ### Format a row of nicks who are active.
 set activenicks ""
 foreach nickn $activelist {
  if {$activenicks == ""} {
   set activenicks "$nickn"
  } else {
   set activenicks "$activenicks, $nickn"
  }
 }
 ### Format a row of nicks who are away.
 set awaynicks ""
 foreach nicka $awaylist {
  if {$awaynicks == ""} {
   set awaynicks "$nicka"
  } else {
   set awaynicks "$awaynicks, $nicka"
  }
 }

 ### Echo the user the result of the active operators.
 if {$activenicks != ""} {
  putserv "NOTICE $nick : $systag Operators who are Available : $activenicks"
 } else {
  putserv "NOTICE $nick : $systag There are no Operators Available at this time"
 }

 ### Echo the user the result of the away operators.
 if {$awaynicks != ""} {
  putserv "NOTICE $nick : $systag Operators who are Away : $awaynicks"
 } else {
  putserv "NOTICE $nick : $systag There are no Operators Away at this time"
 }

 ### Echo the user the bot info if enabled.
if {$showbots == "1"} {
 set bots ""
 foreach bot $ignorednicks {
  if {[isop $bot $chan]} { 
   if {$bots == ""} {
    set bots "$bot"
   } else {
    set bots "$bots, $bot"
   }
  }
 }
 if {$bots != ""} {
  putserv "NOTICE $nick : $systag Bots on this channel are : $bots"
 } else {
  putserv "NOTICE $nick : $systag There are no Bots in this channel at this time."
 }
}

}
# close proc


### Procedure which will put a Op on active
###################################################################################
proc cmd2 { nick uhost handle chan arg} {
global systag channel dbpath

 ### Check if this is the right channel to function on.
  set chan [string tolower $chan]
  set channel [string tolower $channel]
  if {$chan != $channel} { return }

 ### Read in database
 set db [open $dbpath r]
 fconfigure $db -blocking 0
 set nicklist [list]
  while {![eof $db]} {
   set line [gets $db]
   if {$line != ""} {
    set nicklist [linsert $nicklist end $line]
   }
  } 
 close $db

 ### Update database and echo result.
 set db [open $dbpath w]
 fconfigure $db -blocking 0

  foreach nickn $nicklist {
   if {$nickn != $nick} {
    puts $db "$nickn"
   }
  }
 close $db
   putserv "NOTICE $nick : $systag You are now set to : \002Available\002"
   log " $nick has put him/herself on Available."
}


### Procedure which will put a Op on away
###################################################################################
proc cmd3 { nick uhost handle chan arg} {
global systag channel dbpath

 ### Check if this is the right channel to function on.
  set chan [string tolower $chan]
  set channel [string tolower $channel]
  if {$chan != $channel} { return }

 ### Read in database.
 set newnick "0"
 set db [open $dbpath r]
 fconfigure $db -blocking 0
 set nicklist [list]
  while {![eof $db]} {
   set line [gets $db]
   if {$line != ""} {
    set nicklist [linsert $nicklist end $line]
   }
  } 
 close $db

 ### Write new database and echo the result
 set db [open $dbpath w]
 fconfigure $db -blocking 0
  foreach nickn $nicklist {
   if {$nickn == $nick} {
     set newnick "1"
     puts $db "$nick"
   } else {
     puts $db "$nickn"
   }
  }

  if {$newnick == "0"} {
   puts $db "$nick"
   putserv "NOTICE $nick : $systag You are now set to : \002Away\002"
   log " $nick has put him/herself on Away."
  } else {
   putserv "NOTICE $nick : $systag You are already set to : \002Away\002"
  }
 close $db

}

proc log {text} {
global logging
 if {$logging == "1" && $text != ""} {
  putlog "\[OPs\] $text"
 }
}

putlog "Operator Status v0.4 Loaded!"
### EOF
### OPs (c) ThEdGE [www.thedge.de]

This is the Operator script and the error is:

[02:55] @#help (+stn) : [m/7 o/7 h/0 v/0 n/0 b/0 e/- I/-]
[02:56] Tcl error [checkidleops]: couldn't open "scripts/OPs.data": too many open files
[03:00] Last message repeated 4 time(s).
[03:00] @#help (+stn) : [m/7 o/7 h/0 v/0 n/0 b/0 e/- I/-]
[03:00] ERROR writing user file.
[03:00] Switching logfiles...