Changes in / [9a0d25d:35cdda2]

Files:

• perl/lib/BarnOwl.pm (modified) (1 diff)
• perl/lib/BarnOwl/Message.pm (modified) (3 diffs)
• perl/modules/Makefile.am (modified) (1 diff)
• perl/modules/Zulip/Makefile.PL (added)
• perl/modules/Zulip/README (added)
• perl/modules/Zulip/lib/BarnOwl/Message/Zulip.pm (added)
• perl/modules/Zulip/lib/BarnOwl/Module/Zulip.pm (added)
• perlglue.xs (modified) (2 diffs)

perl/lib/BarnOwl.pm

@@ -9 +9 @@
                     zephyr_getsender zephyr_getrealm zephyr_zwrite
                     zephyr_stylestrip zephyr_smartstrip_user zephyr_getsubs
-                    queue_message admin_message
+                    queue_message get_message_by_id admin_message
                     start_edit
                     start_question start_password start_edit_win

perl/lib/BarnOwl/Message.pm

@@ -102 +102 @@
     my $s;
     for my $f (keys %$this) {
-        my $val = $this->{$f};
-        if (ref($val) eq "ARRAY") {
-            for my $i (0..@$val-1) {
-                my $aval;
-                $aval = $val->[$i];
-                $aval =~ s/\n/\n$f.$i: /g;
-                $s .= "$f.$i: $aval\n";
-            }
-        } else {
-            $val =~ s/\n/\n$f: /g;
-            $s .= "$f: $val\n";
-        }
+        my $val = $this->{$f};
+        if (ref($val) eq "ARRAY") {
+            for my $i (0..@$val-1) {
+                my $aval;
+                $aval = $val->[$i];
+                $aval =~ s/\n/\n$f.$i: /g;
+                $s .= "$f.$i: $aval\n";
+            }
+        } else {
+            $val =~ s/\n/\n$f: /g;
+            $s .= "$f: $val\n";
+        }
     }
     return $s;
@@ -304 +304 @@
     $BarnOwl::auth       = $m->auth      ;
     if ($m->fields) {
-        @BarnOwl::fields = @{$m->fields};
-        @main::fields = @{$m->fields};
+        @BarnOwl::fields = @{$m->fields};
+        @main::fields = @{$m->fields};
     } else {
-        @BarnOwl::fields = undef;
-        @main::fields = undef;
+        @BarnOwl::fields = undef;
+        @main::fields = undef;
     }
 }
@@ -331 +331 @@
 
 1;
+
+# Local Variables:
+# indent-tabs-mode: nil
+# End:

perl/modules/Makefile.am

@@ -1 @@
-MODULES = Jabber IRC WordWrap Twitter Facebook Kerberos
+MODULES = Jabber IRC WordWrap Twitter Facebook Kerberos Zulip
 
 EXTRA_DIST = $(MODULES:=/Makefile.PL) $(MODULES:=/lib)

perlglue.xs

@@ -60 +60 @@
         OUTPUT:
                 RETVAL
-
+        
 int
 getnumcols()
@@ -156 +156 @@
                 RETVAL
 
+SV *
+get_message_by_id(id)
+    int id
+    PREINIT:
+           owl_message *m;
+           owl_messagelist *ml;
+    CODE:
+    {
+            ml = owl_global_get_msglist(&g);
+            m = owl_messagelist_get_by_id(ml, id);
+            if(!m) {
+                    croak("No message with id %d!", id);
+            }
+            RETVAL = owl_perlconfig_message2hashref(m);
+    }
+OUTPUT:
+        RETVAL
+
+                
 void
 admin_message(header, body)