Log d'un channel

Commenter

Contenu du snippet

vala il log tout ce qui sest passé sur un channel dans un fichier html
il gere les couleurs (sans fond)
  • M A J du 07/04/03 :
  • Il gere le gras le souligné et il désactives les balises html
  • le zip n'est pas a jour

*

Source / Exemple : 


on *:text:*:#nitro120:{
  %ch = $1-
  %ch = $replace(%ch,<,&lt $+ $chr(59))
  %ch = $replace(%ch,>,&gt $+ $chr(59))
  eclg </font><font color="gray"><b>[
  eclg $time ]</b></font> <font color="black"><<font color="red"> $nick </font>>  $+ %ch
  eclg <br>
}
on *:nick:{
  if ($nick ison #nitro120) {
    eclg </font><font color="green"><b>[
    eclg $time ]</b> $nick a changé de pseudo pour $newnick
    eclg </font><br>
  }
}
on *:part:#nitro120:{
  if ($nick != $me) {
    eclg </font><font color="green"><b>[
    eclg $time ]</b> - $nick a quitté #nitro120 ( $1- )</font><br>
  }
}
on *:quit:{
  if ($nick ison #nitro120) {
    eclg </font><font color="navy"><b>[
    eclg $time ]</b> - $nick a quitté IRC ( $1- )</font><br>
  }
}
on *:action:*:#nitro120:{
  %ch = $1-
  %ch = $replace(%ch,<,&lt $+ $chr(59))
  %ch = $replace(%ch,>,&gt $+ $chr(59))
  eclg </font><font color="purple"><b>[
  eclg $time ]</b> * $nick $+   $+ %ch
  eclg </font><br>
}
on *:input:#nitro120:{
  if ($1 == /me ) {
    eclg <font color="purple"><b>[
    eclg $time ]</b> * $me $2-
    eclg <br>
  }
  if ($left($1- , 1) != /) {
    %ch = $1-
    %ch = $replace(%ch,<,&lt $+ $chr(59))
    %ch = $replace(%ch,>,&gt $+ $chr(59))
    eclg </font><font color="gray"><b>[
    eclg $time ]</b> <font color="black"><<font color="red"> $me </font>>  $+ %ch
    eclg <br></font>
  }
}
on *:kick:#nitro120:{
  eclg </font><font color="teal"><b>[
  eclg $time ]</b> $nick a kické $knick ( $1- )
  eclg <br></font>
}
on *:ban:#nitro120:{
  eclg </font><font color="green"><b>[
  eclg $time ]</b> $nick a banni $banmask
  eclg <br></font>
}
on *:unban:#nitro120:{
  eclg </font><font color="green"><b>[
  eclg $time ]</b> $nick a débanni $banmask
  eclg <br></font>
}
on *:rawmode:*:{
  if ($chan == #nitro120) {
    if (($left($1- , 2) != +b) || ($left($1- , 2) != -b) || ($left($1- , 2) != +k)) {
      eclg </font><font color="teal"><b>[
      eclg $time ]</b> $nick met le mode $1-
      eclg <br></font>
    }
    if ($left($1- , 2) == +k) {
      eclg  </font><font color="teal"><b>[
      eclg $time ]</b> $nick change le pass
      eclg <br></font>
    }
  }
}
raw 332:*:{
  if ($2 == #nitro120) {
    eclg </font><font color="gray"><b>[
    eclg $time ]</b> Topic : $3-
    eclg <br></font>
  }
}
on *:disconnect:{
  eclg </font><font color="teal"><b>[
  eclg $time ]</b> Fin du log pour cause de déconnexion<br></font>
}
alias scantb {
  %chtmp = $1-
  %x = 0
  :lect
  inc %x
  if (%x <= $pos($1-,,0)) {
    %tmp = $pos(%chtmp,,1)
    if ($calc(%x / 2) == $int($calc(%x / 2))) %adj = </b>
    else %adj = <b>
    %chtmp = $left(%chtmp,$calc(%tmp - 1)) $+ %adj $+ $right(%chtmp,$calc($len(%chtmp) - %tmp)))
    goto lect
  }
  if ($calc(%x / 2) == $int($calc(%x / 2))) {
    %chtmp = %chtmp $+ </b>
  }
  return %chtmp
}
alias scantu {
  %chtmp = $1-
  %x = 0
  :lect
  inc %x
  if (%x <= $pos($1-,,0)) {
    %tmp = $pos(%chtmp,,1)
    if ($calc(%x / 2) == $int($calc(%x / 2))) %adj = </u>
    else %adj = <u>
    %chtmp = $left(%chtmp,$calc(%tmp - 1)) $+ %adj $+ $right(%chtmp,$calc($len(%chtmp) - %tmp)))
    goto lect
  }
  if ($calc(%x / 2) == $int($calc(%x / 2))) {
    %chtmp = %chtmp $+ </u>
  }
  return %chtmp
}

Conclusion :


j'avais fait une version qui gerait les templates html mais je l'ai perdue
je vais m'y remmettre

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (nitro120)