r1ch.net forums
* Home Help Search Login Register
r1ch.net  |  r1ch.net stuff  |  Bitchbot  |  Topic: techify, Cyborg ..
Pages: [1]
Print
Author Topic: techify, Cyborg ..  (Read 7462 times)
ScaredyCat
Member

Posts: 1


« on: April 28, 2003, 04:00:00 pm »

they've all stopped working Sad

any chance of adding a spell check too? Smiley

Cracking bot though Smiley mine now tells the temperature in various rooms in the house... Smiley

ta for it!

ScaredyCat
Logged
R1CH
Administrator
Member

Posts: 2625



« Reply #1 on: April 30, 2003, 02:28:02 pm »

Spell check (courtesy of google) is in next release, the cyborg/tech toys seems to have moved or gone offline or something Sad.
Logged
ferat
Guest
« Reply #2 on: January 05, 2004, 07:14:10 pm »

In case you didn't know, the name generator got its own site:

http://www.cyborgname.com/

And the acronym cgi just got moved from:

/cgi/toy-acronymer.cgi

to:

/cgi/acronymer.cgi

Just changing the url for techify seems to fix the script, but they rearranged the output on the cyborger so that'd have to be fixed.  This change to cyborgify() to work for me:

Code:

 $remote = "www.cyborgname.com";
  $url = "/cyborger.cgi?acronym=$cyber";

#SKIP MISC CODE#

  while ($line = <SOCKCHECK>) {
    if (index(lc($line),lc("<P CLASS=\"mediumheader\">")) != -1) {
      $func = substr($line,27);
      $func = substr($func,0,index(lc($func),lc("</p>")));
      last;
    }
  }
Logged
mr_sz
Guest
« Reply #3 on: May 05, 2004, 06:47:56 am »

I have tried your code ferat still not working,
the site is contacted ok but all I get back is a blank reply in the verbose.

sub cyborgify {
  my ($cyber) = @_;

  my ($remote,$port,$proto,$paddr,$headers,$nl,$crlf,$stuff,@status);

$remote = "www.cyborgname.com";
 $url = "/cyborger.cgi?acronym=$cyber";
  $port = "80";
  $iaddr = inet_aton($remote) or return "$remote: Domain is not resolvable.";
  $paddr = sockaddr_in($port,$iaddr);
  $proto = getprotobyname('tcp');
  socket (SOCKCHECK,PF_INET,SOCK_STREAM,$proto) or die "socket: $!";
  connect (SOCKCHECK, $paddr) or return "connect: $!";
  $nl = chr(10);
  $crlf = chr(13).chr(10);

  undef $headers;
  $headers .= "User-Agent: BitchBOT IRC Web Client$crlf";
  $headers .= "Host: ${remote}:${port}$crlf";
  $headers .= "Connection: Close$crlf";


  send (SOCKCHECK,"GET $url HTTP/1.1\013\010$headers" . $nl . $nl,0);

  while ($line = <SOCKCHECK>) {
    if (index(lc($line),lc("<P CLASS=\"mediumheader\">")) != -1) {
      $func = substr($line,27);
      $func = substr($func,0,index(lc($func),lc("</p>")));
      last;
    }
  }

  close (SOCKCHECK);
  return $func;
}
Logged
NewGuy
Guest
« Reply #4 on: July 01, 2004, 07:11:29 pm »

Same Here!
Logged
nano
Member

Posts: 3


« Reply #5 on: July 27, 2004, 06:40:50 pm »

Same here, and I dont theink the techify link is there anymore.  Is yours still working ferat?
Logged
Pages: [1]
Print
r1ch.net  |  r1ch.net stuff  |  Bitchbot  |  Topic: techify, Cyborg ..
Jump to:  

Powered by SMF 1.1.19 | SMF © 2013, Simple Machines