#!/usr/bin/perl

use CGI;
print $q->header();
printf $q->startform;

printf "<h1>CVS User Management</h1><br>";
 printf "<P>";
printf "<b>Please select which cvs repository your would like to administer.</b><br><br>";
foreach my $rep (<@reps>) {
printf $q->radio_group (-name      => 'cvsrep',<nt>
                                  -values  => [$rep], -linebreak => 'true');
}
printf "<br>";
printf "<b>Please select the function to use. <br></b><br>";
        my @functions = <br>('Register_User','Delete_User','Show_All_Users','Reset_Password');
foreach my $func (<@functions>) {
printf $q->checkbox_group (-name   => 'function',<br>
                             -values => [$func], -linebreak <br>=> 'true', -defaults => 'other');
        }
        printf "<br>";
        printf $q->reset;
        printf $q->submit ('Submit', 'Submit');
        printf $q->endform;
        %formvals = $q->Vars();
        my $repaccess = $formvals{cvsrep};
        my $repfunction = $formvals{function};
        if($repfunction =~ /Register_User/) {<br>
                printf $logo;
                &displayreg($repaccess);                    
        } elsif ($repfunction =~ /Delete_User/) {            
                printf $logo;
                &displaydel($repaccess);
        } elsif ($repfunction =~ /Show_All_Users/) {
                printf $logo;
                &showallusers($repaccess);
        } elsif ($repfunction =~ /Reset_Password/) {
                printf $logo;
                &displayreset($repaccess);
        }
sub displayreg() {
                printf $q->h1("CVS New User registation for $_[0]");  # Print Header
                printf $q->start_form;
                printf "<br>";
                printf "<b>Please enter the details below to register a new user </b>";print"<br><br>";
                printf "<EM>Users Username from GD  </EM>"; print $q->textfield(-name=>'username',-size=>'20');print"<br><br>";
                printf "<EM>Users Email Address  </EM>"; print $q->textfield(-name=>'emailaddr',-size=>'30');print"<br><br>";
                printf $q->hidden(-name =>'mode',-value=>'regthisuser');
                printf $q->hidden(-name =>'repaccess',-value=>$_[0]);
                printf $q->submit(-value=>'Submit');
                printf " ";
                printf $q->reset;
                printf $q->endform;
                printf "<BR>";
}