Changeset cb54527 for perl/lib/Net/Jabber/Server.pm
- Timestamp:
- Mar 26, 2007, 9:04:54 PM (16 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 4c2ec6c
- Parents:
- 18a99d2
- git-author:
- Nelson Elhage <nelhage@mit.edu> (03/26/07 21:04:37)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (03/26/07 21:04:54)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/Net/Jabber/Server.pm
r0ff8d110 rcb54527 54 54 use Net::Jabber qw(Server); 55 55 56 $Server = new Net::Jabber::Server();56 $Server = Net::Jabber::Server->new(); 57 57 58 58 $Server->Start(); … … 155 155 bless($self, $proto); 156 156 157 $self->{KEY} = new Net::Jabber::Key();157 $self->{KEY} = Net::Jabber::Key->new(); 158 158 159 159 $self->{DEBUG} = 160 new Net::Jabber::Debug(level=>exists($args{debuglevel}) ? $args{debuglevel} : -1,161 file=>exists($args{debugfile}) ? $args{debugfile} : "stdout",162 time=>exists($args{debugtime}) ? $args{debugtime} : 0,163 setdefault=>1,164 header=>"NJ::Server"165 );160 Net::Jabber::Debug->new(level=>exists($args{debuglevel}) ? $args{debuglevel} : -1, 161 file=>exists($args{debugfile}) ? $args{debugfile} : "stdout", 162 time=>exists($args{debugtime}) ? $args{debugtime} : 0, 163 setdefault=>1, 164 header=>"NJ::Server" 165 ); 166 166 167 167 $self->{SERVER} = { hostname => "localhost", … … 329 329 $self->{DEBUG}->Log2("dbresultHandler: dbresult(",$dbresult->GetXML(),")"); 330 330 331 my $dbverify = new Net::Jabber::Dialback::Verify();331 my $dbverify = Net::Jabber::Dialback::Verify->new(); 332 332 $dbverify->SetVerify(to=>$dbresult->GetFrom(), 333 333 from=>$dbresult->GetTo(),
Note: See TracChangeset
for help on using the changeset viewer.