URL LOGGER

; _______________________________________
; URL Logger
; Code par MegaMax & Tataouine
; Version 4.00
; _______________________________________
on *:load:{
  echo -a -----------------------------------------------------------
  echo -a  Vous avez correctement chargé URL Logger Version 4.0
  echo -a  Merci d'utiliser cet addon :)
  echo -a -----------------------------------------------------------
}
dialog url {
  title "URL Logger"
  size -1 -1 260 195
  option dbu
  list 1, 5 7 250 125, size vsbar
  button "Effacer", 3, 8 178 37 12, flat
  button "Ajouter", 4, 215 159 37 12, flat
  button "Dire", 5, 145 178 37 12, flat
  button "Fermer", 6, 215 178 37 12, flat
  button "Reset", 7, 75 178 37 12, flat
  edit "", 8, 20 161 185 10, autohs
  box "", 9, 2 0 256 193
  box "Ajout manuel", 10, 5 152 250 22, disable
  box "Url annoncée", 11, 5 133 250 18, disable
  text "Url :", 12, 9 162 10 8
  text "Sur :", 13, 9 141 12 8
  text "", 14, 23 141 53 8
  text "Par :", 15, 80 141 12 8
  text "", 16, 95 141 62 8
  text "Le :", 17, 160 141 12 8
  text "", 18, 172 141 36 8
  text "A :", 19, 210 141 10 8
  text "", 20, 220 141 32 8
}
on *:dialog:url:*:*:{
  if ($devent == init) {
    if ($exists(url.txt)) {
      if ($fopen(zurl)) .fseek zurl 0
      else .fopen zurl url.txt
      var %n = 1
      while (!$feof) {
        did -o url 1 %n $gettok($fread(zurl),1,32)
        inc %n
      }
      .fclose zurl
    }
  }
  elseif $devent == sclick {
    if $did == 4 {
      write -il1 url.txt $strip($did(8)) AjoutManuel $me $date $time
      did -r url 8
      if ($fopen(zurl)) .fseek zurl 0
      else .fopen zurl url.txt
      var %n = 1
      while (!$feof) {
        did -o url 1 %n $gettok($fread(zurl),1,32)
        inc %n
      }
      .fclose zurl
    }
    elseif $did == 6 {
      dialog -x url url
    }
    elseif $did == 5 { 
      if ($did(1).seltext) { 
        scid $activeid
        msg $active $did(1).seltext
      } 
    }
    elseif $did == 3 {
      if ($did(1).seltext) {
        scid $activecid
        write -dl $+ $did(1).sel url.txt
        did -r url 1
      }
      if ($fopen(zurl)) .fseek zurl 0
      else .fopen zurl url.txt
      var %n = 1
      while (!$feof) {
        did -o url 1 %n $gettok($fread(zurl),1,32)
        inc %n
      }
      .fclose zurl
    }
    elseif $did == 1 {
      if ($did(1).seltext) {
        var %info = $read(url.txt,s,$v1)
        did -a $dname 14 $gettok(%info,1,32)
        did -a $dname 16 $gettok(%info,2,32)
        did -a $dname 18 $gettok(%info,3,32)
        did -a $dname 20 $gettok(%info,4,32)
      }
    }
    elseif ($did == 7) {
      var %input $input(Etes vous sur de vouloir tout supprimer ?,y,URL Logger - Reset)
      if %input {
        write -c url.txt
        loadbuf -ro url 1 url.txt
      }
    }
  }
  elseif ($devent == dclick) url $gettok($did(1).seltext,1,32)
}
menu Channel,menubar {
  URL Logger:/dialog -m url url
}
on $*:TEXT:/(www.|http)/:*:{
  var %url = /((?:http://|(?<!w)www\.)[-a-z_0-9]+\.(?:[^\x20\(\)\[\]\{\}\,\;\!\§\ù\µ\$\£\¤\°\ç\à\è`\è\`]+))/ig
  if ($regex($strip($1-),%url)) {
    var %reg = $regml(0)
    while (%reg > 0) {
      if (!$read(url.txt,w,$regml(%reg) *)) {
        write -il1 url.txt $regml(%reg) $chan $nick $date $time
      }
      dec %reg
    }
    if ($dialog(url)) {
      if ($fopen(zurl)) .fseek zurl 0
      else .fopen zurl url.txt
      var %n = 1
      while (!$feof) {
        did -o url 1 %n $gettok($fread(zurl),1,32)
        inc %n
      }
      .fclose zurl
    }
  }
}
alias logger { dialog -m url url }

Télécharger le zip

31 janvier 2006 21:31:55 :

Optimisation de la partie qui log: utilisation de $regex Log bien toute les urls si il y a plusieurs urls dans la meme phrase Probleme du bug du loadbuf réglé

01 février 2006 06:45:32 :

Correction d'un bug oublié.

12 février 2006 12:29:58 :

01. Log uniquement les sites avec trois w et non pas par exemple : wwww.exemple.fr 02. Supprime les caractères spéciaux en fin d'url, par exemple : www.exemple.fr(hop) 03. Disparition du Mini Logger :'( 04. Informations sur une url annoncée en cliquant dessus 05. Amélioration du dialog, affichage direct des informations 06. Fichier html d'aide et d'informations sur URL Logger