Welcome
GoldBear Family Site



Welcome to our family site. Here you'll be able to find out how we're all related and to browse our family album.
Sun and clouds
people | pictures
  © 2001-2005 DrAlex Software For more information contact Ryan Taylor at   
se, $filelock, \@group_fields); $load_group = "$new_number"; undef($add_new_group) } } if($add_new_group) { &Add_Group }; # Delete User Group: ################################################## if($delete_user_group) { &DB_Del($group_dbase, $filelock,$load_group); unlink("$pfiles_dir/group$load_group.dat"); unlink("$pfiles_dir/customfields$load_group.dat"); unlink("$pfiles_dir/approvals$load_group.dat"); unlink("$pfiles_dir/inactives$load_group.dat"); unlink("$pswd_dir/$load_group.passwords"); undef($load_group); } # Output Main Menu: ################################################## &Template("$pfiles_dir/_admin_menu.html"); &Template("$pfiles_dir/_user_menu.html"); $default_menu = &Cell("default_commands"); $custom_file = "$pfiles_dir/customfields$load_group.dat"; if(-e "$custom_file" && $load_group) { $csfield_code = sub { if($csearchable eq "Yes") { push(@search_fields,$cfield); $custom_search_fields .= &Cell('search_fields') }; }; &DB_List($custom_file,$filelock,\@custom_field_info,$csfield_code); } if($search_for || $more_results || $search_field eq "show_all") { if(!$more_results) { $hshow_number = $show_number; $hsearch_words = "$search_for"; $hsfield = "$search_field"; $start_at = 0; } $scount = 0; $mfound = 0; $now_showing = 0; push(@user_fields,@search_fields); $search_file = "$pfiles_dir/group$load_group.dat"; if($more_results) { $show_number = $hshow_number; $search_for = "$hsearch_words"; $search_field = "$hsfield"; } $selected_user_options = " "; $search_code = sub { if($start_at <= "$scount" && $mfound < $show_number && $$search_field =~ /$search_for/i || $start_at <= "$scount" && $mfound < $show_number && $search_field eq "show_all") { $matches .= &Cell('search_results'); $mfound++; $start_at = $scount + 1; $now_showing++; } elsif(!$already_found && $start_at <= "$scount" && $$search_field =~ /$search_for/i || !$already_found && $start_at <= "$scount" && $search_field eq "show_all") { $matches_image = ""; $already_found = 1; } $scount++; }; $sort_code = sub { $a_name = &DB_Field(username,\@user_fields,$a); $b_name = &DB_Field(username,\@user_fields,$b); $a_name cmp $b_name; }; &DB_List($search_file,$filelock,\@user_fields,$search_code,$sort_code); $matches_found .= &Cell('matches_count'); } if($selected_user_options || $matches_image) { $matches .= &Cell("search_bottom") }; $loaded_msg = "Available Groups: "; if(!$load_group) { $main_window = &Cell("menu_message"); $create_msg = &Cell("create_message"); } if($load_group) { open(USERS,"<$pfiles_dir/group$load_group.dat"); @count_users = ; close(USERS); open(APPROVALS,"<$pfiles_dir/approvals$load_group.dat"); @approvals = ; close(APPROVALS); open(INACTIVES,"<$pfiles_dir/inactives$load_group.dat"); @inactives = ; close(INACTIVES); $active_users = @count_users; $approval_count = @approvals; $inactive_count = @inactives; $group_menu = &Cell("group_commands"); $loaded_msg = "Loaded Group: "; $main_window = &Cell("group_loaded_top"); } $rowcode = sub { if($num eq "$load_group") { $num = "\"$num\" selected"; $group_name = "* $group_name"; } else { $num = "\"$num\"" }; $display_groups .= &Cell("show_groups"); }; &DB_List($group_dbase,$filelock,\@group_fields,$rowcode); if(!$group_name) { $main_window = "$create_msg $main_window" }; if(@selected_users && $search_field ne "all" && $search_for || $more_results) { foreach$suser(@selected_users) { $selected_list .= "\n"; } } print &Template("$pfiles_dir/_admin_menu.html"); exit; } # Add New User Group: #################################################### sub Add_Group { &Template("$pfiles_dir/_create_group.html"); ($day,$month,$year) = (localtime(time))[3,4,5]; $month++; $year += 1900; &convert_month; opendir(EDIR,"$efiles_dir"); @efiles = grep(!/^\./,readdir(EDIR)); closedir(EDIR); foreach$efile(sort @efiles) { $email_dropdown .= &Cell("drop_down"); } print &Template("$pfiles_dir/_create_group.html"); exit; } # Modify Group Settings: #################################################### sub Modify_Group { if($save_modification) { &DB_Save($group_dbase, $filelock, \@group_fields,$modify_group); } &Template("$pfiles_dir/_modify_group.html"); &DB_Load($group_dbase,$filelock,\@group_fields,$modify_group); opendir(EDIR,"$efiles_dir"); @efiles = grep(!/^\./,readdi