Net::Jabber::Query::Oob - Jabber Query Out Of Bandwidth File Transfer Module
Net::Jabber::Query::Oob is a companion to the Net::Jabber::Query module. It provides the user a simple interface to set and retrieve all parts of a Jabber Query Oob.
To initialize the Oob with a Jabber <iq/> you must pass it the XML::Parser Tree array from the module trying to access the <iq/>. In the callback function: use Net::Jabber; sub iqCB { my $iq = new Net::Jabber::IQ(@_); my $oob = $iq->GetQuery(); . . . } You now have access to all of the retrieval functions available. To create a new Oob to send to the server: use Net::Jabber; $iq = new Net::Jabber::IQ(); $oob = $iq->NewQuery("jabber:iq:oob"); 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.
$url = $oob->GetURL(); $desc = $oob->GetDesc();
$oob->SetOob(UrL=>"http://my.web.server.com/~me/pics/bob.jpg", desc=>"Picture of Bob, the one and only"); $oob->SetURL("http://my.web.server.com/~me/pics/bobandme.jpg"); $oob->SetDesc("Bob and Me at the Open Source conference");
$test = $oob->DefinedURL(); $test = $oob->DefinedDesc();
GetURL() - returns a string with the URL of the file being sent Oob. GetDesc() - returns a string with the description of the file being sent Oob.
SetOob(url=>string, - set multiple fields in the <iq/> at one desc=>string) time. This is a cumulative and over writing action. If you set the "url" attribute twice, the second setting is what is used. If you set the url, and then set the desc then both will be in the <iq/> tag. For valid settings read the specific Set functions below. SetURL(string) - sets the URL for the file being sent Oob. SetDesc(string) - sets the description for the file being sent Oob.
DefinedURL() - returns 1 if <url/> is in the <iq/>, 0 otherwise. DefinedDesc() - returns 1 if <desc/> is in the <iq/>, 0 otherwise.
By Ryan Eatmon in July 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.