JWOLFF

Joined

Dec 14, 2010

Activity Stream

All

Threads

Snippets

JWOLFF commented on a Page, Pre Bot - Aug 31, 2015

Since orlydb.com no longer is a viable source, I was trying to update this script to PreDB.me. I'm getting parsing errors that I hope someone can help with..

!pretest Mr. Robot returns this

[PreDB.mePreDB.me33 releasesCategoriesMoviesSDHDDiscsTVSDHDDiscsMusicAudioVideosDiscsGamesPCXboxPlaystationNintendoAppsWindowsLinux</a]
 14:05  @BoT             • [>MacMobileBookseBooksAudio BooksXXXVideosImagesDoxUnknownMr Robot11.7 daysTVHDMr.Robot.S01E09.DIRFIX.1080p.HDTV.x264-TASTETV11.7 daysTVHDMr..Robot.S01E09.1080p.HDTV.x264-TASTETV11.7 daysTVSDMr.Robot.S01E09.HDTV.x264-DEFiNE18.7 days</]
 14:05  @BoT             • [>MacMobileBookseBooksAudio BooksXXXVideosImagesDoxUnknownMr Robot11.7 daysTVHDMr.Robot.S01E09.DIRFIX.1080p.HDTV.x264-TASTETV11.7 daysTVHDMr..Robot.S01E09.1080p.HDTV.x264-TASTETV11.7 daysTVSDMr.Robot.S01E09.HDTV.x264-DEFiNE18.7 days</]

alias pre { 
  unset %pre.nn %pre.release %pre.type %pre.data 
  sockclose pre 
  set %prel 0 
  sockopen pre predb.me 80 
} 

on *:sockopen:pre:{ 
  if ($sockerr) { echo >> Error Connecting... | halt } 
  else { 
    sockwrite -n $sockname GET  %pre.q HTTP/1.1 
    sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
    sockwrite -n $sockname Host: predb.me 
    sockwrite -n $sockname $crlf 
  } 
} 
on *:sockread:pre:{ 
  if ($sockerr > 0) return 
  sockread %read 
  ;echo -a %read 
  if (class="data isin %read) { set %pre.data 1[ $+ ?14 $+ $striphtml(%read) $+ 1] } 
  if (class="tl-term isin %read) { set %pre.type 1[10 $+ $striphtml(%read) $+ 1] } 
  ;if (class="p-title isin %read) { set %pre.release 5 $+ $striphtml(%read) 
  msg %pre.chan %pre.type %pre.release %pre.data 
  inc %pre.nn 
} 
if (%pre.nn >= 5) { sockclose pre } 
} 

alias striphtml { 
  noop $regsub($1-,/(<(?:.+?)>)/g,$null,%string) 
  return %string 
} 

on *:text:!pretest*:#:{ 

  set %pre.chan $chan 
  unset %pre.q 
  set %pre.q /?search= $+ $replace($2-,$chr(32),+) 
  pre 
} 

on *:input:*:{ 
  if (.pre == $1) { 
    set %pre.chan $active 
    unset %pre.q 
    set %pre.q /?q= $+ $replace($2-,$chr(32),+) 
    pre 
  } 
}

Respond

JWOLFF commented on a Page, Pre Bot - Aug 31, 2015

Since orlydb.com no longer is a viable source, I was trying to update this script to PreDB.me. I'm getting parsing errors that I hope someone can help with..

!pretest Mr. Robot returns this

[PreDB.mePreDB.me33 releasesCategoriesMoviesSDHDDiscsTVSDHDDiscsMusicAudioVideosDiscsGamesPCXboxPlaystationNintendoAppsWindowsLinux</a]
 14:05  @BoT             • [>MacMobileBookseBooksAudio BooksXXXVideosImagesDoxUnknownMr Robot11.7 daysTVHDMr.Robot.S01E09.DIRFIX.1080p.HDTV.x264-TASTETV11.7 daysTVHDMr..Robot.S01E09.1080p.HDTV.x264-TASTETV11.7 daysTVSDMr.Robot.S01E09.HDTV.x264-DEFiNE18.7 days</]
 14:05  @BoT             • [>MacMobileBookseBooksAudio BooksXXXVideosImagesDoxUnknownMr Robot11.7 daysTVHDMr.Robot.S01E09.DIRFIX.1080p.HDTV.x264-TASTETV11.7 daysTVHDMr..Robot.S01E09.1080p.HDTV.x264-TASTETV11.7 daysTVSDMr.Robot.S01E09.HDTV.x264-DEFiNE18.7 days</]

alias pre { 
  unset %pre.nn %pre.release %pre.type %pre.data 
  sockclose pre 
  set %prel 0 
  sockopen pre predb.me 80 
} 

on *:sockopen:pre:{ 
  if ($sockerr) { echo >> Error Connecting... | halt } 
  else { 
    sockwrite -n $sockname GET  %pre.q HTTP/1.1 
    sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
    sockwrite -n $sockname Host: predb.me 
    sockwrite -n $sockname $crlf 
  } 
} 
on *:sockread:pre:{ 
  if ($sockerr > 0) return 
  sockread %read 
  ;echo -a %read 
  if (class="data isin %read) { set %pre.data 1[ $+ ?14 $+ $striphtml(%read) $+ 1] } 
  if (class="tl-term isin %read) { set %pre.type 1[10 $+ $striphtml(%read) $+ 1] } 
  ;if (class="p-title isin %read) { set %pre.release 5 $+ $striphtml(%read) 
  msg %pre.chan %pre.type %pre.release %pre.data 
  inc %pre.nn 
} 
if (%pre.nn >= 5) { sockclose pre } 
} 

alias striphtml { 
  noop $regsub($1-,/(<(?:.+?)>)/g,$null,%string) 
  return %string 
} 

on *:text:!pretest*:#:{ 

  set %pre.chan $chan 
  unset %pre.q 
  set %pre.q /?search= $+ $replace($2-,$chr(32),+) 
  pre 
} 

on *:input:*:{ 
  if (.pre == $1) { 
    set %pre.chan $active 
    unset %pre.q 
    set %pre.q /?q= $+ $replace($2-,$chr(32),+) 
    pre 
  } 
}

Respond