Changeset f8b42ac

Timestamp:

Oct 29, 2006, 8:40:36 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2fa15f0

Parents:

cd9182d

Message:

Adding a perl hook to the blist function.

File:

• functions.c (modified) (1 diff)

functions.c

@@ -3307 +3307 @@
   }
 #endif
+
+  if(owl_perlconfig_is_function("owl::get_blist")) {
+      char * perlblist = owl_perlconfig_execute("owl::get_blist()");
+      if(perlblist) {
+          owl_fmtext_append_ztext(&fm, perlblist);
+          owl_free(perlblist);
+      }
+  }
   
   owl_function_popless_fmtext(&fm);