335 lines
8.4 KiB
Perl
335 lines
8.4 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Configuration Menu
|
|
sub edit_menu {
|
|
|
|
debugmsg("sub edit_menu",3);
|
|
|
|
# Local variables
|
|
my $inkey = "";
|
|
my $waitkey = "";
|
|
my $head_length = "";
|
|
my $title_length = "";
|
|
my $spacer_length = "";
|
|
my $write_status = 0;
|
|
my $indent = "\t";
|
|
my $page = 0;
|
|
my $pages = 0;
|
|
my @users_page = ();
|
|
my $numusers_page = 3;
|
|
my $index = 0;
|
|
my $next_userid = 0;
|
|
my @thisuser = ();
|
|
my $user_edited = 0;
|
|
my $users_changed = 0;
|
|
|
|
# Find the length of the page header and underline with '='
|
|
$head_length = length("$MENU_HEAD");
|
|
if ($head_length > 80) {
|
|
$head_length= 80;
|
|
}
|
|
$head_length = '=' x $head_length;
|
|
|
|
# Find the length of the menu title and underline with '~'
|
|
$title_length = length("$EM_TITLE");
|
|
if ($title_length > 80) {
|
|
$title_length= 80;
|
|
}
|
|
$title_length = '~' x $title_length;
|
|
|
|
$spacer_length = '-' x 80;
|
|
|
|
while ($inkey !~ /x|X/) {
|
|
@USER_ID = sort(keys(%USERDATA));
|
|
$NUM_USERS = @USER_ID;
|
|
$next_userid = $NUM_USERS;
|
|
if ($next_userid < 10) {
|
|
$next_userid = "00".$next_userid;
|
|
}elsif ($next_userid < 100) {
|
|
$next_userid = "0".$next_userid;
|
|
}
|
|
@users_page = ();
|
|
$pages = int($NUM_USERS / $numusers_page);
|
|
if ($NUM_USERS % $numusers_page) {
|
|
$pages += 1;
|
|
}
|
|
if ($page > $pages -1) {
|
|
$page = $pages -1;
|
|
}
|
|
if ($page < 0) {
|
|
$page = 0;
|
|
}
|
|
for ($index = 0; $index < $numusers_page; $index += 1) {
|
|
if (exists($USER_ID[$index + $page * $numusers_page])) {
|
|
push(@users_page,$USER_ID[$index + $page * $numusers_page]);
|
|
}
|
|
}
|
|
system('clear');
|
|
print "\n";
|
|
print "\n".$indent.$MENU_HEAD;
|
|
if ($DEBUG) { print $indent."Debug Level: $DEBUG" }
|
|
print "\n".$indent.$head_length;
|
|
print "\n";
|
|
print "\n";
|
|
print "\n";
|
|
print "\n".$indent.$EM_TITLE;
|
|
print "\n".$indent.$title_length;
|
|
print "\n";
|
|
print "\n";
|
|
$page += 1;
|
|
print "\n".$indent.$EM_PAGE_1." ".$page." ".$EM_PAGE_2." ".$pages." (".$NUM_USERS." ".$EM_PAGE_3.")";
|
|
print "\n".$indent;
|
|
if ($pages > 1) {
|
|
if ($page >= 3) {
|
|
print "(F) ".$EM_F;
|
|
}
|
|
}
|
|
if ($page >= 2) {
|
|
print "(P) ".$EM_P." ";
|
|
}
|
|
if ($page <= $pages - 1) {
|
|
print "(N) ".$EM_N." ";
|
|
}
|
|
if ($pages > 1) {
|
|
if ($page <= $pages -2) {
|
|
print "(L) ".$EM_L." ";
|
|
}
|
|
}
|
|
$page -= 1;
|
|
print "\n";
|
|
print "\n".$indent."(A) ".$EM_A;
|
|
if ($NUM_USERS > 0){
|
|
print " (E) ".$EM_E." (D) ".$EM_D;
|
|
}
|
|
print "\n".$indent."(S) ".$EM_S." (R) ".$EM_R;
|
|
foreach $index (@users_page) {
|
|
print "\n".$indent.$spacer_length;
|
|
print "\n".$indent.$EM_1.": ".$index;
|
|
print "\n".$indent.$EM_2.": ".$USERDATA{$index}[0];
|
|
print "\n".$indent.$EM_3.": ".$USERDATA{$index}[1];
|
|
print "\n".$indent.$EM_4.": ".$USERDATA{$index}[2];
|
|
print "\n".$indent.$EM_5.": ".$USERDATA{$index}[3];
|
|
}
|
|
print "\n".$indent.$spacer_length;
|
|
print "\n".$indent.$EM_PROMPTA." (x ".$EM_PROMPTB.") :";
|
|
|
|
|
|
# Get the keypress
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
$inkey =~ tr/a-z/A-Z/;
|
|
if ($inkey eq "X") { #Exit
|
|
@USER_ID = sort(keys(%USERDATA));
|
|
$NUM_USERS = @USER_ID;
|
|
if ($users_changed == 1) {
|
|
$inkey='loop';
|
|
while ($inkey eq 'loop') {
|
|
print "\n".$indent.$EM_EXIT_SAVE." (Y/N) ?:";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
$inkey =~ tr/a-z/A-Z/;
|
|
if ($inkey eq 'Y') {
|
|
&write_data;
|
|
$inkey="";
|
|
}elsif ($inkey eq 'N') {
|
|
&read_data;
|
|
$inkey="";
|
|
}else{
|
|
$inkey='loop';
|
|
}
|
|
}
|
|
}
|
|
return(0);
|
|
}elsif ($inkey eq "F") { #First Page
|
|
if ($page > 0) {
|
|
$page = 0;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "P") { #Previous Page
|
|
if ($page > 0) {
|
|
$page -= 1;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "N") { #Next Page
|
|
if ($page < $pages -1 ) {
|
|
$page += 1;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "L") { #Last Page
|
|
if ($page < $pages - 1) {
|
|
$page = $pages;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "A") { #Add User
|
|
if ($NUM_USERS < 1000) {
|
|
debugmsg("Next UserID: ".$next_userid,5);
|
|
$thisuser[0] = $next_userid;
|
|
print "\n\n".$indent.$EM_1.": ".$next_userid;
|
|
$inkey="";
|
|
print "\n".$indent.$EM_2.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
$thisuser[1] = $inkey;
|
|
$inkey="";
|
|
print $indent.$EM_3.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
$thisuser[2] = $inkey;
|
|
$inkey="";
|
|
print $indent.$EM_4.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
$thisuser[3] = $inkey;
|
|
}
|
|
$inkey="";
|
|
print $indent.$EM_5.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
$thisuser[4] = $inkey;
|
|
@USERDATA{$thisuser[0]} = ([$thisuser[1],$thisuser[2],$thisuser[3],$thisuser[4]]);
|
|
$users_changed = 1;
|
|
print "\n".$indent.$EM_SUCCESS_ADD;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}else{
|
|
print "\n".$indent.$EM_ERROR_4." ".$EM_FAILURE_ADD." !";
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
}else{
|
|
print "\n".$indent.$EM_ERROR_3." ".$EM_FAILURE_ADD." !";
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
}else{
|
|
print "\n".$indent.$EM_ERROR_2." ".$EM_FAILURE_ADD." !";
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
}else{
|
|
print "\n\n".$indent.$EM_ERROR_1;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "E") { #Edit User
|
|
$user_edited = 0;
|
|
$inkey="";
|
|
print "\n\n".$indent.$EM_EDIT_1E.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
debugmsg("Input UID: ".$inkey,5);
|
|
if (($inkey ne '') && ($USERDATA{$inkey} ne '')){
|
|
$thisuser[0] = $inkey;
|
|
$thisuser[1] = $USERDATA{$inkey}[0];
|
|
$thisuser[2] = $USERDATA{$inkey}[1];
|
|
$thisuser[3] = $USERDATA{$inkey}[2];
|
|
$thisuser[4] = $USERDATA{$inkey}[3];
|
|
print "\n".$indent.$EM_EDIT_2."[".$thisuser[1]."]: ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
debugmsg("Name entered: ".$inkey,5);
|
|
$user_edited = 1;
|
|
$thisuser[1] = $inkey;
|
|
}
|
|
$inkey="";
|
|
print "\n".$indent.$EM_EDIT_3."[".$thisuser[2]."]: ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
debugmsg("Webroot entered: ".$inkey,5);
|
|
$user_edited = 1;
|
|
$thisuser[2] = $inkey;
|
|
}
|
|
$inkey="";
|
|
print "\n".$indent.$EM_EDIT_4A."[".$thisuser[3]."]: ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
debugmsg(" Blog Directory entered: '".$inkey."'",5);
|
|
if ($inkey ne '') {
|
|
$user_edited = 1;
|
|
$thisuser[3] = $inkey;
|
|
}elsif($thisuser[3] ne '') {
|
|
$inkey='loop';
|
|
while ($inkey eq 'loop') {
|
|
print "\n".$indent.$EM_EDIT_4B." (Y/N) ?:";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
$inkey =~ tr/a-z/A-Z/;
|
|
if ($inkey eq 'Y') {
|
|
$user_edited = 1;
|
|
$thisuser[3] = '';
|
|
$inkey="";
|
|
}elsif ($inkey eq 'N') {
|
|
$inkey="";
|
|
}else{
|
|
$inkey='loop';
|
|
}
|
|
}
|
|
}
|
|
$inkey="";
|
|
print "\n".$indent.$EM_EDIT_5."[".$thisuser[4]."]: ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
debugmsg("User Account entered: ".$inkey,5);
|
|
$user_edited = 1;
|
|
$thisuser[4] = $inkey;
|
|
}
|
|
debugmsg("User edit: ".$user_edited,5);
|
|
if ($user_edited == 1) {
|
|
@USERDATA{$thisuser[0]} = ([$thisuser[1],$thisuser[2],$thisuser[3],$thisuser[4]]);
|
|
$users_changed = 1;
|
|
print "\n".$indent.$EM_SUCCESS_EDIT;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
|
|
}else{
|
|
print "\n".$indent.$EM_FAILURE_EDIT;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
}else{
|
|
print "\n".$indent.$EM_ERROR_5;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "D") { #Delete User
|
|
$inkey="";
|
|
print "\n\n".$indent.$EM_EDIT_1D.": ";
|
|
# Get the input
|
|
$inkey = <STDIN>;
|
|
chomp($inkey);
|
|
if ($inkey ne '') {
|
|
if (delete($USERDATA{$inkey})) {
|
|
$users_changed = 1;
|
|
print "\n".$indent.$EM_SUCCESS_DELETE;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}else{
|
|
print "\n".$indent.$EM_ERROR_5." ".$EM_FAILURE_DELETE." !";
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}
|
|
}
|
|
$inkey="";
|
|
}elsif ($inkey eq "S") { #Save Changes
|
|
&write_data;
|
|
print "\n\n".$indent.$EM_SAVE;
|
|
print "\n".$indent.$WAIT_MSG; $waitkey = <STDIN>;
|
|
}elsif ($inkey eq "R") { #Reset Changes
|
|
&read_data;
|
|
}
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
# This line is needed to satisfy require
|
|
1;
|