Changeset bc220b2


Ignore:
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.
Files:
2 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    }
  • variable.c

    r2fa5eed rbc220b2  
    356356               "delete a message right as it came in.\n" ),
    357357
     358  OWLVAR_STRING( "perl_mainloop_hook" /* %OwlVarStub */, NULL,
     359                 "mainloop hook to perl",
     360                 "If this variable is set, owl will call to the perl function\n"
     361                 "specified." ),
     362 
    358363  /* This MUST be last... */
    359364  { NULL, 0, NULL, 0, NULL, NULL, NULL, NULL,
Note: See TracChangeset for help on using the changeset viewer.