Changeset 90
- Timestamp:
- 09/15/06 04:13:45 (2 years ago)
- Files:
-
- trunk/lib/PrlMnks/Plugin/Out.pm (modified) (1 diff)
- trunk/lib/PrlMnks/Template.pm (modified) (1 diff)
- trunk/t/plugin/out/out.t (modified) (1 diff)
- trunk/t/template/alter_links.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lib/PrlMnks/Plugin/Out.pm
r86 r90 12 12 id => sub { 13 13 my $id = shift; 14 return "http://www.perlmonks.org/index.pl?node_id=$id"; 14 return "http://www.perlmonks.org/index.pl?node_id=" . uri_escape($id); 15 }, 16 node => sub { 17 my $node = shift; 18 return "http://www.perlmonks.org/index.pl?node=" . uri_escape($node); 15 19 }, 16 20 mod => sub { 17 21 my $module = shift; 18 22 $module =~ s{::}{-}g; 19 return "http://search.cpan.org/dist/ $module";23 return "http://search.cpan.org/dist/" . uri_escape($module); 20 24 }, 21 25 ); trunk/lib/PrlMnks/Template.pm
r85 r90 69 69 s{ \[ \s* ([a-z]+) ://([^\]]+) \s* \] } 70 70 { _link_to_out( $1, $2 ) }xeg; 71 72 # [id://1234] 73 s{ \[ ([^\]]+) \] } 74 { _link_to_out( 'node', $1 ) }xeg; 71 75 72 76 # href="/index.pl?node=Ovid&lastnode_id=1072" trunk/t/plugin/out/out.t
r86 r90 15 15 my %tests = ( 16 16 "/out/id/1234" => "$perlmonks/index.pl?node_id=1234", 17 "/out/node/abcd" => "$perlmonks/index.pl?node=abcd", 17 18 "/out/mod/DBD%3A%3APg" => "http://search.cpan.org/dist/DBD-Pg", 18 19 ); trunk/t/template/alter_links.t
r85 r90 45 45 --- 46 46 Monastery <a href="/html/508076.html">guidelines here</a> <br> 47 ------ 48 foo [bar] bundy 49 --- 50 foo <a href="/out/node/bar">bar</a> bundy 51 47 52 END_TEST_TEXT 48 53
