Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
#####################################################
#    ___ ___         __                             #
#   |   |   |.---.-.|  |_.-----.----.-----.-----.   #
#   |-     -||  _  ||   _|  -__|   _|  _  |__ --|   #
#   |___|___||___._||____|_____|__| |_____|_____|   #
#        Powered: www.xateros.cl � irc.xateros.cl   #
#                                                   #
#####################################################

bind msgm - * msgm:querylogs

# Setea el nombre de la carpeta que contendra los logs
# Nota: Debe estar en el directorio del bot y ser creada manualmente
set carpeta "querys"

proc msgm:querylogs {nick host hand arg} {
global carpeta

  set datos "[ctime [clock seconds]]"
  set hora [lindex $datos 3]
  set fecha "[lindex $datos 0], [lindex $datos 2] de [lindex $datos 1], [lindex $datos 4]"
  regsub -all "Mon" $fecha "Lunes" fecha
  regsub -all "Tue" $fecha "Martes" fecha
  regsub -all "Wed" $fecha "Mi�rcoles" fecha
  regsub -all "Thu" $fecha "Jueves" fecha
  regsub -all "Fri" $fecha "Viernes" fecha
  regsub -all "Sat" $fecha "S�bado" fecha
  regsub -all "Sun" $fecha "Domingo" fecha
  regsub -all "Jan" $fecha "Enero" fecha
  regsub -all "Feb" $fecha "Febrero" fecha
  regsub -all "Mar" $fecha "Marzo" fecha
  regsub -all "May" $fecha "Mayo" fecha
  regsub -all "Jun" $fecha "Junio" fecha
  regsub -all "Jul" $fecha "Julio" fecha
  regsub -all "Aug" $fecha "Agosto" fecha
  regsub -all "Sep" $fecha "Septiembre" fecha
  regsub -all "Oct" $fecha "Octubre" fecha
  regsub -all "Nov" $fecha "Noviembre" fecha
  regsub -all "Dec" $fecha "Diciembre" fecha
  set fichero "[string range $fecha 0 2]-[string range [lindex $fecha 1] 0 2]-[string range [lindex $fecha 4] 2 3].log"
  set archivo [open $carpeta/$fichero a]
  puts $archivo "\[$hora\] <$nick> $arg"
  close $archivo
}

putlog "Querylog.tcl"
Explorando: ./tcl

Vista previa de: querylog.tcl
