Changes in perlwrap.pm [42947f1:18fb3d4f]

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -21 +21 @@
 };
 
-use lib(get_data_dir()."/lib");
-use lib($ENV{HOME}."/.owl/lib");
-
+use lib(get_data_dir() . "/lib");
+use lib(get_config_dir() . "/lib");
+
+# perlconfig.c will set this to the value of the -c command-line
+# switch, if present.
 our $configfile;
 
@@ -520 +522 @@
     if ( $m->is_loginout) {
         return format_login($m);
-    } elsif($m->is_ping) {
+    } elsif($m->is_ping && $m->is_personal) {
         return ( "\@b(PING) from \@b(" . $m->pretty_sender . ")\n" );
     } elsif($m->is_admin) {
@@ -568 +570 @@
     }
 
+    if($m->opcode) {
+        $header .= " [" . $m->opcode . "]";
+    }
     $header .= "  " . time_hhmm($m);
     my $sender = $m->long_sender;