urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

formatting

master
joey 2006-11-21 01:40:47 +00:00
parent 3275679881
commit fc0b70e700
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
IkiWiki/CGI.pm
View File

@ -654,7 +654,12 @@ sub userlink ($) { #{{{
eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) {
# Munge user-urls, as used by eg, OpenID.
my $oid=Net::OpenID::VerifiedIdentity->new(identity => $user);
return "<a href=\"$user\">".escapeHTML($oid->display)."</a>";
my $display=$oid->display;
# Convert "user.somehost.com" to "user [somehost.com]".
if ($display !~ /\[/) {
$display=~s/^(.*?)\.([^.]+.[^.]+)$/$1 [$2]/;
}
return "<a href=\"$user\">".escapeHTML($display)."</a>";
}
else {
return htmllink("", "", escapeHTML($user), 1);

6
IkiWiki/Plugin/openid.pm
View File

@ -56,6 +56,12 @@ sub formbuilder_setup (@) { #{{{
}
}
}
elsif ($form->title eq "preferences") {
if (! defined $form->field(name => "name")) {
$form->field(name => "OpenID", disabled => 1, value =>
$session->param("name"), size => 30, force => 1);
}
}
}
sub validate ($$$;$) { #{{{