Changeset bc220b2 for owl.c

Timestamp:

Oct 25, 2006, 2:44:24 AM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

6922edd

Parents:

2fa5eed

Message:

Hooking perl into owl's main loop.

File:

• owl.c (modified) (3 diffs)

owl.c

@@ -72 +72 @@
   int newmsgs, zpendcount, nexttimediff;
   struct sigaction sigact;
-  char *configfile, *tty, *perlout, *perlerr, **argvsave, buff[LINE], startupmsg[LINE];
+  char *configfile, *tty, *perlout, *perlerr, **argvsave, buff[LINE], startupmsg[LINE], *perl_mainloop_hook;
   owl_filter *f;
   owl_style *s;
@@ -92 +92 @@
   debug=0;
   initialsubs=1;
+  perl_mainloop_hook = NULL;
   if (argc>0) {
     argv++;
@@ -443 +444 @@
           owl_timer_reset(owl_global_get_aim_buddyinfo_timer(&g));
         }
+      }
+    }
+
+    /* Hook perl into the loop */
+    perl_mainloop_hook = owl_global_get_perl_mainloop_hook(&g);
+    if (perl_mainloop_hook) {
+      if (owl_perlconfig_is_function(perl_mainloop_hook)) {
+        owl_function_debugmsg("startup: executing perl mainloop hook");
+        perlout = owl_perlconfig_execute(perl_mainloop_hook);
+        if (perlout) owl_free(perlout);
       }
     }