Changeset 918

Show
Ignore:
Timestamp:
10/30/07 20:29:27 (6 years ago)
Author:
tokuhirom
Message:

lang/perl/mobirc: s/canon_channel/normalize_channel_name/g;

Location:
lang/perl/mobirc/trunk/mobirc/lib/Mobirc
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/mobirc/trunk/mobirc/lib/Mobirc/HTTPD/Controller.pm

    r917 r918  
    164164        $c, 
    165165        'show_channel' => { 
    166             canon_channel  => canon_name($channel), 
     166            canon_channel  => normalize_channel_name($channel), 
    167167            channel        => $channel, 
    168168            subtitle       => compact_channel_name($channel), 
    … …  
    172172 
    173173    { 
    174         my $canon_channel = canon_name($channel); 
     174        my $canon_channel = normalize_channel_name($channel); 
    175175 
    176176        # clear unread counter 

  • lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm

    r906 r918  
    104104    $channel =~ s/ .*//; 
    105105 
    106     my $canon_channel = canon_name($channel); 
     106    my $canon_channel = normalize_channel_name($channel); 
    107107 
    108108    $poe->heap->{channel_name}->{$canon_channel} = $channel; 
    … …  
    131131    $channel =~ s/ .*//; 
    132132 
    133     my $canon_channel = canon_name($channel); 
     133    my $canon_channel = normalize_channel_name($channel); 
    134134 
    135135    my $irc = $poe->heap->{irc}; 
    … …  
    210210        ); 
    211211 
    212     $poe->heap->{channel_topic}->{canon_name($channel)} = $topic; 
     212    $poe->heap->{channel_topic}->{normalize_channel_name($channel)} = $topic; 
    213213 
    214214    $poe->heap->{seen_traffic}                  = true; 
    … …  
    225225    my ( $channel, $topic ) = split( / :/, $raw, 2 ); 
    226226 
    227     $poe->heap->{channel_topic}->{ canon_name($channel) } = $topic; 
     227    $poe->heap->{channel_topic}->{ normalize_channel_name($channel) } = $topic; 
    228228    $poe->heap->{seen_traffic}                  = true; 
    229229    $poe->heap->{disconnect_msg}                = true; 

  • lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm

    r916 r918  
    77use Encode; 
    88 
    9 our @EXPORT = qw/true false DEBUG compact_channel_name canon_name add_message daemonize decorate_irc_color/; 
     9our @EXPORT = qw/true false DEBUG compact_channel_name normalize_channel_name add_message daemonize decorate_irc_color/; 
    1010 
    1111sub true  () { 1 } ## no critic. 
    … …  
    3636# ------------------------------------------------------------------------- 
    3737 
    38 sub canon_name { 
     38sub normalize_channel_name { 
    3939    local ($_) = shift; 
    4040    tr/A-Z[\\]^/a-z{|}~/; 
    … …  
    7373    }; 
    7474 
    75     my $canon_channel = canon_name($channel); 
     75    my $canon_channel = normalize_channel_name($channel); 
    7676 
    7777    # update message log