Changeset bc220b2 for owl.c


Ignore:
Timestamp:
Oct 25, 2006, 2:44:24 AM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • owl.c

    r176d3443 rbc220b2  
    7272  int newmsgs, zpendcount, nexttimediff;
    7373  struct sigaction sigact;
    74   char *configfile, *tty, *perlout, *perlerr, **argvsave, buff[LINE], startupmsg[LINE];
     74  char *configfile, *tty, *perlout, *perlerr, **argvsave, buff[LINE], startupmsg[LINE], *perl_mainloop_hook;
    7575  owl_filter *f;
    7676  owl_style *s;
     
    9292  debug=0;
    9393  initialsubs=1;
     94  perl_mainloop_hook = NULL;
    9495  if (argc>0) {
    9596    argv++;
     
    443444          owl_timer_reset(owl_global_get_aim_buddyinfo_timer(&g));
    444445        }
     446      }
     447    }
     448
     449    /* Hook perl into the loop */
     450    perl_mainloop_hook = owl_global_get_perl_mainloop_hook(&g);
     451    if (perl_mainloop_hook) {
     452      if (owl_perlconfig_is_function(perl_mainloop_hook)) {
     453        owl_function_debugmsg("startup: executing perl mainloop hook");
     454        perlout = owl_perlconfig_execute(perl_mainloop_hook);
     455        if (perlout) owl_free(perlout);
    445456      }
    446457    }
Note: See TracChangeset for help on using the changeset viewer.