Changeset 7a45a72 for perl/modules
- Timestamp:
- Aug 21, 2008, 2:37:38 PM (16 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 57cf4f9
- Parents:
- a82e091
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
r167044b r7a45a72 1131 1131 sub j2hash { 1132 1132 my $j = shift; 1133 my %initProps = %{ shift() }; 1134 1135 my $dir = 'none'; 1136 my %props = ( type => 'jabber' ); 1137 1138 foreach my $k (keys %initProps) { 1139 $dir = $initProps{$k} if ($k eq 'direction'); 1140 $props{$k} = $initProps{$k}; 1141 } 1133 my %props = (type => 'jabber', 1134 dir => 'none', 1135 %{$_[0]}); 1136 1137 my $dir = $props{direction}; 1142 1138 1143 1139 my $jtype = $props{jtype} = $j->GetType(); … … 1187 1183 $props{replycmd} .= 1188 1184 " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} ); 1189 1190 1191 1185 if ($props{subject}) { 1186 $props{replycmd} .= " -s " . $props{subject} 1187 } 1192 1188 1193 1189 if ($dir eq 'out') {
Note: See TracChangeset
for help on using the changeset viewer.