Okay. Here goes. Let me know what happens, okay?
In auth.pl, sub auth_check_password, change
Code:
my ($pass, @passwd, $userid, $pw, @permissions, $file, $uid, $email);
to
Code:
my ($pass, @passwd, $userid, $pw, @permissions, $file, $uid, $email, $fmem);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email, $fmem) = split (/:/, $pass);
and change
Code:
return ('ok', $db_uid, $view, $add, $del, $mod, $admin);
to
Code:
return ('ok', $db_uid, $view, $add, $del, $mod, $admin, $fmem);
In auth.pl, sub auth_check_permissions, change
Code:
my ($username, @permissions, $permission, $name, $pw, $view, $add, $del, $mod, $admin, $email);
to
Code:
my ($username, @permissions, $permission, $name, $pw, $view, $add, $del, $mod, $admin, $email, $fmem);
and change
Code:
($name, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $permission);
to
Code:
($name, $pw, $view, $add, $del, $mod, $admin, $email, $fmem) = split (/:/, $permission);
and change
Code:
return ($view, $add, $del, $mod, $admin);
to
Code:
return ($view, $add, $del, $mod, $admin, $fmem);
In db.cgi, sub main, change
Code:
($status, $uid, $per_view, $per_add, $per_del, $per_mod, $per_admin)
= &auth_check_password; # Authenticate User, get permissions and userid.
to
Code:
($status, $uid, $per_view, $per_add, $per_del, $per_mod, $per_admin, $fmem)
= &auth_check_password; # Authenticate User, get permissions and userid.
In sub admin_display, change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email, $fmem) = split (/:/, $pass);
and change
Code:
print PASS "$in{'new_username'}:$in{'password'}:$in{'per_view'}:$in{'per_add'}:$in{'per_del'}:
$in{'per_mod'}:$in{'per_admin'}:$in{'email'}\n";
to
Code:
print PASS "$in{'new_username'}:$in{'password'}:$in{'per_view'}:$in{'per_add'}:$in{'per_del'}:
$in{'per_mod'}:$in{'per_admin'}:$in{'email'}:$in{'fmem'}\n";
and change
Code:
print PASS "$in{'username'}:$in{'password'}:$in{'per_view'}:$in{'per_add'}:$in{'per_del'}:
$in{'per_mod'}:$in{'per_admin'}:$in{'email'}\n";
to
Code:
print PASS "$in{'username'}:$in{'password'}:$in{'per_view'}:$in{'per_add'}:$in{'per_del'}:
$in{'per_mod'}:$in{'per_admin'}:$in{'email'}:$in{'fmem'}\n";
and after
Code:
Admin <input type=checkbox name="per_admin" value="1" |;
($data[6] and $perm .= "CHECKED"); $perm .= qq|>|;
add
Code:
Full Member <input type=checkbox name="fmem" value="1" |;
($data[8] and $perm .= "CHECKED"); $perm .= qq|>|;
and after
Code:
Admin <input type=checkbox name="per_admin" value="1" |;
($auth_default_perm[4] and $perm .= "CHECKED"); $perm .= qq|>|;
add
Code:
Full Member <input type=checkbox name="fmem" value="1" >|;
In db.cgi, sub signup, change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin,$email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email, $fmem) = split (/:/, $pass);
and change
Code:
print PASS "$in{'userid'}:$in{'pw'}:$permissions:$in{'email'}\n";
to
Code:
print PASS "$in{'userid'}:$in{'pw'}:$permissions:$in{'email'}:0\n";
In db.cgi, sub lookup, change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email, $fmem) = split (/:/, $pass);
When you want to tell the difference between a "member" and a "full member," use the variable
$fmem.
Code:
if ($fmem) {
print "this person is a full member";
}
else {
print "this person is a member";
}
------------------
JPD
hehe