You can use this module with your existing WebGUI accounts, just make sure you set the authentication method to OpenId and the "OpenId Identity" under the edit user settings option.

If you would like users to automatically register and login using the OpenId auth module you must enable "Anonymous Registration" under the site settings. 

Great module, dannymk!

I've written a patch for WebGUI::Auth::OpenId.pm that makes entry and verification of the OpenID URI's more forgiving. Mainly, it allows you to forget the "http://" on front and the trailing slash on the end at any point and everything still works (hopefully). I've pasted it below (it's not too complex).

I'll definitely be using this on my server. Now off to find (or create) an RFE to get this put into the core. :)

------------------------------------------------

--- WebGUI/Auth/OpenId.pm-orig  2007-09-23 11:34:15.000000000 -0600
+++ WebGUI/Auth/OpenId.pm       2007-09-23 11:33:22.000000000 -0600
@@ -132,16 +132,23 @@
 
 =cut
 
-sub _getUserName{
+sub _getUserName {
    my $self = shift;
    my $openIdUri = shift;
-       my $sql = "SELECT username FROM users
+   my($openIdUriRegExp,$regExpEnd);
+   if ($openIdUri =~ /\/$/) {
+     $regExpEnd = "?\$";
+   } else {
+     $regExpEnd = "/?\$";
+   }
+   $openIdUriRegExp = "^$openIdUri" . $regExpEnd;
+   my $sql = "SELECT username FROM users
       inner join authentication on users.userId=authentication.userId
       and fieldName = 'openIdUri'     
-      and fieldData = ?";
+      and fieldData RLIKE ?";
   
    if ( $openIdUri ){
-      my $userInfo = $self->session->db->buildHashRef($sql,[ $openIdUri ]);
+      my $userInfo = $self->session->db->buildHashRef($sql,[ $openIdUriRegExp ]);
       my @userKeys = keys(%$userInfo);
       return $userInfo->{$userKeys[0]};
    }else{
@@ -203,7 +210,7 @@
       #my $verified_url = $vident->url;
       $error = ""; #You are $verified_url !";
       $self->session->stow->set('foundValidOpenIdUri',1);
-      $self->session->stow->set('openIdUri',$cacheRef->{'_uri'});     
+      $self->session->stow->set('openIdUri',$vident->url);     
       $cache->delete();
    } else {
       $error = $self->_i18n->get('error default') . $csr->err;
@@ -371,8 +378,12 @@
 
 sub editUserFormSave {
    my $self = shift;
+   my $openIdUri = $self->session->form->process('authOpenId_openIdUri');
+   if ($openIdUri !~ /^http:\/\//) {
+     $openIdUri = "http://$openIdUri";
+   }
    my $properties = {};
-   $properties->{openIdUri} = $self->session->form->process('authOpenId_openIdUri');
+   $properties->{openIdUri} = $openIdUri;
    $self->SUPER::editUserFormSave($properties);
 }

Hi Cap10,
   sorry I have not been on  a while.  I got a new job and have been working long hours.

Anyway, can you tell me how the conference went?  Did they talk about the OpenId module at all?

I will probably patch my source with the patch you sent and will let you know how it works.

Dan. 

Hi, the patch shows a value: $vident->url

however, that value is not defined in the patch.

Where did you get that from?  Where did you set it?

Hmmm... seems like Yahoo will be supporting OpenId 2.0 http://www.infoworld.com/article/08/01/17/Yahoo-to-support-OpenID-single-sign-on_1.html

Guesss I have to get this module updated! 

Sorry I've been MIA on this. I'm still hoping to revisit this at some point soon. dannymk, can we meet in IRC at some point to discuss the status of this module and get it ready for inclusion in core?

I have made some changes to the module to get ready for the upgraded release of http://search.cpan.org/~bradfitz/Net-OpenID-Consumer-0.14/lib/Net/OpenID/Consumer.pm which will support OpenId version 2.0 (http://brad.livejournal.com/).  It seems to be the only functioning/available Perl library.   The one at this website: http://code.sxip.com/openid4perl/ still seems to be under development and cannot be used in production.  I sent an email to Brad and he told me his team was working on an upgrade.  Lets hope Brad Fitzpatrick releases his modules soon.   If anyone else knows of a functioning OpenId perl implementation please let me know.