Changeset 7a45a72 for perl/modules/Jabber

Timestamp:

Aug 21, 2008, 2:37:38 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

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

Message:

BarnOwl/Modules/Jabber.pm: Small stylistic cleanup

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (2 diffs)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -1131 +1131 @@
 sub j2hash {
     my $j   = shift;
-    my %initProps = %{ shift() };
-
-    my $dir = 'none';
-    my %props = ( type => 'jabber' );
-
-    foreach my $k (keys %initProps) {
-        $dir = $initProps{$k} if ($k eq 'direction');
-        $props{$k} = $initProps{$k};
-    }
+    my %props = (type => 'jabber',
+                 dir  => 'none',
+                 %{$_[0]});
+
+    my $dir = $props{direction};
 
     my $jtype = $props{jtype} = $j->GetType();
@@ -1187 +1183 @@
         $props{replycmd} .=
           " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} );
-        if ($props{subject}) {
-          $props{replycmd} .= " -s " . $props{subject}
-        }
+        if ($props{subject}) {
+            $props{replycmd} .= " -s " . $props{subject}
+        }
 
         if ($dir eq 'out') {