int owl_global_should_followlast(owl_global *g) {
const owl_view *v;
if (!owl_global_is__followlast(g)) return(0);
v=owl_global_get_current_view(g);
if (owl_global_get_curmsg(g)==owl_view_get_size(v)-1) return(1);
return(0);
}
CALLER_OWN SV *owl_perlconfig_curmessage2hashref(void)
{
int curmsg;
const owl_view *v;
v=owl_global_get_current_view(&g);
if (owl_view_get_size(v) < 1) {
return &PL_sv_undef;
}
curmsg=owl_global_get_curmsg(&g);
return owl_perlconfig_message2hashref(owl_view_get_element(v, curmsg));
}
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;
}
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;
}
static void sepbar_redraw(owl_window *w, WINDOW *sepwin, void *user_data)
{
const owl_messagelist *ml;
const owl_view *v;
int x, y, i;
const char *foo, *appendtosepbar;
ml=owl_global_get_msglist(&g);
v=owl_global_get_current_view(&g);
werase(sepwin);
wattron(sepwin, A_REVERSE);
if (owl_global_is_fancylines(&g)) {
whline(sepwin, ACS_HLINE, owl_global_get_cols(&g));
} else {
whline(sepwin, '-', owl_global_get_cols(&g));
}
if (owl_global_is_sepbar_disable(&g)) {
getyx(sepwin, y, x);
wmove(sepwin, y, owl_global_get_cols(&g)-1);
return;
}
wmove(sepwin, 0, 2);
if (owl_messagelist_get_size(ml) == 0)
waddstr(sepwin, " (-/-) ");
else
wprintw(sepwin, " (%i/%i/%i) ", owl_global_get_curmsg(&g) + 1,
owl_view_get_size(v),
owl_messagelist_get_size(ml));
foo=owl_view_get_filtname(v);
if (strcmp(foo, owl_global_get_view_home(&g)))
wattroff(sepwin, A_REVERSE);
wprintw(sepwin, " %s ", owl_view_get_filtname(v));
if (strcmp(foo, owl_global_get_view_home(&g)))
wattron(sepwin, A_REVERSE);
if (owl_mainwin_is_curmsg_truncated(owl_global_get_mainwin(&g))) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
wattron(sepwin, A_BOLD);
waddstr(sepwin, " <truncated> ");
wattroff(sepwin, A_BOLD);
}
i=owl_mainwin_get_last_msg(owl_global_get_mainwin(&g));
if ((i != -1) &&
(i < owl_view_get_size(v)-1)) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
wattron(sepwin, A_BOLD);
waddstr(sepwin, " <more> ");
wattroff(sepwin, A_BOLD);
}
if (owl_global_get_rightshift(&g)>0) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
wprintw(sepwin, " right: %i ", owl_global_get_rightshift(&g));
}
if (owl_global_is_zaway(&g) || owl_global_is_aaway(&g)) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
wattron(sepwin, A_BOLD);
wattroff(sepwin, A_REVERSE);
if (owl_global_is_zaway(&g) && owl_global_is_aaway(&g)) {
waddstr(sepwin, " AWAY ");
} else if (owl_global_is_zaway(&g)) {
waddstr(sepwin, " Z-AWAY ");
} else if (owl_global_is_aaway(&g)) {
waddstr(sepwin, " A-AWAY ");
}
wattron(sepwin, A_REVERSE);
wattroff(sepwin, A_BOLD);
}
if (owl_global_get_curmsg_vert_offset(&g)) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
wattron(sepwin, A_BOLD);
wattroff(sepwin, A_REVERSE);
waddstr(sepwin, " SCROLL ");
wattron(sepwin, A_REVERSE);
wattroff(sepwin, A_BOLD);
}
appendtosepbar = owl_global_get_appendtosepbar(&g);
if (appendtosepbar && *appendtosepbar) {
getyx(sepwin, y, x);
wmove(sepwin, y, x+2);
waddstr(sepwin, " ");
waddstr(sepwin, owl_global_get_appendtosepbar(&g));
waddstr(sepwin, " ");
}
getyx(sepwin, y, x);
wmove(sepwin, y, owl_global_get_cols(&g)-1);
wattroff(sepwin, A_BOLD);
wattroff(sepwin, A_REVERSE);
}
static void owl_mainwin_redraw(owl_window *w, WINDOW *recwin, void *user_data)
{
owl_message *m;
int i, lines, isfull, viewsize;
int x, y, savey, recwinlines, start;
int topmsg, curmsg, markedmsgid, fgcolor, bgcolor;
const owl_view *v;
GList *fl;
const owl_filter *f;
owl_mainwin *mw = user_data;
topmsg = owl_global_get_topmsg(&g);
curmsg = owl_global_get_curmsg(&g);
markedmsgid = owl_global_get_markedmsgid(&g);
v = owl_global_get_current_view(&g);
if (v==NULL) {
owl_function_debugmsg("Hit a null window in owl_mainwin_redisplay.");
return;
}
werase(recwin);
recwinlines=owl_global_get_recwin_lines(&g);
viewsize=owl_view_get_size(v);
/* if there are no messages or if topmsg is past the end of the messages,
* just draw a blank screen */
if (viewsize==0 || topmsg>=viewsize) {
if (viewsize==0) {
owl_global_set_topmsg(&g, 0);
}
mw->curtruncated=0;
mw->lastdisplayed=-1;
return;
}
/* write the messages out */
isfull=0;
mw->curtruncated=0;
mw->lasttruncated=0;
for (i=topmsg; i<viewsize; i++) {
if (isfull) break;
m=owl_view_get_element(v, i);
/* hold on to y in case this is the current message or deleted */
getyx(recwin, y, x);
savey=y;
/* if it's the current message, account for a vert_offset */
if (i==owl_global_get_curmsg(&g)) {
start=owl_global_get_curmsg_vert_offset(&g);
lines=owl_message_get_numlines(m)-start;
} else {
start=0;
lines=owl_message_get_numlines(m);
}
/* if we match filters set the color */
fgcolor=OWL_COLOR_DEFAULT;
bgcolor=OWL_COLOR_DEFAULT;
for (fl = g.filterlist; fl; fl = g_list_next(fl)) {
f = fl->data;
if ((owl_filter_get_fgcolor(f)!=OWL_COLOR_DEFAULT) ||
(owl_filter_get_bgcolor(f)!=OWL_COLOR_DEFAULT)) {
if (owl_filter_message_match(f, m)) {
if (owl_filter_get_fgcolor(f)!=OWL_COLOR_DEFAULT) fgcolor=owl_filter_get_fgcolor(f);
if (owl_filter_get_bgcolor(f)!=OWL_COLOR_DEFAULT) bgcolor=owl_filter_get_bgcolor(f);
}
}
}
/* if we'll fill the screen print a partial message */
if ((y+lines > recwinlines) && (i==owl_global_get_curmsg(&g))) mw->curtruncated=1;
if (y+lines > recwinlines) mw->lasttruncated=1;
if (y+lines > recwinlines-1) {
isfull=1;
owl_message_curs_waddstr(m, recwin,
start,
start+recwinlines-y,
owl_global_get_rightshift(&g),
owl_global_get_cols(&g)+owl_global_get_rightshift(&g)-1,
fgcolor, bgcolor);
} else {
/* otherwise print the whole thing */
owl_message_curs_waddstr(m, recwin,
start,
start+lines,
owl_global_get_rightshift(&g),
owl_global_get_cols(&g)+owl_global_get_rightshift(&g)-1,
fgcolor, bgcolor);
}
/* is it the current message and/or deleted? */
getyx(recwin, y, x);
wattrset(recwin, A_NORMAL);
if (owl_global_get_rightshift(&g)==0) { /* this lame and should be fixed */
if (m==owl_view_get_element(v, curmsg)) {
wmove(recwin, savey, 0);
wattron(recwin, A_BOLD);
if (owl_global_get_curmsg_vert_offset(&g)>0) {
waddstr(recwin, "+");
} else {
waddstr(recwin, "-");
}
if (owl_message_is_delete(m)) {
waddstr(recwin, "D");
} else if (markedmsgid == owl_message_get_id(m)) {
waddstr(recwin, "*");
} else {
waddstr(recwin, ">");
}
wmove(recwin, y, x);
wattroff(recwin, A_BOLD);
} else if (owl_message_is_delete(m)) {
wmove(recwin, savey, 0);
waddstr(recwin, " D");
wmove(recwin, y, x);
} else if (markedmsgid == owl_message_get_id(m)) {
wmove(recwin, savey, 0);
waddstr(recwin, " *");
wmove(recwin, y, x);
}
}
wattroff(recwin, A_BOLD);
}
mw->lastdisplayed=i-1;
}
