Help with sockets when converting mirc to tcl.

[SamuelRight]

I need help converting this mirc script to tcl. I do not have control of the webserver's php scripts, so I need the eggdrop to do the same thing the mirc did. No writing to txt.

Code: Select all

ALIAS something {
  sockopen something webserver.com 80
  echo opened
}
on *:JOIN:#channel: something
on *:PART:#channel: something
on *:SOCKOPEN:something: {
  var %users, %i = 0 | while $nick(#channel,%i)) { %users = $nick(#channel,0) | inc %i }
  sockwrite -n oa GET $+(/a/php/script/which/reads/the/number/of/nicks.php?count=,%users) HTTP/1.0   
  sockwrite -n something Host: webserver.com
  sockwrite something $crlf
  echo written something
  sockclose something
}

ALIAS NICKS {
  sockopen NICKS webserver.com 80
  echo opened
}
on *:JOIN:#channel: NICKS
on *:NICK: NICKS
on *:PART:#channel: NICKS
on *:SOCKOPEN:NICKS: {
  var %nicks, %i = 1 | while $nick(#channel,%i)) { %nicks = $addtok(%nicks,$chr(60) $+ $chr(117) $+ $chr(62) $+ $ifmatch $+ $chr(60) $+ $chr(47) $+ $chr(117) $+ $chr(62) $+ $chr(44),43) | inc %i }
  sockwrite -n NICKS GET $+(/a/php/script/which/reads/users.php?data=,%nicks) HTTP/1.0   
  sockwrite -n NICKS Host: webserver.com
  sockwrite NICKS $crlf
}
on *:SOCKOPEN: NICKS {
  var %users, %i = 0 | while $nick(#channel,%i)) { %users = $nick(#channel,0) | inc %i }
  sockwrite -n NICKS GET $+(/a/php/script/which/reads/the/number/of/nicks.php?count=,%users) HTTP/1.0   
  sockwrite -n NICKS Host: webserver.com
  sockwrite NICKS $crlf
}

Thanks.

[^DooM^]

Have you read the TCL manual or even attempted to write this yourself?

[SamuelRight]

I spent all afternoon looking at other scripts trying to make something work.

Would it look something like this?

Code: Select all

bind join - "$channel %" socker -webserver.com 

The manual is very overwhelming. I just need to host this script for a webserver, I have no patience trying to self learn tcl from scratch.

[Alchera]

I have no patience trying to self learn tcl from scratch.

And we have no patience in helping those that will not help themselves.

[SamuelRight]

So, I need to take a tcl course to host a script?

I am just asking for some direction on the script, I do not even know where to look, nor do I know the tcl equivalent for the mirc commands used.

[Alchera]

This forum (and site) is dedicated to eggdrop and the TCL scripts it uses, it's definitely not a mIRC scripting site. You'd be lucky to find one of us that could even come close to understanding that mIRC "language" let alone any one (if they did) bothering to re-write it into TCL. It's not generally something we do. Try using the Search button up top and using "socket" as your keyword; you might just get lucky.

[awyeah]

I spent all afternoon looking at other scripts trying to make something work.

Would it look something like this?

Code: Select all

bind join - "$channel %" socker -webserver.com 

The manual is very overwhelming. I just need to host this script for a webserver, I have no patience trying to self learn tcl from scratch.

This should be directed to a proc in my case:

Code: Select all

bind join - "#channelname" socker:webserver

proc socker:webserver {nick uhost hand chan} {
  #Not sure what this does though.
  socker -webserver.com
  #Put other stuff in here...
  ..............
  .............
  ...........
}