Statistics: Posted by pogue — Sat Sep 19, 2009 8:47 pm

Statistics: Posted by szantovitch — Sat Sep 19, 2009 12:44 am

Statistics: Posted by sk-4 — Thu Jul 09, 2009 7:40 pm

set matches [regexp -all -inline {<div class="def_p">.*?<p>(.*?)<\/p>} $data];

set matches [regexp -all -inline {<div class='definition'>(.*?)</div>} $data];

Statistics: Posted by speechles — Thu Jul 09, 2009 6:08 pm

• ;
  foreach {null definition} $matches {
  regsub -all {<[^>]*?>} [decode $definition] "" definition;
  regsub -all {[\r\n\s\t]+} $definition " " definition;
  lappend list $definition;
  }
  return [concat [llength $list] $list];
  }
  
  proc urbandict::urlencode {i} {
  variable encoding
  set index 0;
  set i [encoding convertto $encoding $i]
  set length [string length $i]
  set n ""
  while {$index < $length} {
  set activechar [string index $i $index]
  incr index 1
  if {![regexp {^[a-zA-Z0-9]$} $activechar]} {
  append n %[format "%02X" [scan $activechar %c]]
  } else {
  append n $activechar
  }
  }
  return $n
  }
  
  proc urbandict::pub {nick host hand chan argv} {
  if {![string compare $argv ""]} {
  puthelp "NOTICE $nick :Usage: !define <id> <definition> ex.!define 1 irc";
  return 1;
  }
  if {[string is digit -strict [getword $argv 0]]} {
  if {[splitline $argv cargv 2]!=2} {
  puthelp "NOTICE $nick :Usage: !define <id> <definition> ex.!define 1 irc";
  return 1;
  }
  set id [lindex $cargv 0];
  set argv [lindex $cargv 1];
  if {!$id} {
  set id 1;
  }
  } else {
  set id 1;
  }
  set definitions [getdefinition $argv];
  set count [lindex $definitions 0];
  if {!$count} {
  puthelp "PRIVMSG $chan :Nothing found for4 \"$argv\".";
  return 1;
  } elseif {$id > $count} {
  puthelp "PRIVMSG $chan :Only $count results found for \"$argv\".";
  return 1;
  }
  set definition [lindex $definitions $id];
  if {[string length $definition] <= 300} {
  puthelp "PRIVMSG $chan :4------Meaning Of Words4------( $argv )";
  puthelp "PRIVMSG $chan :14 $definition";
  return 0;
  }
  foreach line [splitmsg $definition] {
  puthelp "PRIVMSG $chan :4------Meaning Of Words4------( $argv )";
  puthelp "PRIVMSG $chan :14 $line";
  puthelp "PRIVMSG $chan :4------End Of the Meaning4------ ";
  
  }
  return 0;
  }
  
  proc urbandict::decode {content} {
  if {![string match *&* $content]} {
  return $content;
  }
  set escapes {
    \x20 " \x22 & \x26 &apos; \x27 – \x2D
  < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1
  ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6
  § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB
  ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0
  ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5
  ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA
  » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF
  À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4
  Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9
  Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE
  Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3
  Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8
  Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD
  Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2
  ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7
  è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC
  í \xED î \xEE ï \xEF ð \xF0 ñ \xF1
  ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6
  ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB
  ü \xFC ý \xFD þ \xFE ÿ \xFF
  };
  set content [string map $escapes $content];
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content];
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c [string trimleft "\1" "0"]]} content;
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content;
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content;
  return [subst $content];
  }
  
  putlog "Script loaded: Urban Dictionary v$urbandict::version by perpleXa";

Statistics: Posted by sk-4 — Thu Jul 09, 2009 7:57 am