tags:

views:

215

answers:

2
+1  Q: 

Send invitation to any user of google chats (is it possible?)

Hi

I try to realize simple code on perl which should just get/send messages from/to gtalk accounts. I use Net::XMPP::*

modules. All works just fine for users, who are my friends (in my "buddy" list). But i can't send message to unknown user. I know, that for this case i must send an invitation first, but

Net::XMPP::* don't provide this possibility. There is only one way to invite person - construct my own xml according

to "XEP-0155 Stanza Session Negotiation" protocol. But this doesn't work correct. When i send xml to server, it

returns error "service-unavailable".

I send:

<message to='[email protected]'>
 <sxde xmlns='http://jabber.org/protocol/sxde'
   xmlns:sxde='http://jabber.org/protocol/sxde#metadata'
   session='0AEF4278DC4B6577'
   id='b'>
  <negotiation>
    <invitation>
      <feature var='http://jabber.org/protocol/whiteboard' />
    </invitation>
  </negotiation>
 </sxde>
</message>

before my message.

ANSWER:

<message from='' to='[email protected]/TALKCDDCCE63' type='error'>
  <sxde id='b' session='0AEF4278DC4B6577' xmlns='http://jabber.org/protocol/sxde' xmlns:sxde='http://jabber.org/protocol/sxde#metadata'&gt;
    <negotiation>
      <invitation>
        <feature var='http://jabber.org/protocol/whiteboard'/&gt;
      </invitation>
    </negotiation>
  </sxde>
<nos:x value='disabled' xmlns:nos='google:nosave'/>
<arc:record otr='false' xmlns:arc='http://jabber.org/protocol/archive'/&gt;
<error code='503' type='cancel'>
    <service-unavailable xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/>
</error>
</message>

Maybe i lost smth or should send another info before (or after..) ?

Or maybe there are another way to send message without any invitation?

Thanks in advance

A: 

First You need to authenticate your jid, then you could send message stanza to xmpp server. Subscription required only for presence notifications.

<message to='[email protected]/TALKCDDCCE63' type='chat' xmlns='jabber:client'>
<body>TEST MESSAGE</body>
</message>
frx  2010-05-18 15:05:02
As i understand, my auth process run correct, please, take a look at my code and said if there is smth wrong: <pre> <code> $xmpp = new Net::XMPP::Client->new(debuglevel=>2,debugfile=>'SOME_FILE'); my $xmppsid = $xmpp->{SESSION}->{id}; $xmpp->{STREAM}->{SIDS}->{$xmppsid}->{hostname} = 'gmail.com'; my @connect_status = $xmpp->AuthSend( username=>$login password=>$password, resource=>'TALK', hostname=>'gmail.com' ); exit if $connect_status[0] ne 'ok' ; $xmpp->Process(); </code> </pre>I should send to server smth else?
Gizzo  2010-05-19 09:14:52
A: 

Fixed. I just need to send 

$xmpp->Send("<presence to='$address' type='subscribe' /></presence>")

That's all

Gizzo  2010-05-19 15:05:55

related questions

Regex to replace Boolean with bool
How do I lock a file in Perl?
How do you use XML::Parser with Style => 'Objects'
Parsing XML Elements & Attributes with Perl
Regex to match all HTML tags except <p> and </p>
Best way to extract data from a FileMaker Pro database in a script?
What's the fastest way to determine a full URL from a relative URL (given a base URL).
Why can't I connect to my CAS server with Perl's AuthCAS?
Why can't I fetch wikipedia pages with LWP::Simple?
How do I perform a Perl substitution on a string while keeping the original?
How do I read in the contents of a directory in Perl?
How can Perl's system() print the command that it's running?
How can I test STDIN without blocking in Perl?
How do I tell if a variable has a numeric value in Perl?
Why doesn't my Perl map return anything?
How can I determine the type of a blessed reference in Perl?
Parsing attributes with regex in Perl
How do you retrieve selected text using Regex in C#?
Why does the Perl conditional operator not do what I expect?
Class::DBI-like library for php?
How do you create objects in Perl?
How do I remove duplicate items from an array in Perl?
Is The Perl Journal available online?
Can you force either a scalar or array ref to be an array in Perl?
What's the safest way to iterate through the keys of a Perl hash?