Changeset 426735d


Ignore:
Timestamp:
May 12, 2008, 7:03:51 PM (17 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
6b3878b
Parents:
8c93479
Message:
* Move time_hhmm into a format_time method
* Remove prototypes from perlwrap.pm
File:
1 edited

Legend:

Unmodified
Added
Removed

  • perlwrap.pm

    r0eaa488 r426735d  
    779779# Branching point for various formatting functions in this style.
    780780################################################################################
    781 sub format_message($)
     781sub format_message
    782782{
    783783    my $self = shift;
    … …  
    810810################################################################################
    811811
    812 sub time_hhmm {
     812sub format_time {
     813    my $m = shift;
    813814    my $m = shift;
    814815    my ($time) = $m->time =~ /(\d\d:\d\d)/;
    … …  
    816817}
    817818
    818 sub format_login($) {
     819sub format_login {
    819820    my $self = shift;
    820821    my $m = shift;
    … …  
    825826        $m->pretty_sender,
    826827        $m->login_extra,
    827         time_hhmm($m)
     828        $self->format_time($m)
    828829       );
    829830}
    … …  
    841842}
    842843
    843 sub format_chat($) {
     844sub format_chat {
    844845    my $self = shift;
    845846    my $m = shift;
    … …  
    869870        $header .= " [" . $m->opcode . "]";
    870871    }
    871     $header .= "  " . time_hhmm($m);
     872    $header .= "  " . $self->format_time($m);
    872873    $header .= $self->format_sender($m);
    873874    return $header;
    … …  
    882883}
    883884
    884 sub indent_body($)
     885sub indent_body
    885886{
    886887    my $self = shift;
    … …  
    918919################################################################################
    919920
    920 sub format_login($) {
     921sub format_login {
    921922  my $self = shift;
    922923  my $m = shift;
    … …  
    930931}
    931932
    932 sub format_ping($) {
     933sub format_ping {
    933934  my $self = shift;
    934935  my $m = shift;
    … …  
    941942}
    942943
    943 sub format_chat($)
     944sub format_chat
    944945{
    945946  my $self = shift;
    … …  
    981982
    982983# Format owl admin messages
    983 sub format_admin($)
     984sub format_admin
    984985{
    985986  my $self = shift;
    … …  
    995996# This takes a zephyr to be displayed and modifies it to be displayed
    996997# entirely in bold.
    997 sub boldify($)
     998sub boldify
    998999{
    9991000    local $_ = shift;
Note: See TracChangeset for help on using the changeset viewer.