Procházet zdrojové kódy

- fix urbandict regexp

- some debug to vantrash
horgh před 15 roky
rodič
revize
694e9ca635
2 změnil soubory, kde provedl 3 přidání a 1 odebrání
  1. 1 1
      slang.tcl
  2. 2 0
      vantrash.tcl

+ 1 - 1
slang.tcl

@@ -32,7 +32,7 @@ namespace eval ud {
 	variable client "Mozilla/5.0 (compatible; Y!J; for robot study; keyoshid)"
 	variable client "Mozilla/5.0 (compatible; Y!J; for robot study; keyoshid)"
 	variable url http://www.urbandictionary.com/define.php
 	variable url http://www.urbandictionary.com/define.php
 	variable list_regexp {<td class='text'.*? id='entry_.*?'>.*?</td>}
 	variable list_regexp {<td class='text'.*? id='entry_.*?'>.*?</td>}
-	variable def_regexp {id='entry_(.*?)'>.*?<div class='definition'>(.*?)</div>}
+	variable def_regexp {id='entry_(.*?)'>.*?<div class="definition">(.*?)</div>}
 
 
 	setudef flag ud
 	setudef flag ud
 	bind pub -|- $ud::trigger ud::handler
 	bind pub -|- $ud::trigger ud::handler

+ 2 - 0
vantrash.tcl

@@ -35,6 +35,8 @@ proc vantrash::check {min hour day month year} {
 		putserv "PRIVMSG $vantrash::channel :(vantrash) Date is cached"
 		putserv "PRIVMSG $vantrash::channel :(vantrash) Date is cached"
 	}
 	}
 
 
+	putserv "PRIVMSG $vantrash::channel :(vantrash) min = $min, hour = $hour"
+
 	set next_day [string trim [clock format $vantrash::cached_date -format %e]]
 	set next_day [string trim [clock format $vantrash::cached_date -format %e]]
 	set tomorrow_day [string trim [clock format [clock scan tomorrow] -format %e]]
 	set tomorrow_day [string trim [clock format [clock scan tomorrow] -format %e]]