Changeset ca53b77

Timestamp:

Apr 23, 2009, 6:59:27 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

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

Children:

2b6de9d

Parents:

b814715

Message:

Make personal replies to webzephyr users work again

Signed-off-by: Geoffrey Thomas <geofft@mit.edu>

File:

• perlwrap.pm (modified) (2 diffs)

perlwrap.pm

@@ -632 +632 @@
     if($sender && $self->opcode eq WEBZEPHYR_OPCODE) {
         $class = WEBZEPHYR_CLASS;
-        $instance = $self->sender;
+        $instance = $self->pretty_sender;
         $to = WEBZEPHYR_PRINCIPAL;
     } elsif($self->class eq WEBZEPHYR_CLASS
@@ -663 +663 @@
 
     if (lc $class ne 'message') {
-        $cmd .= " -c " . BarnOwl::quote($self->class);
+        $cmd .= " -c " . BarnOwl::quote($class);
     }
     if (lc $instance ne 'personal') {
-        $cmd .= " -i " . BarnOwl::quote($self->instance);
+        $cmd .= " -i " . BarnOwl::quote($instance);
     }
     if ($to ne '') {