Statistics: Posted by Psx|Dk — Thu Jan 06, 2005 6:25 pm
Code:
set query [::http::formatQuery $actie $zoekstring ] set http [::http::geturl $a -query $query] set d [::http::data $http] set c [split $d \n] set hitregel [lindex $c 27] set b1 [split $hitregel "("] set hitrechts [lindex $b1 end] set b2 [split $hitrechts ")"] set hits [lindex $b2 0] set e 10 set f [string length $hits] set hits [string toupper $hits] set g [split $hits " "] set h [lindex $g 0]if { [string length $hits ] < 10 } { if { $hits == "1 HITS"} { putserv "PRIVMSG $chan : \[\0029DUPE\002\]\002 9»» 1 HIT\002 FOUND!" } elseif { $h < $maxres } { putserv "PRIVMSG $chan : \[\0029DUPE\002\]\002 9»» $hits\002 FOUND!" } else { putserv "PRIVMSG $chan : \[\0029DUPE\002\]\002 9»» $hits\002 FOUND! (SHOWING\002 $maxres\002)" } } set k 0set y 27set resnmb [expr $y + $maxres] for {set y 27} {$y < $resnmb} {incr y} { set l [lindex $c $y] set o [split $l ";"] set p [lindex $o end] set q [split $p "<"] set x [lindex $q 0] set m [split $l ">"] set n [lindex $m 1] set t [split $n "<"] set dateleft [lindex $t 0] if { $x != "" } { putserv "PRIVMSG $chan : \[\0029DUPE\002\] $dateleft - $x" incr k } } if { $k == 0 } { putserv "PRIVMSG $chan : \[\0029DUPE\002\]\002 9»» 0 HITS\002 FOUND!" }putlog "DUPE CHECKER - Loaded"}Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><META NAME="ROBOTS" CONTENT="noarchive,noindex,nofollow"><title>dP-DVDR: "The only dupecheck for lynx!"</title><style type="text/css">.pre {font-family: Terminal, Lucida Console ANSI; text-decoration: none;}select,input,td,body,pre { font-family: fixedsys; font-size: 8pt; }.intro { font-family: fixedsys; font-size: 8pt; line-height: 9pt; }a:active.intro { text-decoration: none; color: #004080; }a:link.intro { text-decoration: none; color: #004080; }a:visited.intro { text-decoration: none; color: #004080; }a:hover.intro { text-decoration: none; color: #000000; }form {margin: 0;}input {font-family: fixedsys;font-size: 8px;border-width: 1px;border: 1px solid black;}select {font-family: fixedsys;font-size: 8px;border-width: 0px;border-style: solid;border-color: #000000;}</style></head><body bgcolor="white"><!-- PowerPhlogger Code START --><script language="JavaScript" type="text/javascript" src="pphlogger.js"></script><noscript><img alt="" src="http://www.XxXxXx.com/pphlogger/pphlogger.php?id=pphlogger&st=img"></noscript><!-- PowerPhlogger Code END --><form action='?section=dvdr&do=search' method='post'><font class="intro"> __________________________________________________________________<br>| |<br>| Sponsored by <a class="intro" href="http://www.Tx-shells.net" target="_blank">Tx-shells.net</a> - Shells, bouncers and webhosting |<br>|__________________________________________________________________|<br><br> <input type='submit' value='Search'> for <input type='text' name='search_field' size='23'> (2 hits)<br></font></form> <br>Last Page <a href=".">Sections</a> Next Page<br><br><font color='#616161'>D A T E R E L E A S E N A M E </font><br><font title="Added 2003-06-04 13:18:10">2003-06-04</font> <a href="?section=dvdr&nfo=14647" target="_blank">NFO</a> Animatrix.2003.NORDIC.PAL.DVDR-DNA<br><font title="Added 2003-05-22 21:05:29">2003-05-22</font> <a href="?section=dvdr&nfo=14168" target="_blank">NFO</a> The.Matrix.1999.INTERNAL.DVDR.PAL.NORDICSUBS-TOP250<br></body></html>Statistics: Posted by Psx|Dk — Thu Jan 06, 2005 4:41 pm