Changeset 5bb0743 for perl/lib/BarnOwl/Message/Zephyr.pm
- Timestamp:
- Aug 5, 2017, 11:23:17 PM (7 years ago)
- Children:
- 45e137c
- Parents:
- 93e47c6
- git-author:
- Jason Gross <jgross@mit.edu> (08/03/17 15:29:32)
- git-committer:
- Jason Gross <jgross@mit.edu> (08/05/17 23:23:17)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Message/Zephyr.pm
rf065a96 r5bb0743 28 28 # characters; this way, we always get at least '@' in $user 29 29 my ($user, $realm) = split(/(?<=@)(?=[^@]+$)/, $principal); 30 return lc($user) . uc($realm); 30 $user = '' if !defined $user; 31 $user = lc($user); 32 $user = $user . uc($realm) if defined $realm; 33 return $user; 31 34 } 32 35
Note: See TracChangeset
for help on using the changeset viewer.