formatting
parent
3275679881
commit
fc0b70e700
|
@ -654,7 +654,12 @@ sub userlink ($) { #{{{
|
||||||
eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) {
|
eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) {
|
||||||
# Munge user-urls, as used by eg, OpenID.
|
# Munge user-urls, as used by eg, OpenID.
|
||||||
my $oid=Net::OpenID::VerifiedIdentity->new(identity => $user);
|
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 {
|
else {
|
||||||
return htmllink("", "", escapeHTML($user), 1);
|
return htmllink("", "", escapeHTML($user), 1);
|
||||||
|
|
|
@ -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 ($$$;$) { #{{{
|
sub validate ($$$;$) { #{{{
|
||||||
|
|
Loading…
Reference in New Issue