here are the Code !
tcl
Code: Select all
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 0
set y 27
set 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: Select all
<!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>and 1 string but it should show both of em !
and ideas ?
