egghelp/eggheads community

Probably simple.. But. I cant do it..

2008-02-06T18:41:38-04:00

Replace

Code:

) else {

with

Code:

} else {

at line 11 in the getinfo procedure.

Statistics: Posted by Sir_Fz — Wed Feb 06, 2008 6:41 pm

Probably simple.. But. I cant do it..

2008-02-06T17:43:41-04:00

copied and pasted again, exactly as you had it, did a .rehash:

[16:42] [16:43] Tcl error in file './eggdrop.conf':
[16:42] [16:43] missing close-brace
[16:42] while executing
[16:42] "proc getinfo {nick uhost hand chan text} {
[16:42] if {[isop $nick $chan]} {
[16:42] if {$text == ""} {
[16:42] putserv "privmsg $nick :Wrong syntax. \"GETINFO [16:42] (file "scripts/uinfo2.tcl" line 8)
[16:42] invoked from within
[16:42] "source scripts/uinfo2.tcl"
[16:42] (file "./eggdrop.conf" line 1342)
[16:42] [16:43] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
DCC session closed

Statistics: Posted by rpope904 — Wed Feb 06, 2008 5:43 pm

Probably simple.. But. I cant do it..

2008-02-06T17:39:38-04:00

thats the one I tried, gonna give it another shot.

Statistics: Posted by rpope904 — Wed Feb 06, 2008 5:39 pm

Probably simple.. But. I cant do it..

2008-02-06T17:20:44-04:00

Try the edited version above and it'll work, promise.

Statistics: Posted by speechles — Wed Feb 06, 2008 5:20 pm

Probably simple.. But. I cant do it..

2008-02-06T16:12:43-04:00

Yeah, the second one did cause an error..

[14:25] [14:26] Tcl error in file './eggdrop.conf':
[14:25] [14:26] missing close-brace
[14:25] while executing
[14:25] "proc getinfo2 {nick uhost hand chan text} {
[14:25] if {[isop $nick $chan]} {
[14:25] if {$text == ""} {
[14:25] putserv "privmsg $nick :Wrong syntax. \"GETINFO <..."
[14:25] (file "scripts/uinfo2.tcl" line 9)
[14:25] invoked from within
[14:25] "source scripts/uinfo2.tcl"
[14:25] (file "./eggdrop.conf" line 1342)
[14:25] [14:26] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
DCC session closed

On the first one, I changed the output on the site to one line because I had it printing a

tag first, \n wont work with php echo, and I wasn't sure how the bot would handle a
tag on each line..

Statistics: Posted by rpope904 — Wed Feb 06, 2008 4:12 pm

Probably simple.. But. I cant do it..

2008-02-06T13:54:25-04:00

You should modify info because it'll overwrite the default TCL proc like that.

Statistics: Posted by metroid — Wed Feb 06, 2008 1:54 pm

Probably simple.. But. I cant do it..

2008-02-06T17:26:11-04:00

i've done a sample output here:

http://rpope904.x10hosting.com/irc/test.php

Code:

if {[catch {package require http} error]} { putlog "HTTP package required '$error'" }bind pub - getinfo getinfo# GET Info# Grabs your server data, etc, etc#proc getinfo {nick uhost hand chan text} {  if {[isop $nick $chan]} {    if {$text == ""} {      putserv "privmsg $nick :Wrong syntax. "GETINFO ""    } else {      set tok [http::geturl "http://www.somesite.com/somepage.php?login=[urlencode $text]"]      set html [http::data $tok]      http::cleanup $tok      regexp -nocase -- {cPanel Login:(.+?) Domain Name:(.+?) Hosting type:(.+?) Account type:(.+?) Suspended:(.+?) Server ID:(.+?)} $data -> login domain type account suspended id       if {![info exists $login]} {        putserv "privmsg $nick :No info available for $text."      ) else {        putserv "privmsg $nick :[join [list $login $domain $type $account $suspended $id] ", "]"      }      }  } }# URL Encode# Encodes anything not a-zA-Z0-9 into %00 strings...Pimp-Style#proc urlencode {text} {  set url ""  foreach byte [split [encoding convertto utf-8 $text] ""] {    scan $byte %c i    if {$i < 65 || $i > 122} {      append url [format %%%02X $i]    } else {      append url $byte    }  }  return [string map {%3A : %2D - %2E . %30 0 %31 1 %32 2 %33 3 %34 4 %35 5 %36 6 %37 7 %38 8 %39 9 \[ %5B \\ %5C \] %5D \^ %5E \_ %5F \` %60} $url]}##defeat-word-wrap####################################################################################################################################################################

Try this, since all your stuff is on one line Maiki's regexp's will be very greedy and not do what you want. I've also used putserv for messaging, eliminated all those returns, and stopped it from giving a "you have no access" response if a non-op tries to trigger the script, no response is better. Also included is a pimp-style url encoder.. keke

@metroid, how does it look now?

edit: corrected missing " which lead to the tcl interpreter giving the missing closing brace error, is now corrected.

Statistics: Posted by speechles — Wed Feb 06, 2008 1:36 pm

Probably simple.. But. I cant do it..

2008-02-06T06:29:41-04:00

Code:
bind pub - getinfo info ...snipped irrelevant parts...proc getinfo {nick uhost hand chan arg} {
see the problem? change the part below and it will properly bind getinfo to the proc getinfo
Code:
bind pub - getinfo getinfo 

Oopsie, i noticed it to late i guess :p

Statistics: Posted by Maiki — Wed Feb 06, 2008 6:29 am

Probably simple.. But. I cant do it..

2008-02-05T23:18:14-04:00

Code:

bind pub - getinfo info ...snipped irrelevant parts...proc getinfo {nick uhost hand chan arg} {

see the problem? change the part below and it will properly bind getinfo to the proc getinfo

Code:

bind pub - getinfo getinfo

Statistics: Posted by speechles — Tue Feb 05, 2008 11:18 pm

Probably simple.. But. I cant do it..

2008-02-05T21:51:51-04:00

i've done a sample output here:

http://rpope904.x10hosting.com/irc/test.php

Statistics: Posted by rpope904 — Tue Feb 05, 2008 9:51 pm

Probably simple.. But. I cant do it..

2008-02-05T20:00:50-04:00

caused an error:

[18:57] [18:58] Tcl error [info]: bad option "rpope904": must be args, body, cmdcount, commands, complete, default, exists, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars

any ideas? thanks again.

Statistics: Posted by rpope904 — Tue Feb 05, 2008 8:00 pm

Probably simple.. But. I cant do it..

2008-02-05T16:26:27-04:00

Very nice, thank you alot!

Statistics: Posted by rpope904 — Tue Feb 05, 2008 4:26 pm

Probably simple.. But. I cant do it..

2008-02-06T06:29:58-04:00

Code:

if {[catch {package require http} error]} { putlog "Failed loading error= $error" }bind pub - getinfo infoproc info {nick uhost hand chan arg} {if {![isop $nick $chan]} { putmsg $chan "No acces to use this script"; return }if {$arg == ""} { putmsg $chan "Wrong syntax. \"GETINFO nick\""; return }set url "http://www.somesite.com/somepage.php?login=$arg"set tok [http::geturl $url]set data [http::data $tok]http::cleanup $tokregexp -- {cPanel Login:(.+?)} $data -> loginregexp -- {Domain Name:(.+?)} $data -> domainregexp -- {Hosting type:(.+?)} $data -> typeregexp -- {Account type:(.+?)} $data -> accountregexp -- {Suspended:(.+?)} $data -> suspendedregexp -- {Server ID:(.+?)} $data -> idif {![info exists ::login]} { putmsg $chan "No info available"; return }putmsg $nick "$login,$domain,$type,$account,$suspended,$id"}

Statistics: Posted by Maiki — Tue Feb 05, 2008 6:19 am

Probably simple.. But. I cant do it..

2008-02-04T19:49:03-04:00

Sorry i've taken so long.. they are going to change it up alittle, we haven't got the site done yet, but now it's going to be like the bot goes to http://www.somesite.com/somepage.php?login=LOGIN where the person messages or notices the bot with GETINFO , i'd like to restrict this to ops on a channel, but thats not really required. basically, the site is going to output like this now: (no html tags)
cPanel Login:
Domain Name:
Hosting type
Account type:
Suspended: Yes/No
Server ID:

Could you possibly get a simple script that just reads the lines of the page, and sends them back to the person who requested it in either privmsg or notice?

Thanks for your help.

Statistics: Posted by rpope904 — Mon Feb 04, 2008 7:49 pm

Probably simple.. But. I cant do it..

2008-02-03T16:03:07-04:00

If you would give me the website.. Or the page of the soucrce, i will make it for you.

Statistics: Posted by Maiki — Sun Feb 03, 2008 4:03 pm