Changeset bc220b2
- Timestamp:
- Oct 25, 2006, 2:44:24 AM (18 years ago)
- 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
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
owl.c
r176d3443 rbc220b2 72 72 int newmsgs, zpendcount, nexttimediff; 73 73 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; 75 75 owl_filter *f; 76 76 owl_style *s; … … 92 92 debug=0; 93 93 initialsubs=1; 94 perl_mainloop_hook = NULL; 94 95 if (argc>0) { 95 96 argv++; … … 443 444 owl_timer_reset(owl_global_get_aim_buddyinfo_timer(&g)); 444 445 } 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); 445 456 } 446 457 } -
variable.c
r2fa5eed rbc220b2 356 356 "delete a message right as it came in.\n" ), 357 357 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 358 363 /* This MUST be last... */ 359 364 { NULL, 0, NULL, 0, NULL, NULL, NULL, NULL,
Note: See TracChangeset
for help on using the changeset viewer.