Users online php script .

[sdabbs65]

Dunno nothing about how this.
Just an Idea, I would like to see a php script that could tell me how many users are online and the locations,kinda like the runuo emulator has.
it is even possable ?

--------------------------------------------------------

edit...ah nevermind i think I found it in a old thread...


<?php
$server = "localhost";
$username = "root";
$password = "xxxxxxx";
$dbname = "eq";

$link = mysql_pconnect($server,$username,$password);
mysql_select_db($dbname, $link);

$sql = "SELECT zonename, profile FROM character_";
$result = mysql_query($sql);

echo "<table border=\"0\" width=\"100%\">\n";
echo "<th>Name</th>\n";
echo "<th>Zone Name</th>\n";
echo "<th>Gender</th>\n";
echo "<th>Race</th>\n";
echo "<th>Level</th>\n";
echo "<th>Bind</th>\n";
while ($row = mysql_fetch_array($result)) {
$zonename = $row["zonename"];
$profile = $row["profile"];
$alt_adv = $row["alt_adv"];
$profileinfo = unpack("Lchecksum/a64firstname/a32lastname/Lgender/Lrace/Lclass/Lunknown/Llevel/Lzoneid/fbindx/fbindy/fbindz", $profile);

$firstname = $profileinfo["firstname"];
$lastname = $profileinfo["lastname"];
$gender = $profileinfo["gender"];
$race = $profileinfo["race"];
$class = $profileinfo["class"];
$level = $profileinfo["level"];
$zoneid = $profileinfo["zoneid"];
$bindx = $profileinfo["bindx"];
$bindy = $profileinfo["bindy"];
$bindz = $profileinfo["bindz"];
$bind = "$bindx, $bindy, $bindz";
$id++;


if ($gender == 0) {
$gender = "male";
} elseif ($gender == 1) {
$gender = "female";
}

echo "<tr>\n";
echo " <td align=center>$firstname $lastname</td>\n";
echo " <td align=center>$zonename ($zoneid)</td>\n";
echo " <td align=center>$gender</td>\n";
echo " <td align=center>$race</td>\n";
echo " <td align=center>$level</td>\n";
echo " <td align=center>$bind</td>\n";
echo "</tr>\n";
}
echo "</table>\n";
?>

[fathernitwit]

that actually just gives you stats, wether they are logged in or not.
To detect active connections, you would prolly have to telnet to the world console and ask it for a who.

[sdabbs65]

that actually just gives you stats, wether they are logged in or not.
To detect active connections, you would prolly have to telnet to the world console and ask it for a who..

hmmm i was hoping perl could do something like that , I will have to research that this weekend.

[Acolyte]

Damn, it's been a long time since I've posted or done anything with EQEmu... probably close to 3 years now.

I wrote a php script that did what you were asking for. I don't have a copy of it anymore, but I will tell you what it did.

Basically, using PHP, you CAN telnet into the world server and parse the output of players to display it on a webpage. No PERL needed.

[KingMortenson]

I remember that Acolyte , didn't you write that for my server ? hehe

[farce]

Use PHP to open a socket to the telnet port on your world server. Send in the commands to get the list, read out the data into an array then format and display.

pseudo code:


<?php

$fp = fsockopen('localhost',21, $errno, $errstr,30); // PHP server and world are on the same machine
if(!$fp) {
echo "$errstr ($errno)<br />\n";
} else {
fgets($fp, 128); // then keep getting data until an input prompt
fwrite($fp, "who\n"); // input command
while(!feof($fp)) {
echo fgets($fp, 128);
}
fclose($fp);
}


something to that effect =)

[sdabbs65]

I don't think the server supports telnet as I can not even telnet into it
localy.
when I do telnet to the server it echos and just says invalid username and password.

I was thinking a perl script might work but I dont know enuff to get it going properly.

Im getting this error.
500 'WHO': command not understood.

[knightz]

http://heightenedreality.com/cgi-bin/whoson.pl

Code is sort of ugly, I'll post it later when I get time.

[sdabbs65]

[QUOTE=knightz
Code is sort of ugly, I'll post it later when I get time.[/QUOTE]


ok
with some modification it could be usefull but without the
code it's useless.

[knightz]

Sorry it took so long....

#!/usr/bin/perl

use Net::Telnet;
use strict;

my $server = "Website title : Who's online";
my $titleimg = "http://kmra.fliphost.net/themes/Illusion/images/head/banner.jpg";
my $host = "localhost";
my $user = "johndoe";
my $pass = "password";

my %players;

my $telnet = new Net::Telnet( Port=>9000, Timeout=>200, Errmode=>'die', Prompt=>'/knightz> $/i');
# print "Connecting...\n";
$telnet->open($host);

sleep 1;

$telnet->print($user);
$telnet->waitfor("/:/");
$telnet->print($pass);

$telnet->waitfor("/>/");

my @wholist = $telnet->cmd('who');

$telnet->close();

print "Content-type: text/html\n\n";
print "<title>$server online user list</title>";
print "<meta http-equiv='REFRESH' content='60;url=whoson.pl'>";
print "<body topmargin='0'>";
print "<center><img src='$titleimg'>";
print "<h3>$server</h3>";

foreach my $line (@wholist) {

if($line =~/^ +\[.*/) { # regular players
my ($v_userinfo, $v_zone, $v_account_id, $v_account_name, $v_lsid, $v_status) = split(/[a-zA-Z]+:/, $line);
# clean up the spaces and other garbage
$v_userinfo =~s/^ +//;
$v_userinfo =~s/ +$//;
$v_userinfo =~s/RolePlay |ANON //;
$v_zone =~s/^ +([a-z]+) +$/$1/;

# if no guild
if($v_userinfo =~/^\[([0-9]+) ([A-Za-z ]+)\] ([A-Za-z_]+) \(([A-Za-z ]+)\)$/) {
if($1>0) {
$players{$3}{"level"} = $1;
$players{$3}{"class"} = $2;
$players{$3}{"race"} = $4;
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = $v_zone;
} else {
$players{$3}{"level"} = "\&nbsp;";
$players{$3}{"class"} = "\&nbsp;";
$players{$3}{"race"} = "\&nbsp;";
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = "zoning";
}
# if in a guild
} elsif($v_userinfo =~/^\[([0-9]+) ([A-Za-z ]+)\] ([A-Za-z_]+) \(([A-Za-z ]+)\) \<(.*)\>$/) {
if($1>0) {
$players{$3}{"level"} = $1;
$players{$3}{"class"} = $2;
$players{$3}{"race"} = $4;
$players{$3}{"guild"} = $5;
$players{$3}{"zone"} = $v_zone;
} else {
$players{$3}{"level"} = "\&nbsp;";
$players{$3}{"class"} = "\&nbsp;";
$players{$3}{"race"} = "\&nbsp;";
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = "zoning";
}
}
} elsif($line =~/\* GM-.*/) { # GMs
$line =~s/\* GM-[A-Za-z]+ \*//;
my ($v_userinfo, $v_zone, $v_account_id, $v_account_name, $v_lsid, $v_status) = split(/[a-zA-Z]+:/, $line);
# clean up the spaces and other garbage
$v_userinfo =~s/^ +//;
$v_userinfo =~s/ +$//;
$v_userinfo =~s/RolePlay |ANON //;
$v_zone =~s/^ +([a-z]+) +$/$1/;

# if no guild
if($v_userinfo =~/^\[([0-9]+) ([A-Za-z ]+)\] ([A-Za-z_]+) \(([A-Za-z ]+)\)$/) {
if($1>0) {
$players{$3}{"level"} = $1;
$players{$3}{"class"} = $2;
$players{$3}{"race"} = $4;
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = $v_zone;
$players{$3}{"gm"} = "yes";
} else {
$players{$3}{"level"} = "\&nbsp;";
$players{$3}{"class"} = "\&nbsp;";
$players{$3}{"race"} = "\&nbsp;";
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = "zoning";
$players{$3}{"gm"} = "yes";
}
# if in a guild
} elsif($v_userinfo =~/^\[([0-9]+) ([A-Za-z ]+)\] ([A-Za-z_]+) \(([A-Za-z ]+)\) \<(.*)\>$/) {
if($1>0) {
$players{$3}{"level"} = $1;
$players{$3}{"class"} = $2;
$players{$3}{"race"} = $4;
$players{$3}{"guild"} = $5;
$players{$3}{"zone"} = $v_zone;
$players{$3}{"gm"} = "yes";
} else {
$players{$3}{"level"} = "\&nbsp;";
$players{$3}{"class"} = "\&nbsp;";
$players{$3}{"race"} = "\&nbsp;";
$players{$3}{"guild"} = "\&nbsp;";
$players{$3}{"zone"} = "zoning";
$players{$3}{"gm"} = "yes";
}
}
}
}

print "<html><body><table border='1' cellpadding='3' cellspacing='0'>\n";
print "<tr><td align='center'>Player</td><td align='center'>Class</td><td align='center'>Zone</td><td align='center'>Guild</td></tr>\n";
my $count = 0;

if(scalar(%players) > 0) {
foreach my $player (sort keys %players) {
my $fontcolor;
if(defined $players{$player}{"gm"}) {
$fontcolor = '#008f1e';
} else {
$fontcolor = '#000000';
}
print "<tr><td align='center'><font color='$fontcolor'>$player</font></td><td>$players{$player}{'level'} $players{$player}{'race'} $players{$player}{'class'}</td><td align='center'>$players{$player}{'zone'}</td><td align='center'>$players{$player}{'guild'}</td></tr>\n";
$count++;
}
} else {
print "<tr><td colspan='4'>No players online</tr>";
}
print "</table><br>";
print "$count players online.";
print "</center>";
print "</body></html>\n";

[KhaN]

Thanks Buri, its nice PHP script :)

btw, i seen on KMRA you fixed govtcheese magelo profile for latest EQEmu version, is there any plan to make it public ? :p

[Belfedia]

Don't know perl,
But i have a error :
Global symbol "$li" requires explicit package name at D:/Apache2/cgi-bin/whoson.pl line 41.

Ps: perl is'nt install with telnet features
you need to open Mcpan and install module :) no more error 500 :)

[knightz]

btw, i seen on KMRA you fixed govtcheese magelo profile for latest EQEmu version, is there any plan to make it public ? :p

Actually atm, I only stripped out the parts it reads the item information from a custom items table (dont have the import script). I do plan on fixing this (eventually) and will release it at that time.

[sdabbs65]

Go to DOS and type .
perl -MCPAN -e shell;

then at the command lilne type
install Net::Telnet::Cisco
you will see about 500 lines then ask you to do some things just keep hitting enter for default.

then you will have telnet installed under perl.

[SuedeWorthey]

I don't use PERL, so can someone port this to PHP? I will if I have to but if someone has already done it, please share. :)

[mwmdragon]

Yeah PHP would be nice ;)

[SuedeWorthey]

Yeah PHP would be nice ;)
I am working on a port now... Just gotta figure out all the authentication stuff...

[sdabbs65]

I am working on a port now... Just gotta figure out all the authentication stuff...

I heard the telnet feature was disabled years ago...
it may still be in the source somewhere tho <shrug>..

[SuedeWorthey]

I heard the telnet feature was disabled years ago...
it may still be in the source somewhere tho <shrug>..Are you talking about in the World.exe or in PHP? I know telnet doesn't exist in PHP, and the wanna-be telnet class I downloaded sucks ass... Yeah, I always have to re-write everything... But it's still enabled in world.

[sdabbs65]

Are you talking about in the World.exe or in PHP? I know telnet doesn't exist in PHP, and the wanna-be telnet class I downloaded sucks ass... Yeah, I always have to re-write everything... But it's still enabled in world.

Well when I tryed it in World.exe it's in duplex and never works...
password never is acepted...
there is a ppm to download,it seems to work ok for other things.
but never got it to work for this item.

[wize_one]

you have to set a md5 password in your database per user you want to allow telnet to world.. we use it for some of our stuff.. thats what the password field is for in the accounts_ table(if i recall right)

[sdabbs65]

you have to set a md5 password in your database per user you want to allow telnet to world.. we use it for some of our stuff.. thats what the password field is for in the accounts_ table(if i recall right)

I got the password in and it connects but still refuses to allow log in hmmm.
.. im thinking maybe it's not enabled in command line functions in world.exe
or maybe a value in vars im missing,checking the source now.

back to the lab.

[wize_one]

telnet serverip:9000 login name: LoginserverName password: MD5Password
then,
echo off
acceptmessages on
and you should be at the world shell.. might have to open port 9000

[Cisyouc]

telnet in world does work, for sure.
I have had some trouble in the past with puTTY, don't know why.

[sdabbs65]

telnet in world does work, for sure.
I have had some trouble in the past with puTTY, don't know why.

yeah im useing putty...thats probbly the problem.

[Magoth78]

Number of users online, their names and the number, using php.

It's my first Php code so don't be rude if it's extremly ugly, basic.
It will show the name and the amount of the connected characters char.


<?php


$Server = 'Host.com';
$Port = 9000;
$user = "your_user\r";
$pass = "your_pass\r";

$fp = fsockopen($Server, $Port);

fputs ($fp, $user);
usleep(125000);
fputs ($fp, $pass);
usleep(125000);
fputs ($fp, "who\r");
usleep(125000);

do
{
$output = fgets($fp);
$output = str_replace("Username: Password: Login accepted.", "", $output);
$output = str_replace($user">", "", $output);
$output = str_replace("who", "", $output);
$output = str_replace("Players", "", $output);
$output = str_replace("on", "", $output);
$output = str_replace("server:", "", $output);
$output = str_replace("line", "", $output);
$who = preg_replace('#^.*]\s+(.*?)\(.*$#','\1',$output);

echo $who;
if (preg_match("/Players/i", $who)) {
Break;
}
}
while(!feof($fp));
fclose($fp);
?>


Mag

[sdabbs65]

Number of users online, their names and the number, using php.

It's my first Php code so don't be rude if it's extremly ugly, basic.
It will show the name and the amount of the connected characters char.


<?php


$Server = 'Host.com';
$Port = 9000;
$user = "your_user\r";
$pass = "your_pass\r";

$fp = fsockopen($Server, $Port);

fputs ($fp, $user);
usleep(125000);
fputs ($fp, $pass);
usleep(125000);
fputs ($fp, "who\r");
usleep(125000);

do
{
$output = fgets($fp);
$output = str_replace("Username: Password: Login accepted.", "", $output);
$output = str_replace($user">", "", $output);
$output = str_replace("who", "", $output);
$output = str_replace("Players", "", $output);
$output = str_replace("on", "", $output);
$output = str_replace("server:", "", $output);
$output = str_replace("line", "", $output);
$who = preg_replace('#^.*]\s+(.*?)\(.*$#','\1',$output);

echo $who;
if (preg_match("/Players/i", $who)) {
Break;
}
}
while(!feof($fp));
fclose($fp);
?>


Mag

All I get is a blank...
error msg says ..
xx.xx.xx.xxx - - [23/Aug/2005:20:32:47 -0400] "GET /who.php HTTP/1.1" 200 -

[Magoth78]

Change this line :


$output = str_replace($user">", "", $output);


to

$output = str_replace("your_user>", "", $output);


You just have to edit "your_user".


Mag

[sdabbs65]

Change this line :


$output = str_replace($user">", "", $output);


to

$output = str_replace("your_user>", "", $output);


You just have to edit "your_user".


Mag

$output = str_replace("your_user>", "", $output);

when I take out this line I get a return...

sdabbs65> Tailwind Kash Godenex Ydradi 4 players



when it's placed back in I get a empty screen...

[Magoth78]

Ah yeah, if you don't want to have the characters name in the ouput, and just the number of connected players, you should use my simple script:


<?php

$Server = 'Host.com';
$Port = 9000;
$user = "your_user\r";
$pass = "your_pass\r";

$fp = fsockopen($Server, $Port);

fputs ($fp, $user);
//echo("Login Accepted\r\n");
usleep(125000);
fputs ($fp, $pass);
usleep(125000);
//echo("Password Accepted\r\n");
fputs ($fp, "who\r");
usleep(125000);
//echo("Who launched\r\n");


while (!feof($fp))
{
$ret = fgets($fp, 128);
if (ereg("players", $ret)){
$ret = ereg_replace("players online","",$ret);
echo "$ret \n";
break;
fclose($fp);
}

}
?>

[Damilis]

I have ben searching high and low to develop a .net equivlent to the .php scripts floating around the boards... has anyone had any luck getting a vb.net or c#.net app telneting to world.exe?

[bleh]

It's not VB or C#, but for what it's worth, I have a minimal world Java client if you want to look at that.

executable jar: http://home.comcast.net/~moofn/eqadmin.jar
source: http://home.comcast.net/~moofn/eqadminsrc.zip

[sdabbs65]

It's not VB or C#, but for what it's worth, I have a minimal world Java client if you want to look at that.

executable jar: http://home.comcast.net/~moofn/eqadmin.jar
source: http://home.comcast.net/~moofn/eqadminsrc.zip

Nice..what did you use to make that ?