1 package VJournal::Format;
4 @EXPORT=qw(format_post format_tape format_comment);
9 lj=>{uri=>'http://%s.livejournal.com',convertunderscore=>1,image=>'lj.gif'},
10 ljr=>{uri=>'http://lj.rossia.org/users/%s',convertunderscore=>0,image=>'ljr.gif'},
11 dw=>{uri=>'http://%s.dreamwidth.org',convertunderscore=>1,image=>'dw.gif'},
15 my ($site,$name,$title) = @_;
17 return "" unless exists $sites{$site};
19 if ($s->{convertunderscore}) {
22 my $uri=sprintf($s->{uri},$name);
23 return "<a href=\"$uri\"><img src=\"$imgprefix/".$s->{image}."\"><b>$title</b></a>";
28 my $expr="<(".join("|",keys %sites).')\s+user="?(\w+)"?(?:\s+title="([^\"]+)")?\s*/?>';
29 s/$expr/user_link($1,$2,$3)/seg;