++ed by:

2 non-PAUSE users.

Ryan Eatmon


Net::Jabber::X::Delay - Jabber X Delay Delegate


  Net::Jabber::X::Delay 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 Delay.


  To initialize the Delay 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:delay");

      my $xTag;
      foreach $xTag (@xTags) {

  You now have access to all of the retrieval functions available.

  To create a new Delay to send to the server:

    use Net::Jabber;

    $foo = new Net::Jabber::Foo();
    $xTag = $foo->NewX("jabber:x:delay");

  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.

Retrieval functions

    $from      = $xTag->GetFrom();
    $stamp     = $xTag->GetStamp();
    $message   = $xTag->GetMessage();

Creation functions

                    message=>"Stored offline");

    $xTag->SetMessage("Stored Offline");


Retrieval functions

  GetFrom() - returns a string with the Jabber Identifier of the 
              person who added the delay.

  GetStamp() - returns a string that represents the time stamp of
               the delay.

  GetMessage() - returns a string with the message that describes
                 the nature of the delay.

Creation functions

  SetDelay(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

  SetStamp(string) - sets the timestamp of the delay.  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 delay.

Test functions

  DefinedFrom() - returns 1 if the from attribute exists in the x, 
                  0 otherwise.

  DefinedStamp() - returns 1 if the stamp attribute exists in the x, 
                   0 otherwise.


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.