Changeset 7a45a72 for perl


Ignore:
Timestamp:
Aug 21, 2008, 2:37:38 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
57cf4f9
Parents:
a82e091
Message:
BarnOwl/Modules/Jabber.pm: Small stylistic cleanup
File:
1 edited

Legend:

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

    r167044b r7a45a72  
    11311131sub j2hash {
    11321132    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};
    11421138
    11431139    my $jtype = $props{jtype} = $j->GetType();
     
    11871183        $props{replycmd} .=
    11881184          " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} );
    1189         if ($props{subject}) {
    1190           $props{replycmd} .= " -s " . $props{subject}
    1191         }
     1185        if ($props{subject}) {
     1186            $props{replycmd} .= " -s " . $props{subject}
     1187        }
    11921188
    11931189        if ($dir eq 'out') {
Note: See TracChangeset for help on using the changeset viewer.