Changeset 479 for trunk/DNSDB.pm


Ignore:
Timestamp:
03/13/13 17:39:28 (11 years ago)
Author:
Kris Deugau
Message:

/trunk

Object conversion of DNSDB.pm, 12 of <mumble>. See #11.

  • user subs addUser(), getUserCount(), getUserList(), getUserDropdown(), updateUser(), delUser(), userStatus(), and getUserData() and callers
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/DNSDB.pm

    r478 r479  
    26682668sub addUser {
    26692669  $errstr = '';
    2670   my $dbh = shift;
     2670  my $self = shift;
     2671  my $dbh = $self->{dbh};
    26712672  my $username = shift;
    26722673  my $group = shift;
    … …  
    27822783# - a "Starts with" string
    27832784sub getUserCount {
    2784   my $dbh = shift;
     2785  my $self = shift;
     2786  my $dbh = $self->{dbh};
    27852787
    27862788  my %args = @_;
    … …  
    28102812# - offset/return-all-everything flag (defaults to $perpage records)
    28112813sub getUserList {
    2812   my $dbh = shift;
     2814  my $self = shift;
     2815  my $dbh = $self->{dbh};
    28132816
    28142817  my %args = @_;
    … …  
    28502853# Returns a reference to a list of hashrefs suitable to feeding to HTML::Template
    28512854sub getUserDropdown {
    2852   my $dbh = shift;
     2855  my $self = shift;
     2856  my $dbh = $self->{dbh};
    28532857  my $grp = shift;
    28542858  my $sel = shift || 0;
    … …  
    28732877# Update general data about user
    28742878sub updateUser {
    2875   my $dbh = shift;
     2879  my $self = shift;
     2880  my $dbh = $self->{dbh};
    28762881
    28772882##fixme:  tweak calling convention so that we can update any given bit of data
    … …  
    29352940# Returns a success/failure code and matching message
    29362941sub delUser {
    2937   my $dbh = shift;
     2942  my $self = shift;
     2943  my $dbh = $self->{dbh};
    29382944  my $userid = shift;
    29392945
    29402946  return ('FAIL',"Bad userid") if !defined($userid);
    29412947
    2942   my $userdata = getUserData($dbh, $userid);
     2948  my $userdata = $self->getUserData($userid);
    29432949
    29442950  # Allow transactions, and raise an exception on errors so we can catch it later.
    … …  
    30013007# Returns undef on errors.
    30023008sub userStatus {
    3003   my $dbh = shift;
     3009  my $self = shift;
     3010  my $dbh = $self->{dbh};
    30043011  my $id = shift;
    30053012  my $newstatus = shift || 'mu';
    … …  
    30073014  return undef if $id !~ /^\d+$/;
    30083015
    3009   my $userdata = getUserData($dbh, $id);
     3016  my $userdata = $self->getUserData($id);
    30103017
    30113018  # Allow transactions, and raise an exception on errors so we can catch it later.
    … …  
    30493056# Get misc user data for display
    30503057sub getUserData {
    3051   my $dbh = shift;
     3058  my $self = shift;
     3059  my $dbh = $self->{dbh};
    30523060  my $uid = shift;
    30533061
Note: See TracChangeset for help on using the changeset viewer.