Changeset 86840c5 for perl


Ignore:
Timestamp:
Sep 12, 2007, 9:54:51 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
892568b
Parents:
27d8d83
Message:
Validate JIDs passed to jmuc join. closes #25
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r79c06ae r86840c5  
    581581      or die("Usage: jmuc join MUC [-p password] [-a account]");
    582582
     583    die("Error: Must specify a fully-qualified MUC name (e.g. barnowl\@conference.mit.edu)\n")
     584        unless $muc =~ /@/;
    583585    $muc = Net::Jabber::JID->new($muc);
    584586    $jid = Net::Jabber::JID->new($jid);
     
    586588
    587589    $conn->getConnectionFromJID($jid)->MUCJoin(JID      => $muc,
    588                                                   Password => $password,
    589                                                   History  => {
    590                                                       MaxChars => 0
    591                                                      });
     590                                               Password => $password,
     591                                               History  => {
     592                                                   MaxChars => 0
     593                                                  });
    592594    return;
    593595}
Note: See TracChangeset for help on using the changeset viewer.