begin process at 2010 02 09 23:55:44
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > LOG SEARCH/VIEWER

LOG SEARCH/VIEWER


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Débutant Date de création :06/09/2002 Date de mise à jour :06/09/2002 14:16:02 Vu :3 268

Auteur : RysS

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
bon premièrement ATTENTION , quand j'ai fait ce lsv , je ne mettai pas le network dans le nom des log donc cela ne marche pour l'instant que pour les log type #pwet.01032002.log et pv.02052001.log . C'est la première version que je sort il n'y a pour l'instan q'une recherche primaire dans le repertoire des logs   par mot ou par date .

Source

  • ;--------------------------------------------
  • ;LoG SearcH/VieweR By RysSAlphA
  • ;--------------------------------------------
  • menu menubar,channel,query {
  • LoG SearcH/VieweR:/dialog -m lsv lsv
  • }
  • dialog lsv {
  • title "LoG SearcH/VieweR V1.0 By RysSAlphA"
  • size -1 -1 219 260
  • option dbu
  • text "ATTENTION : si vous choisissez une recherche trop vaste , style tout les log d'une année ou une recherche de 1 lettre , la recherche risque de mettre plusieurs minutes , pendant lesquels votre script sera bloqué et si ce delai est trop grand il risque de vous deconnecter ( environ 10 minutes pour 5000 fichiers )", 1, 1 1 213 29, center
  • box "", 2, 2 27 209 4
  • list 3, 7 104 100 135, size vsbar
  • list 4, 114 104 100 135, size vsbar
  • tab "PaR DatE", 7, 4 33 213 53
  • combo 8, 8 56 35 50, tab 7 size drop
  • combo 9, 46 56 60 50, tab 7 size drop
  • combo 10, 108 56 32 50, tab 7 size drop
  • box "AnneE", 11, 107 48 35 20, tab 7
  • box "MoiS", 12, 45 48 62 20, tab 7
  • box "JouR", 13, 7 48 38 20, tab 7
  • text "Les * servent pour ignorer la parti concernée , exemple : 8 en jour , * en mois et 00 en en année , resulterat tout les 8 de chaque mois de l'année 2000", 14, 143 48 73 34, tab 7
  • tab "PaR MoT", 16
  • box "MoT A RechercheR", 17, 6 48 97 19, tab 16
  • edit "", 18, 8 55 93 10, tab 16
  • text "Dans ce champ a remplir vous pouvez par exemple mettre [[*]] ( les * sont obligatoirement ", 19, 104 52 112 16, tab 16
  • text "mit sur le coté automatiquement ) cela retournera tout les chan ou nick avec ptet kelke chose ici [[ kelke chose a linterieur ]] et ptet kelke chose la", 20, 100 66 116 19, tab 16
  • button "LanceR RecherchE", 21, 15 70 69 12,default
  • box "ResultaT OtheR", 22, 111 96 105 147
  • box "ResultaT ChanneL", 23, 4 96 105 147
  • button "" 26,1 1 1 1,ok
  • text "No LoG SelecT" 27 , 5 245 209 20, center
  • }
  • dialog result1 {
  • title "RecherchE InFO"
  • size -1 -1 96 83
  • option dbu
  • text "RecherchE TerminE AveC SucceS", 1, 23 3 63 13, center
  • text "", 2, 1 24 91 8
  • text "", 3, 1 37 94 8
  • text "", 4, 1 51 92 8
  • button "ClosE", 5, 27 66 37 12,ok
  • }
  • dialog lsverror {
  • title "ErroR RecherchE"
  • size -1 -1 95 55
  • option dbu
  • text "Veuillez remplir le ou les champs correspondant a la rechercher avant d'entammer la rechercher s'il vous plait", 1, 9 5 75 28, center
  • button "ClosE", 2, 27 35 37 12,ok
  • }
  • on *1:dialog:result1:init:*:{
  • did -a result1 2 ResultaT TotaL : %lsv.search.2
  • did -a result1 3 ResultaT De ChanneL : %lsv.result.chan
  • did -a result1 4 ResultaT OtheR : %lsv.result.other
  • }
  • on *1:dialog:lsv:init:*:{
  • did -a lsv 8 01
  • did -a lsv 8 02
  • did -a lsv 8 03
  • did -a lsv 8 04
  • did -a lsv 8 05
  • did -a lsv 8 06
  • did -a lsv 8 07
  • did -a lsv 8 08
  • did -a lsv 8 09
  • did -a lsv 8 10
  • did -a lsv 8 11
  • did -a lsv 8 12
  • did -a lsv 8 13
  • did -a lsv 8 14
  • did -a lsv 8 15
  • did -a lsv 8 16
  • did -a lsv 8 17
  • did -a lsv 8 18
  • did -a lsv 8 19
  • did -a lsv 8 20
  • did -a lsv 8 21
  • did -a lsv 8 22
  • did -a lsv 8 23
  • did -a lsv 8 24
  • did -a lsv 8 25
  • did -a lsv 8 26
  • did -a lsv 8 27
  • did -a lsv 8 28
  • did -a lsv 8 29
  • did -a lsv 8 30
  • did -a lsv 8 31
  • did -a lsv 8 *
  • did -a lsv 9 01 JanvieR
  • did -a lsv 9 02 FevrieR
  • did -a lsv 9 03 MarS
  • did -a lsv 9 04 AvriL
  • did -a lsv 9 05 MaI
  • did -a lsv 9 06 JuiN
  • did -a lsv 9 07 JuilleT
  • did -a lsv 9 08 AouT
  • did -a lsv 9 09 SeptembrE
  • did -a lsv 9 10 OctobrE
  • did -a lsv 9 11 NovembrE
  • did -a lsv 9 12 DecembrE
  • did -a lsv 9 *
  • did -a lsv 10 1995
  • did -a lsv 10 1996
  • did -a lsv 10 1997
  • did -a lsv 10 1998
  • did -a lsv 10 1999
  • did -a lsv 10 2000
  • did -a lsv 10 2001
  • did -a lsv 10 2002
  • did -a lsv 10 2003
  • did -a lsv 10 2004
  • did -a lsv 10 2005
  • did -a lsv 10 2006
  • did -a lsv 10 2007
  • did -a lsv 10 2008
  • did -a lsv 10 2009
  • did -a lsv 10 2010
  • did -a lsv 10 *
  • set %lsv.tab.select 7
  • }
  • on *:dialog:lsv:sclick:*:{
  • if ( $did == 21 ) {
  • if ( %lsv.tab.select == 16 ) {
  • if ( $did(18) == $null ) { dialog -om lsverror lsverror }
  • else {
  • did -r lsv 3,4
  • set %lsv.search.1 1
  • set %lsv.search.2 $findfile($logdir,* $+ $did(18) $+ *,0)
  • if ( %lsv.search.2 == 0 ) goto end
  • :debut
  • if ( $left($nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1 )),1) == $chr(35)) did -a lsv 3 $nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1))
  • else did -a lsv 4 $nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1))
  • if ( %lsv.search.1 == %lsv.search.2 ) goto end
  • /inc %lsv.search.1 1
  • goto debut
  • :end
  • set %lsv.result.chan $did(3).lines
  • set %lsv.result.other $did(4).lines
  • dialog -mo result1 result1
  • if ( %lsv.search.2 != 0 ) set %lsv.actif on
  • else set %lsv.actif off
  • unset %lsv.search.*
  • }
  • }
  • elseif ( %lsv.tab.select == 7 ) {
  • if ( $did(9) == $null ) || ( $did(8) == $null ) || ( $did(10) == $null ) { dialog -mo lsverror lsverror }
  • else {
  • did -r lsv 3,4
  • set %lsv.search.1 1
  • set %lsv.search.2 $findfile($logdir,*. $+ $did(10) $+ $left($did(9),2) $+ $did(8) $+ .*,0)
  • if ( %lsv.search.2 == 0 ) goto end
  • :debut
  • if ( $left($nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2) $+ $did(8) $+ .*,%lsv.search.1)),1) == $chr(35)) did -a lsv 3 $nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2) $+ $did(8) $+ .*,%lsv.search.1))
  • else did -a lsv 4 $nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2) $+ $did(8) $+ .*,%lsv.search.1))
  • if ( %lsv.search.1 == %lsv.search.2 ) goto end
  • /inc %lsv.search.1 1
  • goto debut
  • :end
  • set %lsv.result.chan $did(3).lines
  • set %lsv.result.other $did(4).lines
  • dialog -mo result1 result1
  • if ( %lsv.search.2 != 0 ) set %lsv.actif on
  • else set %lsv.actif off
  • unset %lsv.search.*
  • }
  • }
  • }
  • if ( $did == 16 ) set %lsv.tab.select 16
  • if ( $did == 7 ) set %lsv.tab.select 7
  • if ( $did == 3 ) {
  • set %lsv.result.date $mid($gettok($did(3).seltext,2,46),7,2) $mois2($mid($gettok($did(3).seltext,2,46),5,2)) $mid($gettok($did(3).seltext,2,46),1,4)
  • did -a lsv 27 LoG:[SaloN : $gettok($did(3).seltext,1,46) ][ DatE : Le %lsv.result.date ]
  • did -u lsv 4
  • }
  • if ( $did == 4 ) {
  • set %lsv.result.date $mid($gettok($did(4).seltext,2,46),7,2) $mois2($mid($gettok($did(4).seltext,2,46),5,2)) $mid($gettok($did(4).seltext,2,46),1,4)
  • did -a lsv 27 LoG:[DialoguE PrivE : $gettok($did(4).seltext,1,46) ][ DatE : Le %lsv.result.date ]
  • did -u lsv 3
  • }
  • }
  • on *:dialog:lsv:dclick:*:{
  • if ( $did == 4 ) {
  • if ( %lsv.actif == on ) { window -c @LoG-VieweR
  • window @LoG-VieweR
  • set %lsv.nbrligne.fichier $lines($logdir $+ $did(4).seltext)
  • .loadbuf %lsv.nbrligne.fichier -p @LoG-VieweR $logdir $+ $did(4).seltext
  • }
  • }
  • if ( $did == 3 ) {
  • if ( %lsv.actif == on ) { window -c @LoG-VieweR
  • window @LoG-VieweR
  • set %lsv.nbrligne.fichier $lines($logdir $+ $did(4).seltext)
  • .loadbuf %lsv.nbligne.fichier -p @LoG-VieweR $logdir $+ $did(3).seltext
  • }
  • }
  • }
;--------------------------------------------
;LoG SearcH/VieweR By RysSAlphA
;--------------------------------------------
menu menubar,channel,query {
  LoG SearcH/VieweR:/dialog -m lsv lsv
}
dialog lsv {
  title "LoG SearcH/VieweR V1.0 By RysSAlphA"
  size -1 -1 219 260
  option dbu
  text "ATTENTION : si vous choisissez une recherche trop vaste , style tout les log d'une année ou une recherche de 1 lettre , la recherche risque de mettre plusieurs minutes , pendant lesquels votre script sera bloqué et si ce delai est trop grand il risque de vous deconnecter ( environ 10 minutes pour 5000 fichiers )", 1, 1 1 213 29, center
  box "", 2, 2 27 209 4  
  list 3, 7 104 100 135, size vsbar
  list 4, 114 104 100 135, size vsbar
  tab "PaR DatE", 7, 4 33 213 53
  combo 8, 8 56 35 50, tab 7 size drop
  combo 9, 46 56 60 50, tab 7 size drop
  combo 10, 108 56 32 50, tab 7 size drop
  box "AnneE", 11, 107 48 35 20, tab 7
  box "MoiS", 12, 45 48 62 20, tab 7
  box "JouR", 13, 7 48 38 20, tab 7
  text "Les * servent pour ignorer la parti concernée , exemple : 8 en jour , * en mois et 00 en en année , resulterat tout les 8 de chaque mois de l'année 2000", 14, 143 48 73 34, tab 7
  tab "PaR MoT", 16
  box "MoT A RechercheR", 17, 6 48 97 19, tab 16
  edit "", 18, 8 55 93 10, tab 16
  text "Dans ce champ a remplir vous pouvez par exemple mettre  [[*]] ( les * sont obligatoirement ", 19, 104 52 112 16, tab 16
  text "mit sur le coté automatiquement ) cela retournera tout les chan ou nick avec ptet kelke chose ici [[ kelke chose a linterieur ]] et ptet kelke chose la", 20, 100 66 116 19, tab 16
  button "LanceR RecherchE", 21, 15 70 69 12,default
  box "ResultaT OtheR", 22, 111 96 105 147
  box "ResultaT ChanneL", 23, 4 96 105 147
  button "" 26,1 1 1 1,ok
  text "No LoG SelecT" 27 , 5 245 209 20, center
}
dialog result1 {
  title "RecherchE InFO"
  size -1 -1 96 83
  option dbu
  text "RecherchE TerminE AveC SucceS", 1, 23 3 63 13, center
  text "", 2, 1 24 91 8
  text "", 3, 1 37 94 8
  text "", 4, 1 51 92 8
  button "ClosE", 5, 27 66 37 12,ok
}
dialog lsverror {
  title "ErroR RecherchE"
  size -1 -1 95 55
  option dbu
  text "Veuillez remplir le ou les champs correspondant a la rechercher avant d'entammer la rechercher s'il vous plait", 1, 9 5 75 28, center
  button "ClosE", 2, 27 35 37 12,ok
}
on *1:dialog:result1:init:*:{
  did -a result1 2 ResultaT TotaL : %lsv.search.2
  did -a result1 3 ResultaT De ChanneL : %lsv.result.chan
  did -a result1 4 ResultaT OtheR : %lsv.result.other
}
on *1:dialog:lsv:init:*:{  
  did -a lsv 8 01
  did -a lsv 8 02
  did -a lsv 8 03
  did -a lsv 8 04
  did -a lsv 8 05
  did -a lsv 8 06
  did -a lsv 8 07
  did -a lsv 8 08
  did -a lsv 8 09
  did -a lsv 8 10
  did -a lsv 8 11
  did -a lsv 8 12
  did -a lsv 8 13
  did -a lsv 8 14
  did -a lsv 8 15
  did -a lsv 8 16
  did -a lsv 8 17
  did -a lsv 8 18
  did -a lsv 8 19
  did -a lsv 8 20
  did -a lsv 8 21
  did -a lsv 8 22
  did -a lsv 8 23
  did -a lsv 8 24
  did -a lsv 8 25
  did -a lsv 8 26
  did -a lsv 8 27
  did -a lsv 8 28
  did -a lsv 8 29
  did -a lsv 8 30
  did -a lsv 8 31
  did -a lsv 8 *
  did -a lsv 9 01 JanvieR  
  did -a lsv 9 02 FevrieR
  did -a lsv 9 03 MarS
  did -a lsv 9 04 AvriL
  did -a lsv 9 05 MaI
  did -a lsv 9 06 JuiN
  did -a lsv 9 07 JuilleT
  did -a lsv 9 08 AouT
  did -a lsv 9 09 SeptembrE
  did -a lsv 9 10 OctobrE
  did -a lsv 9 11 NovembrE
  did -a lsv 9 12 DecembrE
  did -a lsv 9 *
  did -a lsv 10 1995
  did -a lsv 10 1996
  did -a lsv 10 1997
  did -a lsv 10 1998
  did -a lsv 10 1999
  did -a lsv 10 2000
  did -a lsv 10 2001
  did -a lsv 10 2002
  did -a lsv 10 2003
  did -a lsv 10 2004
  did -a lsv 10 2005
  did -a lsv 10 2006
  did -a lsv 10 2007
  did -a lsv 10 2008
  did -a lsv 10 2009
  did -a lsv 10 2010
  did -a lsv 10 *
  set %lsv.tab.select 7
}
on *:dialog:lsv:sclick:*:{
  if ( $did == 21 ) {
    if ( %lsv.tab.select == 16 ) {
      if ( $did(18) == $null ) { dialog -om lsverror lsverror }
      else {
        did -r lsv 3,4       
        set %lsv.search.1 1
        set %lsv.search.2 $findfile($logdir,* $+ $did(18) $+ *,0)
        if ( %lsv.search.2 == 0 ) goto end        
        :debut
        if ( $left($nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1 )),1) == $chr(35)) did -a lsv 3 $nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1))
        else did -a lsv 4 $nopath($findfile($logdir,* $+ $did(18) $+ *,%lsv.search.1))
        if ( %lsv.search.1 == %lsv.search.2 ) goto end
        /inc %lsv.search.1 1
        goto debut
        :end
        set %lsv.result.chan $did(3).lines
        set %lsv.result.other $did(4).lines
        dialog -mo result1 result1
        if ( %lsv.search.2 != 0 ) set %lsv.actif on       
        else set %lsv.actif off
        unset %lsv.search.*
      }
    }
    elseif ( %lsv.tab.select == 7 ) {
      if ( $did(9) == $null ) || ( $did(8) == $null ) || ( $did(10) == $null ) { dialog -mo lsverror lsverror }
      else { 
        did -r lsv 3,4     
        set %lsv.search.1 1
        set %lsv.search.2 $findfile($logdir,*. $+ $did(10) $+ $left($did(9),2) $+ $did(8) $+ .*,0)
        if ( %lsv.search.2 == 0 ) goto end      
        :debut
        if ( $left($nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2)  $+ $did(8) $+ .*,%lsv.search.1)),1) == $chr(35)) did -a lsv 3 $nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2)  $+ $did(8) $+ .*,%lsv.search.1))
        else did -a lsv 4 $nopath($findfile($logdir,*. $+ $did(10) $+ $left($did(9),2)  $+ $did(8) $+ .*,%lsv.search.1))
        if ( %lsv.search.1 == %lsv.search.2 ) goto end
        /inc %lsv.search.1 1
        goto debut
        :end
        set %lsv.result.chan $did(3).lines
        set %lsv.result.other $did(4).lines
        dialog -mo result1 result1
        if ( %lsv.search.2 != 0 ) set %lsv.actif on       
        else set %lsv.actif off      
        unset %lsv.search.*
      }
    }
  }
  if ( $did == 16 ) set %lsv.tab.select 16
  if ( $did == 7 ) set %lsv.tab.select 7 
  if ( $did == 3 ) {
    set %lsv.result.date  $mid($gettok($did(3).seltext,2,46),7,2) $mois2($mid($gettok($did(3).seltext,2,46),5,2)) $mid($gettok($did(3).seltext,2,46),1,4)
    did -a lsv 27 LoG:[SaloN : $gettok($did(3).seltext,1,46) ][ DatE : Le %lsv.result.date ]  
    did -u lsv 4 
  }
  if ( $did == 4 ) { 
    set %lsv.result.date  $mid($gettok($did(4).seltext,2,46),7,2) $mois2($mid($gettok($did(4).seltext,2,46),5,2)) $mid($gettok($did(4).seltext,2,46),1,4)
    did -a lsv 27 LoG:[DialoguE PrivE : $gettok($did(4).seltext,1,46) ][ DatE : Le %lsv.result.date ]  
    did -u lsv 3
  } 
}
on *:dialog:lsv:dclick:*:{
  if ( $did == 4 ) {
    if ( %lsv.actif == on ) { window -c @LoG-VieweR
      window @LoG-VieweR
      set %lsv.nbrligne.fichier $lines($logdir $+ $did(4).seltext)
      .loadbuf %lsv.nbrligne.fichier -p @LoG-VieweR $logdir $+ $did(4).seltext 
    }  
  }
  if ( $did == 3 ) {
    if ( %lsv.actif == on ) { window -c @LoG-VieweR
      window @LoG-VieweR
      set %lsv.nbrligne.fichier $lines($logdir $+ $did(4).seltext)
      .loadbuf %lsv.nbligne.fichier -p @LoG-VieweR $logdir $+ $did(3).seltext 
    }  
  }
}

 Conclusion

je vous demande si vous trouvez un bug ou un truc qui fait planter le mIRc avec une infinite loop , dite le moi svp ( serveur irc.voila.fr channel #squall ou #OriginaL-SounDTracK )
merci d'avance

RysS


 Sources du même auteur

IDTAG3 LEVEL 2 READER
Source avec une capture DCC FAKE
ENCODEUR PAR MOT DE PASSE

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Commentaires et avis

Commentaire de Seregon le 07/04/2004 22:09:24

HANNNN C TRO DLA BABALEUUUUUHHHHH

Commentaire de DeViL66 le 12/04/2005 15:51:43

C'est pas mal, sauf pour les fautes d'orthographes et les majuscule comme : ValideR
aussi un peu de franglais :)
sinon pas mal du tout 8/10

Commentaire de lebaronrouge le 26/10/2005 10:41:04

ce que ca peut être pénible sans zip le copier coller inclus les numéros de lignes il faut tout éffacer lignes par lignes c'est relou....

Commentaire de Linwelin le 27/10/2006 10:14:37

J'ai chargé et j'aime bien, mais j'ai trouvé une erreur à la ligne  192 :       set %lsv.nbrligne.fichier $lines($logdir $+ $did(4).seltext)

Manque un espace entre "$lines" et "($logdir"...

set %lsv.nbrligne.fichier $lines ($logdir $+ $did(4).seltext)

Des améliorations sont prévues ?

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,842 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales