techify, Cyborg ..

[ScaredyCat]

they've all stopped working

any chance of adding a spell check too?

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

ta for it!

ScaredyCat

[R1CH]

Spell check (courtesy of google) is in next release, the cyborg/tech toys seems to have moved or gone offline or something .

[ferat]

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;
    }
  }

[mr_sz]

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;
}

[NewGuy]

Same Here!

[nano]

Same here, and I dont theink the techify link is there anymore.  Is yours still working ferat?