on *:start: {
  testworking
  .timer_launchpt 1 300 proxytest
}
 
alias xtimestamp return $+([, $time, ])
alias -l eecho {
  if (!$window(@ptools)) window -k0 @ptools
  echo @ptools $xtimestamp $1-
}
 
alias siteanalyze {
  if ($1 === -start) set %siteanalyze.line 0
  if (!$timer(siteanalyze)) .timersiteanalyze 0 0 siteanalyze
 
  if ($sock(siteanalyze_*,0) > 0) return
 
  if (%siteanalyze.line > $lines(googlesearch.txt)) return
  else {
    inc %siteanalyze.line 1
    var %siteanalyze.read = $remove( $gettok($read(googlesearch.txt, %siteanalyze.line),1,32),http://)
    if (%siteanalyze.read) sockopen $+(siteanalyze_, %siteanalyze.read) localhost 8118
  }
}
 
on *:sockopen:siteanalyze_*: {
  set %siteanalyze.inc 0
  if (!$sockerr) sockwrite -n $sockname CONNECT $+($remove( $gettok($sockname,1,47), siteanalyze_),:80) HTTP/1.0 $str($crlf,2) 
}
 
on *:sockread:siteanalyze_*: {
  var %siteanalyze.sread
  sockread %siteanalyze.sread
  if ($gettok(%siteanalyze.sread,2,32) == 200) {
    hinc -m tmp siteanalyze 
    if ($hget(tmp,siteanalyze) == 1) {
      sockwrite -n $sockname GET $remove($sockname, $gettok($sockname,1,47)) HTTP/1.0
      sockwrite -n $sockname Host: $remove( $gettok($sockname,1,47), siteanalyze_) $str($crlf,2)
    }
 
  }
  var %siteanalyze.sread = $replacecs($replace(%siteanalyze.sread, $chr(32), $chr(6),$chr(40), $chr(6), $chr(41), $chr(6), >, $chr(6), <, $chr(6), ", $chr(6),',$chr(6),@,$chr(6),$cr,$chr(6), $lf,$chr(6)),US,$chr(6), FR, $chr(6),IN, $chr(6))
 
  var %saloop = $gettok(%siteanalyze.sread,0,6)
  while (%saloop) {
    var %saitem = $gettok(%siteanalyze.sread,%saloop,6), %saloop = $calc(%saloop - 1)
    if  ($isprox( %saitem) == $true) && (!$read(proxy.test,s,%saitem)) {
      inc %siteanalyze.inc
      write proxy.test %saitem $gmt
    }
  }
}
 
 
on *:sockclose:siteanalyze_*: {
  if ($hget(tmp,siteanalyze)) hdel tmp siteanalyze 
  eecho (siteanalyze) $+(-,%siteanalyze.line,-) $qt($+(http://,$remove( $gettok($sockname,1,47), siteanalyze_),$remove($sockname, $gettok($sockname,1,47)))) >> $iif( (%siteanalyze.inc < 2), %siteanalyze.inc new proxy., %siteanalyze.inc new proxies.)
}
 
alias -l isprox return $iif( (*.*.*.*:* iswm $1 && *ignoreme* !iswm $1 && */* !iswm $1 && *~* !iswm $1 && *&amp;* !iswm $1 && *&nbsp;* !iswm $1 && *127.0.0.1* !iswm $1), $true,$false)
 
 
alias proxytest {
 
  if (!$timer(proxytest)) .timerproxytest 0 1 proxytest
  if ($sock(proxytest_*,0) >= 15) return
 
  var %pread = $gettok( $read(proxy.test), 1,32)
 
  if ($lines(proxy.work) == 0) set %siteanalyze.line 0
  else {
    if (!$read(proxy.work,s,%pread)) && (!$sock($+(proxytest_,%pread)).status) sockopen $+(proxytest_,%pread) localhost 8118
    else xremove proxy.test %pread
  }
}
 
on *:sockopen:proxytest_*: {
  xremove proxy.test $gettok($sockname,2,95)
  if (!$sockerr) {
    eecho (proxytest) trying $qt($gettok($sockname,2,95)) $iif( ($read(proxy.work,s, $gettok($sockname,2,95))), -testworking-,)
    $+(.timer_close, $sockname) 1 20 xsockclose $sockname 
    sockwrite -n $sockname CONNECT $gettok($sockname,2,95) HTTP/1.0 $str($crlf,2)
  }
}
 
alias testworking {
  if (!$timer(_testw)) .timer_testw -m 0 500 testworking
  if ($sock(proxytest_*,0) >= 15) return 
 
  if (%testw > $lines(proxy.work)) { 
    unset %testw 
    .timer_testw off
    .timer_testw_loop 1 3600 testworking
  }
  else {
    inc %testw
    var %pp = $gettok( $read(proxy.work,%testw),1,32)
    if (%pp) sockopen $+(proxytest_,%pp) localhost 8118
  }
}
alias -l xsockclose {
  if ($sock($1).status) sockclose $1
}
on *:sockread:proxytest_*: {
  var %proxytest.sread
  sockread %proxytest.sread
 
  if (40? iswm $gettok(%proxytest.sread,2,32)) || (50? iswm $gettok(%proxytest.sread,2,32)) {
    xremove all $gettok($sockname,2,95)  
    sockclose $sockname
  }
  if ($gettok(%proxytest.sread,2,32) == 200) {
    hinc -mu60 tmp $sockname
 
    if ($hget(tmp,$sockname) == 1) sockwrite -n $sockname CONNECT irc.undernet.org:6667 HTTP/1.0 $str($crlf,2)
    elseif ($hget(tmp,$sockname) == 2) {
      hdel tmp $sockname
      if (!$read(proxy.work,s,$gettok($sockname,2,95))) write proxy.work $gettok($sockname,2,95) $gmt
    }
  }
  if (*connection:*close* iswm %proxytest.sread) xremove all $gettok($sockname,2,95)
}
 
alias -l xremove {
 
  if ($1 == all) {
    var %xr = $read(proxy.test,s, $2), %xrn = $readn, %xr = $read(proxy.work,s,$2), %xrnn = $readn
 
    if (%xrn) write $+(-dl, %xrn) proxy.test
    if (%xrnn) write $+(-dl, %xrnn) proxy.work
 
  }
  else {
    var %xr = $read($1,s,$2), %xrn = $readn
    if (%xrn) write $+(-dl, %xrn) $1
  }
}
 
menu @ptools {
  clear: clear $active
}
 

Commenting Options