Changeset 32047

Show
Ignore:
Timestamp:
04/07/09 11:04:56 (4 years ago)
Author:
daisuke
Message:

implement a ! escape

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Morris/trunk/lib/Morris/Plugin/Channel/PeekURL.pm

    r30137 r32047  
    2828 
    2929    my $message = $args->{message}->message; 
    30     while ( $message =~ m{(?:(https?):)(?://([^\s/?#]*))([^\s?#]*)(?:\?([^\s#]*))?(?:#(.*))?}g ) { 
    31         my ($scheme, $authority, $path, $query, $fragment) = ($1, $2, $3, $4, $5); 
     30    while ( $message =~ m{(!)?(?:(https?):)(?://([^\s/?#]*))([^\s?#]*)(?:\?([^\s#]*))?(?:#(.*))?}g ) { 
     31        my $do_peek = defined($1) ? 0 : 1; 
     32        my ($scheme, $authority, $path, $query, $fragment) = ($2, $3, $4, $5, $6); 
     33        next unless $do_peek; 
    3234        next unless $scheme && $scheme =~ /^http/i; 
    3335        next unless $authority;