| View previous topic :: View next topic |
| Author |
Message |
ReaL|DoG
Voice
Joined: 09 Apr 2006
Posts: 6
Location: Italy
|
 Posted: Sun Jul 08, 2007 11:39 pm Post subject: |
 |
|
question: where can I get this .tcl ?.. please.. i really need it 
_________________
Don't hate the player, hate the game!!! |
|
| Back to top |
|
 |
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Mon Jul 09, 2007 12:26 am Post subject: |
|
|
| google? |
|
| Back to top |
|
|
ReaL|DoG
Voice
Joined: 09 Apr 2006
Posts: 6
Location: Italy
|
| Posted: Mon Jul 09, 2007 12:50 am Post subject: |
|
|
on google are only 2 pages with vbulletin.tcl and there is only one site where i can download that file, but i need to have a licence (the licence cost about 78$) .... I've searched on live.com, seach.yahoo.com too.. but nothing.
_________________
Don't hate the player, hate the game!!! |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon Jul 09, 2007 2:21 am Post subject: |
|
|
| ReaL|DoG wrote: | | on google are only 2 pages with vbulletin.tcl and there is only one site where i can download that file, but i need to have a licence (the licence cost about 78$) .... I've searched on live.com, seach.yahoo.com too.. but nothing. |
vBulletin is proprietary software. Why would you think there would be no fee?
The script itself (if available) is open source (and free) not what it connects to (vBulletin).
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
ReaL|DoG
Voice
Joined: 09 Apr 2006
Posts: 6
Location: Italy
|
| Posted: Mon Jul 09, 2007 2:59 am Post subject: |
|
|
i already have vbulletin software.. i need only the script .tcl
If it's possible to have it.. it's ok.. if not.. it's ok too
_________________
Don't hate the player, hate the game!!! |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon Jul 09, 2007 4:07 am Post subject: |
|
|
| ReaL|DoG wrote: | i already have vbulletin software.. i need only the script .tcl
If it's possible to have it.. it's ok.. if not.. it's ok too |
| ReaL|DoG wrote: | | but i need to have a licence (the licence cost about 78$) |
Tcl is released under the GNU General Public License.
If you cannot find this particular script in the Tcl Archive or via Google then the indications are there is no such script readily available and you're probably better served by making a request in the Script Requests forum.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
ReaL|DoG
Voice
Joined: 09 Apr 2006
Posts: 6
Location: Italy
|
| Posted: Mon Jul 09, 2007 6:02 am Post subject: |
|
|
| ShavdApe wrote: | Ok I did reply earlier but figure you may as well just use the following so I edited the post.
This is tried and tested and does work I promise
| Code: |
add to functions.php or create a seperate file and add to newthread.php
require_once('./your_new_file_name.php');
// THE PHP
function irc_send($ta,$text) {
// options
$serverip = "123.123.123.123"; // PUT IP OF YOUR BOT HERE
$serverport = "13481";
// check if target and text aint empty
if ($ta=="" || $text=="") {
return;
}
// do splitchar
$text = ereg_replace(";", ":", $text);
$text = ereg_replace("<br>", ";", $text);
// add md5 hash
$line="$ta $text";
// open socket and put the line
$socket = @fsockopen ($serverip, $serverport, $null, $null, 30);
if (!$socket) {
echo " no connection made ";
}
if ($socket) {
@fputs($socket,"$line\n");
for($i=0;$i<400000;$i++)
{
$g=$i;
}
fclose($socket);
}
}
function irc_checkid($forumid) {
$public[forumids] ="2 4 5 6 9 10 11 13 14 15 16 17 18 19 20 21 27 28 29 30 31 32 33 34";
$public[chan] ="#yourchan";
$forumids=explode(" ", $public[forumids]);
while ( list($n, $id) = each($forumids)) {
if ($forumid == $id) {
return "$public[chan]";
}
}
return "";
}
// END OF FUNCTIONS
Now in newthread.php
somewhere just before the following :
eval("standardredirect(\"".gettemplate("redirect_postthanks")."\",\"$goto\");");
ADD THIS
$text2 = "\002[\00311,01Board\00300,01]\002 New thread in: \002$forumname[title]\002 Poster: \002$postusername \002 Subject: \002 $subject\002<br>";
$text2 .= 002[\00311,01Board\00300,01]\002 Link: http://www.mydomain.com/showthread.php?threadid=$threadid\002";
$chan=irc_checkid($forumid);
irc_send($ta=$chan,$text=$text2);
OK NOW THE TCL
listen 13481 script vbulletinaccept
proc vbulletinaccept {idx} {
control $idx vbincoming
}
proc vbincoming {idx args} {
putlog "$args"
set line [join $args]
if {[join $args] != "" } {
set chan [lindex $line 0]
set line [lrange $line 1 end]
set line [join $line]
set line [split $line ";"]
foreach line $line { putserv "PRIVMSG $chan :$line" }
putlog "$line"
}
killdcc $idx
}
putlog "vbulletin.tcl Loaded..." |
Proof if it was needed hehe
1:48:28 AM <@STS-BoT> [New Post Announcement]
1:48:29 AM <@STS-BoT> Topic by ShavedApe: Trivia now running on STS-bot in GENERAL-CONVERSATION
1:48:30 AM <@STS-BoT> Url: http://virgo.lunarpages.com/~q-rpc02/showthread.php?threadid=335
1:54:33 AM <@STS-BoT> [New Post Announcement]
1:54:34 AM <@STS-BoT> Topic by venmx: which side are you on, sony or microsoft? in GAMES-AND-CONSOLES-DISCUSSION
1:54:35 AM <@STS-BoT> Url: http://virgo.lunarpages.com/~q-rpc02/showthread.php?threadid=336 |
Does this script works for 3.6.0 ?..
When I edit newthread.php, I connot find
| Code: |
eval("standardredirect(\"".gettemplate("redirect_postthanks")."\",\"$goto\");");
|
// THE PHP
function irc_send($ta,$text) {
I need to put it in my new file.. or in functions.php ?
_________________
Don't hate the player, hate the game!!! |
|
| Back to top |
|
|
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Mon Jul 09, 2007 6:40 am Post subject: |
|
|
| Doesnt look like a tcl script to me, tcl doesn't use // for comments that I'm aware of.. |
|
| Back to top |
|
|
ReaL|DoG
Voice
Joined: 09 Apr 2006
Posts: 6
Location: Italy
|
| Posted: Mon Jul 09, 2007 7:53 am Post subject: |
|
|
| Code: |
OK NOW THE TCL
listen 13481 script vbulletinaccept
proc vbulletinaccept {idx} {
control $idx vbincoming
}
proc vbincoming {idx args} {
putlog "$args"
set line [join $args]
if {[join $args] != "" } {
set chan [lindex $line 0]
set line [lrange $line 1 end]
set line [join $line]
set line [split $line ";"]
foreach line $line { putserv "PRIVMSG $chan :$line" }
putlog "$line"
}
killdcc $idx
}
putlog "vbulletin.tcl Loaded..."
|
there is a small part with tcl script.
Anyway.. thanks for help.. i've already founded what I need.
_________________
Don't hate the player, hate the game!!! |
|
| Back to top |
|
|
Gordon
Voice
Joined: 04 Apr 2007
Posts: 34
|
| Posted: Wed Apr 09, 2008 5:43 pm Post subject: |
|
|
they have got it working in #zerodayxxxpasswords @ EFNet
it looks pretty good, any idea what script they are using?
(channel is not related to its name, its a support chan for a vbulletin board) |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
