Statistics: Posted by AxS — Fri Mar 03, 2006 1:25 am

Statistics: Posted by De Kus — Mon Mar 14, 2005 9:36 am

Code:

Currently: list element in braces followed by "ngel" instead of spaceCurrently:     while executingCurrently: "lindex $arg 5"Currently:     (procedure "raw_352" line 3)Currently:     invoked from withinCurrently: "raw_352 $_raw1 $_raw2 $_raw3"

Statistics: Posted by jsilvestre — Mon Mar 14, 2005 6:13 am

 tag when pasting code[/b]remove that for($i=0;$i<400000;$i++) from your PHP scriptuse .set errorInfo from eggdrop's party line to obtain full error traceback

Statistics: Posted by demond — Sun Mar 13, 2005 4:27 pm

phpbb2egg.tcl
# found on egghelp.org a posting by ShavdApe about a phpbb2egg script
# to post live into a channel when a post on a board is made
# add the line source/phpbb2egg.tcl into your .conf and rehash the bot

# you can change the port here, but pls think about to change it to
# the same port on functions_phpbb2egg.php:
listen 6551 script phpbb2eggaccept

proc phpbb2eggaccept {idx} {
control $idx phpbb2eggincoming
}

proc phpbb2eggincoming {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 "phpbb2egg.tcl Loaded..."

functions_phpbb2egg.php
<?php
// version 1.0.1 beta[development]

$channel = "#fiodental";
$ids = "1 2 3 4 5"; // forums to display posts from
$botip = "207.44.155.125"; // your bot's ip
$botport = "6551"; // a nice port
$boardurl = "www.fiodental.net/forum";

function send2egg($mode, $forumid, $topic_id, $user_id, $subject, $message, $poll_title, $channel, $ids, $botip, $botport, $boardurl )
{
global $userdata;

$nick = $userdata[$user_id];

//strip BBCode off
$message = preg_replace("#\[(.*?)]#si", "", $message);

// shorten longer postings to 300 signs
$text = wordwrap($message, 300, "\0") . ' ...';


//here we ask for several cases and do some formating stuff with tcl readable colors.
if ( $poll_title != '' )
{
$text2 = "\00300,02 New poll! \00301,99 on our board:<br>";
}
else if ( $mode = 'newtopic' )
{
$text2 = "\00300,02 New topic! \00301,99 on our board:<br>";
}
else
{
$text2 = "\00300,02 Fresh! \00301,99 from our board:<br>";
}

if ( $poll_title != '' )
{
$text2 .= "\00300,04 $nick \00302,99 asks: $poll_title <br>";
}

else if ( $subject != '' )
{
$text2 .= "\00300,04 $nick \00302,99 about the subject $subject :<br>";
$text2 .= " \00302,99 $message <br>";
}

else
{
$text2 .= "\00300,04 $nick".":";
$text2 .= " \00302,99 $message <br>";
}



$text2 .= " Link: \00312,99 $boardurl/viewtopic.php?t=$topic_id ";

$chan = checkid( $forumid, $channel, $ids );

phpbb2egg($chan, $text=$text2, $botip, $botport );

}



function phpbb2egg( $channel, $text, $botip, $botport)
{
if ( $channel == '' || $text == '') {
return;
}

$text = ereg_replace(";", ":", $text);
$text = ereg_replace("<br>", ";", $text);

$line = "$channel $text";

$socket = @fsockopen ($botip, $botport, $null, $null, 60);

if (!$socket)
{
echo " no connection made ";
}
if ($socket) {
@fputs($socket,"$line\n");

for($i=0;$i<400000;$i++)
{
$g=$i;
}
fclose($socket);
}
}


// a little tricky from unknown
function checkid($forumid, $channel, $ids )
{

$public[forumids] = " $ids ";
$public[chan] = " $channel ";

$forumids=explode(" ", $public[forumids]);

while ( list($n, $id) = each($forumids))
{

if ($forumid == $id)
{
return "$public[chan]";
}

}

return "";
}



?>

Statistics: Posted by jsilvestre — Sun Mar 13, 2005 3:06 pm