Changeset 186cdc4

Timestamp:

Feb 19, 2007, 7:04:08 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

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:

1cc95709

Parents:

a4e0ee8

Message:

Add loopwrite message class.
Trim trailing whitespace.

File:

• perlwrap.pm (modified) (12 diffs)

perlwrap.pm

@@ -33 +33 @@
 $configfile ||= $ENV{HOME}."/.owlconf";
 
-# populate global variable space for legacy owlconf files 
+# populate global variable space for legacy owlconf files
 sub _format_msg_legacy_wrap {
     my ($m) = @_;
@@ -40 +40 @@
 }
 
-# populate global variable space for legacy owlconf files 
+# populate global variable space for legacy owlconf files
 sub _receive_msg_legacy_wrap {
     my ($m) = @_;
@@ -166 +166 @@
                 $aval = $val->[$i];
                 $aval =~ s/\n/\n$f.$i: /g;
-                $s .= "$f.$i: $aval\n";    
+                $s .= "$f.$i: $aval\n";
             }
         } else {
@@ -239 +239 @@
 #####################################################################
 
+package BarnOwl::Message::Loopback;
+
+use base qw( BarnOwl::Message );
+
+# all loopback messages are personal
+sub is_personal {
+  return 1;
+}
+
+#####################################################################
+#####################################################################
+
 package BarnOwl::Message::AIM;
 
@@ -244 +256 @@
 
 # all non-loginout AIM messages are personal for now...
-sub is_personal { 
+sub is_personal {
     return !(shift->is_loginout);
 }
@@ -280 +292 @@
 }
 
-sub login_tty { 
+sub login_tty {
     my ($m) = @_;
     return undef if (!$m->is_loginout);
@@ -286 +298 @@
 }
 
-sub login_host { 
+sub login_host {
     my ($m) = @_;
     return undef if (!$m->is_loginout);
@@ -296 +308 @@
 sub is_ping     { return (lc(shift->opcode) eq "ping"); }
 
-sub is_personal { 
+sub is_personal {
     my ($m) = @_;
     return ((lc($m->class) eq "message")
@@ -303 +315 @@
 }
 
-sub is_mail { 
+sub is_mail {
     my ($m) = @_;
     return ((lc($m->class) eq "mail") && $m->is_private);
@@ -373 +385 @@
       BarnOwl::mainloop_hook() if *BarnOwl::mainloop_hook{CODE};
   }
-    
+
   @BarnOwl::Hooks::onMainLoop = ();
   @BarnOwl::Hooks::onStartSubs = ();
@@ -388 +400 @@
 }
 
-sub reload_init () 
+sub reload_init ()
 {
     BarnOwl::command('alias reload perl BarnOwl::reload()');
@@ -589 +601 @@
 {
     my $m = shift;
-    
+
     my $body = $m->body;
-    # replace newline followed by anything with 
+    # replace newline followed by anything with
     # newline plus four spaces and that thing.
     $body =~ s/\n(.)/\n    $1/g;