Changes in / [f97c1a6:1d21d9f]

Files:

• README (modified) (2 diffs)
• cmd.c (modified) (3 diffs)
• commands.c (modified) (3 diffs)
• configure.ac (modified) (1 diff)
• dict.c (modified) (5 diffs)
• editwin.c (modified) (1 diff)
• fmtext.c (modified) (7 diffs)
• functions.c (modified) (10 diffs)
• global.c (modified) (4 diffs)
• keybinding.c (modified) (1 diff)
• keymap.c (modified) (2 diffs)
• list.c (modified) (1 diff)
• logging.c (modified) (1 diff)
• owl.c (modified) (6 diffs)
• owl.h (modified) (3 diffs)
• perl/lib/BarnOwl.pm (modified) (1 diff)
• perl/lib/BarnOwl/AnyEvent.pm (deleted)
• perl/modules/IRC/lib/BarnOwl/Message/IRC.pm (modified) (2 diffs)
• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (23 diffs)
• perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm (modified) (1 diff)
• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (16 diffs)
• perlconfig.c (modified) (3 diffs)
• perlglue.xs (modified) (5 diffs)
• select.c (modified) (1 diff)
• tester.c (modified) (2 diffs)
• text.c (modified) (1 diff)
• util.c (modified) (1 diff)
• variable.c (modified) (11 diffs)
• view.c (modified) (1 diff)
• viewwin.c (modified) (2 diffs)
• window.c (modified) (1 diff)
• zcrypt.c (modified) (3 diffs)
• zephyr.c (modified) (3 diffs)
• zwrite.c (modified) (5 diffs)

README

@@ -18 +18 @@
 BarnOwl currently requires the following perl modules off of CPAN:
 
-AnyEvent
 PAR
 Net::DNS
@@ -31 +30 @@
 The IRC module requires:
 
-AnyEvent::IRC
+Net::IRC
 Class::Accessor
 

cmd.c

@@ -12 +12 @@
 
 int owl_cmddict_setup(owl_cmddict *cd) {
-  owl_cmddict_init(cd);
+  if (0 != owl_cmddict_init(cd)) return(-1);
   if (0 != owl_cmddict_add_from_list(cd, commands_to_init)) return(-1);
   return(0);
 }
 
-void owl_cmddict_init(owl_cmddict *cd) {
-  owl_dict_create(cd);
+int owl_cmddict_init(owl_cmddict *cd) {
+  if (owl_dict_create(cd)) return(-1);
+  return(0);
 }
 
@@ -98 +99 @@
 
 char *owl_cmddict_execute_argv(const owl_cmddict *cd, const owl_context *ctx, const char *const *argv, int argc) {
-  char *buff;
-  char *retval = NULL;
-
-  buff = g_strjoinv(" ", (char**)argv);
-  retval = _owl_cmddict_execute(cd, ctx, argv, argc, buff);
-  g_free(buff);
-
+  GString *buf = g_string_new("");
+  int i;
+  char *retval;
+
+  /* We weren't given a command line, so fabricate a valid one. */
+  for(i = 0; i < argc; i++) {
+    if (i != 0)
+      g_string_append_c(buf, ' ');
+    owl_string_append_quoted_arg(buf, argv[i]);
+  }
+
+  retval = _owl_cmddict_execute(cd, ctx, argv, argc, buf->str);
+
+  g_string_free(buf, true);
   return retval;
 }
@@ -134 +142 @@
 void owl_cmd_cleanup(owl_cmd *cmd)
 {
-  g_free(cmd->name);
-  g_free(cmd->summary);
-  g_free(cmd->usage);
-  g_free(cmd->description);
-  g_free(cmd->cmd_aliased_to);
+  if (cmd->name) g_free(cmd->name);
+  if (cmd->summary) g_free(cmd->summary);
+  if (cmd->usage) g_free(cmd->usage);
+  if (cmd->description) g_free(cmd->description);
+  if (cmd->cmd_aliased_to) g_free(cmd->cmd_aliased_to);
   if (cmd->cmd_perl) owl_perlconfig_cmd_cleanup(cmd);
 }

commands.c

@@ -1288 +1288 @@
   }
   owl_function_nextmsg_full(filter, skip_deleted, last_if_none);
-  g_free(filter);
+  if (filter) g_free(filter);
   return(NULL);
 }
@@ -1318 +1318 @@
   }
   owl_function_prevmsg_full(filter, skip_deleted, first_if_none);
-  g_free(filter);
+  if (filter) g_free(filter);
   return(NULL);
 }
@@ -1691 +1691 @@
   commands = g_strsplit_set(newbuff, ";", 0);
   for (i = 0; commands[i] != NULL; i++) {
-    g_free(lastrv);
+    if (lastrv) {
+      g_free(lastrv);
+    }
     lastrv = owl_function_command(commands[i]);
   }

configure.ac

@@ -115 +115 @@
 
 dnl Add CFLAGS and LIBS for glib-2.0
-PKG_CHECK_MODULES(GLIB,[glib-2.0 >= 2.12 gobject-2.0 gthread-2.0])
+PKG_CHECK_MODULES(GLIB,[glib-2.0 gobject-2.0 gthread-2.0])
 
 AC_MSG_NOTICE([Adding glib-2.0 CFLAGS ${GLIB_CFLAGS}])

dict.c

@@ -15 +15 @@
 #define GROWBY 3 / 2
 
-void owl_dict_create(owl_dict *d) {
+int owl_dict_create(owl_dict *d) {
   d->size=0;
   d->els=g_new(owl_dict_el, INITSIZE);
   d->avail=INITSIZE;
+  if (d->els==NULL) return(-1);
+  return(0);
 }
 
@@ -58 +60 @@
 /* Appends dictionary keys to a list.  Duplicates the keys,
  * so they will need to be freed by the caller. */
-void owl_dict_get_keys(const owl_dict *d, owl_list *l) {
+int owl_dict_get_keys(const owl_dict *d, owl_list *l) {
   int i;
+  char *dupk;
   for (i=0; i<d->size; i++) {
-    owl_list_append_element(l, g_strdup(d->els[i].k));
+    if ((dupk = g_strdup(d->els[i].k)) == NULL) return(-1);
+    owl_list_append_element(l, dupk);
   }
+  return(0);
 }
 
@@ -79 +84 @@
 {
   int pos, found;
+  char *dupk;
   found = _owl_dict_find_pos(d, k, &pos);
   if (found && delete_on_replace) {
@@ -93 +99 @@
       if (d->els==NULL) return(-1);
     }
+    if ((dupk = g_strdup(k)) == NULL) return(-1);
     if (pos!=d->size) {
       /* shift forward to leave us a slot */
@@ -99 +106 @@
     }
     d->size++;
-    d->els[pos].k = g_strdup(k);
+    d->els[pos].k = dupk;
     d->els[pos].v = v;    
     return(0);

editwin.c

@@ -317 +317 @@
   }
 
-  g_free(locktext);
+  if (locktext)
+    g_free(locktext);
 
   oe_set_index(e, lock);

fmtext.c

@@ -184 +184 @@
 }
 
+static void _owl_fmtext_update_colorpair(short fg, short bg, short *pair)
+{
+  if (owl_global_get_hascolors(&g)) {
+    *pair = owl_fmtext_get_colorpair(fg, bg);
+  }
+}
+
 static void _owl_fmtext_wcolor_set(WINDOW *w, short pair)
 {
-  if (has_colors()) {
+  if (owl_global_get_hascolors(&g)) {
       wcolor_set(w,pair,NULL);
       wbkgdset(w, COLOR_PAIR(pair));
@@ -214 +221 @@
   bg = default_bgcolor;
   _owl_fmtext_wattrset(w, attr);
-  pair = owl_fmtext_get_colorpair(fg, bg);
+  _owl_fmtext_update_colorpair(fg, bg, &pair);
   _owl_fmtext_wcolor_set(w, pair);
 
@@ -263 +270 @@
       if (bg == OWL_COLOR_DEFAULT) bg = default_bgcolor;
       _owl_fmtext_wattrset(w, attr);
-      pair = owl_fmtext_get_colorpair(fg, bg);
+      _owl_fmtext_update_colorpair(fg, bg, &pair);
       _owl_fmtext_wcolor_set(w, pair);
 
@@ -655 +662 @@
            continue */
       } else if (!strcasecmp(buff, "@color") 
+                 && owl_global_get_hascolors(&g)
                  && owl_global_is_colorztext(&g)) {
         g_free(buff);
@@ -812 +820 @@
     }
   }
-  if (has_colors()) {
+  if (owl_global_get_hascolors(&g)) {
     for(i = 0; i < 8; i++) {
       short fg, bg;
@@ -827 +835 @@
   owl_colorpair_mgr *cpmgr;
   short pair;
-
-  if (!has_colors())
-    return 0;
 
   /* Sanity (Bounds) Check */
@@ -847 +852 @@
   if (!(pair != -1 && pair < cpmgr->next)) {
     /* If we didn't find a pair, search for a free one to assign. */
-    pair = (cpmgr->next < owl_util_get_colorpairs()) ? cpmgr->next : -1;
+    pair = (cpmgr->next < COLOR_PAIRS) ? cpmgr->next : -1;
     if (pair != -1) {
       /* We found a free pair, initialize it. */

functions.c

@@ -32 +32 @@
   char *rv;
   rv=owl_function_command(cmdbuff);
-  g_free(rv);
+  if (rv) g_free(rv);
 }
 
@@ -453 +453 @@
 
   if (rv || status) {
-    g_free(cryptmsg);
+    if(cryptmsg) g_free(cryptmsg);
     g_free(old_msg);
     owl_function_error("Error in zcrypt, possibly no key found.  Message not sent.");
@@ -991 +991 @@
   /* execute the commands in shutdown */
   ret = owl_perlconfig_execute("BarnOwl::Hooks::_shutdown();");
-  g_free(ret);
+  if (ret) g_free(ret);
 
   /* signal our child process, if any */
@@ -1817 +1817 @@
           owl_global_get_cols(&g));
 
-  if (has_colors()) {
+  if (owl_global_get_hascolors(&g)) {
     owl_fmtext_append_normal(&fm, "Color: Yes\n");
-    owl_fmtext_appendf_normal(&fm, "Number of color pairs: %i\n", owl_util_get_colorpairs());
+    owl_fmtext_appendf_normal(&fm, "Number of color pairs: %i\n", owl_global_get_colorpairs(&g));
     owl_fmtext_appendf_normal(&fm, "Can change colors: %s\n", can_change_color() ? "yes" : "no");
   } else {
@@ -2226 +2226 @@
     f = fl->data;
     owl_fmtext_append_normal(&fm, "   ");
-    owl_fmtext_append_normal_color(&fm, owl_filter_get_name(f),
-                                   owl_filter_get_fgcolor(f),
-                                   owl_filter_get_bgcolor(f));
+    if (owl_global_get_hascolors(&g)) {
+      owl_fmtext_append_normal_color(&fm, owl_filter_get_name(f), owl_filter_get_fgcolor(f), owl_filter_get_bgcolor(f));
+    } else {
+      owl_fmtext_append_normal(&fm, owl_filter_get_name(f));
+    }
     owl_fmtext_append_normal(&fm, "\n");
   }
@@ -2358 +2360 @@
 done:
   g_free(class);
-  g_free(instance);
+  if (instance) {
+    g_free(instance);
+  }
   return(filtname);
 }
@@ -2519 +2523 @@
 
   filtname = g_strdup_printf("conversation-%s", ccs);
-  g_strdelimit(filtname, " ", '-');
+  owl_text_tr(filtname, ' ', '-');
 
   if (owl_global_get_filter(&g, filtname)) {
@@ -2955 +2959 @@
   
   if (viewsize==0) {
-    owl_function_makemsg("No messages present");
+    owl_function_error("No messages present");
     return;
   }
@@ -2969 +2973 @@
   /* bounds check */
   if (start>=viewsize || start<0) {
-    owl_function_makemsg("No further matches found");
+    owl_function_error("No further matches found");
     return;
   }
@@ -2998 +3002 @@
   }
   owl_mainwin_redisplay(owl_global_get_mainwin(&g));
-  owl_function_makemsg("No matches found");
+  owl_function_error("No matches found");
 }
 

global.c

@@ -54 +54 @@
   g->direction=OWL_DIRECTION_DOWNWARDS;
   g->zaway=0;
+  if (has_colors()) {
+    g->hascolors=1;
+  }
+  g->colorpairs=COLOR_PAIRS;
   owl_fmtext_init_colorpair_mgr(&(g->cpmgr));
   g->debug=OWL_DEBUG;
@@ -508 +512 @@
 
 void owl_global_set_startupargs(owl_global *g, int argc, char **argv) {
-  g_free(g->startupargs);
+  if (g->startupargs) g_free(g->startupargs);
   g->startupargs = g_strjoinv(" ", argv);
 }
@@ -573 +577 @@
 owl_view *owl_global_get_current_view(owl_global *g) {
   return(&(g->current_view));
+}
+
+/* has colors */
+
+int owl_global_get_hascolors(const owl_global *g) {
+  if (g->hascolors) return(1);
+  return(0);
+}
+
+/* color pairs */
+
+int owl_global_get_colorpairs(const owl_global *g) {
+  return(g->colorpairs);
 }
 
@@ -756 +773 @@
 }
 
-void owl_global_get_style_names(const owl_global *g, owl_list *l) {
-  owl_dict_get_keys(&(g->styledict), l);
+int owl_global_get_style_names(const owl_global *g, owl_list *l) {
+  return owl_dict_get_keys(&(g->styledict), l);
 }
 

keybinding.c

@@ -69 +69 @@
 void owl_keybinding_delete(owl_keybinding *kb)
 {
-  g_free(kb->keys);
-  g_free(kb->desc);
-  g_free(kb->command);
+  if (kb->keys) g_free(kb->keys);
+  if (kb->desc) g_free(kb->desc);
+  if (kb->command) g_free(kb->command);
   g_free(kb);
 }

keymap.c

@@ -9 +9 @@
 {
   if (!name || !desc) return(-1);
-  km->name = g_strdup(name);
-  km->desc = g_strdup(desc);
-  owl_list_create(&km->bindings);
+  if ((km->name = g_strdup(name)) == NULL) return(-1);
+  if ((km->desc = g_strdup(desc)) == NULL) return(-1);
+  if (0 != owl_list_create(&km->bindings)) return(-1);
   km->parent = NULL;
   km->default_fn = default_fn;
@@ -179 +179 @@
 /* NOTE: keyhandler has private access to the internals of keymap */
 
-void owl_keyhandler_init(owl_keyhandler *kh)
-{
-  owl_dict_create(&kh->keymaps);
+int owl_keyhandler_init(owl_keyhandler *kh)
+{
+  if (0 != owl_dict_create(&kh->keymaps)) return(-1); 
   kh->active = NULL;
   owl_keyhandler_reset(kh);
+  return(0);
 }
 

list.c

@@ -5 +5 @@
 #define GROWBY 3 / 2
 
-void owl_list_create(owl_list *l)
+int owl_list_create(owl_list *l)
 {
   l->size=0;
   l->list=g_new(void *, INITSIZE);
   l->avail=INITSIZE;
+  if (l->list==NULL) return(-1);
+  return(0);
 }
 

logging.c

@@ -151 +151 @@
   } else if (owl_message_is_type_jabber(m)) {
     to = g_strdup_printf("jabber:%s", owl_message_get_recipient(m));
-    g_strdelimit(to, "/", '_');
+    owl_text_tr(to, '/', '_');
   } else if (owl_message_is_type_aim(m)) {
     char *temp2;

owl.c

@@ -41 +41 @@
   char *confdir;
   bool debug;
+  bool rm_debug;
 } owl_options;
 
@@ -49 +50 @@
   fprintf(stderr, "  -n,--no-subs        don't load zephyr subscriptions\n");
   fprintf(stderr, "  -d,--debug          enable debugging\n");
+  fprintf(stderr, "  -D,--remove-debug   enable debugging and delete previous debug file\n");
   fprintf(stderr, "  -v,--version        print the Barnowl version number and exit\n");
   fprintf(stderr, "  -h,--help           print this help message\n");
@@ -64 +66 @@
     { "tty",             1, 0, 't' },
     { "debug",           0, 0, 'd' },
+    { "remove-debug",    0, 0, 'D' },
     { "version",         0, 0, 'v' },
     { "help",            0, 0, 'h' },
@@ -85 +88 @@
       opts->tty = g_strdup(optarg);
       break;
+    case 'D':
+      opts->rm_debug = 1;
+      /* fallthrough */
     case 'd':
       opts->debug = 1;
@@ -503 +509 @@
   /* owl global init */
   owl_global_init(&g);
+  if (opts.rm_debug) unlink(OWL_DEBUG_FILE);
   if (opts.debug) owl_global_set_debug_on(&g);
   if (opts.confdir) owl_global_set_confdir(&g, opts.confdir);
@@ -570 +577 @@
   owl_function_debugmsg("startup: executing perl startup, if applicable");
   perlout = owl_perlconfig_execute("BarnOwl::Hooks::_startup();");
-  g_free(perlout);
+  if (perlout) g_free(perlout);
 
   /* welcome message */

owl.h

@@ -66 +66 @@
 #include "window.h"
 
-#ifndef OWL_VERSION_STRING
 #ifdef  GIT_VERSION
 #define stringify(x)       __stringify(x)
@@ -74 +73 @@
 #define OWL_VERSION_STRING PACKAGE_VERSION
 #endif
-#endif /* !OWL_VERSION_STRING */
 
 /* Feature that is being tested to redirect stderr through a pipe. 
@@ -604 +602 @@
   char *startupargs;
   int nextmsgid;
+  int hascolors;
+  int colorpairs;
   owl_colorpair_mgr cpmgr;
   pid_t newmsgproc_pid;

perl/lib/BarnOwl.pm

@@ -38 +38 @@
 use BarnOwl::Completion;
 use BarnOwl::Help;
-use BarnOwl::AnyEvent;
-
-unshift @AnyEvent::REGISTRY, [BarnOwl => BarnOwl::AnyEvent::];
-require AnyEvent;
 
 use List::Util qw(max);

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -66 +66 @@
 sub action {shift->{action}}
 sub reason {shift->{reason}}
-sub old_nick {shift->{old_nick}};
 
 # display
@@ -81 +80 @@
 }
 
-sub login_extra {
+sub login_extra { 
     my $self = shift;
     if ($self->action eq "quit") {
         return $self->reason;
-    } elsif ($self->action eq 'nick change') {
-        return "was: " . $self->old_nick;
     } else {
         return $self->channel;

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -20 +20 @@
 use BarnOwl::Module::IRC::Completion;
 
-use AnyEvent::IRC;
+use Net::IRC;
 use Getopt::Long;
 use Encode;
@@ -30 +30 @@
 # Hash alias -> BarnOwl::Module::IRC::Connection object
 our %ircnets;
+our %channels;
+our %reconnect;
 
 sub startup {
@@ -68 +70 @@
 
     register_commands();
+    register_handlers();
     BarnOwl::filter(qw{irc type ^IRC$ or ( type ^admin$ and adminheader ^IRC$ )});
 }
@@ -73 +76 @@
 sub shutdown {
     for my $conn (values %ircnets) {
-        $conn->conn->disconnect('Quitting');
+        $conn->conn->disconnect();
     }
 }
@@ -95 +98 @@
         $list .= "\n";
 
-        for my $chan (keys %{$conn->conn->{channel_list}}) {
+        for my $chan (keys %channels) {
+            next unless grep $_ eq $conn, @{$channels{$chan}};
             $list .= "  $chan\n";
         }
@@ -101 +105 @@
 
     return $list;
+}
+
+#sub mainloop_hook {
+#    return unless defined $irc;
+#    eval {
+#        $irc->do_one_loop();
+#    };
+#    return;
+#}
+
+sub OwlProcess {
+    return unless defined $irc;
+    eval {
+        $irc->do_one_loop();
+    };
+    return;
+}
+
+
+sub register_handlers {
+    if(!$irc) {
+        $irc = Net::IRC->new;
+        $irc->timeout(0);
+    }
 }
 
@@ -378 +406 @@
     }
 
-    my $conn = BarnOwl::Module::IRC::Connection->new($alias, $host, $port, {
-        nick      => $nick,
-        user      => $username,
-        real      => $ircname,
-        password  => $password,
-        SSL       => $ssl,
-        timeout   => sub {0}
-       });
-    $ircnets{$alias} = $conn;
+    my $conn = BarnOwl::Module::IRC::Connection->new($irc, $alias,
+        Nick      => $nick,
+        Server    => $host,
+        Port      => $port,
+        Username  => $username,
+        Ircname   => $ircname,
+        Port      => $port,
+        Password  => $password,
+        SSL       => $ssl
+       );
+
+    if ($conn->conn->connected) {
+        $conn->connected("Connected to $alias as $nick");
+    } else {
+        die("IRC::Connection->connect failed: $!");
+    }
+
     return;
 }
@@ -393 +429 @@
     my $cmd = shift;
     my $conn = shift;
-    if ($conn->conn->{socket}) {
-        $conn->did_quit(1);
-        $conn->conn->disconnect("Goodbye!");
-    } elsif ($conn->{reconnect_timer}) {
+    if ($conn->conn->connected) {
+        $conn->conn->disconnect;
+    } elsif ($reconnect{$conn->alias}) {
         BarnOwl::admin_message('IRC',
                                "[" . $conn->alias . "] Reconnect cancelled");
         $conn->cancel_reconnect;
-        delete $ircnets{$conn->alias};
     }
 }
@@ -429 +463 @@
     for my $body (@msgs) {
         if ($body =~ /^\/me (.*)/) {
-            $conn->me($to, Encode::encode('utf-8', $1));
+            $conn->conn->me($to, Encode::encode('utf-8', $1));
             $body = '* '.$conn->nick.' '.$1;
         } else {
-            $conn->conn->send_msg('privmsg', $to, Encode::encode('utf-8', $body));
+            $conn->conn->privmsg($to, Encode::encode('utf-8', $body));
         }
         my $msg = BarnOwl::Message->new(
@@ -457 +491 @@
     my $target = shift;
     $target ||= shift;
-    $conn->conn->send_msg(mode => $target, @_);
+    $conn->conn->mode($target, @_);
     return;
 }
@@ -465 +499 @@
     my $conn = shift;
     my $chan = shift or die("Usage: $cmd channel\n");
-    $conn->conn->send_msg(join => $chan, @_);
+    $channels{$chan} ||= [];
+    push @{$channels{$chan}}, $conn;
+    $conn->conn->join($chan, @_);
     return;
 }
@@ -473 +509 @@
     my $conn = shift;
     my $chan = shift;
-    $conn->conn->send_msg(part => $chan);
+    $channels{$chan} = [grep {$_ ne $conn} @{$channels{$chan} || []}];
+    $conn->conn->part($chan);
     return;
 }
@@ -481 +518 @@
     my $conn = shift;
     my $nick = shift or die("Usage: $cmd <new nick>\n");
-    $conn->conn->send_msg(nick => $nick);
+    $conn->conn->nick($nick);
     return;
 }
@@ -490 +527 @@
     my $chan = shift;
     $conn->names_tmp([]);
-    $conn->conn->send_msg(names => $chan);
+    $conn->conn->names($chan);
     return;
 }
@@ -498 +535 @@
     my $conn = shift;
     my $who = shift || die("Usage: $cmd <user>\n");
-    $conn->conn->send_msg(whois => $who);
+    $conn->conn->whois($who);
     return;
 }
@@ -505 +542 @@
     my $cmd = shift;
     my $conn = shift;
-    $conn->conn->send_msg('motd');
+    $conn->conn->motd;
     return;
 }
@@ -523 +560 @@
     my $conn = shift;
     my $who = shift || die("Usage: $cmd <user>\n");
-    $conn->conn->send_msg(who => $who);
+    BarnOwl::error("WHO $cmd $conn $who");
+    $conn->conn->who($who);
     return;
 }
@@ -531 +569 @@
     my $conn = shift;
     my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n");
-    $conn->conn->send_msg(stats => $type, @_);
+    $conn->conn->stats($type, @_);
     return;
 }
@@ -539 +577 @@
     my $conn = shift;
     my $chan = shift;
-    $conn->conn->send_msg(topic => $chan, @_ ? join(" ", @_) : undef);
+    $conn->conn->topic($chan, @_ ? join(" ", @_) : undef);
     return;
 }
@@ -546 +584 @@
     my $cmd = shift;
     my $conn = shift;
-    $conn->conn->send_msg(@_);
+    $conn->conn->sl(join(" ", @_));
     return;
 }
@@ -553 +591 @@
 ########################### Utilities/Helpers ##################################
 ################################################################################
-
-sub find_channel {
-    my $channel = shift;
-    my @found;
-    for my $conn (values %ircnets) {
-        if($conn->conn->{channel_list}{lc $channel}) {
-            push @found, $conn;
-        }
-    }
-    return $found[0] if(scalar @found == 1);
-}
 
 sub mk_irc_command {
@@ -587 +614 @@
             $channel = $ARGV[0];
             if(defined($channel) && $channel =~ /^#/) {
-                if(my $c = find_channel($channel)) {
+                if($channels{$channel} && @{$channels{$channel}} == 1) {
                     shift @ARGV;
-                    $conn ||= $c;
+                    $conn = $channels{$channel}[0] unless $conn;
                 }
             } elsif ($m && $m->type eq 'IRC' && !$m->is_private) {
@@ -627 +654 @@
     my $allow_disconnected = shift;
 
-    my $conn = $ircnets{$key};
-    die("No such ircnet: $key\n") unless $conn;
-    if ($conn->conn->{registered} || $allow_disconnected) {
-        return $conn;
-    }
-    die("[@{[$conn->alias]}] Not currently connected.");
+    return $ircnets{$key} if exists $ircnets{$key};
+    return $reconnect{$key} if $allow_disconnected && exists $reconnect{$key};
+    die("No such ircnet: $key\n")
 }
 

perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm

@@ -11 +11 @@
 sub complete_networks { keys %BarnOwl::Module::IRC::ircnets }
 sub complete_dests    { keys %users, complete_channels() }
-sub complete_channels {
-    my %channels;
-    for my $conn (values %BarnOwl::Module::IRC::ircnets) {
-        for my $chan (keys %{$conn->conn->{channel_list}}) {
-            $channels{$chan} = 1;
-        }
-    }
-    return keys %channels;
-}
+sub complete_channels { keys %BarnOwl::Module::IRC::channels }
 sub complete_nicks    { keys %users }
 sub complete_servers  { keys %servers }

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -11 +11 @@
 =head1 DESCRIPTION
 
-This module is a wrapper around AnyEvent::IRC::Client for BarnOwl's IRC
+This module is a wrapper around Net::IRC::Connection for BarnOwl's IRC
 support
 
 =cut
 
-use AnyEvent::IRC::Client;
-use AnyEvent::IRC::Util qw(split_prefix prefix_nick encode_ctcp);
-
-use base qw(Class::Accessor);
-use Exporter 'import';
-__PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp
-                             server autoconnect_channels
-                             connect_args backoff did_quit));
-our @EXPORT_OK = qw(is_private);
+use Net::IRC::Connection;
+
+use base qw(Class::Accessor Exporter);
+__PACKAGE__->mk_accessors(qw(conn alias channels motd names_tmp whois_tmp));
+our @EXPORT_OK = qw(&is_private);
 
 use BarnOwl;
 use Scalar::Util qw(weaken);
 
+BEGIN {
+    no strict 'refs';
+    my @delegate = qw(nick server);
+    for my $meth (@delegate) {
+        *{"BarnOwl::Module::IRC::Connection::$meth"} = sub {
+            shift->conn->$meth(@_);
+        }
+    }
+};
+
 sub new {
     my $class = shift;
+    my $irc = shift;
     my $alias = shift;
-    my $host  = shift;
-    my $port  = shift;
-    my $args  = shift;
-    my $nick = $args->{nick};
-    my $conn = AnyEvent::IRC::Client->new();
+    my %args = (@_);
+    my $conn = Net::IRC::Connection->new($irc, %args);
     my $self = bless({}, $class);
     $self->conn($conn);
-    $self->autoconnect_channels([]);
     $self->alias($alias);
-    $self->server($host);
+    $self->channels([]);
     $self->motd("");
     $self->names_tmp(0);
-    $self->backoff(0);
     $self->whois_tmp("");
-    $self->did_quit(0);
-
-    if(delete $args->{SSL}) {
-        $conn->enable_ssl;
-    }
-    $self->connect_args([$host, $port, $args]);
-    $conn->connect($host, $port, $args);
-    $conn->{heap}{parent} = $self;
-    weaken($conn->{heap}{parent});
-
-    sub on {
-        my $meth = "on_" . shift;
-        return sub {
-            my $conn = shift;
-            return unless $conn->{heap}{parent};
-            $conn->{heap}{parent}->$meth(@_);
-        }
-    }
-
-    # $self->conn->add_default_handler(sub { shift; $self->on_event(@_) });
-    $self->conn->reg_cb(registered => on("connect"),
-                        connfail   => sub { BarnOwl::error("Connection to $host failed!") },
-                        disconnect => on("disconnect"),
-                        publicmsg  => on("msg"),
-                        privatemsg => on("msg"),
-                        irc_error  => on("error"));
-    for my $m (qw(welcome yourhost created
-                  luserclient luserop luserchannels luserme
-                  error)) {
-        $self->conn->reg_cb("irc_$m" => on("admin_msg"));
-    }
-    $self->conn->reg_cb(irc_375       => on("motdstart"),
-                        irc_372       => on("motd"),
-                        irc_376       => on("endofmotd"),
-                        irc_join      => on("join"),
-                        irc_part      => on("part"),
-                        irc_quit      => on("quit"),
-                        irc_433       => on("nickinuse"),
-                        channel_topic => on("topic"),
-                        irc_333       => on("topicinfo"),
-                        irc_353       => on("namreply"),
-                        irc_366       => on("endofnames"),
-                        irc_311       => on("whois"),
-                        irc_312       => on("whois"),
-                        irc_319       => on("whois"),
-                        irc_320       => on("whois"),
-                        irc_318       => on("endofwhois"),
-                        irc_mode      => on("mode"),
-                        irc_401       => on("nosuch"),
-                        irc_402       => on("nosuch"),
-                        irc_403       => on("nosuch"),
-                        nick_change   => on("nick"),
-                        ctcp_action   => on("ctcp_action"),
-                        'irc_*' => sub { BarnOwl::debug("IRC: " . $_[1]->{command} . " " .
-                                                        join(" ", @{$_[1]->{params}})) });
+
+    $self->conn->add_default_handler(sub { shift; $self->on_event(@_) });
+    $self->conn->add_handler(['msg', 'notice', 'public', 'caction'],
+            sub { shift; $self->on_msg(@_) });
+    $self->conn->add_handler(['welcome', 'yourhost', 'created',
+                              'luserclient', 'luserop', 'luserchannels', 'luserme',
+                              'error'],
+            sub { shift; $self->on_admin_msg(@_) });
+    $self->conn->add_handler(['myinfo', 'map', 'n_local', 'n_global',
+            'luserconns'],
+            sub { });
+    $self->conn->add_handler(motdstart => sub { shift; $self->on_motdstart(@_) });
+    $self->conn->add_handler(motd      => sub { shift; $self->on_motd(@_) });
+    $self->conn->add_handler(endofmotd => sub { shift; $self->on_endofmotd(@_) });
+    $self->conn->add_handler(join      => sub { shift; $self->on_join(@_) });
+    $self->conn->add_handler(part      => sub { shift; $self->on_part(@_) });
+    $self->conn->add_handler(quit      => sub { shift; $self->on_quit(@_) });
+    $self->conn->add_handler(disconnect => sub { shift; $self->on_disconnect(@_) });
+    $self->conn->add_handler(nicknameinuse => sub { shift; $self->on_nickinuse(@_) });
+    $self->conn->add_handler(cping     => sub { shift; $self->on_ping(@_) });
+    $self->conn->add_handler(topic     => sub { shift; $self->on_topic(@_) });
+    $self->conn->add_handler(topicinfo => sub { shift; $self->on_topicinfo(@_) });
+    $self->conn->add_handler(namreply  => sub { shift; $self->on_namreply(@_) });
+    $self->conn->add_handler(endofnames=> sub { shift; $self->on_endofnames(@_) });
+    $self->conn->add_handler(endofwhois=> sub { shift; $self->on_endofwhois(@_) });
+    $self->conn->add_handler(mode      => sub { shift; $self->on_mode(@_) });
+    $self->conn->add_handler(nosuchchannel => sub { shift; $self->on_nosuchchannel(@_) });
 
     return $self;
-}
-
-sub nick {
-    my $self = shift;
-    return $self->conn->nick;
 }
 
@@ -114 +83 @@
     my $self = shift;
     return $self->conn->socket;
-}
-
-sub me {
-    my ($self, $to, $msg) = @_;
-    $self->conn->send_msg('privmsg', $to,
-                          encode_ctcp(['ACTION', $msg]))
 }
 
@@ -129 +92 @@
     my $self = shift;
     my $evt = shift;
-    my %args = (
+    return BarnOwl::Message->new(
         type        => 'IRC',
         server      => $self->server,
         network     => $self->alias,
+        sender      => $evt->nick,
+        hostname    => $evt->host,
+        from        => $evt->from,
         @_
        );
-    if ($evt) {
-        my ($nick, $user, $host) = split_prefix($evt);
-        $args{sender}   ||= $nick;
-        $args{hostname} ||= $host if defined($host);
-        $args{from}     ||= $evt->{prefix};
-        $args{params}   ||= join(' ', @{$evt->{params}})
-    }
-    return BarnOwl::Message->new(%args);
 }
 
 sub on_msg {
-    my ($self, $recipient, $evt) = @_;
-    my $body = strip_irc_formatting($evt->{params}->[1]);
-    $self->handle_message($recipient, $evt, $body);
-}
-
-sub on_ctcp_action {
-    my ($self, $src, $target, $msg) = @_;
-    my $body = strip_irc_formatting($msg);
-    my $evt = {
-        params => [$src],
-        type   => 'privmsg',
-        prefix => $src
-       };
-    $self->handle_message($target, $evt, "* $body");
-}
-
-sub handle_message {
-    my ($self, $recipient, $evt, $body) = @_;
+    my ($self, $evt) = @_;
+    my ($recipient) = $evt->to;
+    my $body = strip_irc_formatting([$evt->args]->[0]);
+    my $nick = $self->nick;
+    $body = '* '.$evt->nick.' '.$body if $evt->type eq 'caction';
     my $msg = $self->new_message($evt,
         direction   => 'in',
         recipient   => $recipient,
-        body        => $body,
-        ($evt->{command}||'') eq 'notice' ?
+        body => $body,
+        $evt->type eq 'notice' ?
           (notice     => 'true') : (),
         is_private($recipient) ?
           (private  => 'true') : (channel => $recipient),
         replycmd    => BarnOwl::quote('irc-msg', '-a', $self->alias,
-           (is_private($recipient) ? prefix_nick($evt) : $recipient)),
-        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, prefix_nick($evt)),
+          (is_private($recipient) ? $evt->nick : $recipient)),
+        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->nick),
        );
 
@@ -180 +125 @@
 }
 
+sub on_ping {
+    my ($self, $evt) = @_;
+    $self->conn->ctcp_reply($evt->nick, join (' ', ($evt->args)));
+}
 
 sub on_admin_msg {
     my ($self, $evt) = @_;
-    return if BarnOwl::Module::IRC->skip_msg($evt->{command});
-    BarnOwl::admin_message("IRC",
-            BarnOwl::Style::boldify('IRC ' . $evt->{command} . ' message from '
+    return if BarnOwl::Module::IRC->skip_msg($evt->type);
+    BarnOwl::admin_message("IRC",
+            BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '
                 . $self->alias) . "\n"
-            . strip_irc_formatting(join ' ', cdr($evt->{params})));
+            . strip_irc_formatting(join ' ', cdr($evt->args)));
 }
 
 sub on_motdstart {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", cdr(@{$evt->{params}}));
+    $self->motd(join "\n", cdr($evt->args));
 }
 
 sub on_motd {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", $self->motd, cdr(@{$evt->{params}}));
+    $self->motd(join "\n", $self->motd, cdr($evt->args));
 }
 
 sub on_endofmotd {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", $self->motd, cdr(@{$evt->{params}}));
+    $self->motd(join "\n", $self->motd, cdr($evt->args));
     BarnOwl::admin_message("IRC",
             BarnOwl::Style::boldify('MOTD for ' . $self->alias) . "\n"
@@ -210 +159 @@
 sub on_join {
     my ($self, $evt) = @_;
-    my $chan = $evt->{params}[0];
     my $msg = $self->new_message($evt,
         loginout   => 'login',
         action     => 'join',
-        channel    => $chan,
-        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, $chan),
-        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, prefix_nick($evt)),
+        channel    => $evt->to,
+        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->to),
+        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->nick),
         );
     BarnOwl::queue_message($msg);
+    push @{$self->channels}, $evt->to;
 }
 
 sub on_part {
     my ($self, $evt) = @_;
-    my $chan = $evt->{params}[0];
     my $msg = $self->new_message($evt,
         loginout   => 'logout',
         action     => 'part',
-        channel    => $chan,
-        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, $chan),
-        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, prefix_nick($evt)),
+        channel    => $evt->to,
+        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->to),
+        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->nick),
         );
     BarnOwl::queue_message($msg);
+    $self->channels([ grep {$_ ne $evt->to} @{$self->channels}]);
 }
 
@@ -239 +188 @@
         loginout   => 'logout',
         action     => 'quit',
-        from       => $evt->{prefix},
-        reason     => $evt->{params}->[0],
-        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, prefix_nick($evt)),
-        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, prefix_nick($evt)),
+        from       => $evt->to,
+        reason     => [$evt->args]->[0],
+        replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->nick),
+        replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias, $evt->nick),
         );
     BarnOwl::queue_message($msg);
@@ -249 +198 @@
 sub disconnect {
     my $self = shift;
-    $self->conn->disconnect;
+    delete $BarnOwl::Module::IRC::ircnets{$self->alias};
+    for my $k (keys %BarnOwl::Module::IRC::channels) {
+        my @conns = grep {$_ ne $self} @{$BarnOwl::Module::IRC::channels{$k}};
+        if(@conns) {
+            $BarnOwl::Module::IRC::channels{$k} = \@conns;
+        } else {
+            delete $BarnOwl::Module::IRC::channels{$k};
+        }
+    }
+    BarnOwl::remove_io_dispatch($self->{FD});
+    $self->motd("");
 }
 
 sub on_disconnect {
-    my ($self, $why) = @_;
+    my ($self, $evt) = @_;
+    $self->disconnect;
     BarnOwl::admin_message('IRC',
-                           "[" . $self->alias . "] Disconnected from server: $why");
-    $self->motd("");
-    if (!$self->did_quit) {
+                           "[" . $self->alias . "] Disconnected from server");
+    if ($evt->format and $evt->format eq "error") {
         $self->schedule_reconnect;
     } else {
-        delete $BarnOwl::Module::IRC::ircnets{$self->alias};
-    }
-}
-
-sub on_error {
-    my ($self, $evt) = @_;
-    BarnOwl::admin_message('IRC',
+        $self->channels([]);
+    }
+}
+
+sub on_nickinuse {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message("IRC",
                            "[" . $self->alias . "] " .
-                           "Error: " . join(" ", @{$evt->{params}}));
-}
-
-sub on_nickinuse {
-    my ($self, $evt) = @_;
-    BarnOwl::admin_message("IRC",
-                           "[" . $self->alias . "] " .
-                           $evt->{params}->[1] . ": Nick already in use");
-}
-
-sub on_nick {
-    my ($self, $old_nick, $new_nick, $is_me) = @_;
-    if ($is_me) {
+                           [$evt->args]->[1] . ": Nick already in use");
+    $self->disconnect unless $self->motd;
+}
+
+sub on_topic {
+    my ($self, $evt) = @_;
+    my @args = $evt->args;
+    if (scalar @args > 1) {
         BarnOwl::admin_message("IRC",
-                               "[" . $self->alias . "] " .
-                               "You are now known as $new_nick");
-    } else {
-        my $msg = $self->new_message('',
-            loginout   => 'login',
-            action     => 'nick change',
-            from       => $new_nick,
-            sender     => $new_nick,
-            replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias,
-                                         $new_nick),
-            replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias,
-                                             $new_nick),
-            old_nick   => $old_nick);
-        BarnOwl::queue_message($msg);
-    }
-}
-
-sub on_topic {
-    my ($self, $channel, $topic, $who) = @_;
-    if ($channel) {
-        BarnOwl::admin_message("IRC",
-                "Topic for $channel on " . $self->alias . " is $topic");
+                "Topic for $args[1] on " . $self->alias . " is $args[2]");
     } else {
         BarnOwl::admin_message("IRC",
-                "Topic changed to $channel");
+                "Topic changed to $args[0]");
     }
 }
@@ -312 +245 @@
 sub on_topicinfo {
     my ($self, $evt) = @_;
-    my @args = @{$evt->{params}};
+    my @args = $evt->args;
     BarnOwl::admin_message("IRC",
         "Topic for $args[1] set by $args[2] at " . localtime($args[3]));
@@ -324 +257 @@
     my ($self, $evt) = @_;
     return unless $self->names_tmp;
-    $self->names_tmp([@{$self->names_tmp},
-                      map {prefix_nick($_)} split(' ', $evt->{params}[3])]);
+    $self->names_tmp([@{$self->names_tmp}, split(' ', [$evt->args]->[3])]);
 }
 
@@ -340 +272 @@
     my ($self, $evt) = @_;
     return unless $self->names_tmp;
-    my $names = BarnOwl::Style::boldify("Members of " . $evt->{params}->[1] . ":\n");
+    my $names = BarnOwl::Style::boldify("Members of " . [$evt->args]->[1] . ":\n");
     for my $name (sort {cmp_user($a, $b)} @{$self->names_tmp}) {
         $names .= "  $name\n";
@@ -350 +282 @@
 sub on_whois {
     my ($self, $evt) = @_;
-    my %names = (
-        311 => 'user',
-        312 => 'server',
-        319 => 'channels',
-        330 => 'whowas',
-       );
     $self->whois_tmp(
-        $self->whois_tmp . "\n" . $names{$evt->{command}} . ":\n  " .
-        join("\n  ", cdr(cdr(@{$evt->{params}}))) . "\n"
-       );
+      $self->whois_tmp . "\n" . $evt->type . ":\n  " .
+      join("\n  ", cdr(cdr($evt->args))) . "\n"
+    );
 }
 
@@ -365 +291 @@
     my ($self, $evt) = @_;
     BarnOwl::popless_ztext(
-        BarnOwl::Style::boldify("/whois for " . $evt->{params}->[1] . ":\n") .
+        BarnOwl::Style::boldify("/whois for " . [$evt->args]->[1] . ":\n") .
         $self->whois_tmp
     );
@@ -374 +300 @@
     my ($self, $evt) = @_;
     BarnOwl::admin_message("IRC",
-                           "[" . $self->alias . "] User " . (prefix_nick($evt)) . + " set mode " .
-                           join(" ", cdr(@{$evt->{params}})) . " on " . $evt->{params}->[0]
+                           "[" . $self->alias . "] User " . ($evt->nick) . + " set mode " .
+                           join(" ", $evt->args) . "on " . $evt->to->[0]
                           );
 }
 
-sub on_nosuch {
-    my ($self, $evt) = @_;
-    my %things = (401 => 'nick', 402 => 'server', 403 => 'channel');
+sub on_nosuchchannel {
+    my ($self, $evt) = @_;
     BarnOwl::admin_message("IRC",
                            "[" . $self->alias . "] " .
-                           "No such @{[$things{$evt->{command}}]}: @{[$evt->{params}->[1]]}")
+                           "No such channel: " . [$evt->args]->[1])
 }
 
@@ -398 +323 @@
 sub schedule_reconnect {
     my $self = shift;
-    my $interval = $self->backoff;
-    if ($interval) {
-        $interval *= 2;
-        $interval = 60*5 if $interval > 60*5;
-    } else {
-        $interval = 5;
-    }
-    $self->backoff($interval);
-
+    my $interval = shift || 5;
+    delete $BarnOwl::Module::IRC::ircnets{$self->alias};
+    $BarnOwl::Module::IRC::reconnect{$self->alias} = $self;
     my $weak = $self;
     weaken($weak);
@@ -424 +343 @@
 sub cancel_reconnect {
     my $self = shift;
-
+    delete $BarnOwl::Module::IRC::reconnect{$self->alias};
     if (defined $self->{reconnect_timer}) {
         $self->{reconnect_timer}->stop;
     }
     delete $self->{reconnect_timer};
-}
-
-sub on_connect {
-    my $self = shift;
-    $self->connected("Connected to " . $self->alias . " as " . $self->nick)
 }
 
@@ -441 +355 @@
     BarnOwl::admin_message("IRC", $msg);
     $self->cancel_reconnect;
-    if ($self->autoconnect_channels) {
-        for my $c (@{$self->autoconnect_channels}) {
-            $self->conn->send_msg(join => $c);
-        }
-        $self->autoconnect_channels([]);
-    }
-    $self->conn->enable_ping(60, sub {
-                                 $self->on_disconnect("Connection timed out.");
-                                 $self->schedule_reconnect;
-                             });
-    $self->backoff(0);
+    $BarnOwl::Module::IRC::ircnets{$self->alias} = $self;
+    my $fd = $self->getSocket()->fileno();
+    BarnOwl::add_io_dispatch($fd, 'r', \&BarnOwl::Module::IRC::OwlProcess);
+    $self->{FD} = $fd;
 }
 
 sub reconnect {
     my $self = shift;
-    my $backoff = $self->backoff;
-
-    $self->autoconnect_channels([keys(%{$self->{channel_list}})]);
-    $self->conn->connect(@{$self->connect_args});
+    my $backoff = shift;
+
+    $self->conn->connect;
+    if ($self->conn->connected) {
+        $self->connected("Reconnected to ".$self->alias);
+        my @channels = @{$self->channels};
+        $self->channels([]);
+        $self->conn->join($_) for @channels;
+        return;
+    }
+
+    $backoff *= 2;
+    $backoff = 60*5 if $backoff > 60*5;
+    $self->schedule_reconnect( $backoff );
 }
 

perlconfig.c

@@ -403 +403 @@
   }
 
-  sv_setpv(get_sv("BarnOwl::VERSION", TRUE), OWL_VERSION_STRING);
-
   /* Add the system lib path to @INC */
   inc = get_av("INC", 0);
@@ -467 +465 @@
                                            :"BarnOwl::_receive_msg_legacy_wrap", m);
   }
-  g_free(ptr);
+  if (ptr) g_free(ptr);
 }
 
@@ -478 +476 @@
                                            :"BarnOwl::Hooks::_new_msg", m);
   }
-  g_free(ptr);
+  if (ptr) g_free(ptr);
 }
 

perlglue.xs

@@ -43 +43 @@
                         rv = owl_function_command(cmd);
                 } else {
-                        /* Ensure this is NULL-terminated. */
-                        argv = g_new0(const char *, items + 1);
+                        argv = g_new(const char *, items + 1);
                         argv[0] = cmd;
                         for(i = 1; i < items; i++) {
@@ -57 +56 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 SV *
@@ -114 +113 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 const utf8 *
@@ -141 +140 @@
                 RETVAL
     CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 void
@@ -324 +323 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv)
+                        g_free(rv);
 
 void

select.c

@@ -321 +321 @@
 }
 
-#if 0
-/* FIXME: Reimplement this check in the glib world. */
-static void owl_select_prune_bad_fds(void) {
-  owl_list *dl = owl_global_get_io_dispatch_list(&g);
-  int len, i;
-  struct stat st;
-  owl_io_dispatch *d;
-
-  len = owl_list_get_size(dl);
-  for (i = 0; i < len; i++) {
-    d = owl_list_get_element(dl, i);
-    if (fstat(d->fd, &st) < 0 && errno == EBADF) {
-      owl_function_debugmsg("Pruning defunct dispatch on fd %d.", d->fd);
-      d->needs_gc = 1;
-    }
-  }
-  owl_select_io_dispatch_gc();
-}
-#endif
-
 typedef struct _owl_task { /*noproto*/
   void (*cb)(void *);

tester.c

@@ -233 +233 @@
 
   printf("# BEGIN testing owl_dict\n");
-  owl_dict_create(&d);
+  FAIL_UNLESS("create", 0==owl_dict_create(&d));
   FAIL_UNLESS("insert b", 0==owl_dict_insert_element(&d, "b", bv, owl_dict_noop_delete));
   FAIL_UNLESS("insert d", 0==owl_dict_insert_element(&d, "d", dv, owl_dict_noop_delete));
@@ -249 +249 @@
   FAIL_UNLESS("get_size", 3==owl_dict_get_size(&d));
   owl_list_create(&l);
-  owl_dict_get_keys(&d, &l);
+  FAIL_UNLESS("get_keys", 0==owl_dict_get_keys(&d, &l));
   FAIL_UNLESS("get_keys result size", 3==owl_list_get_size(&l));
   

text.c

@@ -275 +275 @@
   g_strfreev(split);
   return out;
+}
+
+/* replace all instances of character a in buff with the character
+ * b.  buff must be null terminated.
+ */
+void owl_text_tr(char *buff, char a, char b)
+{
+  int i;
+
+  owl_function_debugmsg("In: %s", buff);
+  for (i=0; buff[i]!='\0'; i++) {
+    if (buff[i]==a) buff[i]=b;
+  }
+  owl_function_debugmsg("Out: %s", buff);
 }
 

util.c

@@ -715 +715 @@
 }
 
-int owl_util_get_colorpairs(void) {
-#ifndef NCURSES_EXT_COLORS
-  /* Without ext-color support (an ABI change), ncurses only supports 256
-   * different color pairs. However, it gives us a larger number even if your
-   * ncurses is compiled without ext-color. */
-  return MIN(COLOR_PAIRS, 256);
-#else
-  return COLOR_PAIRS;
-#endif
-}
-
 gulong owl_dirty_window_on_signal(owl_window *w, gpointer sender, const gchar *detailed_signal)
 {

variable.c

@@ -30 +30 @@
         NULL, NULL, NULL, NULL, NULL, NULL }
 
-#define OWLVAR_STRING_FULL(name,default,validset,summary,description,validate,set,get) \
-        { name, OWL_VARIABLE_STRING, default, 0, validset, summary,description, NULL, \
+#define OWLVAR_STRING_FULL(name,default,summary,description,validate,set,get) \
+        { name, OWL_VARIABLE_STRING, default, 0, "<string>", summary,description, NULL, \
         validate, set, NULL, get, NULL, NULL }
 
@@ -266 +266 @@
                  "" ),
 
-  OWLVAR_STRING_FULL( "tty" /* %OwlVarStub */, "", "<string>", "tty name for zephyr location", "",
+  OWLVAR_STRING_FULL( "tty" /* %OwlVarStub */, "", "tty name for zephyr location", "",
                       NULL, owl_variable_tty_set, NULL),
 
@@ -370 +370 @@
                "delete a message right as it came in.\n" ),
 
-  OWLVAR_STRING_FULL( "default_exposure" /* %OwlVarStub */, "",
-                      "none,opstaff,realm-visible,realm-announced,net-visible,net-announced",
-                      "controls the persistent value for exposure",
-                      "The default exposure level corresponds to the Zephyr exposure value\n"
-                      "in ~/.zephyr.vars.  Defaults to realm-visible if there is no value in\n"
-                      "~/.zephyr.vars.\n"
-                      "See the description of exposure for the values this can be.",
-                      NULL, owl_variable_default_exposure_set, owl_variable_default_exposure_get ),
-
-  OWLVAR_STRING_FULL( "exposure" /* %OwlVarStub */, "",
-                      "none,opstaff,realm-visible,realm-announced,net-visible,net-announced",
-                      "controls who can zlocate you",
-                      "The exposure level, defaulting to the value of default_exposure,\n"
-                      "can be one of the following (from least exposure to widest exposure,\n"
-                      "as listed in zctl(1)):\n"
-                      "\n"
-                      "   none            - This completely disables Zephyr for the user. \n"
-                      "                     The user is not registered with Zephyr.  No user\n"
-                      "                     location information is retained by Zephyr.  No\n"
-                      "                     login or logout announcements will be sent.  No\n"
-                      "                     subscriptions will be entered for the user, and\n"
-                      "                     no notices will be displayed by zwgc(1).\n"
-                      "   opstaff         - The user is registered with Zephyr.  No login or\n"
-                      "                     logout announcements will be sent, and location\n"
-                      "                     information will only be visible to Operations\n"
-                      "                     staff.  Default subscriptions and any additional\n"
-                      "                     personal subscriptions will be entered for the\n"
-                      "                     user.\n"
-                      "   realm-visible   - The user is registered with Zephyr.  User\n"
-                      "                     location information is retained by Zephyr and\n"
-                      "                     made available only to users within the user’s\n"
-                      "                     Kerberos realm.  No login or logout\n"
-                      "                     announcements will be sent.  This is the system\n"
-                      "                     default.  Default subscriptions and any\n"
-                      "                     additional personal subscriptions will be\n"
-                      "                     entered for the user.\n"
-                      "   realm-announced - The user is registered with Zephyr.  User\n"
-                      "                     location information is retained by Zephyr and\n"
-                      "                     made available only to users authenticated\n"
-                      "                     within the user’s Kerberos realm.  Login and\n"
-                      "                     logout announcements will be sent, but only to\n"
-                      "                     users within the user’s Kerberos realm who have\n"
-                      "                     explicitly requested such via subscriptions. \n"
-                      "                     Default subscriptions and any additional\n"
-                      "                     personal subscriptions will be entered for the\n"
-                      "                     user.\n"
-                      "   net-visible     - The user is registered with Zephyr.  User\n"
-                      "                     location information is retained by Zephyr and\n"
-                      "                     made available to any authenticated user who\n"
-                      "                     requests such.  Login and logout announcements\n"
-                      "                     will be sent only to users within the user’s\n"
-                      "                     Kerberos realm who have explicitly requested\n"
-                      "                     such via subscriptions.  Default subscriptions\n"
-                      "                     and any additional personal subscriptions will\n"
-                      "                     be entered for the user.\n"
-                      "   net-announced   - The user is registered with Zephyr.  User\n"
-                      "                     location information is retained by Zephyr and\n"
-                      "                     made available to any authenticated user who\n"
-                      "                     requests such.  Login and logout announcements\n"
-                      "                     will be sent to any user has requested such. \n"
-                      "                     Default subscriptions and any additional\n"
-                      "                     personal subscriptions will be entered for the\n"
-                      "                     user.\n",
-                      NULL, owl_variable_exposure_set, NULL /* use default for get */ ),
-
   /* This MUST be last... */
   { NULL, 0, NULL, 0, NULL, NULL, NULL, NULL,
@@ -535 +470 @@
 }
 
-int owl_variable_default_exposure_set(owl_variable *v, const void *newval)
-{
-  return owl_zephyr_set_default_exposure(newval);
-}
-
-const void *owl_variable_default_exposure_get(const owl_variable *v)
-{
-  return owl_zephyr_get_default_exposure();
-}
-
-int owl_variable_exposure_set(owl_variable *v, const void *newval)
-{
-  int ret = owl_zephyr_set_exposure(newval);
-  if (ret != 0)
-    return ret;
-  return owl_variable_string_set_default(v, owl_zephyr_normalize_exposure(newval));
-}
 
 /**************************************************************************/
@@ -559 +477 @@
 int owl_variable_dict_setup(owl_vardict *vd) {
   owl_variable *var, *cur;
-  owl_dict_create(vd);
+  if (owl_dict_create(vd)) return(-1);
   for (var = variables_to_init; var->name != NULL; var++) {
     cur = g_new(owl_variable, 1);
@@ -641 +559 @@
 
 void owl_variable_update(owl_variable *var, const char *summary, const char *desc) {
-  g_free(var->summary);
+  if(var->summary) g_free(var->summary);
   var->summary = g_strdup(summary);
-  g_free(var->description);
+  if(var->description) g_free(var->description);
   var->description = g_strdup(desc);
 }
@@ -651 +569 @@
   if(old) {
     owl_variable_update(old, summ, desc);
-    g_free(old->pval_default);
+    if(old->pval_default) g_free(old->pval_default);
     old->pval_default = g_strdup(initval);
   } else {
@@ -770 +688 @@
   }
   if (msg && v->get_tostring_fn) {
-    tostring = v->get_tostring_fn(v, v->get_fn(v));
+    tostring = v->get_tostring_fn(v, v->val);
     owl_function_makemsg("%s = '%s'", name, tostring);
     g_free(tostring);
@@ -808 +726 @@
   v = owl_dict_find_element(d, name);
   if (v == NULL || !v->get_tostring_fn) return NULL;
-  return v->get_tostring_fn(v, v->get_fn(v));
+  return v->get_tostring_fn(v, v->val);
 }
 
@@ -944 +862 @@
 void owl_variable_delete_default(owl_variable *v)
 {
-  g_free(v->val);
+  if (v->val) g_free(v->val);
 }
 
@@ -1076 +994 @@
     if (!v->validate_fn(v, newval)) return(-1);
   }
-  g_free(v->val);
+  if (v->val) g_free(v->val);
   v->val = g_strdup(newval);
   return(0);

view.c

@@ -160 +160 @@
 {
   owl_list_cleanup(&v->ml.list, NULL);
-  g_free(v->name);
+  if (v->name) g_free(v->name);
 }

viewwin.c

@@ -150 +150 @@
 
   if (!owl_viewwin_search(v, owl_global_get_search_re(&g), consider_current, direction))
-    owl_function_makemsg("No more matches");
+    owl_function_error("No more matches");
   return NULL;
 }
@@ -172 +172 @@
   if (!owl_viewwin_search(data->v, owl_global_get_search_re(&g),
                           consider_current, data->direction))
-    owl_function_makemsg("No matches");
+    owl_function_error("No matches");
 }
 

window.c

@@ -547 +547 @@
   /* update the terminal if we need to */
   owl_window_redraw_scheduled();
-  /* On colorpair shortage, reset and redraw /everything/. NOTE: if we
-   * still overflow, this be useless work. With 8-colors, we get 64
-   * pairs. With 256-colors, we get 32768 pairs with ext-colors
-   * support and 256 otherwise. */
+  /* On colorpair shortage, reset and redraw /everything/. NOTE: if
+   * the current screen uses too many colorpairs, this draws
+   * everything twice. But this is unlikely; COLOR_PAIRS is 64 with
+   * 8+1 colors, and 256^2 with 256+1 colors. (+1 for default.) */
   cpmgr = owl_global_get_colorpair_mgr(&g);
   if (cpmgr->overflow) {
-    owl_function_debugmsg("colorpairs: used all %d pairs; reset pairs and redraw.",
-                          owl_util_get_colorpairs());
+    owl_function_debugmsg("colorpairs: color shortage; reset pairs and redraw. COLOR_PAIRS = %d", COLOR_PAIRS);
     owl_fmtext_reset_colorpairs(cpmgr);
     owl_function_full_redisplay();

zcrypt.c

@@ -476 +476 @@
 
   for(i = 0; i < MAX_SEARCH; i++) {
-    g_free(varname[i]);
-  }
-
-  g_free(filename);
+    if(varname[i] != NULL) {
+      g_free(varname[i]);
+    }
+  }
+
+  if(filename != NULL) {
+    g_free(filename);
+  }
 
   return keyfile;
@@ -769 +773 @@
   err = call_filter("gpg", argv, in, &out, &status);
   if(err || status) {
-    g_free(out);
+    if(out) g_free(out);
     return FALSE;
   }
@@ -852 +856 @@
   err = call_filter("gpg", argv, in, &out, &status);
   if(err || status) {
-    g_free(out);
+    if(out) g_free(out);
     return FALSE;
   }

zephyr.c

@@ -447 +447 @@
     return 0;
   }
-  g_free(buffer);
+  if (buffer)
+    g_free(buffer);
 
   return owl_zephyr_loadsubs_helper(subs, count);
@@ -1048 +1049 @@
 {
 #ifdef HAVE_LIBZEPHYR
+  char *exposure, *eset;
+  Code_t ret;
+
   ZResetAuthentication();
 
-  /* ZSetLocation, and store the default value as the current value */
-  owl_global_set_exposure(&g, owl_global_get_default_exposure(&g));
+  eset = EXPOSE_REALMVIS;
+  exposure = ZGetVariable(zstr("exposure"));
+  if (exposure)
+    exposure = ZParseExposureLevel(exposure);
+  if (exposure)
+    eset = exposure;
+   
+  ret = ZSetLocation(eset);
+  if (ret != ZERR_NONE)
+    owl_function_error("Error setting location: %s", error_message(ret));
 #endif
 }
@@ -1172 +1184 @@
   ZInitLocationInfo(zstr(host), zstr(val));
 #endif
-}
-
-const char *owl_zephyr_normalize_exposure(const char *exposure)
-{
-  if (exposure == NULL)
-    return NULL;
-#ifdef HAVE_LIBZEPHYR
-  return ZParseExposureLevel(zstr(exposure));
-#else
-  return exposure;
-#endif
-}
-
-int owl_zephyr_set_default_exposure(const char *exposure)
-{
-#ifdef HAVE_LIBZEPHYR
-  Code_t ret;
-  if (exposure == NULL)
-    return -1;
-  exposure = ZParseExposureLevel(zstr(exposure));
-  if (exposure == NULL)
-    return -1;
-  ret = ZSetVariable(zstr("exposure"), zstr(exposure)); /* ZSetVariable does file I/O */
-  if (ret != ZERR_NONE) {
-    owl_function_error("Unable to set default exposure location: %s", error_message(ret));
-    return -1;
-  }
-#endif
-  return 0;
-}
-
-const char *owl_zephyr_get_default_exposure(void)
-{
-#ifdef HAVE_LIBZEPHYR
-  const char *exposure = ZGetVariable(zstr("exposure")); /* ZGetVariable does file I/O */
-  if (exposure == NULL)
-    return EXPOSE_REALMVIS;
-  exposure = ZParseExposureLevel(zstr(exposure));
-  if (exposure == NULL) /* The user manually entered an invalid value in ~/.zephyr.vars, or something weird happened. */
-    return EXPOSE_REALMVIS;
-  return exposure;
-#else
-  return "";
-#endif
-}
-
-int owl_zephyr_set_exposure(const char *exposure)
-{
-#ifdef HAVE_LIBZEPHYR
-  Code_t ret;
-  if (exposure == NULL)
-    return -1;
-  exposure = ZParseExposureLevel(zstr(exposure));
-  if (exposure == NULL)
-    return -1;
-  ret = ZSetLocation(zstr(exposure));
-  if (ret != ZERR_NONE) {
-    owl_function_error("Unable to set exposure level: %s.", error_message(ret));
-    return -1;
-  }
-#endif
-  return 0;
 }
   

zwrite.c

@@ -185 +185 @@
 void owl_zwrite_set_message_raw(owl_zwrite *z, const char *msg)
 {
-  g_free(z->message);
+  if (z->message) g_free(z->message);
   z->message = owl_validate_utf8(msg);
 }
@@ -195 +195 @@
   char *tmp = NULL, *tmp2;
 
-  g_free(z->message);
+  if (z->message) g_free(z->message);
 
   j=owl_list_get_size(&(z->recips));
@@ -289 +289 @@
 void owl_zwrite_set_opcode(owl_zwrite *z, const char *opcode)
 {
-  g_free(z->opcode);
+  if (z->opcode) g_free(z->opcode);
   z->opcode=owl_validate_utf8(opcode);
 }
@@ -306 +306 @@
 void owl_zwrite_set_zsig(owl_zwrite *z, const char *zsig)
 {
-  g_free(z->zsig);
+  if(z->zsig) g_free(z->zsig);
   z->zsig = g_strdup(zsig);
 }
@@ -353 +353 @@
 {
   owl_list_cleanup(&(z->recips), &g_free);
-  g_free(z->cmd);
-  g_free(z->zwriteline);
-  g_free(z->class);
-  g_free(z->inst);
-  g_free(z->opcode);
-  g_free(z->realm);
-  g_free(z->message);
-  g_free(z->zsig);
+  if (z->cmd) g_free(z->cmd);
+  if (z->zwriteline) g_free(z->zwriteline);
+  if (z->class) g_free(z->class);
+  if (z->inst) g_free(z->inst);
+  if (z->opcode) g_free(z->opcode);
+  if (z->realm) g_free(z->realm);
+  if (z->message) g_free(z->message);
+  if (z->zsig) g_free(z->zsig);
 }