Log d'un channel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 849 fois - Téléchargée 372 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
2 juin 2004

Dommage que le zip soit abimé et qu'il manque des alias dans ce que tu as mis à jour ici :/
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

le truc en html c bien... mais le truc qui log ca l'est moins... pourquoi tu ne ferais pas ca avec un log existant ?
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

l'interet ?
ben que ca genere un fichier html (en + avec la gestion +/- des couleurs) c bocoup plus lisible,
et que tu peux mettra ca sur un site ou du moins que tout le monde puisse le lire (tu conné le format HTML ???)
(je rapele que si vous avez une idee pour gerer les fonds de couleurs, je suis interesse)
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

quel est l'interet alors que l'on peut logguer directement dans mirc ???

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.