Changeset dd16bdd for perlwrap.pm

Timestamp:

Oct 27, 2006, 1:19:54 AM (18 years ago)

Author:

Nelson Elhage <nelhage@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:

1b6b2f3

Parents:

39c036d

Message:

Initial support for creating and injecting messages into the
display. Note that at the moment, you can easily segfault owl from
perl by injecting messages that don't contain fields owl assumes they
will.

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -62 +62 @@
 package owl::Message;
 
+sub new {
+    my $class = shift;
+    my %args = (@_);
+    if($class eq __PACKAGE__ && $args{type}) {
+        $class = "owl::Message::" . ucfirst $args{type};
+    }
+    return bless {%args}, $class;
+}
+
 sub type        { return shift->{"type"}; }
 sub direction   { return shift->{"direction"}; }
@@ -84 +93 @@
 sub is_admin    { return (shift->{"type"} eq "admin"); }
 sub is_generic  { return (shift->{"type"} eq "generic"); }
+sub is_jabber   { return (shift->{"type"} eq "jabber"); }
 
 # These are overridden by appropriate message types
@@ -251 +261 @@
 #####################################################################
 
+package owl::Message::Jabber;
+
+@ISA = qw( owl::Message );
+
+#####################################################################
+#####################################################################
+
 # switch to package main when we're done
 package main;