in reply to Instant Messaging Protocol

use Net::Jabber qw(Client);
my $jabber = Net::Jabber->new();
$jabber->Connect( hostname => 'jabber_server.domain.com' ); 
$jabber->Connected or die "Can't connect to Jabber server\n";
$jabber->Process(5); # Set a timeout

# Right out of the Net::Jabber::Protocol POD
$jabber->MessageSend(to=>"bob@jabber.org",
                      subject=>"Lunch",
                      body=>"Let's go grab some...\n",
                      thread=>"ABC123",
                      priority=>10);

$jabber->Disconnect;

[download]

Jabber might have a lot of extra stuff attached to it, but if all you want to do is send a message, you can ignore most of it. It's certainly easier than creating your own IM protocol, even a simple one.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

: () { :|:& };:

Note: All code is untested, unless otherwise stated

Replies are listed 'Best First'.
Re: Re: Instant Messaging Protocol
by Eyck (Priest) on Jan 05, 2004 at 15:22 UTC

    Little problem here - don't you need a jabber server at jabber_server.domain.com?

    And that's not that simple task, requires significant resources and significant attention from the admin.

    And it doesen't matter if the code can be made simple if it requires more then significant resources, especially in situations when those resources are scarce - for example on embedded platforms. It seems like it's the root of all my problems - people tend to build layers upon layers upon layers of software

[reply]

      Though one of the big servers hosting hundreds of clients might not be simple, you probably don't need that. Net::Jabber::Server contains example code for creating a server, and it's about the same length as the client code above. The only change you'd need to make is to change $Server->Process() to while(1) { $Server->Process() } or similar (probably with some additional error checking).

      If you're doing serious embedded work, why are you using Perl? It's a memory hog. Making your own IM protocol won't change that fact.

      ----
      I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
      -- Schemer

      : () { :|:& };:

      Note: All code is untested, unless otherwise stated

[reply]
[d/l]
[select]

        I haven't seen that Net::Jabber::Server, it seems to solve the 'server' problem... but when you look a little closer, it appears that the bulk of information required for running Jabber server is still hidden in server.xml config file, so it's still solution that requires significant effort from server admin.

        I'm not doing any "serious" embedded work, but when it comes to sending messages you must think about all possible clients that would want to connect, and I do develop some little embeded machines that would need to communicate with the system. Of course I don't do embeded development in perl ( though actually it would fit on those toys, especially when stripped a bit ), but I don't control all the machines that would connect.

        That's why I'm looking for some sane 'protocol' - to enable different types of machines to talk to each other. And that's why using something like EasyTCP is out of question - it's very nice, but would put unreasonable burden on alien clients.

        So while 95% of the code will be perl, I can't be too selfish and put in protocol things that are easy in perl but hard on other platforms.

        And KISS should aply primary to things like protocols, neither Jabber nor Beep follow that prinicple. At first glance it looks like 'Spread' might be the correct solution.

        And please notice that by making sure that protocol is lightweight you can do things like r-postgresql which is built on spread. You wouldn't build something like that on top of Jabber.

[reply]
      This might have changed by now, but I remember that when I was working for my previous employer, we had set up our own Jabber server for use within the company. Just install the server software on a server and put the clients out to whomever needs them.

      Update:Fixed grammatical error

      TStanley
      --------
      The only thing necessary for the triumph of evil is for good men to do nothing -- Edmund Burke
[reply]

In Section Meditations