Changeset e08487a for perl/lib/BarnOwl/Message
- Timestamp:
- Aug 5, 2017, 11:23:02 PM (7 years ago)
- Children:
- 9410677
- Parents:
- 4bbe53a
- git-author:
- Jason Gross <jgross@mit.edu> (07/12/11 12:34:46)
- git-committer:
- Jason Gross <jgross@mit.edu> (08/05/17 23:23:02)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Message/Zephyr.pm
r0adbce1 re08487a 223 223 } 224 224 225 # Logging 226 sub log_header { 227 my ($m) = @_; 228 my $class = $m->class; 229 my $instance = $m->instance; 230 my $opcode = $m->opcode; 231 my $timestr = $m->time; 232 my $host = $m->host; 233 my $sender = $m->pretty_sender; 234 my $zsig = $m->zsig; 235 my $rtn = "Class: $class Instance: $instance"; 236 $rtn .= " Opcode: $opcode" unless !defined $opcode || $opcode eq ''; 237 $rtn .= "\nTime: $timestr Host: $host" 238 . "\nFrom: $zsig <$sender>"; 239 return $rtn; 240 } 225 241 226 242 1;
Note: See TracChangeset
for help on using the changeset viewer.