Changeset 86840c5 for perl/modules/Jabber/lib
- Timestamp:
- Sep 12, 2007, 9:54:51 PM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 892568b
- Parents:
- 27d8d83
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
r79c06ae r86840c5 581 581 or die("Usage: jmuc join MUC [-p password] [-a account]"); 582 582 583 die("Error: Must specify a fully-qualified MUC name (e.g. barnowl\@conference.mit.edu)\n") 584 unless $muc =~ /@/; 583 585 $muc = Net::Jabber::JID->new($muc); 584 586 $jid = Net::Jabber::JID->new($jid); … … 586 588 587 589 $conn->getConnectionFromJID($jid)->MUCJoin(JID => $muc, 588 589 590 591 590 Password => $password, 591 History => { 592 MaxChars => 0 593 }); 592 594 return; 593 595 }
Note: See TracChangeset
for help on using the changeset viewer.