/* Return 1 if we should log the given message, otherwise return 0 */ int owl_log_shouldlog_message(const owl_message *m) { const owl_filter *f; /* If there's a logfilter and this message matches it, log */ f=owl_global_get_filter(&g, owl_global_get_logfilter(&g)); if (f && owl_filter_message_match(f, m)) return(1); /* otherwise we do things based on the logging variables */ /* skip login/logout messages if appropriate */ if (!owl_global_is_loglogins(&g) && owl_message_is_loginout(m)) return(0); /* check direction */ if ((owl_global_get_loggingdirection(&g)==OWL_LOGGING_DIRECTION_IN) && owl_message_is_direction_out(m)) { return(0); } if ((owl_global_get_loggingdirection(&g)==OWL_LOGGING_DIRECTION_OUT) && owl_message_is_direction_in(m)) { return(0); } if (owl_message_is_type_zephyr(m)) { if (owl_message_is_personal(m) && !owl_global_is_logging(&g)) return(0); if (!owl_message_is_personal(m) && !owl_global_is_classlogging(&g)) return(0); } else { if (owl_message_is_private(m) || owl_message_is_loginout(m)) { if (!owl_global_is_logging(&g)) return(0); } else { if (!owl_global_is_classlogging(&g)) return(0); } } return(1); }
int main(int argc, char **argv, char **env) { FILE *rnull; FILE *wnull; char *perlerr; int status = 0; if (argc <= 1) { fprintf(stderr, "Usage: %s --builtin|TEST.t|-le CODE\n", argv[0]); return 1; } /* initialize a fake ncurses, detached from std{in,out} */ wnull = fopen("/dev/null", "w"); rnull = fopen("/dev/null", "r"); newterm("xterm", wnull, rnull); /* initialize global structures */ owl_global_init(&g); perlerr = owl_perlconfig_initperl(NULL, &argc, &argv, &env); if (perlerr) { endwin(); fprintf(stderr, "Internal perl error: %s\n", perlerr); status = 1; goto out; } owl_global_complete_setup(&g); owl_global_setup_default_filters(&g); owl_view_create(owl_global_get_current_view(&g), "main", owl_global_get_filter(&g, "all"), owl_global_get_style_by_name(&g, "default")); owl_function_firstmsg(); ENTER; SAVETMPS; if (strcmp(argv[1], "--builtin") == 0) { status = owl_regtest(); } else if (strcmp(argv[1], "-le") == 0 && argc > 2) { /* * 'prove' runs its harness perl with '-le CODE' to get some * information out. */ moreswitches("l"); eval_pv(argv[2], true); } else { sv_setpv(get_sv("0", false), argv[1]); sv_setpv(get_sv("main::test_prog", TRUE), argv[1]); eval_pv("do $main::test_prog; die($@) if($@)", true); } status = 0; FREETMPS; LEAVE; out: perl_destruct(owl_global_get_perlinterp(&g)); perl_free(owl_global_get_perlinterp(&g)); /* probably not necessary, but tear down the screen */ endwin(); fclose(rnull); fclose(wnull); return status; }
CALLER_OWN SV *owl_perlconfig_message2hashref(const owl_message *m) { HV *h, *stash; SV *hr; const char *type; char *ptr, *utype, *blessas; const char *f; int i; const owl_pair *pair; const owl_filter *wrap; if (!m) return &PL_sv_undef; wrap = owl_global_get_filter(&g, "wordwrap"); if(!wrap) { owl_function_error("wrap filter is not defined"); return &PL_sv_undef; } h = newHV(); #define MSG2H(h,field) (void)hv_store(h, #field, strlen(#field), \ owl_new_sv(owl_message_get_##field(m)), 0) if (owl_message_is_type_zephyr(m) && owl_message_is_direction_in(m)) { /* Handle zephyr-specific fields... */ AV *av_zfields = newAV(); if (owl_message_get_notice(m)) { for (f = owl_zephyr_first_raw_field(owl_message_get_notice(m)); f != NULL; f = owl_zephyr_next_raw_field(owl_message_get_notice(m), f)) { ptr = owl_zephyr_field_as_utf8(owl_message_get_notice(m), f); av_push(av_zfields, owl_new_sv(ptr)); g_free(ptr); } (void)hv_store(h, "auth", strlen("auth"), owl_new_sv(owl_zephyr_get_authstr(owl_message_get_notice(m))), 0); } else { /* Incoming zephyrs without a ZNotice_t are pseudo-logins. To appease * existing styles, put in bogus 'auth' and 'fields' keys. */ (void)hv_store(h, "auth", strlen("auth"), owl_new_sv("NO"), 0); } (void)hv_store(h, "fields", strlen("fields"), newRV_noinc((SV*)av_zfields), 0); } for (i = 0; i < m->attributes->len; i++) { pair = m->attributes->pdata[i]; (void)hv_store(h, owl_pair_get_key(pair), strlen(owl_pair_get_key(pair)), owl_new_sv(owl_pair_get_value(pair)),0); } MSG2H(h, type); MSG2H(h, direction); MSG2H(h, class); MSG2H(h, instance); MSG2H(h, sender); MSG2H(h, realm); MSG2H(h, recipient); MSG2H(h, opcode); MSG2H(h, hostname); MSG2H(h, body); MSG2H(h, login); MSG2H(h, zsig); MSG2H(h, zwriteline); if (owl_message_get_header(m)) { MSG2H(h, header); } (void)hv_store(h, "time", strlen("time"), owl_new_sv(owl_message_get_timestr(m)),0); (void)hv_store(h, "unix_time", strlen("unix_time"), newSViv(m->time), 0); (void)hv_store(h, "id", strlen("id"), newSViv(owl_message_get_id(m)),0); (void)hv_store(h, "deleted", strlen("deleted"), newSViv(owl_message_is_delete(m)),0); (void)hv_store(h, "private", strlen("private"), newSViv(owl_message_is_private(m)),0); (void)hv_store(h, "should_wordwrap", strlen("should_wordwrap"), newSViv( owl_filter_message_match(wrap, m)),0); type = owl_message_get_type(m); if(!type || !*type) type = "generic"; utype = g_strdup(type); utype[0] = toupper(type[0]); blessas = g_strdup_printf("BarnOwl::Message::%s", utype); hr = newRV_noinc((SV*)h); stash = gv_stashpv(blessas,0); if(!stash) { owl_function_error("No such class: %s for message type %s", blessas, owl_message_get_type(m)); stash = gv_stashpv("BarnOwl::Message", 1); } hr = sv_bless(hr,stash); g_free(utype); g_free(blessas); return hr; }
int main(int argc, char **argv, char **env) { int argc_copy; char **argv_copy; char *perlout, *perlerr; const owl_style *s; const char *dir; owl_options opts; GSource *source; if (!GLIB_CHECK_VERSION (2, 12, 0)) g_error ("GLib version 2.12.0 or above is needed."); argc_copy = argc; argv_copy = g_strdupv(argv); setlocale(LC_ALL, ""); memset(&opts, 0, sizeof opts); opts.load_initial_subs = 1; owl_parse_options(argc, argv, &opts); g.load_initial_subs = opts.load_initial_subs; owl_start_curses(); /* owl global init */ owl_global_init(&g); if (opts.debug) owl_global_set_debug_on(&g); if (opts.confdir) owl_global_set_confdir(&g, opts.confdir); owl_function_debugmsg("startup: first available debugging message"); owl_global_set_startupargs(&g, argc_copy, argv_copy); g_strfreev(argv_copy); owl_global_set_haveaim(&g); owl_register_signal_handlers(); /* register STDIN dispatch; throw away return, we won't need it */ owl_select_add_io_dispatch(STDIN_FILENO, OWL_IO_READ, &owl_process_input, NULL, NULL); owl_zephyr_initialize(); #if OWL_STDERR_REDIR /* Do this only after we've started curses up... */ owl_function_debugmsg("startup: doing stderr redirection"); owl_select_add_io_dispatch(stderr_replace(), OWL_IO_READ, &stderr_redirect_handler, NULL, NULL); #endif /* create the owl directory, in case it does not exist */ owl_function_debugmsg("startup: creating owl directory, if not present"); dir=owl_global_get_confdir(&g); mkdir(dir, S_IRWXU); /* set the tty, either from the command line, or by figuring it out */ owl_function_debugmsg("startup: setting tty name"); if (opts.tty) { owl_global_set_tty(&g, opts.tty); } else { char *tty = owl_util_get_default_tty(); owl_global_set_tty(&g, tty); g_free(tty); } /* Initialize perl */ owl_function_debugmsg("startup: processing config file"); owl_global_pop_context(&g); owl_global_push_context(&g, OWL_CTX_READCONFIG, NULL, NULL, NULL); perlerr=owl_perlconfig_initperl(opts.configfile, &argc, &argv, &env); if (perlerr) { endwin(); fprintf(stderr, "Internal perl error: %s\n", perlerr); fflush(stderr); printf("Internal perl error: %s\n", perlerr); fflush(stdout); exit(1); } owl_global_complete_setup(&g); owl_global_setup_default_filters(&g); /* set the current view */ owl_function_debugmsg("startup: setting the current view"); owl_view_create(owl_global_get_current_view(&g), "main", owl_global_get_filter(&g, "all"), owl_global_get_style_by_name(&g, "default")); /* AIM init */ owl_function_debugmsg("startup: doing AIM initialization"); owl_aim_init(); /* execute the startup function in the configfile */ owl_function_debugmsg("startup: executing perl startup, if applicable"); perlout = owl_perlconfig_execute("BarnOwl::Hooks::_startup();"); g_free(perlout); /* welcome message */ owl_function_debugmsg("startup: creating splash message"); owl_function_adminmsg("", "-----------------------------------------------------------------------\n" "Welcome to barnowl version " OWL_VERSION_STRING ".\n" "To see a quick introduction, type ':show quickstart'. \n" "Press 'h' for on-line help. \n" " \n" "BarnOwl is free software. Type ':show license' for more \n" "information. ^ ^ \n" " OvO \n" "Please report any bugs or suggestions to [email protected] ( ) \n" "-----------------------------------------------------------------m-m---\n" ); /* process the startup file */ owl_function_debugmsg("startup: processing startup file"); owl_function_source(NULL); owl_function_debugmsg("startup: set style for the view: %s", owl_global_get_default_style(&g)); s = owl_global_get_style_by_name(&g, owl_global_get_default_style(&g)); if(s) owl_view_set_style(owl_global_get_current_view(&g), s); else owl_function_error("No such style: %s", owl_global_get_default_style(&g)); owl_function_debugmsg("startup: setting context interactive"); owl_global_pop_context(&g); owl_global_push_context(&g, OWL_CTX_INTERACTIVE|OWL_CTX_RECV, NULL, "recv", NULL); source = owl_window_redraw_source_new(); g_source_attach(source, NULL); g_source_unref(source); source = g_source_new(&owl_process_messages_funcs, sizeof(GSource)); g_source_attach(source, NULL); g_source_unref(source); owl_log_init(); owl_function_debugmsg("startup: entering main loop"); owl_select_run_loop(); /* Shut down everything. */ owl_zephyr_shutdown(); owl_signal_shutdown(); owl_shutdown_curses(); owl_log_shutdown(); return 0; }
/* * Process a new message passed to us on the message queue from some * protocol. This includes adding it to the message list, updating the * view and scrolling if appropriate, logging it, and so on. * * Either a pointer is kept to the message internally, or it is freed * if unneeded. The caller no longer ``owns'' the message's memory. * * Returns 1 if the message was added to the message list, and 0 if it * was ignored due to user settings or otherwise. */ static int owl_process_message(owl_message *m) { const owl_filter *f; /* if this message it on the puntlist, nuke it and continue */ if (owl_global_message_is_puntable(&g, m)) { owl_message_delete(m); return 0; } /* login or logout that should be ignored? */ if (owl_global_is_ignorelogins(&g) && owl_message_is_loginout(m)) { owl_message_delete(m); return 0; } if (!owl_global_is_displayoutgoing(&g) && owl_message_is_direction_out(m)) { owl_message_delete(m); return 0; } /* add it to the global list */ owl_messagelist_append_element(owl_global_get_msglist(&g), m); /* add it to any necessary views; right now there's only the current view */ owl_view_consider_message(owl_global_get_current_view(&g), m); if(owl_message_is_direction_in(m)) { /* let perl know about it*/ owl_perlconfig_getmsg(m, NULL); /* do we need to autoreply? */ if (owl_global_is_zaway(&g) && !owl_message_get_attribute_value(m, "isauto")) { if (owl_message_is_type_zephyr(m)) { owl_zephyr_zaway(m); } else if (owl_message_is_type_aim(m)) { if (owl_message_is_private(m)) { owl_function_send_aimawymsg(owl_message_get_sender(m), owl_global_get_zaway_msg(&g)); } } } /* ring the bell if it's a personal */ if (!strcmp(owl_global_get_personalbell(&g), "on")) { if (!owl_message_is_loginout(m) && !owl_message_is_mail(m) && owl_message_is_personal(m)) { owl_function_beep(); } } else if (!strcmp(owl_global_get_personalbell(&g), "off")) { /* do nothing */ } else { f=owl_global_get_filter(&g, owl_global_get_personalbell(&g)); if (f && owl_filter_message_match(f, m)) { owl_function_beep(); } } /* if it matches the alert filter, do the alert action */ f=owl_global_get_filter(&g, owl_global_get_alert_filter(&g)); if (f && owl_filter_message_match(f, m)) { owl_function_command_norv(owl_global_get_alert_action(&g)); } /* if it's a zephyr login or logout, update the zbuddylist */ if (owl_message_is_type_zephyr(m) && owl_message_is_loginout(m)) { if (owl_message_is_login(m)) { owl_zbuddylist_adduser(owl_global_get_zephyr_buddylist(&g), owl_message_get_sender(m)); } else if (owl_message_is_logout(m)) { owl_zbuddylist_deluser(owl_global_get_zephyr_buddylist(&g), owl_message_get_sender(m)); } else { owl_function_error("Internal error: received login notice that is neither login nor logout"); } } } /* let perl know about it */ owl_perlconfig_newmsg(m, NULL); /* log the message if we need to */ owl_log_message(m); /* redraw the sepbar; TODO: don't violate layering */ owl_global_sepbar_dirty(&g); return 1; }
SV *owl_perlconfig_message2hashref(const owl_message *m) { HV *h, *stash; SV *hr; const char *type; char *ptr, *utype, *blessas; int i, j; const owl_pair *pair; const owl_filter *wrap; if (!m) return &PL_sv_undef; wrap = owl_global_get_filter(&g, "wordwrap"); if(!wrap) { owl_function_error("wrap filter is not defined"); return &PL_sv_undef; } h = newHV(); #define MSG2H(h,field) (void)hv_store(h, #field, strlen(#field), \ owl_new_sv(owl_message_get_##field(m)), 0) if (owl_message_is_type_zephyr(m) && owl_message_is_direction_in(m)) { /* Handle zephyr-specific fields... */ AV *av_zfields; av_zfields = newAV(); j=owl_zephyr_get_num_fields(owl_message_get_notice(m)); for (i=0; i<j; i++) { ptr=owl_zephyr_get_field_as_utf8(owl_message_get_notice(m), i+1); av_push(av_zfields, owl_new_sv(ptr)); owl_free(ptr); } (void)hv_store(h, "fields", strlen("fields"), newRV_noinc((SV*)av_zfields), 0); (void)hv_store(h, "auth", strlen("auth"), owl_new_sv(owl_zephyr_get_authstr(owl_message_get_notice(m))),0); } j=owl_list_get_size(&(m->attributes)); for(i=0; i<j; i++) { pair=owl_list_get_element(&(m->attributes), i); (void)hv_store(h, owl_pair_get_key(pair), strlen(owl_pair_get_key(pair)), owl_new_sv(owl_pair_get_value(pair)),0); } MSG2H(h, type); MSG2H(h, direction); MSG2H(h, class); MSG2H(h, instance); MSG2H(h, sender); MSG2H(h, realm); MSG2H(h, recipient); MSG2H(h, opcode); MSG2H(h, hostname); MSG2H(h, body); MSG2H(h, login); MSG2H(h, zsig); MSG2H(h, zwriteline); if (owl_message_get_header(m)) { MSG2H(h, header); } (void)hv_store(h, "time", strlen("time"), owl_new_sv(owl_message_get_timestr(m)),0); (void)hv_store(h, "unix_time", strlen("unix_time"), newSViv(m->time), 0); (void)hv_store(h, "id", strlen("id"), newSViv(owl_message_get_id(m)),0); (void)hv_store(h, "deleted", strlen("deleted"), newSViv(owl_message_is_delete(m)),0); (void)hv_store(h, "private", strlen("private"), newSViv(owl_message_is_private(m)),0); (void)hv_store(h, "should_wordwrap", strlen("should_wordwrap"), newSViv( owl_filter_message_match(wrap, m)),0); type = owl_message_get_type(m); if(!type || !*type) type = "generic"; utype = owl_strdup(type); utype[0] = toupper(type[0]); blessas = owl_sprintf("BarnOwl::Message::%s", utype); hr = newRV_noinc((SV*)h); stash = gv_stashpv(blessas,0); if(!stash) { owl_function_error("No such class: %s for message type %s", blessas, owl_message_get_type(m)); stash = gv_stashpv("BarnOwl::Message", 1); } hr = sv_bless(hr,stash); owl_free(utype); owl_free(blessas); return hr; }