Net::Jabber::X::Ident - Jabber X Ident Delegate
Net::Jabber::X::Ident is a companion to the Net::Jabber::X module. It provides the user a simple interface to set and retrieve all parts of a Jabber X Ident.
To initialize the Ident with a Jabber <x/> you must pass it the XML::Parser Tree array from the module trying to access the <x/>. In the callback function: use Net::Jabber; sub iq { my $foo = new Net::Jabber::Foo(@_); my @xTags = $foo->GetX("jabber:x:ident"); my $xTag; foreach $xTag (@xTags) { $xTag->.... } . . . } You now have access to all of the retrieval functions available. To create a new Ident to send to the server: use Net::Jabber; $foo = new Net::Jabber::Foo(); $x = $foo->NewX("jabber:x:ident"); Now you can call the creation functions below. For more information about the array format being passed to the CallBack please read the Net::Jabber::Client documentation.
$from = $xTag->GetFrom(); $to = $xTag->GetTo(); $replyto = $xtag->GetReplyTo(); $cc = $xTag->GetCC(); $forwardedby = $xTag->GetForwardedBy();
$xTag->SetX(FRom=>"jabber:foo.bar.com", replyTo=>"bob@jabber.org"); $xTag->SetFrom("bob@jabber.org"); $xTag->SetFromID("bob@jabber.org"); $xTag->SetTo("bob@jabber.org"); $xTag->SetToID("bob@jabber.org"); $xTag->SetReplyTo("bob@jabber.org"); $xTag->SetReplyToID("bob@jabber.org"); $xTag->SetCC("bob@jabber.org"); $xTag->SetCCID("bob@jabber.org"); $xTag->SetForwardedBy("bob@jabber.org"); $xTag->SetForwardedByID("bob@jabber.org");
GetFrom() - returns a string with the Jabber Identifier of the person who added the ident. GetStamp() - returns a string that represents the time stamp of the ident. GetMessage() - returns a string with the message that describes the nature of the ident. GetXMLNS() - returns a string with the namespace of the query that the <iq/> contains.
SetX(from=>string, - set multiple fields in the <x/> at one stamp=>string, time. This is a cumulative and over message=>string) writing action. If you set the "from" attribute twice, the second setting is what is used. If you set the status, and then set the priority then both will be in the <x/> tag. For valid settings read the specific Set functions below. SetFrom(string) - sets the from attribute of the server adding the ident. SetStamp(string) - sets the timestamp of the ident. If the string is left blank then the module adds the current date/time in the proper format as the stamp. SetMessage(string) - sets description of the ident.
By Ryan Eatmon in May of 2000 for http://jabber.org..
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Net::Jabber, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Jabber
CPAN shell
perl -MCPAN -e shell install Net::Jabber
For more information on module installation, please visit the detailed CPAN module installation guide.