I'm still working to learn to use DBIx::UserDB.

My browser reports: 

Software error:

Can't use string ("wheel") as a HASH ref while "strict refs" in use at
+ /usr/local/share/perl/5.8.7/DBIx/UserDB.pm line 410.

[download]
Here is the debugging output I'm sending to the error log: 

New UserDB object created.
The $session ID is:
77540362YTIvQiAaOS7yA942A153i62p32351f159U25f59k22l181r1112198r113k146
+y85A21O160w104393P643515121S122n190n96A21067w174n66c98l100j95w174e13j
+125g293123n96B60G9EPZdZYJ4zjW1.
About to enter dispatch code.
$function is NewGroup.
[Thu Feb  2 22:29:32 2006] test-auth5.cgi: Odd number of elements in h
+ash assignment at /var/wwwssl/auth-test/test-auth5.cgi line 379.
GroupCreate received these arguments:
        $userdb is DBIx::UserDB=HASH(0x84febec).
        The new group name is: wheel.
        $group is HASH(0x84fecac).
Creating a new group called:  wheel.
        ref of group = ref(HASH(0x84fecac))
        ref of groupname = ref(wheel)
[Thu Feb  2 22:29:32 2006] test-auth5.cgi: Can't use string ("wheel") 
+as a HASH ref while "strict refs" in use at /usr/local/share/perl/5.8
+.7/DBIx/UserDB.pm line 410.

[download]
I'm using this syntax:

   &GroupCreate($userdb,\%group);

[download]
to call a subroutine which includes line 379, the line which accepts @_ and parses it at the top of the following snippet. 

sub GroupCreate() {
  my($userdb,%group) = @_;
  print STDERR "GroupCreate received these arguments: \n\t\$userdb is 
+$userdb.  \n\tThe new group name is: $group->{groupname}.\n\t\$group 
+is $group.\n";
  return p("Groupname required to create new group.") unless defined($
+group->{groupname});
  my($status,$gid);
  print STDERR "Creating a new group called: $group->{groupname}.\n";

  print STDERR "\tref of group = ref($group) \n\tref of groupname = re
+f($groupname) \n";

  {
    no strict 'refs';
    my $result = $userdb->group_create ( $group->{groupname} );
  }
  if($result) {
    $status = p("A New Group, called <b>$group{groupname}</b> has been
+ successfully created, with GID: $group->{'gid
'}.");
  } else {
    $status = p("The creation of a new Group, called <b>$group{groupna
+me}</b> failed.");
  }
  return $status;
} # END GroupCreate

[download]
And line 410 which throws that other error is in this subroutine in a distinct module, on the line which defines $old_group. 

sub group_create {
    my ( $self, $group ) = @_;

    my $DB = $self->{DB};

    # Check for group with same name
    my $old_group = $DB->record_search( $self->{group_profile},
                            { groupname => $group->{groupname} }
                                );
    return undef if @$old_group;

    $DB->record_insert( $self->{group_profile}, $group );
    my $new_group = $DB->record_search( $self->{group_profile},
                            { groupname => $group->{groupname} }
                                );
    die "Failed to find newly created group\n" unless @$new_group == 1
+;

    # Copy the fields of the new user back in this one
    while ( my ($name,$value) = each %{$new_group->[0]} ) {
        $group->{$name} = $value;
    }

    return $group;
}

[download]
If this is too confusing to be helpful and you've successfully used DBIx::UserDB, I'd be happy for the moment simply having some working code snippets I could adapt from.

-- Hugh

In reply to Confused Still by Hash Refs by hesco

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.