my $dbh = sqlradius_connect(shift, shift, shift);
my( $username, @groups ) = @_;
my $dbh = sqlradius_connect(shift, shift, shift);
my( $username, @groups ) = @_;
$sth->execute( $username, $group )
or die "can't insert into groupname table: ". $sth->errstr;
}
$sth->execute( $username, $group )
or die "can't insert into groupname table: ". $sth->errstr;
}