Changeset 87c6ef1 for perlwrap.pm

Timestamp:

Jul 30, 2003, 1:03:04 PM (21 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2404c3a

Parents:

c82b055

Message:

Added some base methods (eg, for login_host) that return undef.

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -62 +62 @@
 sub is_ping     { return 0; }
 sub is_mail     { return 0; }
+sub is_personal { return undef; }
+sub is_private  { return undef; }
 sub class       { return undef; }
 sub instance    { return undef; }
@@ -73 +75 @@
 sub zsig        { return undef; }
 sub zwriteline  { return undef; }
+sub login_host  { return undef; }
+sub login_tty   { return undef; }
 
 sub pretty_sender { return shift->sender; }
@@ -124 +128 @@
     $owl::host       = $m->host      ;
     $owl::login      = $m->login     ;
+    $owl::auth       = $m->auth      ;
     if ($m->fields) {
         @owl::fields = @{$m->fields};