Changeset 5738650 for perl


Ignore:
Timestamp:
Feb 22, 2011, 11:09:32 PM (13 years ago)
Author:
Nelson Elhage <nelhage@nelhage.com>
Branches:
master, release-1.10, release-1.8, release-1.9
Children:
60d7935
Parents:
8a97586
git-author:
Adam Glasgall <adam@crossproduct.net> (02/10/11 20:47:32)
git-committer:
Nelson Elhage <nelhage@nelhage.com> (02/22/11 23:09:32)
Message:
Prepend "UNAUTH: " to displayed sender for unauthenticated zephyrs

This patch extends the default style to indicate if a zephyr message
is unauthenticated.

[nelhage@nelhage.com: Tweak the styling, and also catch personals.]
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Style/Default.pm

    r08544e0 r5738650  
    9797            $header = ucfirst $m->type . $personal_context . " sent to " . $m->pretty_recipient;
    9898        } else {
    99             $header = ucfirst $m->type . $personal_context . " from " . $m->pretty_sender;
     99            $header = ucfirst $m->type . $personal_context . " from ";
     100            if(defined($m->auth) && ($m->auth ne "YES")) {
     101                $header .= "UNAUTH: ";
     102            }
     103            $header .= maybe($m->pretty_sender);
    100104        }
    101105    } else {
     
    104108            $header .= ' / ' . $self->humanize($m->subcontext, 1);
    105109        }
    106         $header .= ' / @b{' . maybe($m->pretty_sender) . '}';
     110        $header .= ' / ';
     111        if(defined($m->auth) && ($m->auth ne "YES")) {
     112            $header .= "UNAUTH: ";
     113        }
     114        $header .= '@b{' . maybe($m->pretty_sender) . '}';
    107115    }
    108116
Note: See TracChangeset for help on using the changeset viewer.